签到天数: 37 天 [LV.5]常住居民I
- 积分
- 128
|
发表于 2021-4-3 20:33:32
|
显示全部楼层
if Config.g_dbType = 'MSSQL' then
begin
MyData.Con.ConnectString := Format(g_SqlString, [config.g_SQL_USERNAME,
config.g_SQL_PassWord,
config.g_SQL_IP,
config.g_SQL_Port,
config.g_Sql_DBNAME]);
//用户名
//密码
//ip地址
//端口
//数据库名
try
MyData.Con.Open;
if MyData.Con.Connected = true then
begin
MainOutMessage('5) SQL数据库连接成功...');
end;
except
MainOutMessage('5) SQL数据库连接失败...');
Exit;
end;
end
else
begin
AccountDB := TFileIDDB.Create(Config.sIdDir + 'Id.DB');
end; |
|