請問關於Form的問題 |
尚未結案
|
iven0811
一般會員 ![]() ![]() 發表:4 回覆:5 積分:1 註冊:2004-07-06 發送簡訊給我 |
請問一下...我有一個主FORM1但我再主FORM1顯示後再多加一個FORM2來驗證密碼..我就在FORM1的CREATE上寫下
procedure TForm1.FormCreate(Sender: TObject); var paTform2:Tform2; begin paTform2:=tform2.Create(self); paTform2.ShowModal; end;可是顯示出來的視窗卻只有FORM2而已,FROM1不見ㄌ.我也有在PROJACT的OPTIONS加入FORM1ㄌ,請問一下各位大大............. -------------------------------------------------------------------- DELPHI小小新手.. |
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
T.J.B
版主 ![]() ![]() ![]() ![]() ![]() 發表:29 回覆:532 積分:497 註冊:2002-08-14 發送簡訊給我 |
|
iven0811
一般會員 ![]() ![]() 發表:4 回覆:5 積分:1 註冊:2004-07-06 發送簡訊給我 |
謝謝....cashxin2002,T.J.B大大的指教 ^^ ,我把程式寫在OnActivate就可以ㄌ,在請問一下我的FROOM2有寫確認帳號,確認完就關閉,可是關閉以後會發生錯誤訊息,程式碼如下 procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then
begin
form2.Close;
form1.Close;
end;
end; procedure TForm2.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('登入成功!');
form2.Close;
end
else
begin
ShowMessage('登入密碼錯誤,請輸入正確密碼!');
end;
end; 請問一下..我是哪裡錯ㄌ.......謝謝...
.....................................................................
小小DELPHI新手..
|
change.jian
版主 ![]() ![]() ![]() ![]() ![]() 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
hi,iven0811:
1.如果你要整個關閉系統,不應該由form2裡去關閉form1.應該要由form1自己關閉.畢你的form2只是確認user輸入的密碼對不對而已.所以,你的form1的onActive裡,在form2.ShowModel時後,可以檢查form2.ModuleResult來判斷使用者按下的鍵,如下:
procedure TForm1.BitBtn1Click(Sender: TObject); begin form2:=TForm2.Create(Self); try form2.ShowModal; if form2.ModalResult = mrAbort then Self.Close; finally form2.Free; end; end;補充說明:要讓user可以在form2上按下按鈕以離開系統,可以用TBitBtn來做,將其ModuleResult屬性設為mrAbort即可 2.貼上來的程式碼,請按規定縮排,不然別人看你的程式碼粉累 引言: 謝謝....cashxin2002,T.J.B大大的指教 ^^ ,我把程式寫在OnActivate就可以ㄌ,在請問一下我的FROOM2有寫確認帳號,確認完就關閉,可是關閉以後會發生錯誤訊息,程式碼如下 procedure TForm2.SpeedButton8Click(Sender: TObject); begin if messagedlg('要離開系統嗎?',mtConfirmation,[mbyes,mbno],0)=mrYes then begin form2.Close; form1.Close; end; end; procedure TForm2.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('登入成功!'); form2.Close; end else begin ShowMessage('登入密碼錯誤,請輸入正確密碼!'); end; end; 請問一下..我是哪裡錯ㄌ.......謝謝... ..................................................................... 小小DELPHI新手.. |
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好 上貼程式碼的時候請用【code】程式碼【/code】方法﹐有利于程式碼的查看﹒
------
忻晟 |
iven0811
一般會員 ![]() ![]() 發表:4 回覆:5 積分:1 註冊:2004-07-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |