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

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

Pdf көрінісі

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

1 ... 128 129 130 131 132 133 134 135 ... 180

Байланысты:
УМК-ОББ

      sb:='';
   end;
end;
Result:=sb;
if sb<>'' then ChangeBasePath(ConStr,sb);
end;
……………………………………………………….
Тапсырма: Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып, оларға
комментарии жасаңыз.
6.
Dialogs  бетінен  TOpenDialog  компонентін  формаға  орналастырыңыз.    Name
қасиетіне dlgBD мағынасын беріңіз.
7.
Енді  төмендегі  қара  шрифтпен  жазылғанды    өндеуші  OnCreate  формасына
енгізіңіз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;
begin
   sbase:=FindFileBD('BDMyWorld.mdb',ConStr,dlgBD);
   if sbase<>'' then
    begin
     ADOQuery1.Active :=False;
     ADOQuery1.ConnectionString :=ConStr;
     ADOQuery1.Active :=True;
     NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;

136

     NewQuerySQL;
    end
   else Application.Terminate;
end;
8.
Проект компиляциясын (CTRL+F9) орындаңыз.  Егер де қате болмаса проекті
сақтаңыз,  меню  қатарынан  File,  Close  All  таңдап  бағдарламаның  жұмысын  тексеріңіз  оны
проводник арқылы жібересіз.
9.
Бағдарлама  дұрыс  жұмыс  істейтініне  көз  жеткізіңіз,  файл  BDMyWorld.mdb
бағдарлама  сақталған  жерде  тұрса.  Ол  үшін  бір  жерде  Temp  папкасын  құрып  оған

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

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

1 ... 128 129 130 131 132 133 134 135 ... 180