用VBA,先建立壹個用戶表,在窗體上拉兩個文本框輸入用戶名和密碼用,再拖壹個按鈕,在VBA工程模塊中找到按鈕名稱,並在他的Click事件中加入下面的代碼:
Private?Sub?Command1_Click()?'//假設妳的按鈕名叫Command1'//連接數據庫去查找用戶?
Dim?cnn?As?ADODB.Connection?'//連接對象
Dim?rs?As?ADODB.Recordset?'//數據集合
Set?cnn?=?CurrentProject.Connection?'//連接對象就是本身,臨時連接就好了
Set?rs?=?New?ADODB.Recordset'//實例化數據集合
rs.Open?"Select?*?from?用戶表?where?用戶名='"?+?Trim(Me.Text1)?+?"'?and?密碼='"+Trim(Text2)+"'",?cnn?'//註意不要畫蛇添足寫個Text1.Text,ACCESS不壹樣,寫屬性會讓妳不停去找焦點的,這裏是打開數據集合
If?rs.EOF?Then'//如果沒找到記錄,就說明驗證錯誤了嘛
MsgBox?"對不起!用戶名或密碼錯誤,請重新輸入!",vbOkOnly,"系統消息" Me.Text1="" Me.Text2=""'//如果驗證失敗,兩個文本框空值 Me.Text1.SetFucos?'//讓光標焦點跳到Text1用戶名輸入框上去Else?'//如果查到了用戶數據,那就登陸成功了
MsgBox?"登陸成功","系統消息" 妳需要打開的窗體名稱.Show Me.Hide?'//隱藏自己,打開妳要打開的窗體界面End?If?'//結束IF循環
End?Sub?'//結束按鈕事件
這只是個簡單例子,希望對妳有幫助,寫完代碼要把窗體設置成啟動模式,只啟動登陸窗體就好了,人家看到妳用戶表做登陸事件也是沒意義的。ACCESS本身就可以設置密碼安全,他其實不是開發環境,本身就是個軟件,妳做好了驗證別人拿著往別的表壹導入,壹樣的可以用。
ACCESS打開的時候把文件取消打開,然後在文件菜單下面找到打開,找到妳的文件
右下腳有個按鈕,選擇以獨占形式打開,進入ACCESS後在安全裏就可以設置密碼了,
這個密碼比上面的策略安全,別人很難破解
不知道樓主能不能看懂
參考文獻:
/tech/access/ 2345軟件教程
/? 51VBA教程