AdoQuery的用法

来源：互联网发布：淘宝官方话费充值平台编辑：程序博客网时间：2024/06/06 00:14

今天试验了一下AdoQuery，功能很简单：将数据库中某张表的内容显示在DBgrid组件中。AdoQuery的SQL属性为空。界面安排如下：

查询按钮的代码为：

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='select * from Student';
ADOQuery1.Open;
end;

运行成功，呵呵，小激动一下。

在上面的基础上，又添加了一个插入按钮，单击它后向数据库中插入一条记录，代码如下：

ADOQuery1.Close;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Insert into Student values(''张大胖'',''2009109109'',''男'',''22'',''CS'')';
ADOQuery1.Open;

运行成功

在上面的基础上，又实现了将编辑框中输入的内容通过ADOQuery赋给数据库中相应的属性

代码如下：

ADOQuery1.Close;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:=

format('Insert into Student values(%s,%s,%s,%s,%s)',
       [
        QuotedStr(Trim(edit1.Text)),
        QuotedStr(Trim(edit2.Text)),
        QuotedStr(Trim(edit3.Text)),
        QuotedStr(Trim(edit4.Text)),
        QuotedStr(Trim(edit5.Text))
       ]);
ADOQuery1.ExecSql;

在上面的基础上，实现了删除DBgrid中当前属性，代码如下：

DBGrid1.datasource.dataset.delete;

又增加了一个退出按钮，单击退出，代码如下：

Application.Terminate;