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


if MessageDlg('Сохранить путь к БД в настройках программы?'



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

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;



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




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

    Басты бет