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



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  папкасын  құрып  оған 


Достарыңызбен бөлісу:
1   ...   128   129   130   131   132   133   134   135   ...   180




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

    Басты бет