буде працювати компонент tbKass. У вікні Structure натисніть праву кнопку на елементі Fields. Збережіть проект повністю. Аналогічно додаємо Вид касира, товар, одиниці виміру, покупки, чеки.
Рисунок 3 - Організація доступу до бази даних через ADOConnection і ADOTable
3. Розробка інтерфейсу введення довідника касирів
база дані касир інтерфейс
Довідники найзручніше вести у вигляді таблиці. Для реалізації такого підходу створюється форма з відповідними елементами.
Для того, щоб форма показувалася тільки за викликом з головного меню, перейдемо в параметри проекту: Project -> Options. Тепер необхідно перевести форму зі стану Auto-Сreate в Available. Для того, щоб викликати довідник з меню, перейдемо в основному вікні в модуль frmMain і в режимі Code (закладка внизу основного вікна) додамо після implementation рядок Uses frmKassir, повернуться назад в режим Design. У лівому верхньому вікні Structure розкриємо повністю головне меню (MainMenu1) і двічі клацнемо на пункті Касири.
І у вікні, коду після рядка begin додаємо TfmKassir.Create (Application).
Додаємо на форму кнопки, TBGrid, datasource, і вказуємо властивості
- для Button1:
Caption - Новий запис-Style - fsBold - True-btNewRecord
- для Button2:
Caption - Видалити запис-Style - fsBold - True-btDelRecord
- для Button3:
Caption - Закрити-Style - fsBold - True-btClose
- для DataSource1:
DataSet - mdKassirDB.tbKass-Active - True
- для DBGrid1:
DataSource - DataSource1-dgColumnResize - False
Додавання нового запису в довідник касира
mdKassirDB.tbKass.Append;. SetFocus;
Таким же чином додайте обробник події натискання кнопки btDelRecord («Видалити запис»). У полі коду напишіть:
Видалення запису з довідника касира
if dbgrid1.DataSource.DataSet.RecordCount <> 0 then begin
mdUspDB.tbKassirDB.Delete;. tbKassirDB.Refresh;;
Для btClose ("Закрити") напишіть наступний обробник події натискання кнопки:
Закриття форми довідника касира
Close;
Тепер додайте обробники подій відкриття і закриття форми. При відкритті нам потрібно, щоб користувач відразу потрапляв на таблицю. Тому, виберіть у режимі Design всю форму fmKassir , клацнувши на заголовку форми в головному вікні. Потім, у вікні Object Inspector виберіть вкладку Events , і для події OnActivate напишіть обробник:
Установка покажчика відразу на таблицю спеціальностей.SetFocus;
Для події