当前位置:主页>仓库管理软件> 列表

动态连接数据库

进销存管理软件版1楼: 名位大侠:
本人遇到一个急需解决的问题:在进入系统前检测数据库是否连上,没连接上的话就自动弹出连接数据库的对话框,连上了的话则顺利进入系统。问题的关键是在哪里检测以及如何保存连接参数。这个问题可能没有描述清楚,但大概就是这个意思。请各位问题指点指点小弟,急!Thank you!!!

2楼: 用INI文件 如服装进销存管理

3楼: 保存在INI文件或者注册表中
系统启动时读取相应的参数然后连接数据库

4楼: 在什么地方也可以检测呀,在工程文件里或者在主窗体oncreate时都可以呀,连接参数保存成*.ini或者*.txt都可以。

5楼: 在工程文件里写,在GetConnectionStr 函数中从注册表中读取连接信息(可加密),在 DatabaseLogin函数 中弹出连接数据库配置窗口。
下面是代码:
SplashForm.DisplayProcess(''正在读取数据库连接信息...'');
splashform.Update;
Application.CreateForm(TGlobalDMForm, GlobalDMForm);
with GlobalDMForm.AdoConn do
begin
StrPCopy(Appinfo.ConnectionStr, GetConnectionStr);
if Appinfo.ConnectionStr = '''' then begin SplashForm.Free; GlobalDMForm.Free; Halt; end;
SplashForm.DisplayProcess(''数据库连接信息读入完毕 '', ShortDelay);
ConnectionString := Appinfo.ConnectionStr;
LoginPrompt := False;
KeepConnection := True;
SplashForm.DisplayProcess(''正在连接向数据库...'', 0);
try
Connected := True;
SplashForm.DisplayProcess(''已经与数据库建立连接'', ShortDelay);
SplashForm.Repaint;
except
Application.MessageBox(''存放的数据库连接信息已经损坏,无法连接到指定的数据库,请重新指定连接信息'', nil);
SplashForm.DisplayProcess(''正在设定数据库连接信息...'');
if DatabaseLogin <> idOk then Halt;
ConnectionString := Appinfo.ConnectionStr;
SplashForm.DisplayProcess(''正在连接向数据库...'', 0);
Connected := True;
SplashForm.DisplayProcess(''已经与数据库建立连接'', ShortDelay);
SplashForm.Repaint;
end;
end;

6楼: 前面的高手们说的差不多了,用ini文件很好使得

进销存管理软件版7楼: 接受答案了.