用MDB文件做admin888庫

2019-11-18 17:46:47

字體：大中小

來源：轉載

供稿：網友

能用數據庫做密碼庫嗎？
這是我曾經編過的一段程序,從MDB數據庫中提取regpass表中的內容,用一個datacombo控件列出常的用戶名供選擇,一個TEXTBOX供用戶輸入密碼,大概思路如此,希望對你有幫助.
_______________________________________________
DimcnnPassAsNewADODB.Connection
DimrstPassAsNewADODB.Recordset
DimstrSQLAsString
DimLoginSucceededAsBoolean
Pass=rstPass!Pass Word
IftxtPassword.Text=PassThen
LoginSucceeded=True
Else
MsgBox"無效的密碼，請重試!",vbExclamation vbOKOnly,"登錄"
txtPassword.SetFocus
SendKeys"{Home} {End}"
EndIf
ElseIfUser="普通用戶"Then
User="普通用戶"
LoginSucceeded=True
'在此加入一些限制代碼
UnloadMe
Else
MsgBox"非法用戶!!!",,"登錄"
CombUserName.SetFocus
txtPassword.SelLength=Len(txtPassword.Text)
SendKeys"{Home} {End}"
EndIf
EndSub
___________________________________________________
PrivateSubForm_Load()
DatName=App.Path&"/DBNAME.dll"
cnnPass.Provider="microsoft.jet.oledb.3.51"
cnnPass.OpenDatName,"admin"
strSQL="select*fromregpass"
rstPass.CursorLocation=adUseServer
rstPass.OpenstrSQL,cnnPass,adOpenKeyset,adLockReadOnly,adCmdText
WithCombUserName
Set.DataSource=rstPass
.DataField="UserName"
Set.RowSource=rstPass
.ListField="UserName"
.BoundColumn="UserName"
EndWith
CombUserName.Text="管理員"
EndSub

PrivateSubForm_Unload(CancelAsInteger)
IfrstPass.State=adStateOpenThen
rstPass.Close
SetrstPass=Nothing
EndIf
IfcnnPass.State=adStateOpenThen
cnnPass.Close
SetcnnPass=Nothing
EndIf

EndSub->

上一篇：如何將Excel的文件導入Access文件

下一篇：VB應用程序訪問SQLServer方法探討