如何在程式開啟前加入密碼保護 |
答題得分者是:max5020
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
複雜一點,
建一個Login的Form 在MainForm.onShow加入下面的程式 Application.CreateForm(TfmSysLogin, fmSysLogin); fmSysLogin.ShowModal; Login_OK:= Login_Passed; if not Login_OK then Application.Terminate; 簡單一點, function TfmMain.Login_Check: Boolean; var sUser, sPass, sSQL, user_Level: String; begin Result:= false; if not LoginDialog('Graphic Modal', sUser, sPass) then exit; sSQL:= 'SELECT * FROM USERS' ' WHERE ' QuotedStr(sUser); if OpenADOQry(Q1, sSQL)<=0 then exit; / /判斷是否密碼正確 Result:= true; Q1.Close; end; 在MainForm.onShow加入 if not Login_Check then Application.Terminate; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |