請各位前輩指導小弟一下, 謝謝!!

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;

------


我不是高手, 高手是正在銀幕前微笑的人.

我的做法跟你差不多... 不過順序不一樣.. 我先開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.

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;

各位前輩, 小弟上傳了MDIForm, 請大家參考看看, 有沒有需要修正的,謝謝!

引言: 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;

請問一下前輩~~小弟看到你的做法後... 也試著嘗試看看這種mdiform使用者登入的做法~~ 但是~~不管如何總是會有以下錯誤訊息~~ [Error] Project1.dpr(14): Undeclared identifier: 'mrOK' 到底是@@?.....謝謝前輩指導一下...

chih版大, 小弟我測試許久仍然無法有問題, 在此跪求版大給個Sample讓小弟處理, 先謝謝版大了. ps.chih版大可否提供先出現Login後,確認許可後再開Mainform的程式Sample,感恩啊

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=54553 這一篇你可以參考一下看看,如果有問題在POST,TRY TRY SEE... 發表人 - chih 於 2004/08/10 14:02:59

Hi hikki 兄您好: 這是找不到mrOK宣告的意思, mrOK宣告在Controls中, Uses Controls即可 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

請問這句話是什麼意思?要如何做? 可否說清楚點? ================================================ 這是找不到mrOK宣告的意思, mrOK宣告在Controls中, Uses Controls即可

引言: 請問這句話是什麼意思?要如何做? 可否說清楚點? ================================================ 這是找不到mrOK宣告的意思, mrOK宣告在Controls中, Uses Controls即可

在每個 Unit 的最上面, 大概會像這樣(注意紅色部份):

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

也就是在紅色那像把 Controls 這個 unit 加進去 -- 歡迎光臨 KTop 研究院!

加一個 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;

補充一下

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