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

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

    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;