如题，同时还想实现，在密码输入错误三次以后就退出主程序！！请各位多多指点，最好能附上一点源代码！ 多谢！ maxbo@163.net 發表人 - tech_state 於 2003/05/12 18:47:41

建議你先參考一下愚作Delphi程式設計感想74期(http://home.pchome.com.tw/home/delphiwww/) 另外你可以參考29期範例    

引言: 如题，同时还想实现，在密码输入错误三次以后就退出主程序！！请各位多多指点，最好能附上一点源代码！ 多谢！ maxbo@163.net 發表人 - tech_state 於 2003/05/12 18:47:41

var i:integer;
begin
i:=0;
if edit1.text:='123' then//核對帳密
   ...
else
begin
   if i:=3 then//檢查錯誤次數
      form1.free//主程式關閉
   else
  ...;
  i:=i 1;//累計
end;    end;

大致上就這樣子，細部自己再修改吧~

public I, Level1, Level2: Integer; UID, UName: string; end; var PassForm1: TPassForm1; I : Integer; implementation {$R *.DFM} procedure TPassForm1.OKBtnClick(Sender: TObject); begin with PassWore1 do begin if FindKey([UpperCase( EID.Text)]) then begin file://注意 [] 符號應用{轉大寫} if FieldByName( 'PASS').AsString = EPass.Text then begin ModalResult := mrOK; UID := FieldByName( 'UID').AsString; UName := FieldByName( 'UNAME').AsString; Level1 := FieldByName('LEVEL1').AsInteger; Level2 := FieldByName('LEVEL2').AsInteger; end; end; end; if ModalResult <> mrOK then begin SScrollText1.Items.Text := '密碼錯誤 , 請從新輸入'; I := I 1; end; if I >= 3 then ModalResult := mrCancel; end; procedure TPassForm1.FormCreate(Sender: TObject); begin I := 0; Animated1.play := true; SScrollText1.Items.Text := '請輸入正確密碼'; end; procedure TPassForm1.EIDClick(Sender: TObject); begin SScrollText1.Items.Text := '請輸入正確 ID 密碼'; end; procedure TPassForm1.EPassClick(Sender: TObject); begin SScrollText1.Items.Text := '請輸入正確密碼'; end; procedure TPassForm1.Animated1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SScrollText1.Items.Text :='電腦資料庫管理系統'; end; procedure TPassForm1.EIDKeyPress(Sender: TObject; var Key: Char); begin case Key of {按Enter下筆; 按Esc離開} #13:if (Key = #13{VK_RETURN}) then begin PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);end; #27:ModalResult := mrCancel; end; end;

多谢各位大侠！！！ 發表人 - maxbo 於 2003/05/13 09:11:09

还是有问题，下面是我的源代码，只能实现一次密码不正确时就退出程序，而不能实现级三次输入密码的机会！还请各位大侠再指点！多谢！！ 这是MDI主窗口的onShow事件。 procedure Tmainform.FormShow(Sender: TObject); begin with Tloginform.Create(Self) do begin try if showmodal<>mrok then Application.Terminate; finally Free; end; end; end; 这是登录窗口的‘确定’按钮事件。 procedure TloginForm.yes_ButtonClick(Sender: TObject); begin if password_edit.text<>'123' then begin application.MessageBox('密码错误!' chr(13) '您无权使用本系统！','错误',mb_ok mb_iconinformation); modalresult:=mrno; end else modalresult:=mrok; end; 这是.dpr中的部分代码。 begin Application.Initialize; Application.CreateForm(Tmainform, mainform); Application.Run; end. 不知还要如何修改？？ 發表人 - maxbo 於 2003/05/13 13:26:07

dpr中的部分 program FS; uses Forms, Controls, ....... var tmpPassForm: TPassForm1; {$R *.RES} begin Application.Initialize; tmpPassForm := TPassForm1.Create(Application); /////////////////////////////////////// try FrmSplash := TFrmSplash.Create( Application ); FrmSplash.Show; FrmSplash.Update; FrmSplash.Timer1.Interval :=5000; Application.Title := '電腦資料庫管理系統'; finally FrmSplash.Free;end; ///////////////////////////////////////// if Assigned( tmpPassForm) then begin tmpPassForm.ShowModal; if tmpPassForm.ModalResult = mrOK then begin DtCord.UID := tmpPassForm.UID; DtCord.UName := tmpPassForm.UName; DtCord.Level1 := tmpPassForm.Level1; DtCord.Level2 := tmpPassForm.Level2; tmpPassForm.Free; try FrmSplash := TFrmSplash.Create( Application ); FrmSplash.Show; FrmSplash.Update; // Handle any Pending Paint Messages Application.Title := '電腦資料庫管理系統'; ......... finally FrmSplash.Free;end; Application.Run; end else tmpPassForm.Free; end; end.

參考一下 unit login; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB; type Tfrm_login = class(TForm) Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Image1: TImage; Label1: TLabel; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private PassTime:Byte; { Private declarations } public { Public declarations } end; var frm_login: Tfrm_login; implementation uses main, data; {$R *.DFM} procedure Tfrm_login.BitBtn2Click(Sender: TObject); begin Close; Application.Terminate; end; procedure Tfrm_login.BitBtn1Click(Sender: TObject); begin inc(PassTime); if Edit1.Text=MyPass then begin frm_main.Logined:=True; frm_main.WindowState:=wsMaximized; Close; end else begin Label1.Caption:=Format('密碼錯誤第%d次，請重新輸入：',[PassTime]); if PassTime>=3 then begin // MessageBox(Handle,'連續輸入錯誤密碼超過3次，程序退出！','信息',MB_OK); BitBtn2Click(Sender); end else begin Edit1.Text:=''; Edit1.SetFocus; end; end; end; procedure Tfrm_login.FormCreate(Sender: TObject); begin PassTime:=0; end; end.

引言: -------------------------------------------------------------------------------- 这是.dpr中的部分代码。 begin Application.Initialize; Application.CreateForm(Tmainform, mainform); Application.Run; end. 不知还要如何修改？？ -------------------------------------------------------------------------------- program Project1; uses Forms, Controls, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Tloginform := TTloginform.Create(Application); if Assigned( Tloginform) then begin Tloginform.ShowModal; if Tloginform.ModalResult = mrOK then begin Application.Run; end else Tloginform.Free; end; end.

if Edit1.Text=MyPass then begin frm_main.Logined:=True; frm_main.WindowState:=wsMaximized; Close; end else 不知logined是什么来着？ 还是有一点问题，就是进入主程序后，login这个窗口并没有关闭并释放！ 请再解决！多谢！！！

在frm_main 主程式宣告的 ...... public Logined:Boolean; ......... ================================= frm_main 主程式片段 .......... var frm_main: Tfrm_main; MyPath:String; const MyPassW='123'; implementation uses login, table, query, outdata, setup, About; {$R *.dfm} procedure Tfrm_main.FormCreate(Sender: TObject); begin MyPath:=ExtractFilePath(ParamStr(0)); ShortDateFormat:='yyyy/mm/dd'; Logined:=False; Color:=Image1.Canvas.Pixels[0,0]; end; procedure Tfrm_main.SystemExitExecute(Sender: TObject); begin Close; end; procedure Tfrm_main.FormActivate(Sender: TObject); begin if not Logined then frm_login.ShowModal; end; .............. 發表人 - banson1716 於 2003/05/15 00:39:57

引言: 还是有问题，下面是我的源代码，只能实现一次密码不正确时就退出程序，而不能实现级三次输入密码的机会！还请各位大侠再指点！多谢！！

这是MDI主窗口的onShow事件。
procedure Tmainform.FormShow(Sender: TObject);
begin
     with Tloginform.Create(Self) do
          begin
               try
                  if showmodal<>mrok then
                     Application.Terminate;
               finally
                      Free;
               end;
          end;
end;
 
这是登录窗口的‘确定’按钮事件。
 
var
  LoginForm : TLoginForm;
  FailCount : Integer; 
 
procedure TloginForm.FormShow(Sender: TObject);
begin
  FailCount := 0;
end;
 
procedure TloginForm.yes_ButtonClick(Sender: TObject);
begin
  if password_edit.text <> '123' then
  begin
    application.MessageBox('密码错误!' chr(13) '您无权使用本系统！','错误',mb_ok mb_iconinformation);
    Password_edit.SetFocus;
    if FailCount >= 3 then
      modalresult:=mrno
    else
      FailCount := FailCount   1;
  end
  else
         modalresult:=mrok;
end;
 
这是.dpr中的部分代码。
begin
  Application.Initialize;
  Application.CreateForm(Tmainform, mainform);
  Application.Run;
end.

發表人 - Justmade 於 2003/05/15 13:32:12

Justmade: 你好！还是不行！我发了一个邮件给你，源程序在附件中，很冒昧的发电邮给你！请原谅！！ 希望你能帮我修改一下！多谢！！

在這裡發郵件不可能連附件罷，我亦沒收到你的附件，可否在求助上傳區上傳給大家看呢?    不過上便的程序應沒問題丫(筆誤除外)，不會還是一次便退出罷 現在問題是甚樣呢?

源代码,我已传到求助上传区了,请各位帮忙看一下!! 多谢!!

1. 按照我在上面的方法改 2. 在設計畫面將你的 btnOK 的 Model Result 設成 mrNone 你原本的 Model Result 設成了 mrOK 即一按該 button 就自動設 modelResult = mrOK 所以錯了也能進入。

多谢justmade!!! 问题解决了!!! 再次多谢!!!