1樓:
你可以在整個視窗的open事件中把資料庫連線引數寫好,然後connect using sqlca;或者類似。
然後再登陸按鈕的時候就可以用了。
或者直接在登陸按鈕中寫資料庫連線引數,然後connect。
2樓:匿名使用者
連線資料庫:
// profile his
sqlca.dbms = "mss microsoft sql server"
sqlca.database = "資料庫名稱"
sqlca.servername = "."
sqlca.logid = "sa"
sqlca.autocommit = false
sqlca.dbparm = ""
connect using sqlca;
if sqlca.sqlcode <> 0 then
messagebox('成功','資料庫連線成功!')
else
messagebox('失敗','資料庫連線失敗!')
end if
//定義變數
string ls_id,ls_pass,ls_type
long ll_number,i
ls_id = sle_user.text
ls_pass = sle_pass.text
// 判斷使用者名稱及使用者密碼是否正確,開啟主視窗
if ls_id = '' then
messagebox('提示','使用者**為空,請重新輸入!')
sle_user.setfocus()
return
end if
select count(*) into :ll_number from login where id = :ls_id and password = :ls_pass;
if ll_number > 0 then
select style into :ls_type from login where id = :ls_id;
gs_id = ls_id
gs_type = ls_type
open(w_main)
close(w_login)
else
if i <= 2 then
messagebox('錯誤','密碼錯誤,請重新輸入!')
sle_pass.text = ""
sle_pass.setfocus()
i++else
messagebox("警告!","輸入使用者口令的錯誤次數超過3次!")
close(w_login)
end if
end if
3樓:厙掣
你用的是什麼資料庫?
pb自帶的anywhere還是sql server.
如果是sql server,首先要確定你的資料庫是否和pb系統連線,在登入按鈕裡寫**:
string r_bh,r_xm,r_mmint r_count
r_bh=sle_bh.text
r_mm=sle_mm.text
r_xm=ddlb_xm.text
select count(*) into :r_count from czyxxb where bianhao=:r_bh and mima=:
r_mm and xingming=:r_xm;
if r_count>0 then
g_user=r_bh
open(w_zjm)
close(parent)
else
messagebox("提示","登入失敗")return
end if
其中這一段是寫給資料庫的:select count(*) into :r_count from czyxxb where bianhao=:
r_bh and mima=:r_mm and xingming=:r_xm;
你可以根據自己所建的表不同而名稱不同。
g_user是全域性變數,你需要定義一下。
簡單的使用者登入視窗設計,vs2013與資料庫的鏈結問題(求改**)
4樓:匿名使用者
計算機名稱一般會自動帶有 -pc
帳戶名的話,一般不會有 -pc
估計可呢個是 uid的問題
網頁如何製作登入系統,網頁設計,如何做乙個登陸系統
網頁用什麼語言不重要,密碼在mysql資料庫儲存的時候加密一下就不會被洩漏了。既然你用mysql資料庫,那推薦你用php語言吧!網頁設計,如何做乙個登陸系統 你需要學一些動態網頁和資料庫的知識,例如,或者php,還有jsp這些動態網頁,資料庫可以學sql server或mysql,初學者不建議學or...