寫一個指定條件的程式，..like.. |
|
答題得分者是：yang2066
|
|
paa
初階會員   發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
var
s:string;
begin
s:='Select * from tt';
if (edit4.Text = '') then
showmessage('請填字'); //<>不等於
if((edit4.Text=edit1.Text)or(edit4.Text<>edit2.Text)or(edit4.Text<>edit3.Text)) then
s:= s+' where ' + ' c ' + 'like'+'"'+'%'+edit4.Text+'%'+'"';
if((edit4.Text=edit3.Text)or(edit4.Text<>edit1.Text)or(edit4.Text<>edit2.Text)) then
s:= s+' where ' + ' b ' + 'like'+'"'+'%'+edit4.Text+'%'+'"';
if(edit4.Text=edit2.Text)or(edit4.Text<>edit1.Text)or(edit4.Text<>edit3.Text)) then
s:= s+' where ' + ' a ' + 'like'+'"'+'%'+edit4.Text+'%'+'"';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(s);
adoquery1.Open;
dbgrid1.DataSource:=datasource1;
label1.Caption:=s;
end;
|
|
yang2066
一般會員  發表：2 回覆：3 積分：6 註冊：2005-07-14 發送簡訊給我 |
|
|
paa
初階會員 發表：50 回覆：101 積分：30 註冊：2005-02-01 發送簡訊給我 |
發表時間：2005-07-14 12:11:50
IP:210.70.xxx.xxx 未訂閱
系統時間：2025-02-28 3:55:46
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |