有谁能给我一个用Ado操作Ms Access数据库的例子?(50分)

我也想用ADO操作本地数据库,但对其不是很了解,哪位能给我一个这方面的例子?
能够实现简单的打开、添加、修改和删除记录?

www.playicq.com
源码->数据库
下一个看一看吧

要先注册一个用户

//连接
procedure TFrmInPutChargeCar.FormCreate(Sender: TObject);
var
ConnectStr:string;
Pathdir:string;
S:string;
begin
Pathdir:=extractfilepath(application.ExeName);
S:=Pathdir+'DataBase/DataBase.mdb';
ConnectStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%S;Persist Security Info=False;Jet OLEDBatabase Password=Abrams';
ConnectStr:=Format(connectstr,);
AQryManID.ConnectionString:=ConnectStr;
AQryManName.ConnectionString:=ConnectStr;
AQryAdd.ConnectionString:=ConnectStr;

//查询
procedure TFrmInPutChargeCar.EdtCarNumExit(Sender: TObject);
var
CarNum:string;
ManID:string;
begin
CarNum:=EdtCarNum.Text;
AQryManID.SQL.Clear;
AQryManID.SQL.Add('select * from Car where CarNum="'+CarNum+'"');
AQryManID.Open;
ManID:=AQryManID.FieldByName('ManID').AsString;
CarID:=AQryManID.FieldByName('ID').AsString;
AQryManName.SQL.Clear;
AQryManName.SQL.Add('select * from Manager where ID='+ManID);
AQryManName.Open;
EdtName.Text:=AQryManName.FieldByName('Name').AsString;
end;

//添加
procedure TFrmInPutCar.BtBtnOKClick(Sender: TObject);
var
Having:Boolean;
begin
if RdGrpHaving.ItemIndex=0 then
Having:=True
else
Having:=False;
AQryCar.SQL.Clear;
AQryCar.SQL.Add('Insert into Car(CarNum,Type,Tonnage,ManID,ComID,Have)Values("'+EdtCarNum.Text+'","'+EdtType.Text+'","'+EdtTonnage.Text+'","'+AQryMan.fieldByName('ID').AsString+'","'+AQryCom.fieldByName('ID').AsString+'",'+BoolToStr(Having)+')');
AQryCar.ExecSQL;

http://www.playicq.com/dispdoc.asp?id=644
http://wolfsoft.nugoo.com/example/file/dbtest.exe

ado控件中没有datasource控件，如果想在dbgrid中显示数据，能用tquery控件
栏上的datasource控件么？