if MessageDlg('Сохранить путь к БД в настройках программы?',
mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
IniFil := TIniFile.Create(sIni);
try
IniFil.WriteString('Database', 'PathBase', sb);
except
ShowMessage('Ошибка INI-файла !'+#13#10+sIni);
end;
IniFil.Free;
end;
end else begin
ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До свидания !');
sb:='';
end;
end;
Result:=sb;
if sb<>'' then ChangeBasePath(ConStr,sb);
end;
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;
begin
sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);
if sbase<>'' then begin
ADOQuery1.Active :=False;
ADOQuery1.ConnectionString :=ConStr;
ADOQuery1.Active :=True;
NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;
NewQuerySQL;
end else Application.Terminate;
end;
Достарыңызбен бөлісу: |