技术类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.
 

【微软2014实习生及秋令营技术类职位在线测试】题目3 : Reduce inversion count

时间限制:10000ms 单点时限:1000ms 内存限制:256MB Description Find a pair in an integer array that swapping t...

【技术类】【遥感入门系列】3、遥感电磁辐射与遥感过程

遥感电磁辐射是比较难理解也是非常重要的内容,对于一般学习遥感专业的人来说,只需要学习个大概,这个大概主要包括你需要理解几个概念以及能从电磁辐射原理上解释一些遥感现象,进而为遥感过程的理解打下一个基础,...

360公司2015年秋季校园招聘笔试考卷(技术类 D)部分试题程序验证和解析3

360公司2015年秋季校园招聘笔试考卷(技术类 D)部分试题程序验证和解析3 有代码验证和解析...

.net技术类面试、笔试题汇总3

今天本人从成都回到了学校,深刻认识了自己存在很多不足,在这段期间会更加努力,争取早日找到一个好工作! 41、在ASP.NET中有Button控件myButton,要是单击控件时,导航到其他页面htt...

【技术类】【ArcGIS对国产卫星的支持】篇2:资源三号(ZY-3)卫星影像数据介绍

为啥这里要对资源三号(ZY-3)卫星影像做介绍呢?情况是这样嘀,前面说了,中国卫星Raster Type扩展提供了5类Raster Type,分别支持HJ卫星、ZY-02C卫星以及ZY-3卫星,ZY-...

Pixy CMUcam5技术类博文(3)

STM32F401 Cannon(juma版例程)与Pixy通信写法与讲解(HAL库) juma官方例程下载: github直接克隆下载:克隆命令为git clone...
  • xnq0523
  • xnq0523
  • 2017年06月10日 15:06
  • 328

【技术类】【ArcGIS对国产卫星的支持】篇3:ArcGIS中实现Level 1级影像产品校正

LEVEL 1级ZY-3影像数据没有进行几何校正。栅格产品可以通过简单拖拽实现单景多光谱、全色、前视、后视影像数据的几何校正。       1、单景影像几何校正    (1) 在Arc...

2G技术类资料

  • 2012年10月01日 14:31
  • 39KB
  • 下载

.net技术类面试、笔试题汇总1

1、简述 private、 protected、 public、 internal 修饰符的访问权限。  private : 私有成员, 在类的内部才可以访问。 protected : 保护成员,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:技术类3(delphi)
举报原因:
原因补充:

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