win7下Delphi7操作SQLserver2000之Access..doc

看着不舒服，请看我的日志： /blog/static/15115379520131684941106/ 最终成果，实现以下功能： 1、打开Mircosoft Access 2、点文件/新建/在右侧出现的新建文件任务下选择“空数据库”，弹出保存位置对话框，这时我们选择存到我们程序的目录下就行了，如：桌面/delphi数库库实例/1.mdb,然后出现如下： 3、选中左边的“表”，再点上面的“设计”，添加如下： 4、单击文件/保存 按钮，打开保存数据库表对话框，在对话框中输入数据库表的名称T_USER，然后单击按钮对设计的T_USER数据库表进行保存，如图 5、在设计完成T_SUER数据库表后，如图所示的对话框中，选中T_USER数据表，单击按钮打开T_USER表，在表中添加数据记录，如图1-6 所示 添加如下： 二、设计界面，delphi 7，新建界面如下： 1、 2、建立ADO 引用 要在Delohi7 工程中使用ADO对象来访问数据库，必须在窗体中建立ADO对象，其 操作步骤如下： （1）添加数据连接源 选择工具栏的“ADO”选项，单击按钮，再在窗体上放置按下鼠标左键放置一个ADOQuery连接对象。 （2）对ADOQuery对象进行数据库连接。 选中ADOQuery对象，然后单击属性的Connection String属性按钮打开如图所示的对话 （3）选择数据连接方式 在如图1-9所示的对话框中选择“Use Connection String”，然后单击“创建”按钮打开如图1-10所示的对话框 （4）选择数据库类型 在如图1-10所示的对话框中选择“Microsoft Jet 4.0 OLE DB Provider”选项，然后单击“下一步”按钮打开如图1-11所示的对话框。 （把新建的db01.mdb放到delphi 7刚建立的本例程目录下） 注：这一步点击“…”按扭，选择我们前面建立好的数据库文件db01.mdb。然后请删除db01.mdb前的路径，这样就是用相对路径，通用性更强。然后点“测试连接”，提示测试成功。 3、写代码： unit login; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, StdCtrls; typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Edit1: TEdit;Edit2: TEdit;Button1: TButton;Button2: TButton;ADOQuery1: TADOQuery;procedure Button2Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end; varForm1: TForm1;maxtimes,logintimes:integer; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject);beginclose;end; procedure TForm1.FormCreate(Sender: TObject);beginmaxtimes:=3; //允许输入错误的最大次数；logintimes:=0; //统计用户使用过系统的次数；end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginif MessageDlg(你选择了系统退出，退出将不能启动管理系统，是否真的退出？,mtConfirmation,[mbYes,mbNo],0) = mrYes thenaction:=caFree // 如果单击的是按钮，则退出elseACTION:=caNone; //如果单击否按钮，则继续系统登录end; procedure TForm1.Button1Click(Sender: TObject);varlasttime,