VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formformForm1Height = 156 Width = 375 DoCreate = .T. AutoCenter = .T. Caption = "" MaxButton = .F. MinButton = .F. WindowType = 1 Name = "Form1" labellabelLabel1Form1UCaption = "" Height = 15 Left = 15 Top = 29 Width = 50 Name = "Label1" labellabelLabel2Form1UCaption = "" Height = 15 Left = 15 Top = 77 Width = 52 Name = "Label2" textboxtextboxText1Form1uControlSource = "code" Enabled = .F. Height = 22 Left = 69 ReadOnly = .T. Top = 24 Width = 45 Name = "Text1" textboxtextboxText2Form1vControlSource = "name" Enabled = .F. Height = 22 Left = 69 ReadOnly = .T. Top = 72 Width = 109 Name = "Text2" labellabelLabel3Form1RCaption = "Ŀ" Height = 16 Left = 205 Top = 24 Width = 26 Name = "Label3" labellabelLabel4Form1RCaption = "" Height = 15 Left = 205 Top = 78 Width = 28 Name = "Label4" comboboxcomboboxCombo1Form1BoundColumn = 1 ColumnCount = 3 RowSourceType = 6 RowSource = "kpitem.name,pf" ControlSource = "item" Height = 21 Left = 235 Top = 20 Width = 128 Name = "Combo1" PROCEDURE InteractiveChange repl itcode with kpitem.code,pf with kpitem.pf next 1 thisform.text3.refresh return .t. ENDPROC +%U:#> BaUITCODEKPITEMCODEPFNEXTTHISFORMTEXT3REFRESHInteractiveChange,11q1v)textboxtextboxText3Form1tControlSource = "pf" Enabled = .F. Height = 22 Left = 236 ReadOnly = .T. Top = 72 Width = 61 Name = "Text3"  commandbutton commandbuttonCommand1Form1TTop = 120 Left = 72 Height = 25 Width = 97 Caption = "ȷ" Name = "Command1" ,PROCEDURE Click release thisform ENDPROC %DYSU <UTHISFORMClick,1q1!) commandbutton commandbuttonCommand2Form1cTop = 119 Left = 218 Height = 25 Width = 97 Cancel = .T. Caption = "ȡ" Name = "Command2" .PROCEDURE Click release thisform ENDPROC %DYSU <UTHISFORMClick,1q2#) , 0, 9, 6, 14, 10, 12, 2, 2