procedure TSQLConnection.DataModuleCreate(Sender: TObject);
var
path,connect:string;
info:TStringList;
begin
TSQLConnection.Connected:=false;
path:=ExtractFilePath(ParamStr(0));
connect:=path+'config/Connect.ini';
if not FileExists(connect) then
begin
showmessage('数据库未配置！！！');
end;
info:=TStringList.Create;
info.Clear;
info.LoadFromFile(connect);
connect:=info.Strings[0];
path:=info.Strings[1];
TSQLConnection.Params.Values['User_Name']:='sysdba';
TSQLConnection.Params.Values['Password']:='masterkey';
TSQLConnection.Params.Values['Database'] :=connect+':'+path;
try
TSQLConnection.Connected:=true;
except
ShowMessage('系统错误！！！');
application.Terminate;
end;
end;
]