DELPHI用ADOTABLE控件开发简单的登陆界面

delphi用ADOTable控件开发简单的登陆界面新建一个VCL form Application。并添加如下控件：

连接数据库是SQL SERVER，数据库名是test，表名是users.

设置ADOTabel的属性：

connectionstring：

tablename:users.

在project中新建一个form15.用来提示登陆成功的。

建立后，project13的结构图如下：

代码如下：

unit Unit14;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,Buttons,DB,ADODB,

unit15;//因为下面有引用到form15，所以这里要引用unit15.

type

TForm14=class(TForm)

lbl1:TLabel;

lbl2:TLabel;

edt1:TEdit;

edt2:TEdit;

tbl1:TADOTable;

btn1:TBitBtn;

btn2:TBitBtn;

procedure btn1Click(Sender:TObject);

procedure btn2Click(Sender:TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form14:TForm14;

implementation

{$R*.dfm}

procedure TForm14.btn1Click(Sender:TObject);

var

results:Variant;

begin

results:=tbl1.Lookup('name',edt1.text,'password');

if results=edt2.Text then

begin

application.CreateForm(Tform15,form15);

form15.ShowModal;

end

else

end;

procedure TForm14.btn2Click(Sender:TObject);

begin

Close;

end;

end.