1unit CategoriesForm;
 2
 3interface
 4
 5uses
 6        Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.GraphUtil,
 7        Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls,
 8        Vcl.Mask, System.TimeSpan, System.Diagnostics, TL.Components;
 9
10type
11
12        TfrmCategories = class(TLForm)
13                Panel1: TPanel;
14                Panel2: TPanel;
15                GridCategories: TLDBGrid;
16                GridSubcategories: TLDBGrid;
17                LDBGrid1: TLDBGrid;
18                LDBGrid2: TLDBGrid;
19                Splitter1: TSplitter;
20                procedure FormClose(
21                  Sender: TObject;
22                  var Action: TCloseAction);
23                procedure FormActivate(Sender: TObject);
24        private
25                { Private declarations }
26        public
27                { Public declarations }
28        end;
29
30var
31        frmCategories: TfrmCategories;
32
33implementation
34
35{$R *.dfm}
36
37uses
38        DataModule;
39
40procedure TfrmCategories.FormActivate(Sender: TObject);
41begin
42        dm.DataSourceMutaties.DataSet.Filtered:= True;
43end;
44
45procedure TfrmCategories.FormClose(
46  Sender: TObject;
47  var Action: TCloseAction);
48begin
49        if Self.GridCategories.DataSource.DataSet.State = dsEdit then
50                GridCategories.DataSource.DataSet.Post;
51        if Self.GridSubcategories.DataSource.DataSet.State = dsEdit then
52                Self.GridSubcategories.DataSource.DataSet.Post;
53end;
54
55end.
56