用delphi做登入介面

2023-02-04 17:55:29 字數 952 閱讀 8111

1樓:匿名使用者

在登陸視窗設定一個全程變數, logintime :=0;

在你點選登陸窗體上的確認按鈕,寫類似下面的事件

procedure tform1.button1click( ... );

var user,pwd,sql:string;

begin

user:=edit1.text;

pwd:=edit2.text;

sql:='select 密碼 from 員工表 where 使用者='''+user+'''';

q.sql.text:=sql; //這裡q是tadoquery資料庫元件,假定是配置好資料庫連線的.

q.open;

if (q.recordcount=0) then

begin

inc(logintime);

showmessage('使用者不存在');

end;

if (paw<> q.fields[0].asstring) then begin

inc(logintime);

showmessage('密碼錯誤');

end;

if (logintime>3) then begin

//c(logintime);

showmessage('錯誤次數達到三次');

close();

end;

//進入主窗體......................

end;

2樓:匿名使用者

引入一個count,然後將用輸入的密碼和使用者名稱 用select去查詢,如果返回結果集的數量大於0,就說明使用者和密碼正確,反之就是錯誤,count+1,然後判斷count是否等於3,如果等於3,程式結束。如此迴圈

3樓:匿名使用者

加我的qq,我給你一個完成的登陸**

怎麼用c做登入介面來連線資料庫啊

什麼意思?是建一個登入介面還是隻是如何在winform中連線 資料庫?一般來講 1 匯入名稱空間 using system.data.sqlclient 連線sqlserver 資料庫專用 2 建立連線 sqlconnection lo conn new sqlconnection server 伺...

開機登入介面怎么設定,開機登入介面怎麼設定

開始 控制面板 使用者賬戶 更改使用者登入或登出的方式 在使用歡迎螢幕,使用快速使用者切換上打鉤 應用選項。ok 如果使用歡迎螢幕,和使用快速使用者切換是灰色的打不上勾,按以下操作 網路上的芳鄰 屬性 本地連線 屬性 把netware客戶端服務解除安裝了就ok了。是想設定使用者和密碼嗎?開始 控制面...

求authorware登入介面

login balogin 登陸 請輸入使用者名稱和口令 26,使用者名稱 口令 2,2 user name lowercase valueatindex login,1 如果區分大小寫可以將lowercase 去掉 pass word lowercase valueatindex login,2 ...