delphi 用户登录 代码
2009-04-01 16:57
344 查看
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;
本程序的数据库链接和操作都是动态的,控件要用的时候直接调用就可以啦。
用到的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;
本程序的数据库链接和操作都是动态的,控件要用的时候直接调用就可以啦。
相关文章推荐
- delphi 用户登录 代码
- [转]Delphi用户登录窗口框架
- 【Android】用户登录注册界面开发及用户信息管理案例代码详解
- asp.net用户登录代码
- Java Web之限制用户多处登录实例代码
- 网站用户登录、注册和修改密码常用代码,采用三层架构
- 用JavaScript实现用户登录验证、注册信息格式检验(附代码)
- JAVA实验用户登录代码
- php下获取Discuz论坛登录用户名、用户组、用户ID等信息的实现代码
- Delphi实现软件中登录用户的操作权限
- 关于JS实现用户登录验证(部分代码简写)
- JS记录用户登录次数的代码
- 用户登录验证码代码(参考网友)
- 用户 'sa' 登录失败。该用户与可信 SQL Server 连接无关联'。错误代码:18452 解决办法
- asp.net 防止用户重复多次登录实例代码详解
- 使用java代码判断用户使用哪种方式登录的。
- ODBC + WIN32 API 访问MYSQL 数据库实现简单QQ用户注册和登录 的代码分析
- C#中用session实现的用户登录代码与退出登录代码