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

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

жүктеу/скачать 1,89 Mb.

бет	56/100
Дата	06.02.2022
өлшемі	1,89 Mb.
	#53051

1 ... 52 53 54 55 56 57 58 59 ... 100

Байланысты:
БД-зертханалық жұмыс
БД-зертханалық жұмыс

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

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

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,89 Mb.

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

1 ... 52 53 54 55 56 57 58 59 ... 100