unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry, Buttons, ExtCtrls;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry, Buttons, ExtCtrls;
type
TLinkDB_info = class(TForm)
Memo1: TMemo;
pnllink: TPanel;
pnlclose: TPanel;
procedure btn2Click(Sender: TObject);
procedure pnllinkClick(Sender: TObject);
procedure pnlcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
TLinkDB_info = class(TForm)
Memo1: TMemo;
pnllink: TPanel;
pnlclose: TPanel;
procedure btn2Click(Sender: TObject);
procedure pnllinkClick(Sender: TObject);
procedure pnlcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
{ Private declarations }
public
{ Public declarations }
end;
var
LinkDB_info: TLinkDB_info;
const databaseName='SetCalc'; //数据库名 (SQL中的)
ODBCName='PowerDB'; //ODBC数据源名
Aboutname='发电厂继电保护整定综合管理系统';//数据源描述
implementation
LinkDB_info: TLinkDB_info;
const databaseName='SetCalc'; //数据库名 (SQL中的)
ODBCName='PowerDB'; //ODBC数据源名
Aboutname='发电厂继电保护整定综合管理系统';//数据源描述
implementation
{$R *.dfm}
procedure TLinkDB_info.btn2Click(Sender: TObject);
begin
close;
end;
begin
close;
end;
procedure TLinkDB_info.pnllinkClick(Sender: TObject);
var
registerTemp : TRegistry;
bData : array[ 0..0 ] of byte;
begin
registerTemp : TRegistry;
bData : array[ 0..0 ] of byte;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到Software\ODBC\ODBC.INI\ODBC Data Sources
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( ODBCName,'SQL Server');
end
else
begin//创建键值失败
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
//找到或创建Software\ODBC\ODBC.INI\MGMIS_XDB,写入DSN配置信息
if OpenKey('Software\ODBC\ODBC.INI\'+ODBCName,True) then
begin
WriteString( 'Database', databaseName);//数据库
WriteString( 'Description', Aboutname );//数据源描述
WriteString('Driver','D:\WINDOWS\system32\sqlsrv32.dll' );//驱动程序DLL文件
Writestring( 'LastUser', 'klx');
WriteString( 'Server','(local)' );//Filter依据
Writestring( 'Trusted_Connection', 'Yes' );//支持的事务操作数目
end
else//创建键值失败
begin
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
CloseKey;
memo1.lines.add('连接ODBC数据源成功');
Free;
end;
end;
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( ODBCName,'SQL Server');
end
else
begin//创建键值失败
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
//找到或创建Software\ODBC\ODBC.INI\MGMIS_XDB,写入DSN配置信息
if OpenKey('Software\ODBC\ODBC.INI\'+ODBCName,True) then
begin
WriteString( 'Database', databaseName);//数据库
WriteString( 'Description', Aboutname );//数据源描述
WriteString('Driver','D:\WINDOWS\system32\sqlsrv32.dll' );//驱动程序DLL文件
Writestring( 'LastUser', 'klx');
WriteString( 'Server','(local)' );//Filter依据
Writestring( 'Trusted_Connection', 'Yes' );//支持的事务操作数目
end
else//创建键值失败
begin
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
CloseKey;
memo1.lines.add('连接ODBC数据源成功');
Free;
end;
end;
procedure TLinkDB_info.pnlcloseClick(Sender: TObject);
begin
Close ;
end;
procedure TLinkDB_info.FormCreate(Sender: TObject);
begin
Self.Caption:=Aboutname;
end;
begin
Self.Caption:=Aboutname;
end;
end.