請使用TQuery控件.設屬性
DataSource1.DataSet: Query1,DBGrid1.DataSource :DataSource1
在其中根據條件動態賦於組件SQL查詢語句.下面是一個
實際應用中的片段例子:
var
S:string;
begin
Try
//加入判斷條件以生成 S 語句
S := ' Select No,Name,Kind from Depot Where If_Mrp=1 ';
With Query1 Do
Begin
Close;
SQL.Clear;
SQL.Add(S);
Open;
End;
//根據條件賦字段對象顯示頭
DBGrid1.Columns[0].Title.caption:='倉庫編碼';
DBGrid1.Columns[1].Title.caption:='倉庫名稱';
DBGrid1.Columns[2].Title.caption:='倉庫類型';
.
.
.
end;
DataSource1.DataSet: Query1,DBGrid1.DataSource :DataSource1
在其中根據條件動態賦於組件SQL查詢語句.下面是一個
實際應用中的片段例子:
var
S:string;
begin
Try
//加入判斷條件以生成 S 語句
S := ' Select No,Name,Kind from Depot Where If_Mrp=1 ';
With Query1 Do
Begin
Close;
SQL.Clear;
SQL.Add(S);
Open;
End;
//根據條件賦字段對象顯示頭
DBGrid1.Columns[0].Title.caption:='倉庫編碼';
DBGrid1.Columns[1].Title.caption:='倉庫名稱';
DBGrid1.Columns[2].Title.caption:='倉庫類型';
.
.
.
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货