當前位置:編程學習大全網 - 圖片素材 - 急~~!!怎樣在ACCESS中做壹個帶有用戶名、密碼的登陸窗體?

急~~!!怎樣在ACCESS中做壹個帶有用戶名、密碼的登陸窗體?

用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教程

  • 上一篇:為什麽蘋果說它的系統是世界上最好的系統?
  • 下一篇:安徽滁州有作協麽
  • copyright 2024編程學習大全網