简单的数据库访问和查询程序(100分)

我是DELPHI新手，能否提供一个简单的数据库访问和查询程序给我参考学习。
（用ACCESS）
非常感谢！

留下Email!

C:/Borland/Delphi5/Demos/Ado

unit Unit11;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables;

type
TForm11 = class(TForm)
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form11: TForm11;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm11.FormCreate(Sender: TObject);
begin
self.top:=(Screen.Height-self.Height)div 2;
self.Left :=(screen.Width-self.Width)div 2;
end;

procedure TForm11.BitBtn1Click(Sender: TObject);
begin
dm1.table1.locate('编号',edit1.text,[loCaseInsensitive]);
close;
end;

procedure TForm11.FormActivate(Sender: TObject);
begin
form11.ActiveControl:=edit1;
end;

end.

留下Email或给我来信:hjmking@sina.com.

My E-mail address: sam_zhengq@yahoo.com

已发出.但我不要分.

能不能给我也发一点东西？
e.pig@263.net

DELPHI帮助里多的是为什么不自己找一点，书店也有许多香橙的

多人接受答案了。