Құрастырушы: аға оқытушы Алимова Ж. С

     Inc(j2);
    until scon[j2]=';';
    Delete(scon,j1,j2-j1);
    Insert(sbase,scon,j1);
   end;
end;
function FindFileBD(nmFileBD:string;var scon:string; var 
dlg:TOpenDialog):string;
var   sb:string;
begin
 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);
   end 
  else 
   begin
      ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До 
свидания !');
      sb:='';
   end;
 end;
 Result:=sb;
 if sb<>'' then ChangeBasePath(ConStr,sb);
end;
……………………………………………………….
Тапсырма
Тапсырма
:
:
 Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып,
 Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып,
оларға комментарии жасаңыз
оларға комментарии жасаңыз.
6.
Dialogs
Dialogs 
бетінен
 
TOpenDialog
TOpenDialog
 
 
компонентін   формаға
компонентін   формаға
орналастырыңыз
орналастырыңыз.  
Name
Name қасиетіне 
dlgBD
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;
     NewQuerySQL;
    end 
   else Application.Terminate;
end;
8. Проект   компиляциясын  (CTRL+F9)  орындаңыз.    Егер   де   қате
болмаса   проекті   сақтаңыз,   меню   қатарынан 
File
File
,  
,  
Close
Close
 
 
All
All  таңдап
бағдарламаның жұмысын тексеріңіз оны проводник арқылы жібересіз.
9. Бағдарлама   дұрыс   жұмыс   істейтініне   көз   жеткізіңіз,   файл
BDMyWorld.mdb  бағдарлама   сақталған   жерде   тұрса.   Ол   үшін   бір   жерде
Temp  папкасын   құрып   оған  BDMyWorld.mdb  файлын   және  MyWorld.exe
көшіріп алыңыз. 
10. Temp  папкасынан  BDMyWorld.mdb  файлын   жойып   тастап
MyWorld.exe қайта жіберіңіз.  
11. Осы терезеде өз папкаңызға барыңыз да BDMyWorld.mdb файлын
тауып, «Открыть» батырмасын басыңыз және бағдарламаның дұрыс жұмыс
істейтініне көз жеткізіңіз.
12. Бағдарламаны   жауып   оны   проводник   арқылы   ашыңыз.   Пайда
болған диалогты терезеде «Отмена» батырмасын басыңыз, сол кезде экранда
келесідей мәлімет шығуы керек: 
13. Енді  Temp  папкасына  BDMyWorld.mdb  файлын   көшіріп   алып,
MyWorld.exe қайта ашыңыз. Бағдарлама ешқандай кедергісіз жұмыс жасауы
керек.
INI-файл
INI-файл
дары
дары
 (
 (
Теориялық мәлімдемелер
Теориялық мәлімдемелер
)
)
МҚ – ын оқыту сыныбының басты жүйелік компьютеріне орналастыру
керек деп жорамалдайық, ал басқа компьютерлерге тек қана бағдарламаны
ғана қоямыз (файл – сервер әдісі). 
Бағдарламаны  ашу барысында ол әр дайым оқыту компьютерлерінде
МҚ – ын іздеу жайлы диалогты терезесін шығарып отырады, қолданушыға ол
кедергі туғызады. 
Осы   жағдайдын   алдын   алу   шартына  INI-файлын   қолдану   болып
табылады.
Бұл файлдар көптеген ОЖ  Windowsта басқа да бағдарламаларды құру
жағдайда қолданылады. 
Delphi  –   да    INI-файлмен   жұмыс  «TIniFile»  классының    «inifiles»
модулі арқылы жүзеге асады.

   INI  –файлдарында  секциялар  мен  кілттер  бар,  оларды   аттары
арқылы табады. Windows папкасынан TELEPHON.INI   мәліметтер файлын
мысалға келтірейік:
[Providers]
NumProviders=2
NextProviderID=3
ProviderID0=1
ProviderFilename0=UNIMDM.TSP
ProviderID1=2
ProviderFilename1=WAN.TSP
[Provider1]
NumLines=1
NumPhones=0
[HandoffPriorities]
RequestMakeCall=DIALER.EXE
Құрылған   файлда  3  секция  -   [Providers],   [Provider1]  және
[HandoffPriorities]  бар екендігін көреміз. Секция аттары  тік төртбұрышты
жақшаға алынған. Секциялар ішінде кілттер орналастырылған, әрбір жолдын
теңсіздіктен кейін сол жағынан кілттің аты, ал оң жағынан оның мағынасы.
 Негізгі TiniFile
 кластарына келесілер жатады:
Create
Ini-файлын оқу немесе жазу үшін ашу
Free
Ашылған Ini-файлын жабу
UpdateFile
Файлдан дискіге берілген мәліметтерді жаңарту
SectionExists
Берілген секцияда файлдын бар екендігін тексеру
ValueExists
Берілген   секцияда   кілттін   файлда   бар   екендігін
тексеру 
ReadSections
Барлық секциялар бар екендігін алу
EraseSection
Берілген секцияны оның барлық кілттерімен жою
DeleteKey
Берілген секцияда кілтті жою
ReadSection
Берілген секцияның кілттерін алу
ReadSectionVal
ues
Берілген секцияның барлық кілттерінің (аттарымен)
мағынасын алу
ReadString
Жолдық   мағынадан   кілттер   арқылы   берілген
секцияның оқу
ReadBool
Логикалық   мағынадан   кілттер   арқылы   берілген
секцияның оқу 
ReadDate
Кілт арқылы берілген секцияда күнді оқу
ReadDateTime
Кілт арқылы берілген секцияда күнді және уақытты
оқу 
ReadFloat
Кілт арқылы берілген секцияда анықталғанды оқу 
ReadInteger
Кілт арқылы берілген секцияда бүтін мағынасын оқу
ReadTime
Кілт арқылы берілген секцияда уақытты оқу 
WriteString
Кілт   арқылы   берілген   секцияда   (жаңару)   жолдық
мағынасын жазу