如何製作出密碼登錄框 ? |
答題得分者是:Justmade
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
yezi_ji
一般會員 發表:16 回覆:31 積分:9 註冊:2003-03-22 發送簡訊給我 |
引言:拜託各位大大幫幫我:之前有人問過了類似的問題但是我還是看不懂耶?到底密碼對話框要如何處建立啊! 我想要做的對話框型式是:(先顯示密碼登錄框,再顯示主界面,如果輸入的帳號 密碼不正確的話!那你就不能登入到主介面) 拜託各位了 !多謝如果你已經做好了密碼登錄框,只要在做密碼判斷時加入以下語句: if Pssword.text='pass' then ModalResult:=mrok else ModalResult:=mrcancel; 注:Password為你的密碼框的名字,pass為你的正確密碼。 之後,再在主界面的OnShow事件里加入: with TForm2.Create(Self) do begin try ShowModal; if ModalResult=mrok then Application.Terminate; finally free; end; end; 注:Form2為你的登錄框的名字。 但是千萬不要在登錄框的OnClose事件里加入Application.Terminate,否則將不 會顯示主界面。 我是菜鳥,請多指教!! |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
你可先試這樣做一個簡單的,之後再應用在自己的程式裡
1. 做一新專案 (Project1, Form1)
2. File->New->Form (Form2)
3. 在 Form2 放入一個 TEdit (Edit1)
4. 在 Form2 放兩個 TButtons , Button1 Caption 確定, Button2 Caption 取消)
5. Button2 的 ModelResult 設定為 mrCancel
6. Button1.OnClick 事件加入
if Edit1.text='pass' then ModalResult : =mrok else ModalResult := mrCancel;7. 回到 Form1, Use Unit2 8. 在 Form1 的 OnShow 事件加入 procedure TForm1.FormShow(Sender: TObject); begin with TForm2.Create(Self) do begin try if ShowModal <> mrok then Application.Terminate; finally Free; end; end;9. Run 可試試 1. 按 取消 -> 退出程式 2. 輸入 pass 按確定 -> 進到主畫面 3. 輸入 任意字 按確定 -> 退出程式 |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
jasonchen613
初階會員 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
assessa
一般會員 發表:2 回覆:2 積分:0 註冊:2002-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |