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;

 

 

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