請使用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;