delphi读取数据库链接ini文件

最新推荐文章于 2021-12-13 10:54:04 发布

jimmy1980

最新推荐文章于 2021-12-13 10:54:04 发布

阅读量2.2k

点赞数

分类专栏： delphi开发文章标签： delphi 数据库 ini database string security

本文链接：https://blog.csdn.net/jimmy1980/article/details/127631

版权

delphi开发专栏收录该内容

2 篇文章 0 订阅

订阅专栏

unit UnDM;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDM_Tax = class(TDataModule)
    ADOCon_Tax: TADOConnection;
    ADOQry_Tax: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
DM_Tax: TDM_Tax;

implementation
uses IniFiles, Un_TaxMain;

{$R *.dfm}

procedure TDM_Tax.DataModuleCreate(Sender: TObject);
var
ConnStr,provider,password,userid,datasource,initcatalog:String;
inifilename:String;
inifile:TInifile;
begin
inifilename := ExtractFilePath(paramstr(0))+'db.ini';
inifile := TInifile.Create(inifilename);
provider := inifile.ReadString('Database','Provider','SQLOLEDB.1');
userid := inifile.ReadString('Database','User ID','sa');
password := inifile.ReadString('Database','Password','sa');
datasource := inifile.ReadString('Database','Data Source','127.0.0.1');
initcatalog := inifile.ReadString('Database','Initial Catalog','tax');
ConnStr := 'Provider='+provider+';Password='+password+';Persist Security Info=True;User ID='+userid+';Data Source='+datasource+';Initial Catalog='+initcatalog;
inifile.Destroy;
ADOCon_Tax.ConnectionString := ConnStr;
try
ADOCon_Tax.Connected;
except
exit;
end;
end;