: TObject);
{Private declarations}
{Public declarations}; _In_Presence: TForm_In_Presence; Presences;
{$ R *. DFM} _result_data; _In_Presence do begin_Pack_Amount.Text: = '0 '; _Item_Amount.Text: = '0';;; _In_Presence.Button_CloseClick (Sender: TObject);;; _In_Presence.Button_AddClick (Sender:
except ('В поля форми введені неприпустимі дані',
mtError, [mbOK], 0);;; _result_data;; _In_Presence.FormCreate (Sender: TObject); _result_data;;. _Sale;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls; _In_Sale = class (TForm): TLabel;: TLabel;: TLabel; _Add: TButton; _Close: TButton; _Warhouse: TDBLookupComboBox;: TLabel; _Warhouse1: TTable; _Warhouse1: TDataSource ; _Warhouse2: TTable; _Warhouse2: TDataSource;: TLabel; _Book: TDBLookupComboBox; _Book1: TTable; _Book1: TDataSource; _Book2: TTable; _Book2: TDataSource;: TBevel; _Cost: TEdit; _Amount: TEdit; _Date: TEdit; _CloseClick (Sender : TObject); _AddClick (Sender: TObject); (Sender: TObject);
{Private declarations}
{Public declarations}; _In_Sale: TForm_In_Sale; Sales;
{$ R *. DFM} _result_data; _In_Sale do begin_Date.Text: = '01 .01.01 '; _Cost.Text: = '0'; _Amount.Text: = '0 ';;; _In_Sale.Button_CloseClick (Sender: TObject);;; _In_Sale.Button_AddClick (Sender: TObject); _result_data;;. _Warhouse;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls; _In_Warhouse = class (TForm): TLabel;: TLabel;: TLabel; _Add: TButton; _Close: TButton;: TLabel;: TBevel; _Address: TEdit; _Name: TEdit; _Phone: TEdit; _Manager: TEdit; _CloseClick (Sender: TObject); _AddClick (Sender: TObject); (Sender: TObject);
{Private declarations}
{Public declarations}; _In_Warhouse: TForm_In_Warhouse;;
{$ R *. DFM} _result_data; _In_Warhouse do TObject);;; _In_Warhouse.Button_AddClick (Sender:
except ('В поля форми введені неприпустимі дані',
mtError, [mbOK], 0);;; _result_data;; _In_Warhouse.FormCreate (Sender: TObject); _result_data;;
end.
