請教前輩,我該如何做登入 mdiform的登入畫面? |
答題得分者是:Miles
|
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hello Ethan 兄您好:
以下是小弟的做法, 還有其他做法看你如何運用.
專案檔 begin Application.Initialize; Application.CreateForm(TMainForm, MainForm); //MainForm 先開 Application.CreateForm(TfrmLogin, frmLogin); //再開Login Form if frmLogin.ShowModal <> mrOK then Application.Terminate; Application.Run; end. Loging Form裡 procedure Tfrm1_1Login.BitBtn1Click(Sender: TObject); begin with TempQry do begin Close; SQL.Clear; SQL.Add('Select * from Member '); SQL.Add('where EmpNo = ''' lowercase(trim(Edit1.text)) ''' '); SQL.Add(' and Password = ''' lowercase(trim(Edit2.text)) ''' '); Open; if RecordCount = 0 then begin //從資料庫篩選資料是否有此帳號密碼 ShowMessage('密碼錯誤!!'); inc(i); if i = 3 then begin ShowMessage('錯誤3次強制跳出'); ModalResult := mrNO; end; end else ModalResult := mrOK; end; end;
------
我不是高手, 高手是正在銀幕前微笑的人. |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
我的做法跟你差不多...
不過順序不一樣..
我先開Login Form ...
驗證通過後在開啟MainForm..
所以順序跟你的不一樣..
chih..
引言: Hello Ethan 兄您好: 以下是小弟的做法, 還有其他做法看你如何運用.專案檔 begin Application.Initialize; Application.CreateForm(TMainForm, MainForm); //MainForm 先開 Application.CreateForm(TfrmLogin, frmLogin); //再開Login Form if frmLogin.ShowModal <> mrOK then Application.Terminate; Application.Run; end. |
richcomp
中階會員 發表:18 回覆:66 積分:51 註冊:2002-10-18 發送簡訊給我 |
Application.Initialize;
F_login:=TF_login.create(application); //F_login.visible:=false
if F_login.ShowModal=mrok then
begin
Application.CreateForm(TF_main, F_main);
F_login.Free;
Application.Run;
end
else
begin
F_login.Free;
application.Terminate;
end;
|
Ethan
版主 發表:101 回覆:170 積分:78 註冊:2006-07-05 發送簡訊給我 |
|
hikki
一般會員 發表:5 回覆:10 積分:3 註冊:2004-06-21 發送簡訊給我 |
引言: Hello Ethan 兄您好: 以下是小弟的做法, 還有其他做法看你如何運用.請問一下前輩~~小弟看到你的做法後... 也試著嘗試看看這種mdiform使用者登入的做法~~ 但是~~不管如何總是會有以下錯誤訊息~~ [Error] Project1.dpr(14): Undeclared identifier: 'mrOK' 到底是@@?.....謝謝前輩指導一下...專案檔 begin Application.Initialize; Application.CreateForm(TMainForm, MainForm); //MainForm 先開 Application.CreateForm(TfrmLogin, frmLogin); //再開Login Form if frmLogin.ShowModal <> mrOK then Application.Terminate; Application.Run; end. Loging Form裡 procedure Tfrm1_1Login.BitBtn1Click(Sender: TObject); begin with TempQry do begin Close; SQL.Clear; SQL.Add('Select * from Member '); SQL.Add('where EmpNo = ''' lowercase(trim(Edit1.text)) ''' '); SQL.Add(' and Password = ''' lowercase(trim(Edit2.text)) ''' '); Open; if RecordCount = 0 then begin //從資料庫篩選資料是否有此帳號密碼 ShowMessage('密碼錯誤!!'); inc(i); if i = 3 then begin ShowMessage('錯誤3次強制跳出'); ModalResult := mrNO; end; end else ModalResult := mrOK; end; end; |
toyota15
一般會員 發表:2 回覆:2 積分:0 註冊:2003-08-01 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
|
david753
一般會員 發表:19 回覆:22 積分:8 註冊:2004-07-20 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: 請問這句話是什麼意思?要如何做? 可否說清楚點? ================================================ 這是找不到mrOK宣告的意思, mrOK宣告在Controls中, Uses Controls即可在每個 Unit 的最上面, 大概會像這樣(注意紅色部份): unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;也就是在紅色那像把 Controls 這個 unit 加進去 -- 歡迎光臨 KTop 研究院! |
bennykyp
一般會員 發表:11 回覆:31 積分:8 註冊:2004-10-21 發送簡訊給我 |
加一個 timer procedure TfrmMain.FormShow(Sender: TObject);
begin
TimerLogon.Enabled := True;
end; procedure TfrmMain.TimerLogonTimer(Sender: TObject);
begin
TimerLogon.Enabled := False;
ConnectClick(Sender);
end; procedure TfrmMain.ConnectClick(Sender: TObject);
begin
Try
frmLogin := TFrmLogin.Create(Application);
frmLogin.ShowModal;
Finally
frmLogin.Release;
end;
end;
|
juneo
高階會員 發表:103 回覆:190 積分:118 註冊:2004-05-13 發送簡訊給我 |
補充一下
program LO; uses Forms,Controls, //這裡要自行加上 SysData in 'SysData.pas' {DM1: TDataModule}, main in 'main.pas' {Main_Form}, login in 'login.pas' {Login_Form}; {$R *.res} begin Application.Initialize; Application.CreateForm(TDM1, DM1); Application.CreateForm(TMain_Form, Main_Form); Application.CreateForm(TLogin_Form, Login_Form); if Login_Form.ShowModal <> mrOK then Application.Terminate; Application.Run; end.感謝Miles提供這段程式解決我登入的麻煩^^ 這各方法確實不錯,之前寫了一堆IF搞的半死>"< 還在MainFrom & Login_From 與 ShowModal & Show中混亂 發表人 - juneo 於 2005/03/18 09:44:14 發表人 - juneo 於 2005/03/18 09:45:28 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |