Зертханалық жұмыс №1 «Қойма» деректер қорын басқару жүйесін құру


Жаңа алгоритмді тексеру және нақтылау үшін төмендегі мысалдарды орындаймыз



бет56/100
Дата06.02.2022
өлшемі1,89 Mb.
#53051
1   ...   52   53   54   55   56   57   58   59   ...   100
Байланысты:
БД-зертханалық жұмыс

Жаңа алгоритмді тексеру және нақтылау үшін төмендегі мысалдарды орындаймыз:

  1. Қолданылатын модульдерге inifiles модулін қосамыз.

  2. Модуль формасының мәтініне өзгертулер енгіземіз, төмендегі қара шрифтпен жазылғандарды:

function FindFileBD(nmFileBD,nmIniFil:string;var scon:string; var dlg:TOpenDialog): string;
var sb,sIni:string;IniFil:TIniFile;
begin
sb:='';sIni:=ExtractFilePath(ParamStr(0))+ nmIniFil;
if FileExists(sIni) then
begin
IniFil := TIniFile.Create(sIni);
try
sb:=IniFil.ReadString('Database', 'PathBase', '');
if sb='' then ShowMessage('Ошибка INI-файла !'+#13#10+sIni);
finally
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);


Достарыңызбен бөлісу:
1   ...   52   53   54   55   56   57   58   59   ...   100




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет