象INTERBASE等軟體的身份驗證窗體是怎麼做到的，只有驗證成功才能登入，否則就退出程序？ 我的程式寫好了，就差一個身份驗證的登陸窗體了，不知如何做？ 盡量結的給我講一下吧！需代碼的地方，放入一些關鍵的代碼！（特別是身份驗證窗體如何在主程序啟動之前顯示要求輸入用戶名及密碼） IMPROVE FOREVER

program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, IdentificationBOX in 'H:\DELPHI_程式\6.0\OBJECT\Identification\IdentificationBOX.pas' {IdentificationForm}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); if ShowIdentificationForm then begin Application.Run; end; end.

------
︿︿

我的水平不高，有點兒不能理解呀！ 能不能詳一些！ THANKS！ IMPROVE FOREVER

hua2000:    以下是我的做法 , 你鬖考看看     1. DELPHI MENU -> PROJECT -> VIEW SOURCE 2. 在  Application.Run 之前 加入 身份驗證窗體 ; 3  有驗證成功 則 Application.Run    否則就退出程序             

------
︿︿

但我的身份驗證窗體已經在新建一個窗體時已經建了呀？ 看下面： program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, pass in 'pass.pas' {Form2login}, changepass in 'changepass.pas' {Form3changepass}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2login, Form2login); Application.CreateForm(TForm3changepass, Form3changepass); Application.Run; end. 我本是想用Form2login來建一個身份驗證窗體的，它已在application.run之前的Application.CreateForm(TForm2login, Form2login);這句不是已經建了的嗎？ 好多不懂，多指教。 IMPROVE FOREVER 發表人 - hua2000 於 2003/02/12 20:48:45

begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2login, Form2login); Application.CreateForm(TForm3changepass, Form3changepass);     if Form2login.ShowModal=IDOK then  begin   Application.Run;  end;    end.    

------
︿︿

我立即試了一下，哪知出現了錯誤提示： Undeclared identifier:'IDOK' 這是何故呀？應進一步如何修改呀。 IMPROVE FOREVER

hua2000:    sorry    請將這一行 if Form2login.ShowModal=IDOK then 改成 if Form2login.ShowModal=mrOK then    

------
︿︿

我試了一下 類似的提示錯誤：Undeclared identifier:'mrok' 不知何故！ IMPROVE FOREVER

請加入 USES Controls;    另外在 Form2login 內  加入   if 驗證成功 then       ModalResult:=mrOK   else      ModalResult:=mrCANCEL                       

------
︿︿

if 驗證成功 then ModalResult:=mrOK else ModalResult:=mrCANCEL 上面幾句具體加在form2login 的什麼地方呀？ 怎麼還有“驗證成功”這句話是中文的呀，有點不能理解呀， 好多不明白，望指教！ IMPROVE FOREVER

procedure Tform2login.FormClose(Sender: TObject; var Action: TCloseAction); begin     其中之 '驗證成功' 請加入 你自己的 驗證方法     if 驗證成功 then    ModalResult:=mrOK  else   ModalResult:=mrCANCEL;    end;         發表人 - cmf 於 2003/02/13 12:11:25

------
︿︿