Delphi中如何實現查詢功能 如下介紹

時間 2022-03-28 15:58:47

1樓:

delphi基本沒用過,不過你左面可以用下拉列表,查詢時根據列表的數值(具體查delphi的控制項幫助),只改變這一句adoquery1.sql.add(' where name like '''+'%'+edit1.

text+'%'+'''');

對應不同的sql列名,其他的不用變化

具體**還要等高人,我算是幫頂,呵呵

2樓:匿名使用者

首先定義乙個變數strcolumn,

然後再進行判斷

if trim(combobx1.text) = '按班級查詢' then

strcolumn=『class』

if combobx1.text = '按專業查詢' thenstrcolumn=『major』

if combobx1.text = '按姓名查詢' thenstrcolumn='name'

最後,在查詢語句中,

adoquery1.sql.add(' where '+strcolumn+' like '''+'%'+edit1.text+'%'+'''');

搞定。。

3樓:匿名使用者

看看你是不是這個意思 ?

procedure tf_demo.button3click(sender: tobject); //模糊查詢

begin

adotable1.close;

datasource1.dataset:=adoquery1;

if trim(edit1.text)<>'' then

begin

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.add('select * from people ');//新增條件

if trim(combobx1.text) = '按班級查詢' then //防止輸入items屬性時,輸入空格,可以加trim()命令,下面相同,需要可以自己加。

adoquery1.sql.add(' where 班級字段 like '''+'%'+edit1.text+'%'+'''');

if combobx1.text = '按專業查詢' then

adoquery1.sql.add(' where 專業字段 like '''+'%'+edit1.text+'%'+'''');

if combobx1.text = '按姓名查詢' then

adoquery1.sql.add(' where name like '''+'%'+edit1.text+'%'+'''');

adoquery1.open;

end;

其它就是找到combobox1的items屬性,雙擊

然後輸入

按班級查詢

按專業查詢

按姓名查詢

delphi中用adoquery實現查詢

4樓:考拉的小小鋪

1.adoquery需要配置好connection或是connectionstring

2.adoquery.close;

adoquery.sql.clear;

adoquery.sql.add('select * from table');

adoquery.open;

pb如何實現查詢功能

這個不困難,兩個知識點 1是文字框sle的內容獲取 2是dw的條件更新 首先內容獲取,你在確定按鈕中就可以做,姓名舉例ls name sle name.text就行 當然你也可以做判斷,if ls name or isnull ls name then表示是否獲取這個資訊 其次是dw更新,可以把剛才...

在Delphi中如何實現資料的更新,更新結果在dbgrid中

和連線sqlserver 是一樣的寫法,只是資料連線控制項是用adoquery var userid,password string begin userid edit1.text password edit2.text with adoquery1 do begin edit adoquery1u...

Delphi如何實現開啟Form然後ShowMessage即關閉

解釋的什麼跟什麼啊 確實你想在formactivate formshow formcreate裡關閉窗體很不好實現 我最近也遇到這個問題 最後我換了個辦法 你showmessage 後 使用者也要點一下才能關閉 你可以要顯示的窗體做個分頁pagecontrol 窗體formactivate處理你要做...

delphi中,如何在SQL中使用編輯框中輸入的引數

一般來說有兩種方式 qry 為tquery 型別 1 拼接字串方式 qry.sql.clear qry.sql.add select from aa where id trim edit1.text 假定edit1.text是數字 qry.prepared qry.open 2 傳參方式 qry.s...

delphi中如何讓edit1tet只能輸入數字和字母

你可以先將你抓到的包儲存到檔案 主要 函式,用來處理資料報 void packet handler u char dumpfile,const struct pcap pkthdr header,const u char pkt data 儲存資料報到堆檔案 pcap dump dumpfile,h...