ages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;=class (TForm): TDBGrid;: TPanel;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn; FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); bbtInsClick (Sender: TObject); bbtDelClick (Sender: TObject); bbtSaveClick (Sender: TObject); bbtExitClick (Sender: TObject );
{Private declarations}
{Public declarations};: TfmCateg; uDM, uParts, DB;
{$ R *. dfm} TfmCateg.FormShow (Sender: TObject);. tbCateg.Open;. tbCateg.Sort:=«Група»;; TfmCateg.FormClose (Sender: TObject; var Action: TCloseAction);
begin
/ / Набір даних закривається, якщо він не використовується в інших формах:
if not fmParts.Showing then.tbCateg.Close;; TfmCateg.bbtInsClick (Sender: TObject);. tbCateg.Insert;; TfmCateg.bbtDelClick (Sender: TObject);. tbCateg.Delete;; TfmCateg.bbtSaveClick (Sender: TObject); DM.tbCateg.State in [dsEdit, dsInsert] then.tbCateg.Post;; TfmCateg.bbtExitClick (Sender: TObject);;;. uDiapason;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, Buttons, ExtCtrls;=class (TForm): TLabel;: TLabel;: TDateTimePicker;: TDateTimePicker;: TBitBtn;: TBitBtn;: TBevel;
{Private declarations}
{Public declarations}; GetDiapason (var DateFrom, DateTo: TDate): Boolean;: TfmDiapason;
{$ R *. dfm}
/ / Функція повертає діапазон дат, заданий користувачем:
function GetDiapason (var DateFrom, DateTo: TDate): Boolean;. dtpDateFrom.Date:=DateFrom;. dtpDateTo.Date:=DateTo; fmDiapason.ShowModal=mrOK then begin:=fmDiapason.dtpDateFrom. Date;:=fmDiapason.dtpDateTo.Date;:=True;:=False;;. uDM;, Classes, DB, ADODB;=class (TDataModule): TADOConnection;: TADOTable;: TDataSource;: TAutoIncField;: TWideStringField;: TADOTable;: TDataSource;: TAutoIncField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TADOTable;: TDataSource;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField; : TWideStringField;: TWideStringField;: TADOTable;: TDataSource;: TAutoIncField;: TWideStringField;: TWideStringField;: TWideStringField;: TBCDField;: TADOTable;: TDataSource;: TAutoIncField;: TWideStringField;: TIntegerField;: TStringField;: TCurrencyField;: TDataSource ;: TADODataSet;: TAutoIncField;: TDateTimeField;: TDateTimeField;: TIntegerField;: TIntegerField;: TBCDField;: TStringField;: TStringField;: TDataSource;: TADODataSet;: TIntegerField;: TStringField;: TCurrencyField;: TFloatField;: TDataSource;: TADODataSet;: TIntegerField; _ID: TIntegerField;: TBCDField;: TCurrencyField;: TStringField;: TADODataSet;: TADODataSet;: TBCDField;: TStringField;: TADODataSet;: TBCDField;: TADODataSet;: TADODataSet;: TWideStringField;: TFloatField;: TADOTable ;: TDataSource;: TAutoIncField;: TWideStringField;: TWideStringField;: TAutoIncField;: TDateTimeField;: TDateTimeField;: TWideStringField;: TBCDField;: TIntegerField;: TIntegerField;: TFloatField;: TADOTable;: TAutoIncField;: TWideStringField;: TDataSource;: TStringField;: TFloatField;: TADODataSet;: TWideStringField;: TWideStringField;: TWideStringField;: TFloatField;: TBCDFiel...
