实例——动态生成sql语句.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 12 行

    procedure TForm1.ExcuteBtnClick(Sender: TObject);
    begin
       SQLQuery1.SQL.Clear;
       SQLQuery1.SQL.Add('SELECT ' + Item.Text + ' FROM ' + table.Text);
       // Item.Text为输入查询项目编辑框，table.Text为查询表名编辑框
       if Length(contition.Text) <> 0 then
         SQLQuery1.SQL.Add('Where ' +contition.Text)
         // contition.Text为查询条件编辑框
      SQLQuery1.open;
    end;