Delphi数据库开发之AdoQuery的用法

今天，我本来是不打算写这篇文章的，但是需要有些小白同学不太会这种东西，有时候是因为买的delphi教程有缺失，有时候是因为咩有老师教，有时候是因为其他别的原因

下面开始转载

今天试验了一下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;

转载请注明：落伍老站长 » Delphi数据库开发之AdoQuery的用法