最新消息:

Delphi数据库开发之AdoQuery的用法

编程 eben 来源:Sheldon86 765浏览 0评论

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

下面开始转载

今天试验了一下AdoQuery,功能很简单:将数据库中某张表的内容显示在DBgrid组件中。AdoQuery的SQL属性为空。界面安排如下:Delphi数据库开发之AdoQuery的用法-1

查询按钮的代码为:

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的用法

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址