首先新建數據訪問模塊(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;
2.
3.interface
4.
5.uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, StdCtrls, ExtCtrls, DB, ADODB, WideStrings, DBXMySql, SqlExpr, FMTBcd,
8. DBClient, SimpleDS;
9.
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;
28.
29.var
30. FrmLogin: TFrmLogin;
31.
32.implementation
33.
34.uses DataModuleUnit;
35.
36.{$R *.dfm}
37.
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;
45.
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. else66. begin
67. ShowMessage('ログインします！');
68. end;
69. end;
70.end;
71.
72.procedure TFrmLogin.Button2Click(Sender: TObject);
73.begin
74. close;
75.end;
76.
77.end.
