我的学习生涯(Delphi篇) - 09
来源:互联网 发布:bat是什么软件 编辑:程序博客网 时间:2024/04/30 03:35
前两篇博文我们提了好多的ADO,我们下面来看一下Delphi在ADO方面的强大之处!
-------------------------------------------------------------------------------------------------美丽分割线---------------------------
效果如下图:
此程序使用ADOConnection、ADODataSet、DataSource、DBGrid等控件完成一个简单的数据库(MS Access)操作(添、删、改、查)。
在使用ADOConnection时,注意把LoginPrompt设置为False!
单元文件:
Unit1.pas
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, DB, ADODB, StdCtrls;type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Button3: TButton; Button4: TButton; DBNavigator1: TDBNavigator; Button5: TButton; Button6: TButton; Button7: TButton; Button9: TButton; Button8: TButton; Button12: TButton; Button11: TButton; Button10: TButton; Button1: TButton; Edit1: TEdit; Label1: TLabel; DataSource1: TDataSource; DBGrid1: TDBGrid; ADOConnection1: TADOConnection; ADODataSet1: TADODataSet; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin ADODataSet1.Close; if Trim(Edit1.Text) <> '' then ADODataSet1.CommandText:='select * from 表1 where 货名='+''''+Edit1.Text+'''' else ADODataSet1.CommandText:='select * from 表1'; ADODataSet1.Open;end;procedure TForm1.Button3Click(Sender: TObject);begin DBNavigator1.BtnClick(nbFirst);end;procedure TForm1.Button4Click(Sender: TObject);begin DBNavigator1.BtnClick(nbPrior);end;procedure TForm1.Button5Click(Sender: TObject);begin DBNavigator1.BtnClick(nbNext);end;procedure TForm1.Button6Click(Sender: TObject);begin DBNavigator1.BtnClick(nbLast);end;procedure TForm1.Button7Click(Sender: TObject);begin DBNavigator1.BtnClick(nbInsert);end;procedure TForm1.Button9Click(Sender: TObject);begin DBNavigator1.BtnClick(nbDelete);end;procedure TForm1.Button8Click(Sender: TObject);begin DBNavigator1.BtnClick(nbEdit);end;procedure TForm1.Button10Click(Sender: TObject);begin DBNavigator1.BtnClick(nbPost);end;procedure TForm1.Button11Click(Sender: TObject);begin DBNavigator1.BtnClick(nbCancel);end;procedure TForm1.Button12Click(Sender: TObject);begin DBNavigator1.BtnClick(nbRefresh);end;end.
文件:lqx.7z
==========如果文件有密码:tdtc_hrb#163.com========把井号替换为at符号即可======
- 我的学习生涯(Delphi篇) - 09
- 我的学习生涯(Delphi篇) - 完结篇
- 我的学习生涯(Delphi篇) - 00
- 我的学习生涯(Delphi篇) - 01
- 我的学习生涯(Delphi篇) - 02
- 我的学习生涯(Delphi篇) - 03
- 我的学习生涯(Delphi篇) - 04
- 我的学习生涯(Delphi篇) - 05
- 我的学习生涯(Delphi篇) - 06
- 我的学习生涯(Delphi篇) - 07
- 我的学习生涯(Delphi篇) - 08
- 我的学习生涯(Delphi篇) - 10
- 我的学习生涯(Delphi篇) - 11
- 我的学习生涯(Delphi篇) - 12
- 我的学习生涯(Delphi篇) - 13
- 我的学习生涯(Delphi篇) - 14
- 我的学习生涯(Delphi篇) - 15
- 我的学习生涯(Delphi篇) - 16
- D_db2_deinstall. 卸载db2
- php代码执行文件重命名函数的权限以及参数
- 如何用c++/c在控制台绘制坐标
- 由开锁智力题得出一种求平方数的方法
- tiff文件读取
- 我的学习生涯(Delphi篇) - 09
- 三、MongoDB 查询(待续)
- PHP实战第一天
- 四、MongoDB 索引
- Cocos2d-iphone 开发之(2) cocos2d文档安装图文教程
- linq group by
- java Swing 将数据保存到指定文件中
- 通信协议
- !!!