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貢獻(xiàn)1810條經(jīng)驗(yàn) 獲得超5個(gè)贊
意思就是：
單擊按鈕command1（可能是登陸按鈕吧）然后開始驗(yàn)證用戶（可能是操作員）密碼（就是text3.text），把text3.text先轉(zhuǎn)為大寫再與數(shù)據(jù)庫中的第二個(gè)字段相比對(duì)，如果密碼正確就將這個(gè)字段中的值（估計(jì)是操作員姓名）保存到變量czyxm中供以后使用，如果不正確就提示“密碼不正確！”。
PIPIONE
TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超9個(gè)贊
就是 核對(duì)密碼！
如果輸入的密碼正確，就關(guān)閉 密碼輸入窗口，顯示主窗口
否則 一直顯示 密碼輸入窗口
慕尼黑8549860
TA貢獻(xiàn)1818條經(jīng)驗(yàn) 獲得超11個(gè)贊
這是一段輸入密碼打開文件或窗體的程序！
如果輸入的文字（不論大小寫），和原有的密碼（無論大小寫）相一致的話，就會(huì)打開名字為“Me”的文件或者窗體！
如果不相符，就會(huì)彈出一個(gè)對(duì)話框，提示你“密碼不正確”
這里面有幾個(gè)VB函數(shù)：UCase函數(shù)，ULoad函數(shù)，MsgBox函數(shù)，集體你自己查詢了解一下！
希望你能明白！
- 3 回答
- 0 關(guān)注
- 217 瀏覽
添加回答
舉報(bào)
0/150
提交
取消