вер інтерфейсі програма
Для додавання використовується компонент TQueryс 4 параметрами, отриманими в діалоговому вікні додавання товару на склад.
Зовнішній вигляд вкладки обліку складів і товарів зображений на малюнку 10.
В
Інтерфейс вкладки В«ЗаявкиВ» реалізований за допомогою власних SQL-запитів (через компонент TQuery) і обробників. Таким чином на вкладці було використано два компоненти ComboBox, що дозволяють вибирати тип заявки та її статус. Оброблювачі на зміну цих полів перезавантажують таблицю заявок, таким чином, ми завжди бачимо потрібні нам заявки. На даній вкладці можна додати нову заявку для постачальника, а також прийняти або відхилити прийшла. У цьому випадку відкривається вікно діалогу, що пропонує нам вибрати склад, на який буде відвантажено товар. Особливість SQL-запиту в тому, що вибірка з пропонованих цільових складів містить лише ті склади, на яких даний товар може зберігатися, за умови, що на ньому вистачає місця. Таким чином, не може виникнути ситуації з переповненням складу. Слід також зауважити, що властивість Enabledу кнопок зводиться лише тоді, коли ми вибираємо тип заявки В«НамВ» і статус В«Не розглянутаВ», в інших випадках кнопки неактивні, що дозволяє уникнути помилок. p> Зовнішній вигляд вкладки В«ЗаявкиВ» показаний на малюнку 11.
В
Малюнок 11 - Інтерфейс вкладки "Заявки"
Також реалізовано отримання довідок, виведених в MSExcelс допомогою кнопки « ExcelВ» на деяких вкладках.
4. Текст основних модулів програми
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit2.h"
# include "Unit3.h"
# include "Unit4.h"
# pragma package (smart_init)
# pragma resource "*. dfm" * Form1; TForm1 :: updateQuery ()
{-> Params-> Items [0] -> Value = status; -> Params-> Items [1] -> Value = flag; -> ; Active = false; -> Active = true; -> Update ();
} TForm1 :: addRequest ()
{-> Params-> Items [0] -> Value = supp_name; -> Active = false; -> Active = true; _id = (Query11-> ; FieldByName ("ID")) -> AsInteger; -> Params-> Items [0] -> Value = supp_id; -> Params-> Items [1] -> Value = amount; -> Params-> Items [2] -> Value = price; -> ExecSQL (); -> Active = false; -> Active = true; -> Update ();
}
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{= true; = true; = 0; = 1; ();
}
