unit u_sys_module;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, dxtree, dxExEdtr, DB, ADODB,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, dxdbtree, Buttons;

type
  Tfrm_sys_module = class(TForm)
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    qry_sys_code: TADOQuery;
    dsr_sys_code: TDataSource;
    qrymodule: TADOQuery;
    dsrmodule: TDataSource;
    dxDBGrid2: TdxDBGrid;
    Splitter1: TSplitter;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1fmoduleid: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridLookupColumn;
    dxDBTreeView1: TdxDBTreeView;
    Splitter2: TSplitter;
    BitBtn1: TBitBtn;
    dxDBGrid2fmoduleid: TdxDBGridMaskColumn;
    dxDBGrid2PID: TdxDBGridMaskColumn;
    dxDBGrid2Column3: TdxDBGridMaskColumn;
    dxDBGrid2Column4: TdxDBGridCheckColumn;
    dxDBGrid2Column5: TdxDBGridMaskColumn;
    dxDBGrid2Column6: TdxDBGridMaskColumn;
    dxDBGrid2actionName: TdxDBGridMaskColumn;
    dxDBGrid2Column8: TdxDBGridMaskColumn;
    dxDBGrid2Column9: TdxDBGridCheckColumn;
    dxDBGrid2Column10: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_module: Tfrm_sys_module;

implementation

{$R *.dfm}
uses u_main ;

procedure Tfrm_sys_module.FormShow(Sender: TObject);
begin
  qrymodule.Open ;
  qry_sys_code.Open ;
end;

procedure Tfrm_sys_module.BitBtn1Click(Sender: TObject);
begin
  close ;
end;

procedure Tfrm_sys_module.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_sys_module.Hide;
  frm_sys_module.ManualFloat(frm_sys_module.BoundsRect );
  frm_main.freeTabs('frm_sys_module');
  action:=cafree;
  frm_sys_module:=nil;
end;

end.