我的程式如下 若是我今天若是登入成功 就可以跳入主畫面..但是若是跳入主畫面後 那我的登入畫面如何讓他順便關閉.... 麻煩各位大大了~~ procedure TForm1.Button1Click(Sender: TObject); var found:boolean; begin found:=adotable1.Locate('userid',edit1.text,[lopartialkey]); if found=true then begin if (edit2.Text = adotable1['passwd']) then begin try form2:=tform2.Create(application); form2.ShowModal; finally form2.Free; end end else showmessage('你的帳號或密碼錯誤請重新輸入'); end else showmessage('你的帳號或密碼錯誤請重新輸入'); end; end.

相關的討論很多，請多用搜尋功能～，底下是一個站內的討論，還有其它的討論可以搜尋：

 
procedure TForm1.Button1Click(Sender: TObject);
var
   found:boolean;
begin
   found:=adotable1.Locate('userid',edit1.text,[lopartialkey]);
   if found=true then
   begin
      if (edit2.Text = adotable1['passwd']) then
      begin
         try
            form2:=tform2.Create(application);
            form2.ShowModal;
            exit;
         finally
            form2.Free;
         end
      end
      else showmessage('你的帳號或密碼錯誤請重新輸入');
   end
   else showmessage('你的帳號或密碼錯誤請重新輸入');
   Application.Terminate;
end;    

發表人 - acqua 於 2005/10/31 15:23:42

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.