Шығыс Қазақстан облысының білім басқармасы

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	139/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 135 136 137 138 139 140 141 142 ... 180

if MessageDlg(Сохранить путь к БД в настройках программы, mtConfirmation,[mbYes,mbNo],0)=mrYes then begin IniFil := TIniFile.Create(sIni);
IniFil.Free; end;
MyWorld.INI

    IniFil.Free;
   end;
end;
if sb='' then sb:= ExtractFilePath(ParamStr(0))+ nmFileBD;
if Not(FileExists(sb)) then
  begin
  //Настройка диалога:
  dlg.Filter:='Файл  ' +nmFileBD+'|'+nmFileBD;
  dlg.Title :='Найдите файл базы данных !';
  dlg.InitialDir:=ExtractFilePath(ParamStr(0));
  if dlg.Execute then begin
   sb:=dlg.FileName;ChangeBasePath(scon,sb);
   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;

140

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;

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу:

1 ... 135 136 137 138 139 140 141 142 ... 180