VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formformForm1Height = 262 Width = 375 DoCreate = .T. AutoCenter = .T. Caption = "" MaxButton = .F. MinButton = .F. Icon = car.ico WindowType = 1 Name = "Form1" linelineLine1Form1>Height = 0 Left = 9 Top = 209 Width = 361 Name = "Line1"  commandbutton commandbuttonCommand1Form1Top = 224 Left = 53 Height = 28 Width = 109 FontSize = 12 Caption = "\<1.ȷ" TabIndex = 8 ForeColor = 0,0,255 Name = "Command1" PROCEDURE Click if empt(m_custom1) =messagebox('վŲΪգ',64,'') thisform.text2.setfocus return endif pswd=.f. release thisform ENDPROC B ))% Uc%CJ*CվŲΪգ@x B T-<U M_CUSTOM1THISFORMTEXT2SETFOCUSPSWDClick,1AAq2)) commandbutton commandbuttonCommand2Form1Top = 224 Left = 212 Height = 28 Width = 109 FontSize = 12 Cancel = .T. Caption = "\<0.ȡ" TabIndex = 9 ForeColor = 0,0,255 Name = "Command2" 8PROCEDURE Click pswd=.t. release thisform ENDPROC  B%UldU Ta<UPSWDTHISFORMClick,1q2-) optiongroup optiongroup Optiongroup1Form1)ButtonCount = 3 Value = 1 ControlSource = "p" Height = 63 Left = 77 Top = 63 Width = 88 TabIndex = 11 Name = "Optiongroup1" Option1.Caption = "" Option1.Value = 1 Option1.Height = 16 Option1.Left = 10 Option1.Top = 5 Option1.Width = 69 Option1.Name = "Option1" Option2.Caption = "" Option2.Height = 16 Option2.Left = 10 Option2.Top = 23 Option2.Width = 69 Option2.Name = "Option2" Option3.Caption = "ⶩ" Option3.Height = 16 Option3.Left = 10 Option3.Top = 41 Option3.Width = 69 Option3.Name = "Option3" checkboxcheckboxCheck1Form1Top = 168 Left = 224 Height = 16 Width = 120 Alignment = 1 Caption = "Ҳ" Value = 1 ControlSource = "p2" TabIndex = 10 Name = "Check1" labellabelLabel1Form1dCaption = "վ" Height = 14 Left = 19 Top = 14 Width = 51 TabIndex = 12 Name = "Label1" textboxtextboxText2Form1ControlSource = "m_custom1" Format = "!" Height = 20 Left = 77 ReadOnly = .T. TabIndex = 1 TabStop = .F. ToolTipText = "˱ѯʡ˫޸ķվš" Top = 12 Width = 87 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text2" :PROCEDURE DblClick this.readonly=.f. return ENDPROC  %UogUT-BUTHISREADONLYDblClick,1A2/)labellabelLabel2Form1dCaption = "վ" Height = 14 Left = 19 Top = 41 Width = 51 TabIndex = 17 Name = "Label2" labellabelLabel3Form1dCaption = "ʽ" Height = 14 Left = 19 Top = 87 Width = 51 TabIndex = 16 Name = "Label3" textboxtextboxText3Form1ControlSource = "m_ordname1" Format = "!" Height = 20 Left = 77 TabIndex = 2 TabStop = .F. Top = 38 Width = 279 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text3" labellabelLabel4Form1eCaption = "˷ʽ" Height = 14 Left = 224 Top = 87 Width = 51 TabIndex = 15 Name = "Label4" comboboxcomboboxCombo1Form1ColumnCount = 1 RowSourceType = 1 RowSource = ",,Ѽ,泵,EMS,,ͻ," ControlSource = "m_trway" Height = 22 Left = 333 TabIndex = 6 Top = 83 Width = 21 Name = "Combo1" 0PROCEDURE InteractiveChange return 1 ENDPROC  g_%<]WU BUInteractiveChange,11%)textboxtextboxText4Form1ControlSource = "m_trway" Format = "" Height = 22 Left = 281 TabIndex = 7 Top = 83 Width = 53 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text4" labellabelLabel5Form1eCaption = "" Height = 14 Left = 19 Top = 135 Width = 51 TabIndex = 14 Name = "Label5" labellabelLabel6Form1eCaption = "·" Height = 14 Left = 19 Top = 159 Width = 51 TabIndex = 18 Name = "Label6" labellabelLabel7Form1eCaption = "" Height = 14 Left = 19 Top = 183 Width = 51 TabIndex = 13 Name = "Label7" textboxtextboxText1Form1ControlSource = "m_yr" Format = "" Height = 20 InputMask = "9999" Left = 77 TabIndex = 3 TabStop = .F. Top = 132 Width = 87 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text1" textboxtextboxText5Form1ControlSource = "m_mon" Format = "" Height = 20 InputMask = "99" Left = 77 TabIndex = 4 TabStop = .F. Top = 156 Width = 87 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text5" textboxtextboxText6Form1ControlSource = "x" Format = "z" Height = 20 Left = 77 TabIndex = 5 TabStop = .F. Top = 180 Width = 87 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text6" A, 0, 9, 6, 14, 10, 12, 2, 2 , 0, 12, 8, 18, 14, 16, 2, 2