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;
本程序的数据库链接和操作都是动态的,控件要用的时候直接调用就可以啦。