如何输入SQL语句

Question

用Delphi怎么编写一个程序,能把数据以SQL语句的形式输出来

Answer 1

比方说在一个Edit里输入:请输出阿华的成绩  点查询按钮后在下面的Memo里就输出关于阿华成绩的SQL语句,这个SQL语句再运行就能输出阿华成绩的表格形式了,在这里只请您帮一下输出SQL语句

Answer 2

点查询的时候生成一条SQL语句，赋值给一个 Str: String 字符串类型的变量
然后 Memo.lines.add(Str); 就可以了

Answer 3

点查询的时候生成一条SQL语句，赋值给一个 Str: String 字符串类型的变量
然后 Memo.lines.add(Str); 然后呢,
 datamodule1.query11.close;
                     datamodule1.query11.sql.clear;
         datamodule1.query11.sql.add('select * from tabelname where .....');
                      datamodule1.query11.open;
当然如果你链的数据控件不一样要适当变化的，而且要将dbgird与一个数据集链接用于显示数据。

Answer 4

点查询的时候生成一条SQL语句，赋值给一个 Str: String 字符串类型的变量然后
var
  str:string;
 Memo.lines.add(Str);

Answer 5

我觉得你SQL够熟的话就用程序来当翻译呗，
把一些查询条件生成一个STRING变量（SQL语句），
Memo.lines.add(Str)可以在MEMO显示这个SQL语句，
Query.SQL.add（Str）
再Query.SQL.Open就可以执行SQL得到结果了啊。

Answer 6

说白了，就是字符串的操作问题。
下面是我以前写的一段代码，用到地常量较多，看看也许对你有帮助procedure TfrmStatis.CreateSQLWhere;
begin
  sSQLWhere:= 'WHERE ';
  if Trim(cmbCar.Text)<>'' then
    sSQLWhere:= sSQLWhere + Format('%s="%s" AND ',[mfnCar ,cmbCar.Text]);
  if Trim(cmbDriver.Text)<>'' then
    sSQLWhere:= sSQLWhere + Format('%s="%s" AND ',[mfnDriver, cmbDriver.Text]);
  if sSQLWhere = 'WHERE ' then begin
    sSQLWhere:= '';
    Exit;
  end;
  sSQLWhere:= LeftStr(sSQLWhere, Length(sSQLWhere)-5);
end;

Answer 7

用ADOQUERY控件,设置ADOQUERY.SQL.ADD 'SELECT * FROM TABLE' //引号里面添加你的sql语句

Answer 8

添加一个Query连接数据库
var
 str:string;
begin
....
str:='select * from 表名 where Name=阿华';
Memo.lines.add(Str);
self.query1.close;
self.query1.sql.clear;
self.query1.sql.add(str);
self.query1.open;
str:=self.query1.fieldByName(成绩字段).asstring;
.......
end;