>oForm = Createobject('MyForm') >oForm.Show() >Read Events > >Define Class myform As Form > DataSession = 2 > Top = 0 > Left = 0 > Height = 362 > Width = 485 > DoCreate = .T. > Caption = "Sample" > Name = "Form1" > > Add Object grid1 As Grid With ; > ColumnCount = 1, ; > Height = 310, ; > Left = 12, ; > Panel = 1, ; > RecordSource = "orders", ; > RowHeight = 96, ; > ScrollBars = 2, ; > Top = 12, ; > Width = 420, ; > Name = "Grid1" > > Procedure grid1.BeforeRowColChange > Lparameters nColIndex > Thisform.LockScreen = .T. > Endproc > > Procedure grid1.AfterRowColChange > Lparameters nColIndex > Thisform.LockScreen = .F. > Endproc > > Procedure Init > With This.grid1.Columns(1) > .AddObject('Container1','myContainer') > .Container1.Visible = .T. > .Bound = .F. > .CurrentControl = "Container1" > .Width = 380 > .Sparse = .F. > .Header1.Caption = "Order Info" > Endwith > Endproc > > Procedure Load > Use testdata!orders In 0 > Set Multilocks On > CursorSetProp("Buffering",5,'orders') > Endproc > > Procedure QueryUnload > Clear Events > Endproc >Enddefine > >Define Class myContainer As Container > Width = 380 > Height = 96 > Name = "Container1" > > Add Object lblorder_id As Label With ; > BackStyle = 0, ; > Caption = "Order_id", ; > Left = 8, ; > Top = 8, ; > Width = 48, ; > Name = "lblOrder_id" > > Add Object txtorder_id As TextBox With ; > ControlSource = "orders.order_id", ; > Left = 78, ; > Top = 8, ; > Width = 55, ; > Name = "txtOrder_id" > > Add Object lblcust_id As Label With ; > BackStyle = 0, ; > Caption = "Cust_id", ; > Left = 8, ; > Top = 36, ; > Width = 43, ; > Name = "lblCust_id" > > Add Object txtcust_id As TextBox With ; > ControlSource = "orders.cust_id", ; > Left = 78, ; > Top = 36, ; > Width = 55, ; > Name = "txtCust_id" > > Add Object lblorder_date As Label With ; > BackStyle = 0, ; > Caption = "Order_date", ; > Left = 8, ; > Top = 64, ; > Width = 62, ; > Name = "lblOrder_date" > > Add Object txtorder_date As TextBox With ; > ControlSource = "orders.order_date", ; > Left = 78, ; > Top = 64, ; > Width = 73, ; > Name = "txtOrder_date" > > Add Object combo1 As ComboBox With ; > BoundColumn = 3, ; > BoundTo = .T.,; > ColumnCount = 3, ; > ColumnWidths = "60,100,40", ; > RowSourceType = 3, ; > RowSource = "select first_name,last_name,emp_id from employee into cursor crsEmployee", ; > ControlSource = "Orders.Emp_id", ; > FirstElement = 1, ; > Height = 24, ; > Left = 186, ; > NumberOfElements = 0, ; > Style = 2, ; > Top = 8, ; > Width = 180, ; > Name = "Combo1" > > Add Object command1 As CommandButton With ; > Top = 44, ; > Left = 234, ; > Width = 84, ; > Caption = "Show customer", ; > Name = "Command1" > > Procedure command1.Click > Select * From testdata!customer Where cust_id = orders.cust_id > Endproc >Enddefine >Cetin