將DELPHI資料庫連線寫進INI配置檔案中
阿新 • • 發佈:2019-01-22
procedure TDM.DataModuleCreate(Sender: TObject);
var piececonfg:Tinifile;
pathconfgstr,Providerstr,UserIDstr,
Passwordstr,DataSourceStr,DatabaseNamestr :string;
begin
pathconfgstr:= ExtractFilePath(Application.ExeName);
if pathconfgstr[length(pathconfgstr)]='/' then
begin
pathconfgstr:=pathconfgstr+'piececonfg.ini';
piececonfg:=Tinifile.Create(pathconfgstr);
end
else
begin
pathconfgstr:=pathconfgstr+'/piececonfg.ini';
piececonfg:=Tinifile.Create(pathconfgstr);
end;
if not FileExists(pathconfgstr) then
begin
application.MessageBox('配置檔案不存在!','提示',mb_ok);
application.Terminate;
end;
Providerstr:=piececonfg.ReadString(' DataBaseConfig','Provider','');
UserIDstr:=piececonfg.ReadString('DataBaseConfig','UserID','');
Passwordstr:=piececonfg.ReadString('DataBaseConfig','Password','');
DataSourceStr:=piececonfg.ReadString('DataBaseConfig','DataSource','');
DatabaseNamestr:=piececonfg.ReadString('DataBase Config','DatabaseName','');
if (Providerstr='') or (DataSourceStr='') or (DatabaseNamestr='') then
begin
application.MessageBox('資料庫配置不正確,請重新配置!','提示',mb_ok);
Application.Terminate;
end;
adoconn.Close;
adoconn.ConnectionString:='';
adoconn.ConnectionString:='Provider='+Providerstr+';UserID='+UserIDstr+';
Password='+Passwordstr+';Data Source='+DataSourceStr+
Initial Catalog='+ DatabaseNamestr;
try
adoconn.Connected:=true;
except
application.MessageBox('資料庫配置不正確,請重新配置!','提示',mb_ok);
adoconn.Connected:=false;
application.Terminate;
end;
search:=TstringList.create;
end;
var piececonfg:Tinifile;
pathconfgstr,Providerstr,UserIDstr,
Passwordstr,DataSourceStr,DatabaseNamestr :string;
begin
pathconfgstr:= ExtractFilePath(Application.ExeName);
if pathconfgstr[length(pathconfgstr)]='/' then
begin
pathconfgstr:=pathconfgstr+'piececonfg.ini';
piececonfg:=Tinifile.Create(pathconfgstr);
end
else
begin
pathconfgstr:=pathconfgstr+'/piececonfg.ini';
piececonfg:=Tinifile.Create(pathconfgstr);
end;
if not FileExists(pathconfgstr) then
begin
application.MessageBox('配置檔案不存在!','提示',mb_ok);
application.Terminate;
end;
Providerstr:=piececonfg.ReadString('
UserIDstr:=piececonfg.ReadString('DataBaseConfig','UserID','');
Passwordstr:=piececonfg.ReadString('DataBaseConfig','Password','');
DataSourceStr:=piececonfg.ReadString('DataBaseConfig','DataSource','');
DatabaseNamestr:=piececonfg.ReadString('DataBase
if (Providerstr='') or (DataSourceStr='') or (DatabaseNamestr='') then
begin
application.MessageBox('資料庫配置不正確,請重新配置!','提示',mb_ok);
Application.Terminate;
end;
adoconn.Close;
adoconn.ConnectionString:='';
adoconn.ConnectionString:='Provider='+Providerstr+';UserID='+UserIDstr+';
Password='+Passwordstr+';Data Source='+DataSourceStr+
Initial Catalog='+
try
adoconn.Connected:=true;
except
application.MessageBox('資料庫配置不正確,請重新配置!','提示',mb_ok);
adoconn.Connected:=false;
application.Terminate;
end;
search:=TstringList.create;
end;