如何合併成一個確定的BUTTON就好ㄌ.... |
|
尚未結案
|
|
lavender28
一般會員   發表：31 回覆：5 積分：7 註冊：2005-08-23 發送簡訊給我 |
|
|
李國維
高階會員  發表：42 回覆：287 積分：235 註冊：2003-02-07 發送簡訊給我 |
lavender28:
1.在Button2的Object Inspector中Events選項頁中將Button2的OnClick指定為
Button1Click.
2.設定Button1的Tag為0,設定Button2的Tag為1
3.修改程式
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int iTag;
AnsiString sSQL;
iTag = ((TButton*)Sender)->Tag;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
swicth (iTag)
{
case 0:
if(Edit1->Text=="")return;
strSQL = "Select * From Web_data Where doman='" Edit1->Text "'";
break;
case 1:
if(Edit2->Text=="")return;
strSQL = "Select * From Web_data Where doman='" Edit2->Text "'";
break;
}
ADOQuery1->SQL->Add(strSQL);
ADOQuery1->Prepared=true;
ADOQuery1->Open();
//ADOQuery1->ExecSQL();這行沒意義吧
}
|
|
helsing
一般會員 發表：7 回覆：15 積分：4 註冊：2004-07-06 發送簡訊給我 |
定義一個新的
void __fastcall TForm1::Button1Click(TObject *Sender)
{
void second_do(); //Button2
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
if(Edit1->Text=="")
return; ADOQuery1->SQL->Add("Select * from Web_data");
ADOQuery1->SQL->Add("Where doman='" Edit1->Text "'"); ADOQuery1->Prepared=true;
ADOQuery1->Open();
ADOQuery1->ExecSQL();
second_do(); //結束後執行
}
//-----------------------------------------------------------------
void second_do()
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
if(Edit2->Text=="")
return; ADOQuery1->SQL->Add("Select * from Web_data");
ADOQuery1->SQL->Add("Where doman='" Edit2->Text "'"); ADOQuery1->Prepared=true;
ADOQuery1->Open();
ADOQuery1->ExecSQL(); }
|
|
haman
中階會員 發表：46 回覆：137 積分：56 註冊：2005-03-10 發送簡訊給我 |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
if(Edit1->Text=="" || Edit2->Text == "")
return; ADOQuery1->SQL->Add("Select * from Web_data");
if(Edit2->Text == ")
ADOQuery1->SQL->Add("Where doman='" Edit1->Text "'");
else
ADOQuery1->SQL->Add("Where doman='" Edit2->Text "'"); ADOQuery1->Prepared=true;
ADOQuery1->Open();
//ADOQuery1->ExecSQL();更新、新增資料時才會用到
}
|
發表時間：2005-08-31 12:12:31
IP:218.168.xxx.xxx 未訂閱
系統時間：2024-05-09 13:03:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |