r (DateTimePicker1. Date);. Filter: = 'Data_zak =' +'''' + a +'''';
end;
для фільтрації по группеTForm1. Button7Click (Sender: TObject); a: string [20];. Filtered: = True;: = 'Group =';. Filter: = a +'''' + Edit2. Text +'''';;
для фільтрації за кількістю в упаковці
procedure TForm1. Button8Click (Sender: TObject);. Filtered: = True;. Filter: = 'Kol_up =' + Edit3. Text;;
Щоб реалізувати скидання фільтра, додамо в форму ще один компонент Button, для його властивості OnClick напишемо наступну процедуру:
procedure TForm1. Button6Click (Sender: TObject);. Filtered: = False;. Text: = 'Введіть ім'я групи';. Text: = 'Введіть число';;
На малюнку 5 показано приклад роботи фільтра по імені групи.
В
Рисунок 5 - Фільтрація за імені групи
Згідно з завданням необхідно обчислити загальну вартість ліків на складі та загальну вартість на складі конкретної групи, група ліків вводиться.
Для реалізації першої умови додамо на форму компоненти Button і Lable (Lable будемо використовувати для відображення результату обчислення).
Для властивості OnClick компоненту Button напишемо процедуру підрахунку, організовану за коштами циклу while:
procedure TForm1. Button3Click (Sender: TObject);: real;: = 0;. First; not Table1. eof do {Цикл з передумовою}: = sumk + Table1 ['Cena'] * Table1 ['Kol_skl']; {Тіло циклу}. Next;;. Caption: = 'Сумарна вартість ліків на складі =' + FloatTostr (sumk);
end;
Для організації другої умови трохи усложним цю процедуру: Знову додамо на форму компоненти Button, Lable і поле Edit для введення назви групи.
Для властивості OnClick компоненту Button напишемо:
procedure TForm1. Button4Click (Sender: TObject);: real; st1;: = 0;. First; not Table1. eof do {Цикл з передумовою} Table1 ['Group'] <> Edit1. Text then {Тіло циклу} st1;: = sumg + Table1 ['Cena'] * Table1 ['Kol_skl'];: Table1. Next;;. Caption: = 'Сумарна вартість ліків у групі' + Edit1. Text + '=' + FloatTostr (sumg);;
На малюнку 6 показані результати роботи обох обчислень.
В
Рисунок 6 - Результат роботи обчислень.
Висновок
У ході виконання курсової роботи були виконані всі поставлені завдання і розроблено працездатний додаток для роботи з таблицею "Ліки . Зокрема, розроблена і описана предметна область прог...
