請教各位大大..............     我有作一個登入畫面(FORM4)，主畫面(FORM1)，登入畫面去資料庫行驗證完，要SHOW FORM1，但卻跳出錯誤訊息， 我有把FORM都USES進來ㄌ，希望各位大大能告訴小弟....... 小小DELPHI新手

Hi iven0811: 你要不要把你的Code PO上來, 這樣大家才能知道你是怎樣做的, 比較能快速幫你解決.^^ -------------------------- ～天下本無事 庸人自擾之～

我的FORM4是這樣的 unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB; type TForm4 = class(TForm) SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; ADOQuery1: TADOQuery; procedure SpeedButton8Click(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation uses unit2 ,unit3,unit5,unit6, Unit1; {$R *.dfm} procedure TForm4.SpeedButton8Click(Sender: TObject); begin if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then begin form4.Close; end; end; procedure TForm4.SpeedButton9Click(Sender: TObject); begin adoQuery1.Close; adoQuery1.SQL.Clear; adoQuery1.SQL.Add('Select * From manager Where '); adoQuery1.SQL.Add('帳戶=''' Edit1.Text ''' and '); adoQuery1.SQL.Add('密碼=''' Edit2.Text ''''); adoQuery1.Open; if Not adoQuery1.IsEmpty then begin ShowMessage('完成登入!'); Form1.Show; Form4.Hide; end else begin ShowMessage('登入密碼錯誤'); Edit1.Clear; Edit2.Clear; Edit1.SetFocus; end; end; end. 謝謝...

你好：
  應該是專案檔的呼叫順序吧，你參考看看
>>    < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
        

您好 檢查此時Form1是否已經Create ~~應無所住而生其心~~

ha0009 和terrychen 大大你好..... 我已經有照ha0009大大的方式去做ㄌ，是可以。 可是程式卻關不起來.......

您好 其實你只要到project=>option=>Forms將Form1移到Auto create forms就可以了 ~~應無所住而生其心~~

iven0811 你好: 我建議不要用另一個form來做這種確認的機制 你可以使用內定的一些box 如: procedure TForm1.FormCreate(Sender: TObject); var id,pass:string; begin id:=InPutBox('帳號','請輸入您所屬的帳號 ',''); pass:=InPutBox('密碼','請輸入您所屬的密碼 ',''); if Trim(id)='' then begin ShowMessage('帳號不對'); end; if Trim(pass)='' then begin ShowMessage('密碼不對'); end; adoQuery1.Close; adoQuery1.SQL.Clear; adoQuery1.SQL.Add('Select * From manager Where '); adoQuery1.SQL.Add('帳戶=''' Trim(id) '' and '); adoQuery1.SQL.Add('密碼=''' Trim(pass) ''''); adoQuery1.Open; .... ... .. end; 當然我寫的只做一次確認,你可以先在form1的[首頁]寫一個 [登入] 的按鍵 按下登入就接...下面這段 id:=InPutBox('帳號','請輸入您所屬的帳號 ',''); pass:=InPutBox('密碼','請輸入您所屬的密碼 ',''); if Trim(id)='' then begin ShowMessage('帳號不對');

------
======================
昏睡~
不昏睡~
不由昏睡~

引言: ha0009 和terrychen 大大你好..... 我已經有照ha0009大大的方式去做ㄌ，是可以。 可是程式卻關不起來.......

iven0811：可是程式卻關不起來.......是指Form1還是form4 重新描述一下主畫面(FORM1)->Form1Create事件開啟登入畫面(FORM4)， 登入畫面去資料庫行驗證完畢Close，回Form1若驗證OK繼續，失敗Form1 也要Close！ Form1Create要Close；請使用： Application->Terminate(); 或 PostQuitMessage(WM_QUIT); 若Form4->BorderIcons是全部被你關閉的話！Button裡的事件 Perform(WM_CLOSE,0,0); // 關閉Form4； 請參考！ Andy Chang

非常感謝各位大大的指導......................     謝謝KO大大...讓我學到ㄌㄧ招，還有Andy Chang大大你的技術指導與ha0009大大，terrychen 大大，我的問題已經解決ㄌ....非常感謝各位大大..                   小小DELPHI新手 至上最大的敬意