1樓：匿名使用者
sql:string;
sql:='select * from table where ';
if edit5.text<>'' then
sql=sql+' 藥品名稱='+''''+edit5.text+''''+' and ';
if edit2.text<>'' then
sql=sql+' 進貨廠家='+''''+edit2.text+''''+' and ';
if （edit3.text<>''）and （edit6.text<>''） then
sql=sql+' 銷售單價 between '+''''+ edit3.text +''''+' and'+''''+ edit6.text +''''+ ' and ';
if （edit4.text<>''）and （edit7.text<>''） then
sql=sql+' 進貨單價 between '+''''+ edit4.text +''''+' and'+''''+ edit7.text +'''';
query.sql.clear;
query.sql.add(sql);
query.open;
2樓：匿名使用者
我來教你
控制元件 button1，edit2，edit5，edit3，edit4，資料庫中的表為table_yaopin
雙擊button1新增**
begin
close；
sql.clear;
sql.add('select * from table_yaopin where 藥品名稱='''+edit5.text+'''');
open;
edit2.text:=fieldbyname(『進貨廠家』).asstring;
edit3.text:=fieldbyname(『銷售單價』).asstring;
edit4.text:=fieldbyname(『進貨單價』).asstring;
end;
begin
showmessage(『查詢成功』);
end;
delphi中如何實現數字和字母組合的字串數字部分不斷自加1，順序不能變
function incnum const numberstr string string vari,num integer numstr string isin boolean begin isin true numstr numberstr for i length numstr downto ...
請提供簡單的DELPHI查詢資料庫的例項，包括所有操作
不屑學得喲，學了不投靠一個大的軟體公司，就弄不到飯吃，他們的垃圾一樣的軟體都可以賣很多錢，咱們單幹戶花了年把時間寫出來的精品玩意，沒有人要哦。最大的原因就是沒有搞公關的，也沒有錢搞公關。而且你這樣業餘學學，大公司也不會錄用你，前途眇芒啊 delphi 如何實現兩個sqlserver資料庫之間的某個表...
delphi中當查詢的sql表不存在時丟擲異常,要怎麼寫？新手求助啊！！謝謝了
tryopen except raise end sql新手求助 如何刪除按照某些條件查詢出的記錄中的符合某一條件的行記錄？具體情況見 問題補充 delete a from 資料 1 a where exists select from 資料 1 b where b.會員名 a.會員名 and b....