1.引用microsoft activex data objects 2.5 library
2.窗體實現 文字框名稱分別為：txtusername txtpassword
按鈕名稱分別為： cmdok cmdcancel
3.**實現
(1).使用者名稱和口令的驗證方法check_password()實現
private function check_password(byval username as string,_
byval password as string) as byte
on error goto gperror
dim objcn as new connection, objrs as new recordset, _
username & "'"
set objrs.activeconnection = objcn
objrs.open (strsql)
'判斷有無查詢結果
if objrs.eof then
check_password = 0
else
'判斷口令是否正確
if password <> trim(objrs.fields("口令").value) then
check_password = 1
else
check_password = 2
end if
end if
'關閉資料庫連線，釋放物件
objcn.close
set objrs = nothing
set objcn = nothing
exit function
gperror:
'驗證無法正常完成，返回錯誤**
check_password = 255
set objrs = nothing
set objcn = nothing
end function
(2).確定按鈕實現
private sub cmdok_click()
static intlogtimes as integer
dim intchecked as integer, strname as string, _
strpassword as string
intlogtimes = intlogtimes + 1
if intlogtimes > maxlogtimes then
'超過允許的登入次數，顯示提示資訊
msgbox "您已經超過允許驗證次數！" & vbcr & "應用程式結束！", _
vbcritical, "登入驗證"
end '結束應用程式
else
strname = trim(txtusername.text) '獲得輸入的使用者名稱
strpassword = trim(txtpassword.text) '獲得輸入的口令
'檢查使用者名稱和口令的合法性，並根據檢驗返回值執行相應的操作
select case check_password(strname, strpassword)
case 0 '使用者不是系統使用者
msgbox "不是系統使用者，請檢查使用者名稱的輸 _
入是否正確！", vbcritical, "登入驗證"
txtusername.setfocus
txtusername.selstart = 0
txtusername.sellength = len(txtusername)
case 1 '口令錯誤
msgbox "口令錯誤，請重新輸入", vbcritical, "登入驗證"
txtpassword.text = ""
txtpassword.setfocus
case 2 '口令正確
unload me
msgbox "登入成功，將啟動系統程式！", vbinformation, "登入驗證"
'通常在此放置顯示系統主窗體的語句，例如
'frmmain.show
case else '登入驗證無法正常完成
msgbox "登入驗證未正常完成！請重新執行登入程式，_
" & vbcrlf & "如果仍不能登入，請報告系統管理員！", vbcritical, "登入驗證"
end select
end if
end sub
(3).取消按鈕實現
private sub cmdcancel_click()
dim intresult as integer
'請求使用者確認是否真的退出系統登入
intresult = msgbox("您選擇了退出系統登入，退出將不能啟動管理系統！" & _
vbcr & "是否真的退出？", vbyesno, "登入驗證")
if intresult = vbyes then end
end sub
VB連線ORACLE資料庫
開啟資料庫 public sub openoradb on error goto toexit oradb open false set oradb new adodb.connection oraconstr provider oraoledb.oracle.1 password strorapw...
vb和資料庫連線
比較容易實現的用adodc控制項吧 當然也可以用 實現 建議先看看下面的adodc控制項的連線方式 private sub form load dim connstr as string dim sql as string connstr driver server 計算機名稱或ip位址 datab...
VB連線oracle資料庫
做個人用小工具，而不是頻繁交易的大專案，下面兩種連線都可以 各自需要相關驅動 注 還有其它連線方式，對比後放棄了。不需要安裝oracle客戶端。環境變數需要配置。public function getconndb as integer on error goto errflag getconndb ...