连接数据库

最新推荐文章于 2024-09-21 11:30:16 发布

dragon191

最新推荐文章于 2024-09-21 11:30:16 发布

阅读量706

点赞数

分类专栏： delphi技巧文章标签： security string function 数据库

delphi技巧专栏收录该内容

9 篇文章 0 订阅

订阅专栏

var
OptionIni : TIniFile;

function TDM_Frm.optionSet(conn: TAdoConnection; Param: string): boolean;
var
serverName ,UserName,pwd, DBName : string;
begin
result := True;
try
    serverName := OptionIni.ReadString('SOFT','ServerName','');
    USerName   := OptionIni.ReadString('SOFT','UserName','');
    pwd   := OptionIni.ReadString('SOFT','Password','');
    dbName   := OptionIni.ReadString('SOFT','DbName','');
    if conn.Connected then conn.Connected := False;

    conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + UserName +
     ';password = ' + pwd +
     ';Initial Catalog=' + DBName;

if ServerName <> '' then
conn.ConnectionString := conn.ConnectionString + ';Data Source=' + ServerName;

conn.ConnectionString := conn.ConnectionString + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';

    conn.Connected := True;
except
    serverName := OptionIni.ReadString('SOFT','ServerName','');
    USerName   := OptionIni.ReadString('SOFT','UserName','');
    pwd   := OptionIni.ReadString('SOFT','Password','');
    dbName   := OptionIni.ReadString('SOFT','DbName','');
    if conn.Connected then conn.Connected := False;

    conn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + UserName +
     ';password = ' + pwd +
     ';Initial Catalog=' + DBName + FormatDateTime('YYYY',now);

if ServerName <> '' then
conn.ConnectionString := conn.ConnectionString + ';Data Source=' + ServerName;

conn.ConnectionString := conn.ConnectionString + ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';

conn.Connected := True;

result := False;
end;
end;

procedure TDM_Frm.DataModuleCreate(Sender: TObject);
begin
appPath := getApplicationPath;
OptionIni := TIniFile.Create(AppPath + 'Config.ini');
optionSet(adoConn);
end;