Private Sub Command1_Click()If UCase(Text3.Text) = UCase(Data1.Recordset.Fields(2)) Thenczyxm = Data1.Recordset.Fields("czyxm")Unload MeForm1.ShowElsemsg = MsgBox("密碼不正確!", 0 + 16, "警告")End IfEnd Sub【什么意思？】
3 回答
森欄
TA貢獻1810條經驗 獲得超5個贊
意思就是：
單擊按鈕command1（可能是登陸按鈕吧）然后開始驗證用戶（可能是操作員）密碼（就是text3.text），把text3.text先轉為大寫再與數據庫中的第二個字段相比對，如果密碼正確就將這個字段中的值（估計是操作員姓名）保存到變量czyxm中供以后使用，如果不正確就提示“密碼不正確！”。
慕尼黑8549860
TA貢獻1818條經驗 獲得超11個贊
這是一段輸入密碼打開文件或窗體的程序！
如果輸入的文字（不論大小寫），和原有的密碼（無論大小寫）相一致的話，就會打開名字為“Me”的文件或者窗體！
如果不相符，就會彈出一個對話框，提示你“密碼不正確”
這里面有幾個VB函數：UCase函數，ULoad函數，MsgBox函數，集體你自己查詢了解一下！
希望你能明白！
- 3 回答
- 0 關注
- 219 瀏覽
添加回答
舉報
0/150
提交
取消