Сурет- 15.5. Формулалар орналастыру

15.6-суретте көрсетілгендей етіп есепберудің статикалық текс аудандарын толтырамыз.

Сурет-15.6. Тауар бойынша топталған есепберу макеті

№4 формасында”Группа” баспасын басу арқылы алдын ала көру терезесін шақырамыз. №4 формадағы TButton компонентін қосамыз, батырмаға уақиға өңдеушісі батырмасын басамыз OnClick:

Form7. QuickRep1.Preview;

15.7-суретте бір топтың подвалы көрсетілген – онда материалдық суммалық кірісі туралы ақпарат шығарылады.

Сурет -15.7. Жуықтап көру терезесіндегі тауар бойынша топтауы көрсетілген есепберу

Фильтрді қолдану арқылы есепберуді қалыптастыру

True орнатылған Filtered қасиеті фильтрацияны инициирлайды, уақиға өңдеушісінде OnFilterRecord шарты жазылған Мысалы, егер ДҚ –да фильтр орнатылса.

begin

Accept := DataSet['KOLVO'] >= 500;

End;

Онда True-ге Table1.Filtered -ті орнату фильтрацияға алып келеді; Онда тек 500 ғана мәні болатын 'KOLVO' өрісі жазбаның мәліметтер жиыны көрсетіледі.

False да Filtered орнату фильтрацияны алып тастауға әкеледі, оның шарттар OnFilterRecord уақиғаларында көрсетіледі

Осылай есепберуді жүргізуге компаненттер көрсетілген енді оны құрастыратын компаненттерді қарастырайық.

Қоймаға түскен материалдарға топтастыру мәліметтерінсіз қарапайым есепберуді құру ;

Қосымшаны ресімдеу. Біз қолданба құру және қосымшаның өңдеу негізін бітірдік. Енді қосымшаны біз аздап бояуымыз керек . app1 қосымшасына бірнеше элементті қосамыз, олар оны қолданғанға ыңғайлы етеді.

Қосымшаға тақырып және пиктограмма береміз Delphi үнсіздікпен әрбір құрылған қосымшаға пиктограмманы меншіктейді. Бірақ пиктограмма арқылы қосымша функциясын оңай анықтау керек. Сонымен қатар ол басқа ортадан керектісін бөліп көрсетуге көмектесуі керек .

Windows және Delphi-де дайын пиктограммалар өте көп . Өз пиктограммаларын құру үшін бейнелеу редакторын қолдануға болады.

Дайын пиктограмманы қосымшамен байланыстыру керек. Ол үшін Project|Options-ты таңдап, Application қаптамасына шертеміз. Title өрісінде Sklad тексін егізіп содан кейін Load Icon батырмасын шертіп пиктограмма файлына сілтейміз.

Тапсырылған тақырып Windows тапсырма панелінде қосымша идентификациясы үшін қолданылады.

Тестирлеу және қолданбаны өңдеу. Тестирлеуден кейін бізде іске қосылмаған шығару/атауы материал меню пункті қолданылады. Жаңа материал қосылу үшін форма құрамыз оған TDBGrid компонентін орналастырып DataSource1 мәнінде DataSource қасиетін орналастырамыз. Tbutton батырма компанентін формаға қосып ол компанентке ат береміз (Name қасиеті) CancelBtn батырма тақырыбын (Caption қасиеті ) ға өзгертеміз. Қолданушы басатын кнопканы кодты батырмамен байланыстырамыз.. Формада OnClick уақиғасын өңдеу процедурасын құру үшін тышқанмен " Жабу"- батырмасын екі рет шерту керек. Редактор кодына келесі кодты жазамамыз.

Сlose;

Form1.Visible := True;

№ 1 формасына көшіп № 8 формадағы шықыру коды менюпунктінде Ввод/Название материала кодын жазамыз.:

Form1.Visible := False;

Form8.Visible := True;

Осымен қолданба дайындығы аяқталды деп санаймыз.

Қосымша . Өмір бір орнында тұрмайды, сол сияқты біздің қосымша өзгерген шарттармен байланысқа түсуі мүмкін. Белгілі бір моментте басқа формадағы есепберу қажет болады, мысалы, қоймадағы материал қандай соммада түскенін көрсету.

Жаңа есепберу формасын (№9 формасы) құрайық . Формаға TQuickRep ( QuickRep1 аты) компанентін орналастырайық , бірақ мәліметтер жиынына ұйымдастыруды Query1 арқылы құрамыз. Бұл DataSet қасиетіне DataModule5.Query1 орнатамыз.Басқа да компаненттер және есепберу аудандарын сатикалық текспен толтырамыз 15.8-суретте көрсетілгендей .

Сурет-15.8. Қорытынды есепберу макеті

Есепберудің соңында барлық түскен материалдардың қортынды соммасын словесдік түрде қосамыз. Ол үшін TQRBand атымен QRBand4 компанентін қосамыз, қасиеті ВапаТуре = rbSummary.

TQRLabel компонентін (аты QRLabel7) QRBand4-ке орнатамыз.

Unit4 –ке көшіп уақиғалар өңдеушісіне OnClick батырма "Итог" мынандай код:

procedure TForm4.Button5Click(Sender: TObject);

var ss: String;

begin

Str(TempTotal,ss);

Form9.QRLabel7.Caption := SumNumToFull(TempTotal);

Form9.QuickRep1.Preview;

end;

Unit5-ке TempTotal айнымалысын анықтаймыз және қоймаға түскен материалдардың TempTotal қортынды соммасына шығару кодын қосамыз..

var

DataModule5: TDataModule5;

TempTotal: Integer;

implementation

AfterOpen қасиетіне тышқанды екі рет шертіп , объект инспекторында Unit5-ті ашып , келесі кодты қосамыз:

procedure TDataModule5.Query1AfterOpen(DataSet: TDataSet);

begin

Query1.First;

TempTotal := 0; { use temp for efficiency }

while not Query1.EOF do

begin

TempTotal := TempTotal + Query1Stoim.Value;

Query1.Next;

end;

SumNumToFull(TempTotal);

end;

Project|Add to Project менюін қолдана отырып, Writesum.pas жазбасына проект модулінің аударма санын қосамыз, модуль листингін қолданбаға келтір.

15.9-суретте алдын ала көру терезесінде қортынды есепберу көрсетілген.

Сурет-15.9. Тауар бойынша есеп беру қорытынды мәнмен

Есепберуді құруды жалғастырамыз. QRBand4 өрісіне TQRLabel (аты QRLabel8) компонентін орналастырамыз, Caption қасиетін "Итого:"-ға өзгертеміз: Тағы бір TQRExpr (аты QRExpr1) компонентін қосып және Expression қасиетінің мәнін SUM(Table1.Stoim) формасын құрайтынын анықтаймыз.