$PBExportHeader$w_tablink.srw $PBExportComments$NEW! All three types of DataWindow linkage are utilized in one window across tab pages. We have one master linked to three details and using each of the three different linkage styles. forward global type w_tablink from w_main end type type dw_1 from u_dw within w_tablink end type type cb_1 from u_cb within w_tablink end type type cb_3 from u_cb within w_tablink end type type cb_4 from u_cb within w_tablink end type type tab_1 from u_tablink within w_tablink end type type tab_1 from u_tablink within w_tablink end type type cb_2 from u_cb_sqlspy within w_tablink end type type p_1 from u_p within w_tablink end type end forward global type w_tablink from w_main integer x = 5 integer y = 4 integer width = 2729 integer height = 1556 string title = "PFC Example - Across Tab Pages" boolean resizable = false dw_1 dw_1 cb_1 cb_1 cb_3 cb_3 cb_4 cb_4 tab_1 tab_1 cb_2 cb_2 p_1 p_1 end type global w_tablink w_tablink on w_tablink.create int iCurrent call super::create this.dw_1=create dw_1 this.cb_1=create cb_1 this.cb_3=create cb_3 this.cb_4=create cb_4 this.tab_1=create tab_1 this.cb_2=create cb_2 this.p_1=create p_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.dw_1 this.Control[iCurrent+2]=this.cb_1 this.Control[iCurrent+3]=this.cb_3 this.Control[iCurrent+4]=this.cb_4 this.Control[iCurrent+5]=this.tab_1 this.Control[iCurrent+6]=this.cb_2 this.Control[iCurrent+7]=this.p_1 end on on w_tablink.destroy call super::destroy destroy(this.dw_1) destroy(this.cb_1) destroy(this.cb_3) destroy(this.cb_4) destroy(this.tab_1) destroy(this.cb_2) destroy(this.p_1) end on event open;call super::open;////////////////////////////////////////////////////////////////////////////// // // Event: // open // // Description: // Retrieves the master's data, then retrieves the detail's data. // ////////////////////////////////////////////////////////////////////////////// dw_1.inv_linkage.of_SetTransObject(sqlca) //Retrieve the master datawindow. dw_1.of_retrieve() end event type dw_1 from u_dw within w_tablink event constructor pbm_constructor integer x = 37 integer y = 32 integer width = 2185 integer height = 604 integer taborder = 10 string dataobject = "d_salesforcustomersall" end type event constructor;////////////////////////////////////////////////////////////////////////////// // // Event: // constructor // // Description: // Initializes the master for linkage. // ////////////////////////////////////////////////////////////////////////////// //Start the linkage service. of_SetLinkage(true) // Specify how column links will be used... // in this case, as retrieval arguments. inv_linkage.of_SetStyle(inv_linkage.RETRIEVE) // Set up visual confirmation of saves and deletes. // This will be the initial setting for the example. inv_linkage.of_SetUpdateOnRowChange(true) inv_linkage.of_SetConfirmOnRowChange(false) 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. // ////////////////////////////////////////////////////////////////////////////// // // 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 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. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// 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_1 from u_cb within w_tablink integer x = 2277 integer y = 384 integer width = 370 integer 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 cb_3 from u_cb within w_tablink integer x = 2277 integer y = 32 integer width = 370 integer taborder = 30 string text = "&Update" end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Save all DataWindows. // ////////////////////////////////////////////////////////////////////////////// parent.event pfc_save() end event type cb_4 from u_cb within w_tablink integer x = 2277 integer y = 144 integer width = 370 integer taborder = 40 string text = "&Retrieve" end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // open // // Description: // Calls the of_Retrieve function on the master DataWindow. This // will retrieve all the datawindows linked to it. // ////////////////////////////////////////////////////////////////////////////// dw_1.of_Retrieve() end event type tab_1 from u_tablink within w_tablink integer x = 32 integer y = 684 integer width = 2610 integer taborder = 20 long backcolor = 77571519 end type type cb_2 from u_cb_sqlspy within w_tablink integer x = 2277 integer y = 260 integer taborder = 2 end type type p_1 from u_p within w_tablink boolean visible = false integer x = 2427 integer y = 540 integer width = 73 integer height = 64 boolean originalsize = true string picturename = "rowind.bmp" end type
File: w_tablink.srw
Size: 8143
Date: Tue, 22 Jan 2008 23:27:24 +0100
Size: 8143
Date: Tue, 22 Jan 2008 23:27:24 +0100
- w_main w_tablink(srw)
- u_dw dw_1
- u_cb cb_1
- u_cb cb_3
- u_cb cb_4
- u_tablink tab_1
- u_cb_sqlspy cb_2
- u_p p_1