捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
企业人事管理系统 sql server数据库开发
关键字:sql server
来 自:原创
平 台:Win2K/2003/NT/XP 下载所需:0 火柴
深浅度:中级 完成时间:2013/9/8
发布者:yangbei750 (奖励50火柴) 发布时间:2013/9/9
编辑器:Delphi7 语  种:简体中文
分 类:数据库 下载浏览:843/15615
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
procedure TFrm_Login.plogin;//自定义函数过程
begin
 with DM.ADOQuery1 do
  begin
   close;
   sql.clear;
   sql.add('select * from Tperson where(ID=:a) and(Ppwd=:b)');
   //检索数据表中的用户名和密码
   parameters.parambyname('a').value:=trim(edit1.text);
   parameters.parambyname('b').value:=trim(edit2.text);
   open;
  end;
   if DM.ADOQuery1.recordcount>0 then //判断用户名和密码是否存在
     begin//存在时执行以下代码
       isclose:=true;//使isclose的值为true,以免重新登录时出现错误
       Form1.Show;
     end
   else//用户名和密码不存在时执行以下代码
     begin
       logintime:=logintime+1;
       if logintime<3 then//限制密码错误不能超过三次
         begin
          ShowMessage('用户名或密码错误,请重新输入!');
          edit1.clear;//清除编辑框中的内容
          edit2.clear;
          edit1.setfocus;
         end
       else//当密码错误3次时强行退出
         begin
          ShowMessage('您无权使用本系统!');
          application.Terminate;
         end;
     end;
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后6条评论
dayangxi 2013/9/10 16:32:37
美工还行,其它无亮点
fisheatscats 2013/9/10 22:10:35
这也能用...
真心不能看啊
liguangwen91 2013/9/11 15:24:23
靠,没东西
tilly 2013/9/28 16:30:09
太简单,不过作者的精神可嘉。
shuihan20e 2013/10/1 14:15:39
这种垃圾东西还给奖励?还定个中级,连初级都算不上,放了4个ADOQUERY在上面,啥功能没有
sadanboy2008 2019/9/5 20:38:24
都不判断有没有数据库吗,再设计阶段就一直说库打不开
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表