安装时能自动建立BDE吗?如何设置?在线等待!(100分)

  • 主题发起人 主题发起人 lai_ke
  • 开始时间 开始时间
L

lai_ke

Unregistered / Unconfirmed
GUEST, unregistred user!
用INSTALLSHIELD FOR DELPHI5 在制作安装时如何设置在安装时
能自动建立指定的SQL-SEVER,数据名,用户与密码等?
 
恐怕不行,你最好另作一个程序来设置!
 
我帮你找一下!
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=587196
 
因为我公司有许多工作站均需要使用这个系统,如果是一个一个工作站去设置,很烦人。
如果我能在建立安装盘时能加入指定的SQL-SEVER,数据名,用户与密码等,这样我就可
以在软件安装过程自动建立BDE。行吗?
 
你可看看下面的代码。
VAR
registerTemp : TRegistry;
PathName: array[0..MAX_PATH] of char;
{$R *.RES}
begin
//**************************************
// 創建ODBC數据源--MRP // 2002/3/29
// 編程: 丁繼東 //
//**************************************
{GetSystemDirectory(PathName, MAX_PATH);
copydir(ExtractFilePath(Application.EXEName)+'updbpl',strpas(PathName));}
GetTempPath(MAX_PATH, @PathName);
registerTemp := TRegistry.Create;
//建立一個Registry實例
with registerTempdo
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
//注冊一個DNS名稱
WriteString( 'MRP', 'SQL Server' );
end
else
begin
//創建鍵值失敗
Application.messagebox('ODBC數据源創建失敗!!!'#10#13'請与丁繼東聯絡.','ODBC錯誤',0);
Application.Terminate;
//exit;
end;
CloseKey;
//找到或創建Software/ODBC/ODBC.INI/MyTest,加入DSN配置信息
if OpenKey('Software/ODBC/ODBC.INI/MRP',True) then
begin
WriteString( 'DataBase', 'MRPII' );//數据庫名
WriteString( 'Driver', string(PathName)+'sqlsrv32.dll' );//所需程序DLL文件
WriteString( 'LastUser', 'SA' );//用戶名
if not ValueExists('Server') then
WriteString( 'Server', 'KHSQL' );//服務器名稱
end
else
//創建鍵值失敗
begin
Application.messagebox('ODBC數据源創建失敗!!!'#10#13'請与丁繼東聯絡.','ODBC錯誤',0);
//showmessage('ODBC數据源創建失敗!!!'#10#13'請与丁繼東聯絡.');
Application.Terminate;
//exit;
end;
CloseKey;
if OpenKey('Software/Borland/Database Engine/Settings/System/INIT',false) then
begin
WriteString('SQLQRYMODE','SERVER');
WriteString('SYSFLAGS','0');
WriteString('MTS POOLING','TRUE');
WriteString('LOW MEMORY USAGE LIMIT','32');
WriteString('MAXBUFSIZE','16384');
WriteString('MAXFILEHANDLES','120');
WriteString('SHAREDMEMSIZE','16384');
WriteString('MEMSIZE','128');
WriteString('MINBUFSIZE','8192');
end;
CloseKey;
if OpenKey('Software/Borland/Database Engine/Settings/DRIVERS/SQL Server/INIT',false) then
begin
WriteString('DRIVER FLAGS','0');
WriteString('TYPE','SERVER');
end;
CloseKey;
if OpenKey('Software/Borland/Database Engine/Settings/DRIVERS/SQL Server/DB OPEN',false) then
begin
WriteString('BLOB SIZE','32');
WriteString('BLOB TO CACHE','64');
WriteString('ENABLE BCD','TRUE');
WriteString('SQLPASSTHRU MODE','SHARED NOAUTOCOMMIT');
WriteString('SQLQRYMODE','SERVER');
end;
CloseKey;
Free;
end;
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部