技术类3(delphi)

原创 2007年09月28日 17:07:00

unit USysDbSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,UdmHr;

type
  TfrmSysDbSet = class(TForm)
    ledtDbName: TLabeledEdit;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    bbtnTest: TBitBtn;
    gbInfor: TGroupBox;
    lblDbName: TLabel;
    cbDbName: TComboBox;
    ledtServerName: TLabeledEdit;
    procedure bbtnTestClick(Sender: TObject);
  private
    { Private declarations }
    mdlServerName, mdlDbName,mdlCnnStr :string;
    function TestConn():boolean;
    function buildCnnStr():string;
  public
    { Public declarations }
  end;

var
  frmSysDbSet: TfrmSysDbSet;

implementation

{$R *.dfm}

function TfrmSysDbSet.buildCnnStr: string;
begin
  //ServerName, DbName
  if (Trim(mdlServerName)='') then
    begin
      showmessage('服务器名没有设置,请先设置好相关参数再试!');
      Result:='';
      exit;
    end;
  if (Trim(mdlDbName)='')  then
    begin
      showmessage('数据库名称没有设置,请先设置好相关参数再试!');
      Result:='';
      exit;
    end;
    //此处用sa用户,实际应用时,可建立安全用户  ??
     Result:='Provider=SQLOLEDB.1;Persist Security Info=False;Server='+ Trim(mdlServerName)+';User ID=sa;Password=123456;' +';Database='+Trim(mdlDbName);
end;

function TfrmSysDbSet.TestConn(): boolean;
begin
  if Trim(mdlCnnStr)='' then mdlCnnStr:=buildCnnStr;
  if Trim(mdlCnnStr)='' then exit;        //如果串为空,则退出
  try
    with dmHr do
    begin
      if adoCnnHr.Connected then adoCnnHr.Close ;
      adoCnnHr.ConnectionString :=mdlCnnStr;
      adoCnnHr.Open ;
    end;
    showmessage('数据库连接成功!');
    Result:=true;
  except
    showmessage('数据库连接失败,请重试!');
    Result:=false;
  end;//try
 
end;

procedure TfrmSysDbSet.bbtnTestClick(Sender: TObject);
begin
    //参数设置
    mdlServerName :=Trim(ledtServerName.Text);
    mdlDbName     :=Trim(cbDbName.Text);

    TestConn;
end;

end.
 

技术类(delphi)

procedure TfrmHrResult.FormShow(Sender: TObject);begin//初始化try  with  dmHr   do  begin    if not ado...
  • Steven_xg
  • Steven_xg
  • 2007年09月28日 17:02
  • 459

经常访问的技术类网站有哪些?

经常访问的技术类网站有哪些? 推酷 http://www.tuicool.com/ 简书 http://www.jianshu.com/ stackoverflow http://stackov...
  • szwq01
  • szwq01
  • 2016年03月24日 15:58
  • 757

技术类2(delphi)

procedure TfrmHrAdd.bbtnOkClick(Sender: TObject);beginif optType=0 then   //新增记录      try        wit...
  • Steven_xg
  • Steven_xg
  • 2007年09月28日 17:05
  • 449

常用法语词汇-信息技术类名词

ordinateur 电脑   ordinateur portable 手提电脑   ordinateur domestique 个人电脑   matériel 硬件   co...
  • nanashiro
  • nanashiro
  • 2012年11月25日 05:22
  • 1584

建行总行信息技术类09、10、11三年的笔试回忆资料合集

翻遍了整个网络,发现这方便的资料实在太少了,我特意整理了一下。发现只有09、10、11三年的信息技术笔试的资料。需要的下载吧:http://download.csdn.net/detail/yanzi...
  • yanzi1225627
  • yanzi1225627
  • 2012年11月07日 22:45
  • 10991

【读书】2017年读的一些技术书籍(持续更新)

一、《架构探险:从零开始写java web框架》 -- 黄勇      二、《开源思索集》       三、《Redis实战》      四、《RabbitMQ实战》...
  • u013047584
  • u013047584
  • 2017年09月24日 20:22
  • 320

黑马培训---分享点干货二 IOS面试非技术性问题

-----------培训学习型博客,请多指教---------------- 程序员非技术面试题 1、请你自我介绍一下你自己? 回答提示:一般人回答这个问题过于平常,只说姓...
  • wesleyq
  • wesleyq
  • 2015年09月17日 15:21
  • 490

【技术类】【遥感入门系列】5、遥感分类技术

遥感的最终成果之一就是从遥感图像上获取信息,遥感分类是获取信息的重要手段。同时遥感图像分类也是目前遥感技术中的热点研究方向,每年都有新的分类方法推出。 本小节主要内容: 遥感分类基本概念 ...
  • arcgis_all
  • arcgis_all
  • 2012年12月08日 23:29
  • 1587

锐捷网络技术一面

    前些日子投了锐捷网络,吉比特,迅雷,因为是考c语言,所以没怎么准备,就去笔试锐捷了。很惊讶,也很镇静地获得了技术一面。其实只要会做大部分csdn的笔试题,拿到一个面试机会还是比较容易的。因为是...
  • piaomiaoju
  • piaomiaoju
  • 2009年10月16日 18:06
  • 722

京东2015校园招聘技术类笔试题

给定字符串(ASCII码0-255)数组,请在不开辟额外空间的情况下删除开始和结尾处的空格,并将中间的多个连续的空格合并成一个。例如:” i am a little boy. ...
  • lezong2011
  • lezong2011
  • 2016年09月03日 13:47
  • 1569
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:技术类3(delphi)
举报原因:
原因补充:

(最多只允许输入30个字)