利用Database 建立动态数据库例子(50分)

1、我有一个数据库data.mdb,通过Database ,，动态建立数据库源，在程序中不通过操作注册表来操作
通过注册标也可以，
2、如何利用Query控件对数据库进行操作包括删除、修改、添加等常用操作
这个问题比较菜了，希望高手能指点一下

还请高手帮我分析为什么下面的代码是个死循环！应该怎么改

TabTemp := TTable.Create(self);
TabTemp.DatabaseName :='mydata';
TabTemp.TableName := 'inout';
if not TabTemp.Active then
TabTemp.Active := True;
TabTemp.First;
while not TabTemp.Eof do
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := datetostr(TabTemp.FieldValues['时间']);
ListItem.SubItems.Add(TabTemp.FieldValues['类型']);
ListItem.SubItems.Add(floattostr(TabTemp.FieldValues['金额']));
ListItem.SubItems.Add(TabTemp.FieldValues['说明']);
ListItem.SubItems.Add(TabTemp.FieldValues['备注']);
next;
end;
TabTemp.free;

没有人帮我么，天哪！！神哪，救救我吧！

1： 若你数据库不需高保密性的话，用 INI or udl配置文件也可以，方便一些

2： with TQuery.Create(self) do
try
DatabaseName := 'XXX'
SQL.Text := 'Update ..........' //这里写进行操作包括删除、修改、添加等常用操作的SQL语句
Execute //Update等没有数据集产生的用这个，若是有数据集的如Select则用Open，看Help
finally
Free;
end;

next;-->TabTemp.next;
先CLOSE 再Free;
=============================
先设好Database1的Driver为 MSACCESS
if Database1.Connected then
begin
With Database1 do
begin
Params.Values['DATABASE NAME']:='C:/data.mdb';
Params.Values['USER NAME']:='Admin';
end;
Try
Database1.Connected :=True;
Except
end;
end;

TabTemp.next;

能发一个 数据库
操作的例子么，我好长时间没有用了，都快忘光了。两年了
希望能帮一个忙，最好有数据检测，错误判断，比较完善一点的
希望是：程序做好以后，不用手动配置数据库，或数据库自动生成的
以及 删除、添加、修改 排序等方面的

分数我可以在给的，如果合适的 我出200分，

Email:niehuqing@sohu.com
msn: nhqing@hotmail.com
qq: 8823303