全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:772
推到 Plurk!
推到 Facebook!

一個開新FORM的問題

尚未結案
a126154362
一般會員


發表:21
回覆:13
積分:6
註冊:2004-05-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-26 20:49:51 IP:61.70.xxx.xxx 未訂閱
各位大大好 小弟最近作一個小聊天室(有註冊登錄功能) 出現了一個問題 小弟想在要登錄的時候按一個Button 跳出一個Form讓我輸入登錄的資料 登錄或註冊完後關掉剛開的Form 不知道從何下手 希望大大能幫幫忙 ..................感謝
nlj859
資深會員


發表:139
回覆:375
積分:322
註冊:2004-03-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-26 21:09:55 IP:163.28.xxx.xxx 未訂閱
Hello a126154362,    可以使用InputBox來做到:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString InputBox("身份確認", "User Name", "Default string");
  AnsiString passwd=InputBox("身份確認", "Password", "Default string");
  if (UserId!="aaaa" && Password!="bbbb")
     { 
      ShowMessage("錯誤");
      //你要做的動作
     }
  else
     {
      ShowMessage("成功");
     //你要做的動作
      }
}
或是說你想要使用另一個Form來做login的動作:
#include "Unit2.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->ShowModal();
}
Form2裡面放2個EditBox分別代表UserNmae和Password,及一個Button1 Button1裡面的寫法和之前InputBox差不多.
void __fastcall TForm1:Button1Click(TObject *Sender)
{
  if (EditBox1->Text!="aaaa" && EditBox2->Text!="bbbb")
     { ShowMessage("錯誤"); 
       //你要做的動作
     }
  else
     {
      ShowMessage("成功");
      //你要做的動作
     }    
}
發表人 - nlj859 於 2004/08/26 21:16:27
系統時間:2024-04-29 13:24:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!