Delphi2009中使用dbExpress组件访问MySql（登陆页面）

首先新建数据访问模块(Data Module),如下图：

 

这里使用MySql数据库，考虑到dbGo组件(即ADO)对MySql的不友好，使用dbExpress组件行进数据库的访问。

首先添加一个TSqlConnection控件。

为了使用dbExpress访问数据库，需要把MySql的安装路径下bin目录下的libmySQL.dll文件拷贝至Delphi安装路径的bin目录下。

如上图所示作必要的设置即可。(LoginPrompt属性设置成false以关闭每次连接数据库时的认证对话框)

 

创建一个Form作为登陆页面用，如下图所示：

 

可对Form的属性作必要的设定(如:BorderStyle:bsDialog; Position:poDesktopCenter)

添加一个TSQLQuery控件在于其上。后台的代码如下所示：

1. unit LoginUnit;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, ExtCtrls, DB, ADODB, WideStrings, DBXMySql, SqlExpr, FMTBcd,
8.   DBClient, SimpleDS;
10. type
11.   TFrmLogin = class(TForm)
12.     Bevel1: TBevel;
13.     Label1: TLabel;
14.     Label2: TLabel;
15.     Edit1: TEdit;
16.     Label3: TLabel;
17.     Edit2: TEdit;
18.     Button1: TButton;
19.     Button2: TButton;
20.     LoginSQLQuery: TSQLQuery;
21.     procedure Button2Click(Sender: TObject);
22.     procedure Button1Click(Sender: TObject);
23.   private
24.     { Private declarations }
25.   public
26.     { Public declarations }
27.   end;
29. var
30.   FrmLogin: TFrmLogin;
32. implementation
34. uses DataModuleUnit;
36. {$R *.dfm}
38. procedure TFrmLogin.Button1Click(Sender: TObject);
39. var
40.   username, password : string;
41.   recordcount : Integer;
42. begin
43.   username := Edit1.Text;
44.   password := Edit2.Text;
46.   if username = '' then
47.   begin
48.     ShowMessage('ユーザ名を入力してください！');
49.     Edit1.SetFocus;
50.   end
51.   else if password = '' then
52.   begin
53.     ShowMessage('パスワードを入力してください！');
54.     Edit2.SetFocus;
55.   end
56.   else
57.   begin
58.     LoginSQLQuery.SQLConnection := DataModule1.MySQLConnection;
59.     LoginSQLQuery.CommandText := 'SELECT * FROM T_USR WHERE USID =' + username + ' AND PWD = ' + password;
60.     recordcount := LoginSQLQuery.RecordCount;
61.     if recordcount < 1 then
62.     begin
63.       ShowMessage('ユーザ名又はパスワードが違います！');
64.     end
65.     else
66.     begin
67.       ShowMessage('ログインします！');
68.     end;
69.   end;
70. end;
72. procedure TFrmLogin.Button2Click(Sender: TObject);
73. begin
74.   close;
75. end;
77. end.