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;
动态生成SQL语句
最新推荐文章于 2022-10-16 20:59:53 发布