You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.0 KiB
Plaintext
78 lines
2.0 KiB
Plaintext
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.
|