每日一贴,今天的内容关键字为文件分割线
前两篇博文我们提了很多多少的ADO,我们下面来看一下Delphi在ADO方面的壮大之处!
-------------------------------------------------------------------------------------------------美丽分割线---------------------------
效果如下图:
此程序应用ADOConnection、ADODataSet、DataSource、DBGrid等控件实现一个简单的数据库(MS Access)操纵(添、删、改、查)。
在应用ADOConnection时,注意把LoginPrompt设置为False!
单元文件:
Unit1.pas
心的本色该是如此。成,如朗月照花,深潭微澜,不论顺逆,不论成败的超然,是扬鞭策马,登高临远的驿站;败,仍滴水穿石,汇流入海,有穷且益坚,不坠青云的傲岸,有“将相本无主,男儿当自强”的倔强。荣,江山依旧,风采犹然,恰沧海巫山,熟视岁月如流,浮华万千,不屑过眼烟云;辱,胯下韩信,雪底苍松,宛若羽化之仙,知退一步,海阔天空,不肯因噎废食。
unit Unit1;
interface
uses
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.
文件:
==========如果文件有密码:tdtc_hrb#163.com========把井号替换为at符号即可======
文章结束给大家分享下程序员的一些笑话语录: 警告
有一个小伙子在一个办公大楼的门口抽着烟,一个妇女路过他身边,并对他 说, “你知道不知道这个东西会危害你的健康?我是说, 你有没有注意到香烟 盒上的那个警告(Warning)?”
小伙子说,“没事儿,我是一个程序员”。
那妇女说,“这又怎样?”
程序员说,“我们从来不关心 Warning,只关心 Error”