Delphi ортасында есеп жасау

Мақ саты: Есеп жолындағ ы компаненттермен жұ мыс жасау

Есеп – мә ліметтер қ орындағ ы жазулардан қ ұ жат тү рінде аяқ талғ ан нә тиже береді. Ол нә тижені бірден принтерге жіберуге болады. Qreport (Есеп) панелінен TquickRep 3.0.5. компонентін қ ұ ру осы проблеманы шешеді. Qreport панелінің басқ а да компоненттері есептің қ ажетті элементтерін кө рсетуге кө мектеседі. Ә р компоненттің Band деп аталатын жолағ ы болады. Есепте келесі негізгі компоненттер қ олданылады:

Есеп жолағ ы компоненті TQRBand: Есепте белгілі бір элементтерді орналастыру, топтау бейнелеуін кө рсетеді. TquickRep бейнелеуді кө рнекі тү рде орындайды.

Есеп тақ ырыбы компоненті TQRLabel: Tlabel компонентіне ұ қ сас. Есепте қ ажетінше мә тін жазуғ а кө мектеседі.

Шығ ару ө рісі компоненті TQRDBText: Деректер жиынынан ө ріс мә ндерін шығ ару ү шін қ олданылады. Деректер жиыны DataSet қ асиетінде кө рсетіледі. Ал қ ажетті белгілі бір ө ріс DataField қ асиетімен кө рсетіледі. Компонент орналасқ ан жолақ мә ні BandType - rbDetail болуы керек. BandType қ асиетінің одан басқ а да мә ндері бар:

RbTitle – есеп тақ ырыбы

RbPageHeader – жоғ арғ ы колонтитул

RbDetail – жазу тақ ырыбы

RbPageFooter – тө менгі колонтитул

RbSummary – есеп қ ортындысы

RbColumnHeader – бағ ан тақ ырыбы

RbGroupFooter – бө лім тақ ырыбы

RbGroupHeader –бө лім қ ортындысы

Алдын ала қ арау компоненті TQRPreview: Қ ұ рылғ ан есепті баспағ а шығ армай тұ рып алдын ала қ арауғ а кө мектеседі. Ол.шін OnPreview оқ иғ асына Preview ә дісін шақ ырады. Есеп қ ұ руғ а мысал келтірейік: “Тауарлар”, “Клиенттер”, “Тапсырысдар” кестелерін қ олданамыз. Ол ү шін жаң а қ алып қ ұ рамыз. Себебі ә р есеп ә р терезеде қ ұ рылады.

1. File – New Form командасын орындаймыз. Unit1 жә не Unit2 модульдерін байланыстырамыз.

2. Qreport панелінен Form2 қ алыбына QuickRep – жылдам есеп компонентін орналастырамыз. QuickRep1 қ асиетін кө рсетеміз.

3. DataSet - Table1 деп қ олданылатын кестені кө рсетеміз.

4. Bands қ асиетінде “+” батырмасын басамыз:

А) HasTitle - есеп тақ ырыбына берілетін облыс. Тақ ырыпты Qreport панеліндегі QRLabel1 компонентінің кө мегімен жазамыз.

Б) HasColumnHeader – есепте кө рінетін ө рістер атауларына берілетін облыс.

В) HasDetail – кестелерден алынатын деректерге бө лінетін облыс (детализация облысы деп аталады). Оны кө рнекілеу ү шін QRShape1 компонентін қ олданады.

5. Кестеден деректерді шақ ыру QRDBText компонентінің кө мегімен орындалады. Оның екі қ асиетін кө рсетеміз:

А) DataSet - Table1 деп.

Б) DataField - Name, Price, т.б. деп ө ріс атауларын кө рсетеміз.

6. Қ ұ рығ ан есепті кө ру ү шін контекстік мә зірден Preview командасын орындаймыз. Пайда болғ ан терезеде PrintPreview батырмасын басамыз

7. Есеп облыстарының келесі қ асиеттері бар:

1) HasPageFooter – тө менгі колонтитул

2) HasPageHeader – жоғ арғ ы колонтитул, қ осымша QRLabel1, QRLabel2 компоненттерін қ олданып, “Фирма1” дейміз

8.Есептің жалпы қ асиеттері:

1) Options - “+”

2) FirstPageHeader – бірінші бетте жоғ арғ ы колонтитул бар ма, кө рсету (True немесе False).

3) LastPageFooter - соң ғ ы бетте тө менгі колонтитул бар ма, кө рсету (True немесе False)

4) HasSummary – қ ортынды жасау облысы True дейміз. QRLabel1, QrLabel2 компоненттерін орналастырып «Сатып алушы клиенттер саны» т.б. деп жазамыз

9.Form1 қ алыбында “Қ арау” батырмасын орналастырып, оны басқ анда есеп қ ұ ратын программалық кодта Preview ә дісін жазамыз:

Begin

If Radiogroup1.ItemIndex=0 then Begin

Form2.QRLabel14.Caption: =DatetoSte(Date);

Form2.QRLabel16.Caption: =TimetoSte(Time);

End;