d;: TFloatField; _ID: TIntegerField;: TBCDField;: TFloatField;: TDateTimeField;: TDateTimeField;: TFloatField;: TStringField;: TFloatField ;: TStringField;: TStringField; tbPartsCalcFields (DataSet: TDataSet); dstJobsCalcFields (DataSet: TDataSet); dstOrderPartsCalcFields (DataSet: TDataSet); DataModuleDestroy (Sender: TObject);
{Private declarations}
{Public declarations};: TDM;
{$ R *. dfm}
/ / Розрахунок суми кожної позиції аксесуарів на складі:
procedure TDM.tbPartsCalcFields (DataSet: TDataSet);. FieldByName («Сума»). Value: =. FieldByName («Кількість»). Value * DataSet.FieldByName («Ціна») . Value;
end;
/ / Розрахунок суми по кожній позиції продукції на замовлення:
procedure TDM.dstJobsCalcFields (DataSet: TDataSet);. FieldByName («Сума»). Value: =. FieldByName («Кількість»). Value * DataSet.FieldByName («Вартість») . Value;
end;
/ / Розрахунок суми по кожній позиції витраченої аксесуара за замовленням:
procedure TDM.dstOrderPartsCalcFields (DataSet: TDataSet);. FieldByName («Сума»). Value: =. FieldByName («Кількість»). Value * DataSet.FieldByName («Ціна») . Value;; TDM.DataModuleDestroy (Sender: TObject);. Close;;. uInfo;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;=class (TForm ): TLabel;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TBitBtn;: TBitBtn;: TDBMemo;: TBevel; FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TfmInfo; uDM, DB;
{$ R *. dfm} TfmInfo.FormShow (Sender: TObject);. tbInfo.Open;; TfmInfo.FormClose (Sender: TObject; Action: TCloseAction);. tbInfo.Close;; TfmInfo . BitBtn1Click (Sender: TObject); DM.tbInfo.State=dsEdit then.tbInfo.Post;;; TfmInfo.BitBtn2Click (Sender: TObject);. tbInfo.Cancel;;;. uMain;, Messages, SysUtils, Variants, Classes , Graphics, Controls, Forms,, StdCtrls, Buttons, XPMan, ImgList, ActnList, StdActns,, ActnMan, ToolWin, ActnCtrls, ActnMenus, jpeg, ExtCtrls,, ComCtrls, Grids, DBGrids;=class (TForm): TXPManifest;: TActionManager ;: TImageList;: TFileExit;: TAction;: TAction;: TAction;: TAction;: TAction;: TAction;: TAction;: TPanel;: TPanel;: TDBGrid;: TDBGrid;: TSplitter;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TGroupBox;: TCheckBox;: TCheckBox;: TDateTimePicker;: TDateTimePicker;: TCheckBox;: TDBLookupComboBox;: TDBGrid;: TSplitter;: TAction;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn; : TAction;: TAction;: TActionMainMenuBar; acSpravReqExecute (Sender: TObject); acSpravSpecExecute (Sender: TObject); acSpravClientsExecute (Sender: TObject); acSpravStaffExecute (Sender: TObject); acSpravStoreExecute (Sender: TObject); acRepStatExecute (Sender: TObject) ; acSpravGroupExecute (Sender: TObject); FormShow (Sender: TObject); bbtPrintClick (Sender: TObject); DBGrid1TitleClick (Column: TColumn); chbDate1Click (Sender: TObject); FormCreate (Sender: TObject); bbtInsClick (Sender: TObject); bbtSaveClick (Sender: TObject); bbtDel...
