捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 我实习使用的最好的校园管理管理系统
关键字:我实习使用的最好的校园管理管理系统
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:2 火柴
深浅度:中级 完成时间:2012/7/23
发布者:xubo (奖励50火柴) 发布时间:2013/2/6
编辑器:Delphi7 语  种:简体中文
分 类:数据库 下载浏览:141/18683
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
if ServerName=' then
   begin
     Mymessagebox('请输入正确的服务器名!',mb_ok);
     ServerEdit.setfocus;
   end
 else if UserName=' then
   begin
     Mymessagebox('请输入正确的登录用户ID!',mb_ok);
     UserEdit.setfocus;
   end
 else
   with Datafrm do
      if ConnectByParam(ServerName,DbName,DbType,UserName,Password) then
        begin
          Mymessagebox('成功登录到数据库服务器:'+ServerName+'!',mb_ok);
          RegisterKeyStr(HKEY_LOCAL_MACHINE,'\SOFTWARE\MONEYCS\MainDb','Server Name',ServerName,1);
          RegisterKeyStr(HKEY_LOCAL_MACHINE,'\SOFTWARE\MONEYCS\MainDb','DataBase Name',DBName,1);
          RegisterKeyStr(HKEY_LOCAL_MACHINE,'\SOFTWARE\MONEYCS\MainDb','DataBase Type',DBType,1);
          RegisterKeyStr(HKEY_LOCAL_MACHINE,'\SOFTWARE\MONEYCS\MainDb','User Name',UserName,1);
          EncryptObj:=TSimpleEncrypt.Create;
          EnPassword:=EncryptObj.Encrypt(Password);
          RegisterKeyStr(HKEY_LOCAL_MACHINE,'\SOFTWARE\MONEYCS\MainDb','Password',EnPassword,1);

          RegisterServerFrm.modalresult   :=mrok;
        end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论12条 当前显示最后6条评论
sendan 2013/3/22 14:31:16
kankanjietu
zhaojingsai 2013/4/12 9:07:38
以前看过
szxyliang 2013/6/19 13:49:33
我要我的火柴,把我的火柴还给我……
toople 2013/7/19 8:38:33
明日科技书上的例子
这个公司出的书,都是垃圾
xiaoai_no1 2017/10/30 16:42:40
拿了我的火柴 还不能下载
iceleafage 2017/11/16 8:00:24
不错样,看看吧
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表