1樓：偶的的
login:=balogin("登陸", 請輸入使用者名稱和口令 ", "", "", 26, "使用者名稱:", "口令:", -2, -2)
user_name:= lowercase(valueatindex(login,1)) --如果區分大小寫可以將lowercase()去掉
pass_word:= lowercase(valueatindex(login,2)) --如果區分大小寫可以將lowercase()去掉
button:= valueatindex(login,3)
if button=1 then
--如果按下ok按鈕，下面就可以進行登陸判斷
info=odbcexecute(odbchandle,"select [username],[password] from [t_user] where [username]='"^user_name^"' and [password]='"^pass_word^"';")
if info="" then
systemmessagebox(windowhandle, "使用者名稱或口令 。請重新登陸 ！", "錯誤", 48)
goto(@"重新登陸的地方")
end if
else
quit()
end if
2樓：嘯月齋主
簡單哦.資料庫的呼叫.
開機登入介面怎么設定，開機登入介面怎麼設定
開始 控制面板 使用者賬戶 更改使用者登入或登出的方式 在使用歡迎螢幕，使用快速使用者切換上打鉤 應用選項。ok 如果使用歡迎螢幕，和使用快速使用者切換是灰色的打不上勾，按以下操作 網路上的芳鄰 屬性 本地連線 屬性 把netware客戶端服務解除安裝了就ok了。是想設定使用者和密碼嗎？開始 控制面...
用delphi做登入介面
在登陸視窗設定一個全程變數,logintime 0 在你點選登陸窗體上的確認按鈕,寫類似下面的事件 procedure tform1.button1click var user,pwd,sql string begin user edit1.text pwd edit2.text sql selec...
路由器登入介面打不開，路由器登入介面打不開
網絡卡的ip要和路由器的ip在同一網段。如果兩個ip已經在同一個網段了還是開不了，就用牙籤按路由器的復位鍵。路由器的操作介面進不去是因為你的電腦跟路由器不在同一個網段。首先，把你的電腦的ip改為192.168.1.2 254之間的任意一個都行 如果是騰達的路由器就是192.168.0.2 255，具...