ÒVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formformForm1±Height = 291 Width = 384 DoCreate = .T. AutoCenter = .T. Picture = Caption = "ÊäÈëÊýÁ¿" MaxButton = .F. MinButton = .F. Icon = car.ico WindowType = 1 Name = "Form1" labellabelLabel11Form1uFontSize = 12 Caption = "ÁìÓÃÊýÁ¿" Height = 18 Left = 37 Top = 163 Width = 66 TabIndex = 11 Name = "Label11" textboxtextboxText1Form1ýFontSize = 12 Alignment = 3 Value = 0 ControlSource = "num" Format = "z" Height = 24 InputMask = (fmtN) Left = 119 MaxLength = 0 SelectOnEntry = .T. TabIndex = 4 Top = 159 Width = 112 PasswordChar = "" ForeColor = 0,0,255 Name = "Text1" •PROCEDURE Valid if between(this.value,-9999,9999) return .t. endif =messagebox('ÄúÊäÈëµÄÊýÁ¿Ì«´ó£¬ÎÞ·¨±£´æ£¡',64,'¸æËßÄú') return .f. ENDPROC »þòÿ ¢¢;%DYS…U <÷þUTHISFORMClick,ÿÿ1q1!)¢AËÎÌå, 0, 9, 6, 14, 10, 12, 2, 2 ËÎÌå, 0, 12, 8, 18, 14, 16, 2, 2 Form1Text5 commandbutton commandbuttonCommand1Form1™Top = 240 Left = 36 Height = 30 Width = 98 FontSize = 12 Caption = "\<1.È·ÈÏ" Default = .F. TabIndex = 1 ForeColor = 0,0,255 Name = "Command1" JPROCEDURE Click if num<>0 pswd=.f. endif release thisform ENDPROC ìþòÿ ÓÓÜ%oŠ~…U*%ü÷øýùþ T÷ü-ýþþ<÷þUNUMPSWDTHISFORMClick,ÿÿ1±Aq2?)Ó commandbutton commandbuttonCommand2Form1™Top = 240 Left = 137 Height = 30 Width = 98 FontSize = 12 Cancel = .F. Caption = "\<2.ÐÞ¸Ä" TabIndex = 2 ForeColor = 0,0,255 Name = "Command2" WPROCEDURE Click thisform.text1.selectonentry=.t. thisform.text1.setfocus ENDPROC ôþòÿ ÛÛ£@%{’Š…U!Tôô÷üaýþ ™ôô÷þUTHISFORMTEXT1 SELECTONENTRYSETFOCUSClick,ÿÿ1Ñ2L)Û commandbutton commandbuttonCommand3Form1™Top = 240 Left = 237 Height = 30 Width = 98 FontSize = 12 Cancel = .T. Caption = "\<0.È¡Ïû" TabIndex = 3 ForeColor = 0,0,255 Name = "Command3" ,PROCEDURE Click release thisform ENDPROC textboxtextboxtFontSize = 12 Caption = "ÏÖÓпâ´æ" Height = 18 Left = 36 Top = 104 Width = 67 TabIndex = 14 Name = "Label6" Form1Label6labellabellabelLabel1Form1rFontSize = 12 Caption = "±¸¼þÃû³Æ" Height = 18 Left = 37 Top = 21 Width = 67 TabIndex = 9 Name = "Label1" textboxtextboxText2Form1ïFontSize = 12 ControlSource = "m.name" Enabled = .F. Height = 23 Left = 119 MaxLength = 0 SelectOnEntry = .T. TabIndex = 8 Top = 19 Width = 217 PasswordChar = "" ForeColor = 0,0,255 DisabledForeColor = 0,0,255 Name = "Text2" labellabelLabel2Form1sFontSize = 12 Caption = "±¸¼þ±àºÅ" Height = 18 Left = 37 Top = 48 Width = 67 TabIndex = 15 Name = "Label2" textboxtextboxText3Form1ïFontSize = 12 ControlSource = "m.code" Enabled = .F. Height = 23 Left = 119 MaxLength = 0 SelectOnEntry = .T. TabIndex = 6 Top = 46 Width = 217 PasswordChar = "" ForeColor = 0,0,255 DisabledForeColor = 0,0,255 Name = "Text3" labellabelLabel3Form1sFontSize = 12 Caption = "»õ¼ÜλÖÃ" Height = 18 Left = 37 Top = 75 Width = 67 TabIndex = 10 Name = "Label3" textboxtextboxText4Form1 FontSize = 12 ControlSource = "m.sh" Enabled = .F. Format = "" Height = 23 InputMask = "" Left = 119 MaxLength = 0 SelectOnEntry = .T. TabIndex = 7 Top = 73 Width = 112 PasswordChar = "" ForeColor = 0,0,255 DisabledForeColor = 0,0,255 Name = "Text4" labellabelLabel4Form1qFontSize = 12 Caption = (m.un) Height = 18 Left = 252 Top = 104 Width = 19 TabIndex = 12 Name = "Label4" labellabelLabel5Form1qFontSize = 12 Caption = (m.un) Height = 17 Left = 252 Top = 163 Width = 18 TabIndex = 13 Name = "Label5" labelFontSize = 12 ControlSource = "m.nums" Enabled = .F. Format = "z" Height = 23 InputMask = (fmtn) Left = 119 MaxLength = 0 SelectOnEntry = .T. TabIndex = 5 Top = 102 Width = 112 PasswordChar = "" ForeColor = 0,0,255 DisabledForeColor = 0,0,255 Name = "Text5" þòÿ '% ½¯…Uc%üCô÷ùñØù'«ýù!þBüaýþþ4†üCûÄúÊäÈëµÄÊýÁ¿Ì«´ó£¬ÎÞ·¨±£´æ£¡ø@û¸æËßÄúêxýþBü-ýþUTHISVALUEValid,ÿÿ1¡qAAq1Š)