PBMiner

$PBExportHeader$w_sort.srw
$PBExportComments$Example usings Sort DW Service
forward
global type w_sort from w_main
end type
type dw_1 from u_dw within w_sort
end type
type cb_sort from u_cb within w_sort
end type
type cb_close from u_cb within w_sort
end type
type rb_1 from u_rb within w_sort
end type
type rb_3 from u_rb within w_sort
end type
type rb_2 from u_rb within w_sort
end type
type rb_4 from u_rb within w_sort
end type
type gb_1 from u_gb within w_sort
end type
end forward

global type w_sort from w_main
int X=421
int Y=68
int Width=2117
int Height=1636
boolean TitleBar=true
string Title="PFC Example - Sort Service Dialogs"
boolean Resizable=false
dw_1 dw_1
cb_sort cb_sort
cb_close cb_close
rb_1 rb_1
rb_3 rb_3
rb_2 rb_2
rb_4 rb_4
gb_1 gb_1
end type
global w_sort w_sort

forward prototypes
public function integer of_modifydw ()
end prototypes

public function integer of_modifydw ();//////////////////////////////////////////////////////////////////////////////
//
// Function:
// of_ModifyDW
//
// Access:
// public
//
// Arguments:
// None
//
// Returns:
// None
//
// Description:
// Modify the DataWindow Object Properties to disallow editing of data.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Modify the DataWindow Object Properties to disallow editing of data.
dw_1.Modify("first_name.Background.Color='78682240'")
dw_1.Modify("last_name.Background.Color='78682240'")
dw_1.Modify("company_name.Background.Color='78682240'")

dw_1.SetTabOrder("first_name", 0)
dw_1.SetTabOrder("last_name", 0)
dw_1.SetTabOrder("company_name", 0)

return 1
end function

on w_sort.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_sort=create cb_sort
this.cb_close=create cb_close
this.rb_1=create rb_1
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_4=create rb_4
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_sort
this.Control[iCurrent+3]=this.cb_close
this.Control[iCurrent+4]=this.rb_1
this.Control[iCurrent+5]=this.rb_3
this.Control[iCurrent+6]=this.rb_2
this.Control[iCurrent+7]=this.rb_4
this.Control[iCurrent+8]=this.gb_1
end on

on w_sort.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_sort)
destroy(this.cb_close)
destroy(this.rb_1)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_4)
destroy(this.gb_1)
end on

type dw_1 from u_dw within w_sort
int X=27
int Y=372
int Width=2030
int Height=1008
int TabOrder=0
string DataObject="d_customerlist"
boolean HScrollBar=true
end type

event constructor;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// constructor
//
// Description:
// Initializes the DataWindow.
//
//////////////////////////////////////////////////////////////////////////////

of_SetTransObject(sqlca) 

parent.of_ModifyDW()
of_SetSort(true) 

inv_sort.of_SetStyle(inv_sort.DRAGDROP)
inv_sort.of_SetColumnNameSource(inv_sort.HEADER)
inv_sort.of_SetVisibleOnly(true)

inv_sort.of_SetUseDisplay(true)
of_SetUpdateable(false)

of_Retrieve()
end event

event pfc_prermbmenu;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// pfc_prermbmenu
//
// Arguments:
// am_dw    the menu that will be displayed when the DataWindow
//          is right clicked.
//
// Returns:
// None
//
// Description:
// Initialize the Right Mouse Menu for the DataWindow.
//
//////////////////////////////////////////////////////////////////////////////

am_dw.m_table.m_insert.enabled = false
am_dw.m_table.m_addrow.enabled = false
am_dw.m_table.m_delete.enabled = false

end event

event pfc_retrieve;call super::pfc_retrieve;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// pfc_retrieve
//
// Arguments:
// None
//
// Returns:
// long
// The number of rows retrieved from the database
// -1 if it fails
// If any argument's value is NULL, pfc_retrieve returns NULL
//
// Description:
// Retrieves data into the DataWindow.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

return this.Retrieve()

end event

type cb_sort from u_cb within w_sort
int X=1321
int Y=1424
int TabOrder=20
string Text="&Set Sort"
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Calls the pfc_sortdlg event on the DataWindow to invoke the selected
// sort dialog box.
//
//////////////////////////////////////////////////////////////////////////////

dw_1.event pfc_sortdlg()
end event

type cb_close from u_cb within w_sort
int X=1696
int Y=1424
int TabOrder=30
string Text="Close"
boolean Cancel=true
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Calls the pfc_close event on the window.
//
//////////////////////////////////////////////////////////////////////////////

parent.event pfc_close()
end event

type rb_1 from u_rb within w_sort
int X=59
int Y=112
int Width=731
string Text="Drag/Drop &Columns Style"
boolean Checked=true
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Sets the sort dialog style for the Sort Service.
//
//////////////////////////////////////////////////////////////////////////////

dw_1.inv_sort.of_SetStyle(dw_1.inv_sort.DRAGDROP)
end event

type rb_3 from u_rb within w_sort
int X=59
int Y=200
int Width=731
boolean BringToTop=true
string Text="&Drop-down List Box Style"
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Sets the sort dialog style for the Sort Service.
//
//////////////////////////////////////////////////////////////////////////////

dw_1.inv_sort.of_SetStyle(dw_1.inv_sort.DROPDOWNLISTBOX)
end event

type rb_2 from u_rb within w_sort
int X=832
int Y=112
int Width=731
boolean BringToTop=true
string Text="Si&mple Single Column Style"
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Sets the sort dialog style for the Sort Service.
//
//////////////////////////////////////////////////////////////////////////////

dw_1.inv_sort.of_SetStyle(dw_1.inv_sort.SIMPLE)
end event

type rb_4 from u_rb within w_sort
int X=832
int Y=200
int Width=731
boolean BringToTop=true
string Text="&PowerBuilder Default Style"
end type

event clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:
// clicked
//
// Description:
// Sets the sort dialog style for the Sort Service.
//
//////////////////////////////////////////////////////////////////////////////

dw_1.inv_sort.of_SetStyle(dw_1.inv_sort.DEFAULT)
end event

type gb_1 from u_gb within w_sort
int X=27
int Y=32
int Width=2030
int Height=284
int TabOrder=10
string Text="Select a Sort Dialog Style"
long TextColor=33554687
long BackColor=82889382
end type