te (Application);; TfmMain.N7Click (Sender: TObject);. Create (Application);; TfmMain.N6Click (Sender : TObject);. Create (Application);;
end.
Додаток 2
Програмний код форми для оперативної інформації «Чеки»
unit frmChek;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, Grids, DBGrids, jpeg, ExtCtrls, Buttons;=class (TForm): TDBGrid;: TDataSource;: TButton;: TButton;: TButton;: TLabel;: TSpeedButton;: TSpeedButton; btNewRecordClick (Sender: TObject); btDelRecordClick (Sender: TObject); btCloseClick (Sender: TObject); FormActivate (Sender: TObject); FormClose ( Sender: TObject; var Action: TCloseAction); SpeedButton1Click (Sender: TObject); SpeedButton2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TfmChek; frmEd, frmKassir, frmMain, frmPokupki, frmTov, frmVid, ModKassirDB,, frmOtc2;
{$ R *. dfm} TfmChek.btNewRecordClick (Sender: TObject);. tbChek.Append;. SetFocus;; TfmChek.btDelRecordClick (Sender: TObject); dbgrid1.DataSource.DataSet.RecordCount < > 0 then begin.tbChek.Delete;. tbChek.Refresh;;; TfmChek.btCloseClick (Sender: TObject);;; TfmChek.FormActivate (Sender: TObject);. SetFocus;; TfmChek.FormClose (Sender: TObject; var Action: TCloseAction);:=caFree;; TfmChek.SpeedButton1Click (Sender: TObject);. QuickRep1.Preview;; TfmChek.SpeedButton2Click (Sender: TObject);. QuickRep1.Preview;;.
Додаток 3
Програмний код форми для оперативної інформації «Покупки»
unit frmPokupki;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, Grids, DBGrids;=class (TForm): TDataSource;: TButton;: TButton;: TButton;: TDBGrid; btNewRecordClick (Sender: TObject); btDelRecordClick (Sender: TObject); btCloseClick (Sender: TObject); FormActivate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations};: TfmPokupki; frmEd, frmKassir, frmMain, frmTov, frmVid, ModKassirDB;
{$ R *. dfm} TfmPokupki.btNewRecordClick (Sender: TObject);. tbPokupki.Append;. SetFocus;; TfmPokupki.btDelRecordClick (Sender: TObject); dbgrid1.DataSource.DataSet.RecordCount < > 0 then begin.tbPokupki.Delete;. tbPokupki.Refresh;;; TfmPokupki.btCloseClick (Sender: TObject);;; TfmPokupki.FormActivate (Sender: TObject);. SetFocus;; TfmPokupki.FormClose (Sender: TObject; var Action: TCloseAction);:=caFree;;.
Додаток 4
Керівництво користувача
Після того, як Ви запустите програму, перед вами з'явиться головне меню програми, що містить пункти:
- «Касири»,
- «Види товарів»,
- «Товари»,
- «Одиниці виміру»,
- «Чеки»,
- «Покупки»
Натиснувши на який або пункт, ви потрапите на нову форму, яка дозволить Вам модифікувати таблицю відповідних сутностей за допомогою інтерфейсу користувача.
Також поруч розташовані 3 кнопки