看着不舒服，请看我的日志：httpstro
g0511blog163comblogstatic15115379520131684941106
最终成果，实现以下功能：
1、打开MircosoftAccess
2、点文件新建在右侧出现的新建文件任务下选择“空数据库”，弹出保存位置对话框，这时我们选择存到我们程序的目录下就行了，如：桌面delphi数库库实例1mdb然后出现如下：
f3、选中左边的“表”，再点上面的“设计”，添加如下：
f4、单击文件保存按钮，打开保存数据库表对话框，在对话框中输入数据库表的名称T_USER，然后单击按钮对设计的T_USER数据库表进行保存，如图
5、在设计完成T_SUER数据库表后，如图所示的对话框中，选中T_USER数据表，单击按钮打开T_USER表，在表中添加数据记录，如图16所示
添加如下：
二、设计界面，delphi7，新建界面如下：1、
2、建立ADO引用
f要在Delohi7工程中使用ADO对象来访问数据库，必须在窗体中建立ADO对象，操作其步骤如下：（1）添加数据连接源选择工具栏的“ADO”选项，单击按钮，再在窗体上放置按下鼠标左键放置一个ADOQuery连接对象。（2）对ADOQuery对象进行数据库连接。选中ADOQuery对象，然后单击属性的Co
ectio
Stri
g属性按钮打开如图所示的对话
（3）选择数据连接方式在如图19所示的对话框中选择“UseCo
ectio
Stri
g”，然后单击“创建”按钮打开如图110所示的对话框
（4）选择数据库类型在如图110所示的对话框中选择“MicrosoftJet40OLEDBProvider”选项，然后单击“下一步”按钮打开如图111所示的对话框。
（把新建的db01mdb放到delphi7刚建立的本例程目录下）注：这一步点击“…”按扭，选择我们前面建立好的数据库文件db01mdb。然后请删除db01mdb前的路径，这样就是用相对路径，通用性更强。然后点“测试连接”，提示测试成功。
f3、写代码：u
itlogi
i
terfaceusesWi
dowsMessagesSysUtilsVaria
tsClassesGraphicsCo
trolsFormsDialogsDBADODBStdCtrlstypeTForm1classTFormLabel1TLabelLabel2TLabelEdit1TEditEdit2TEditButto
1TButto
Butto
2TButto
ADOQuery1TADOQueryprocedureButto
2ClickSe
derTObjectprocedureFormCreateSe
derTObjectprocedureFormCloseSe
derTObjectvarActio
TCloseActio
procedureButto
1ClickSe
derTObjectprivatePrivatedeclaratio
spublicPublicdeclaratio
se
dvarForm1TForm1maxtimeslogi
timesi
tegerimpleme
tatio
RdfmprocedureTForm1Butto
2ClickSe
derTObjectbegi
closee
dprocedureTForm1FormCreateSe
derTObjectbegi
maxtimes3允许输入错误的最大次数；
flogi
times0统计用户使用过系统的次数；e
dprocedureTForm1FormCloseSe
derTObjectr