kVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment" 11formformForm1盚eight = 141 Width = 465 DoCreate = .T. AutoCenter = .T. Picture = Caption = "验证密码" MaxButton = .F. MinButton = .F. Icon = car.ico WindowType = 1 Name = "Form1" labellabelLabel7Form1{FontSize = 12 Caption = "请输入您的姓名：" Height = 19 Left = 29 Top = 35 Width = 125 TabIndex = 5 Name = "Label7" labellabelLabel11Form1|FontSize = 12 Caption = "请输入您的密码：" Height = 20 Left = 28 Top = 82 Width = 126 TabIndex = 6 Name = "Label11" textboxtextboxText1Form1蹻ontSize = 12 ControlSource = "m_chr" Height = 24 Left = 163 MaxLength = 0 SelectOnEntry = .T. TabIndex = 1 Top = 80 Width = 112 PasswordChar = "*" ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Text1" comboboxcomboboxCombo1Form1褾ontSize = 12 RowSourceType = 6 RowSource = "chrs.name" ControlSource = "m.name" Height = 24 Left = 163 TabIndex = 4 Top = 32 Width = 112 ForeColor = 0,0,255 BackColor = 192,192,192 Name = "Combo1" 0PROCEDURE InteractiveChange return 1 ENDPROC 箕 ;%DYSU <UTHISFORMClick,1q1!) commandbutton commandbuttonCommand1Form1歍op = 29 Left = 315 Height = 30 Width = 109 FontSize = 12 Caption = "\<1.确认" Default = .T. TabIndex = 2 ForeColor = 0,0,255 Name = "Command1" 蚉ROCEDURE Click if trim(chrsed(chr))==trim(thisform.text1.value) pswd=.t. release thisform else =messagebox('输入的密码不正确，请重新输入！',64,'告诉您') thisform.text1.setfocus endif ENDPROC l SS喏%  U %麮C`C`2 T黙<}6嘃C输入的密码不正确，请重新输入！@告诉您陎 欞UCHRSEDCHRTHISFORMTEXT1VALUEPSWDSETFOCUSClick,1qaA3)S commandbutton commandbuttonCommand2Form1橳op = 77 Left = 315 Height = 30 Width = 109 FontSize = 12 Cancel = .T. Caption = "\<0.取消" TabIndex = 3 ForeColor = 0,0,255 Name = "Command2" ,PROCEDURE Click release thisform ENDPROC 傀 g_%<]WU BUInteractiveChange,11%)A宋体, 0, 9, 6, 14, 10, 12, 2, 2 宋体, 0, 12, 8, 18, 14, 16, 2, 2