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



жүктеу 3,39 Mb.
Pdf просмотр
бет56/64
Дата20.01.2020
өлшемі3,39 Mb.
#27116
түріБағдарламасы
1   ...   52   53   54   55   56   57   58   59   ...   64

WriteBool
Логикалық   жазбаны   берілген   секцияның   кілтіне
жазу
WriteDate
Күнді берілген секцияның кілтіне жазу 
WriteDateTime Уақыт пен күнді берілген секцияның кілтіне жазу 
WriteFloat
Анықталғанды берілген секцияның кілтіне жазу 
WriteInteger
Бүтін мағынаны берілген секцияның кілтіне жазу 
WriteTime
Уақытты берілген секцияның кілтіне жазу 
Қадам_Қадам__2_–_INI-файл__2_–_INI-файл_ын_құру_ын_құру_1._Delphi_менюінде_File,_New'>Қадам
Қадам
 2 –  INI-файл
 2 –  INI-файл
ын құру
ын құру
1. Delphi  менюінде  File,   New    -   ді   таңдаңыз   да   шыққан   диалогты
терезесінде «New» - дан «Text» белгісін таңдап, «OK» басыңыз. 
2. Код редакторында 2 бетті көресіз, олардын біреуі «File1.txt» болып
аталады:
3. Delphi менюінде  File, Save As таңдаңыз да, пайда болған диалогты
терезеде жаңа мәтіндік файлды осы папкада сақтаңыз,  «MyWorld.INI» аты
арқылы сақталған  «MyWorld» проекті орналасқан жерде:
4. Енді мәтіндік редакторда MyWorld.INI бетінде төмендегі екі жолды
басыңыз, 
[Database]
PathBase=C:\Мои документы\Temp\BDMyWorld.mdb 
5. «Сохранить» батырмасын басыңыз.
6.   INI–файлын құрдық,  онда бір  секция –  Database  және бір кілт –
PathBase бар. Осындай файлды «Блокнот» бағдарламасы арқылы құруға да
болады, бірақ Delphi де құрған ыңғайлы.


Қадам
Қадам
 3 – INI-файл
 3 – INI-файл
ын қолдану
ын қолдану
Енді   бағдарлама   жұмысының   алгоритімінің   басын   келесі   түрдей
ауыстырамыз:
1.  Бағдарлама ашылған жерден INI-файлын осы папкада іздейміз.
2. Егер  де   ол   бар   болса,   оны  INI-файлында  көрсетілген   МҚ   –  ның
жолына сәйкес ашамыз. Егер де ол жоқ болса, оны INI-файлында МҚ – ның
жолы болмайды да келесі f) пунктіне көшеміз.
3. Егер де ашылған папкада  INI-файлы жоқ болса, онда  e)  пунктіне
көшеміз. 
4. Егер   де  INI-файлы   болса   және   де    Database  секциясы   немесе
PathBase  кілті табылмаса, онда қате туралы мәлімет шығарамыз да келесі  f)
пунктіне көшеміз.
5. Ашылған  бағдарлама  папкасында  МҚ   файылын іздейміз.  Егер  ол
болса,   оны   ашып   жұмысты   орындаймыз.   Егер   де   ол   жоқ   болса,   онда  f)
пунктіне көшеміз.
6. МҚ   –   ының   файылын   табу   үшін   экранға   диалогты   терезесін
шығарамыз.   Егер   қолданушы   оны   диалогты   терезеде   таба   алмаса,   онда
олармен қоштасып жұмысты аяқтаймыз.
7. Қолданушы МҚ – ының файылын диалогты терезеде тапса, онда
оны бағдарламада берілген жолды сақтау керек. Нақтыландыратын жауапты
табылған жолды INI-файлына сақтаймыз.  
8. Табылған   МҚ   -   мен   байланысамыз   да   бағдарламаның   жұмысын
бастаймыз.
Жаңа   алгоритмді   тексеру   және   нақтылау   үшін   төмендегі
Жаңа   алгоритмді   тексеру   және   нақтылау   үшін   төмендегі
мысалдарды орындаймыз
мысалдарды орындаймыз
:
:
1. Қолданылатын модульдерге inifiles модулін қосамыз.
2. Модуль формасының мәтініне өзгертулер енгіземіз, төмендегі қара
шрифтпен жазылғандарды:
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);
   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;
3.
Назар   аударыңыз!
Назар   аударыңыз!  Келесі қадамға бармай тұрып,  Active  қасиетіне
ADOQuery1 копонентасына  False! мәнін беріңіз.
4. Қолданылған   модельдерге  inifiles  модулін   қосыңыз   және   проекті
компилировать   ету   керек.   Менюдан  CTRL+F9  таңдап  және  далее,   қате
болмаса келесі істі орындаңыз.
5. Бағдарламаны проводник арқылы жіберіп, төмендегі тізімдер арқылы
оның жұмысын тексеріңіз:
a. МҚ – ның файлы да INI-файлы да жіберу папкасында жоқ. 
b. Тек қана INI-файлы  жіберу папкасында бар.
c. МҚ – ның файлы да INI-файлы да жіберу папкасында бар.


жүктеу 3,39 Mb.

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




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

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау