$PBExportHeader$w_linkagescroll.srw $PBExportComments$DW Linkage example using Scroll option forward global type w_linkagescroll from w_main end type type cb_retrieve from u_cb within w_linkagescroll end type type cb_close from u_cb within w_linkagescroll end type type dw_emp from u_dw within w_linkagescroll end type type dw_detail from u_dw within w_linkagescroll end type type cb_update from u_cb within w_linkagescroll end type type p_1 from u_p within w_linkagescroll end type end forward global type w_linkagescroll from w_main int X=233 int Y=248 int Width=2373 int Height=1188 boolean TitleBar=true string Title="PFC Example - Basic Scrolling" boolean Resizable=false cb_retrieve cb_retrieve cb_close cb_close dw_emp dw_emp dw_detail dw_detail cb_update cb_update p_1 p_1 end type global w_linkagescroll w_linkagescroll on w_linkagescroll.create int iCurrent call super::create this.cb_retrieve=create cb_retrieve this.cb_close=create cb_close this.dw_emp=create dw_emp this.dw_detail=create dw_detail this.cb_update=create cb_update this.p_1=create p_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_retrieve this.Control[iCurrent+2]=this.cb_close this.Control[iCurrent+3]=this.dw_emp this.Control[iCurrent+4]=this.dw_detail this.Control[iCurrent+5]=this.cb_update this.Control[iCurrent+6]=this.p_1 end on on w_linkagescroll.destroy call super::destroy destroy(this.cb_retrieve) destroy(this.cb_close) destroy(this.dw_emp) destroy(this.dw_detail) destroy(this.cb_update) destroy(this.p_1) end on event open;call super::open;////////////////////////////////////////////////////////////////////////////// // // Event: // open // // Description: // Set the transaction object and retrieve the linked DataWindows. // ////////////////////////////////////////////////////////////////////////////// // Set the Transaction Object for all the dws dw_emp.inv_linkage.of_SetTransObject(sqlca) // Call the retrieve on the top-level datawindow. This // will retrieve all the datawindows in the linked chain dw_emp.of_Retrieve() end event type cb_retrieve from u_cb within w_linkagescroll int X=1979 int Y=28 int TabOrder=30 string Text="&Retrieve" end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // open // // Description: // Calls the retrieve on the top-level datawindow. This // will retrieve all the datawindows in the linked chain. // ////////////////////////////////////////////////////////////////////////////// dw_emp.of_Retrieve() dw_emp.SelectRow(1, true) end event type cb_close from u_cb within w_linkagescroll int X=1979 int Y=264 int TabOrder=50 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 dw_emp from u_dw within w_linkagescroll int X=32 int Y=28 int Width=1906 int Height=300 int TabOrder=10 string DataObject="d_empnames" end type event constructor;call super::constructor;////////////////////////////////////////////////////////////////////////////// // // Event: // constructor // // Description: // Initializes the DataWindow. // ////////////////////////////////////////////////////////////////////////////// // This view is for Browse only. of_SetUpdateable(false) // Start the Linkage Service. of_SetLinkage(true) SetRowFocusIndicator(p_1) 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. // ////////////////////////////////////////////////////////////////////////////// return this.Retrieve() end event event pfc_prermbmenu;call super::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 type dw_detail from u_dw within w_linkagescroll int X=32 int Y=348 int Width=1906 int Height=732 int TabOrder=20 string DataObject="d_empfreeform" boolean VScrollBar=false end type event constructor;call super::constructor;////////////////////////////////////////////////////////////////////////////// // // Event: // constructor // // Description: // Initializes the DataWindow. // ////////////////////////////////////////////////////////////////////////////// // Turn on the linkage service. of_SetLinkage(true) // Link this dw to its master. inv_linkage.of_SetMaster(dw_emp) // Specify the columns that link the dws. inv_linkage.of_Register("emp_id", "emp_id") // Specify how column links will be used. // In this case, as filter arguments. inv_linkage.of_SetStyle(inv_linkage.SCROLL) SetRowFocusIndicator(focusrect!) 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. // ////////////////////////////////////////////////////////////////////////////// return this.Retrieve() end event event pfc_prermbmenu;call super::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 type cb_update from u_cb within w_linkagescroll int X=1979 int Y=148 int TabOrder=40 string Text="&Update" end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Save all DataWindows. // ////////////////////////////////////////////////////////////////////////////// parent.event pfc_save() end event type p_1 from u_p within w_linkagescroll int X=1801 int Y=412 int Width=73 int Height=64 boolean Visible=false boolean BringToTop=true string PictureName="rowind.bmp" boolean OriginalSize=true end type
File: w_linkagescroll.srw
Size: 7499
Date: Tue, 22 Jan 2008 23:27:04 +0100
Size: 7499
Date: Tue, 22 Jan 2008 23:27:04 +0100
- w_main w_linkagescroll(srw)
- u_cb cb_retrieve
- u_cb cb_close
- u_dw dw_emp
- u_dw dw_detail
- u_cb cb_update
- u_p p_1