function getCurPath: string;
begin
Result := ExtractFilePath(Application.ExeName);
end;
procedure InitDB(strInit: string);
var i: integer;
begin
with ADOConnection1 do
begin
if Connected then Connected := false;
if strInit <> '' then ConnectionString := strInit;
Open;
end;