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;
Проект компиляциясын (CTRL+F9) орындаңыз. Егер де қате болмаса проекті сақтаңыз, меню қатарынан File, Close All таңдап бағдарламаның жұмысын тексеріңіз оны проводник арқылы жібересіз.
Бағдарлама дұрыс жұмыс істейтініне көз жеткізіңіз, файл BDMyWorld.mdb бағдарлама сақталған жерде тұрса. Ол үшін бір жерде Temp папкасын құрып оған BDMyWorld.mdb файлын және MyWorld.exe көшіріп алыңыз.
Temp папкасынан BDMyWorld.mdb файлын жойып тастап MyWorld.exe қайта жіберіңіз.
Осы терезеде өз папкаңызға барыңыз да BDMyWorld.mdb файлын тауып, «Открыть» батырмасын басыңыз және бағдарламаның дұрыс жұмыс істейтініне көз жеткізіңіз.
Бағдарламаны жауып оны проводник арқылы ашыңыз. Пайда болған диалогты терезеде «Отмена» батырмасын басыңыз, сол кезде экранда келесідей мәлімет шығуы керек:
Енді Temp папкасына BDMyWorld.mdb файлын көшіріп алып, MyWorld.exe қайта ашыңыз. Бағдарлама ешқандай кедергісіз жұмыс жасауы керек.
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 |
Берілген секцияның кілттерін алу |
ReadSectionValues |
Берілген секцияның барлық кілттерінің (аттарымен) мағынасын алу |
ReadString |
Жолдық мағынадан кілттер арқылы берілген секцияның оқу |
ReadBool |
Логикалық мағынадан кілттер арқылы берілген секцияның оқу |
ReadDate |
Кілт арқылы берілген секцияда күнді оқу |
ReadDateTime |
Кілт арқылы берілген секцияда күнді және уақытты оқу |
ReadFloat |
Кілт арқылы берілген секцияда анықталғанды оқу |
ReadInteger |
Кілт арқылы берілген секцияда бүтін мағынасын оқу |
ReadTime |
Кілт арқылы берілген секцияда уақытты оқу |
WriteString |
Кілт арқылы берілген секцияда (жаңару) жолдық мағынасын жазу |
WriteBool |
Логикалық жазбаны берілген секцияның кілтіне жазу |
WriteDate |
Күнді берілген секцияның кілтіне жазу |
WriteDateTime |
Уақыт пен күнді берілген секцияның кілтіне жазу |
WriteFloat |
Анықталғанды берілген секцияның кілтіне жазу |
WriteInteger |
Бүтін мағынаны берілген секцияның кілтіне жазу |
WriteTime |
Уақытты берілген секцияның кілтіне жазу |