Тәжірибелік жұмыс №4. QuickReport арқылы есеп беруді құрайық
Есеп берудің мүмкіндіктері мәліметтер базасының көп тараған түріне жатады. Шығару батырмалары қағазды документтердің барлығында кездеседі. Delphi қолданушыға есеп шығару үшін көптеген компоненттерді ұсынады, олар Qreport бетінде жиналған барлық компоненттер.Осы тәжірибеде QReport компонентасы арқылы есеп берудің онай түрін құрамыз.
Меню қатарынан File, New таңдаймыз да шыққан терезеде Report пиктограммасын белгілеп, Ok батырмасын басамыз.
Экранда «QuickReport1» жаңа формасы пайда болады. File,Save As таңданыз да «MyWorld» папкасында форма үшін модульді unRep атымен сақтаныз.
unRep модулінде implementation секциясына төменде қара шрифтпен берілген жолды қосыныз:
implementation
uses unMain;
{$R *.DFM}
Инспектор объектісінде QuickReport1 формасы үшін енгізу жолын шертіңіз, ол DataSet қасиетіне қажет. Түсірілетін тізімде fmMain.ADOQuery1 мағынасын тандаңыз.
Енді fmMain формасына есеп беру үшін жаңа батырманы орналастырамыз, ол төмендегі суретте көрсетілген:
Name қасиетіне BtnRep батырманы орналастырып, Hint және ShowHint қасиеттері арқылы көмекті орналастырамыз.
Енді BtnRep батырмасын шерткеннен кейін экранда есеп берудің формасы шыққандай әрекет ету қажет. Ол үшін BtnRep батырмасы үшін төменде көрсетілген OnClick оқиғаны өндеушіні құрыңыз:
procedure TfmMain.BtnRepClick(Sender: TObject);
begin
QuickReport1.Preview;
end;
Содан кейін бағдарламаны орындалуы үшін жіберіңіз. Экранда одан әрі көрсетіліп отырғандай хабарлама пайда болатыны бәлкім. Ол хабарламаға жауап ретінде “Yes” батырмасын басыңыз да және жобаны қайта жіберіңіз.
Енді BtnRep батырмасын шерткеннен кейін экранда суретте көрсетілгендей біздің болашақ есеп беруіміздің формасы шығуы керек:
Есеп берудің өзі әлі жоқ, бірақ формада бірқатар батырмаларды көріп отырмыз. Олардың үстінен жасырын көмек беруші сөздерді оқу үшін тышқанның курсорын жүргізіңіз.
Енді Design-time –ға QuickReport1 формасына оралайық.
Біздің алғашқы есеп беруімізді құра бастайық. QuickReport1 формасына QRBand компонентін орналастырыңыз.
Қастиет
Қатиеттің мәні
BandType
rbDetail
Name
BandDetail
Одан кейін BandDetail-ға QRDBText екі компонентін орналастырыңыз. Екеуі үшін fmMain.ADOQuery1-да DataSet қасиетін орналастырыңыз, ал DataField қасиетін біріншісі үшін Атауында, екіншісі үшін Халқында орналастырыңыз.
QuickReport1 формасына тышқанның оң жақ батырмасын шерітіңіз және пайда болған менюден Preview пунктін таңдаңыз.Экранда келесі түрге жақын форма пайда болуы керек:
Тәжірибелік жұмыс №5. Мқ - ында «MyWorld» тасымалдауы
Бағдарламаны басқа бір папкаға немесе басқа компьютерге апару керек деп ойлайық. BDMyWorld.mdb фаылының жолы өзгертілсе, онда сізге дұрыс емес деген хабар шығады да, бағдарлама жұмыс істемейді.
Бағдарлама өз жұмысын міндетті түрде келесілерден бастауы керек:
Файл мен МҚ бағдарламамен бір папкада сақталып тұрғанын тексеру.
Дұрыс сақталынған болса, жұмысты бастау.
Дұрыс емес болса, экранға МҚ – дағы файылды іздеу диалогты терезесін шығару.
Егер де қолданушы диалогты терезеде МҚ – ның файылын тапса, онда жұмысты жалғастыруға болады.
Егер де файыл табылмаса, онда жұмысты аяқтау.
Осы алгоритмді іске асырып көрейік.