delphi 用户登录 代码

delphi 用户登录 代码

用到的ADO控件是 ADOConnection、ADOquery

procedure TForm1.Button1Click(Sender: TObject);
var
databasename:string;
ip:string;
begin

databasename:='jswlibs';//数据库
ip:='192.168.1.126';//数据库服务器

ADOConnection1.close;

ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+databasename+';Data Source='+ip;
ADOConnection1.Connected:=true;//打开链接


ADOquery1.Connection:= ADOConnection1;//动态链接

ADOquery1.Close;

ADOquery1.SQL.Clear;

ADOquery1.SQL.add('select * from sys_gzry where xm='''+edit1.text+''' and mm = '''+edit2.text+'''');//查询语句

ADOquery1.Active:=true;
ADOquery1.open;

if ADOquery1.RecordCount>0 then// 判断是否有记录
begin
label3.Caption:='登录成功!';
exit;
end;
label3.Caption:='登录错误!';
end;

本程序的数据库链接和操作都是动态的，控件要用的时候直接调用就可以啦。