unit_usermanage.~pas

用友ERP功能扩展

unit Unit_UserManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls,
  dxDBTLCl, dxGrClms, cxControls, cxNavigator, cxDBNavigator;

type
  TForm_UserManage = class(TForm)
    PC_ReturnCheck: TPageControl;
    TS_PlanAttribute: TTabSheet;
    DBGrid_SaleLists: TdxDBGrid;
    TabSheet1: TTabSheet;
    dxDBGrid1: TdxDBGrid;
    DBGrid_SaleListsID: TdxDBGridMaskColumn;
    DBGrid_SaleListsUserCode: TdxDBGridMaskColumn;
    DBGrid_SaleListsUserName: TdxDBGridMaskColumn;
    DBGrid_SaleListsPassWord: TdxDBGridMaskColumn;
    DBGrid_SaleListsMemo: TdxDBGridMaskColumn;
    cxDBNavigator1: TcxDBNavigator;
    cxDBNavigator2: TcxDBNavigator;
    dxDBGrid1ID: TdxDBGridMaskColumn;
    dxDBGrid1MCode: TdxDBGridMaskColumn;
    dxDBGrid1MName: TdxDBGridMaskColumn;
    dxDBGrid1M000: TdxDBGridCheckColumn;
    dxDBGrid1M001: TdxDBGridCheckColumn;
    dxDBGrid1M002: TdxDBGridCheckColumn;
    dxDBGrid1M003: TdxDBGridCheckColumn;
    dxDBGrid1M004: TdxDBGridCheckColumn;
    dxDBGrid1M005: TdxDBGridCheckColumn;
    dxDBGrid1M006: TdxDBGridCheckColumn;
    dxDBGrid1M007: TdxDBGridCheckColumn;
    dxDBGrid1M008: TdxDBGridCheckColumn;
    dxDBGrid1M009: TdxDBGridCheckColumn;
    dxDBGrid1M010: TdxDBGridCheckColumn;
    dxDBGrid1M011: TdxDBGridCheckColumn;
    dxDBGrid1M012: TdxDBGridCheckColumn;
    dxDBGrid1M013: TdxDBGridCheckColumn;
    dxDBGrid1M014: TdxDBGridCheckColumn;
    dxDBGrid1M015: TdxDBGridCheckColumn;
    dxDBGrid1M016: TdxDBGridCheckColumn;
    dxDBGrid1M017: TdxDBGridCheckColumn;
    dxDBGrid1M018: TdxDBGridCheckColumn;
    dxDBGrid1M019: TdxDBGridCheckColumn;
    dxDBGrid1M020: TdxDBGridCheckColumn;
    dxDBGrid1M021: TdxDBGridCheckColumn;
    dxDBGrid1M022: TdxDBGridCheckColumn;
    dxDBGrid1M023: TdxDBGridCheckColumn;
    dxDBGrid1M024: TdxDBGridCheckColumn;
    dxDBGrid1M025: TdxDBGridCheckColumn;
    dxDBGrid1M026: TdxDBGridCheckColumn;
    dxDBGrid1M027: TdxDBGridCheckColumn;
    dxDBGrid1M028: TdxDBGridCheckColumn;
    dxDBGrid1M029: TdxDBGridCheckColumn;
    dxDBGrid1M030: TdxDBGridCheckColumn;
    dxDBGrid1M031: TdxDBGridCheckColumn;
    dxDBGrid1M032: TdxDBGridCheckColumn;
    dxDBGrid1M033: TdxDBGridCheckColumn;
    dxDBGrid1M034: TdxDBGridCheckColumn;
    dxDBGrid1M035: TdxDBGridCheckColumn;
    dxDBGrid1M036: TdxDBGridCheckColumn;
    dxDBGrid1M037: TdxDBGridCheckColumn;
    dxDBGrid1M038: TdxDBGridCheckColumn;
    dxDBGrid1M039: TdxDBGridCheckColumn;
    dxDBGrid1M040: TdxDBGridCheckColumn;
    dxDBGrid1M041: TdxDBGridCheckColumn;
    dxDBGrid1M042: TdxDBGridCheckColumn;
    dxDBGrid1M043: TdxDBGridCheckColumn;
    dxDBGrid1M044: TdxDBGridCheckColumn;
    dxDBGrid1M045: TdxDBGridCheckColumn;
    dxDBGrid1M046: TdxDBGridCheckColumn;
    dxDBGrid1M047: TdxDBGridCheckColumn;
    dxDBGrid1M048: TdxDBGridCheckColumn;
    procedure FormHide(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_UserManage: TForm_UserManage;

implementation
uses  Unit_Data;

{$R *.dfm}

procedure TForm_UserManage.FormHide(Sender: TObject);
begin
        Form_Data.Table_User.Active              := False ;
        Form_Data.Table_Manage.Active            := False ;
        Form_Data.Table_User.Active              := True ;
        Form_Data.Table_Manage.Active            := True ;
end;

procedure TForm_UserManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
        Form_Data.Table_User.Active              := False ;
        Form_Data.Table_Manage.Active            := False ;
        Form_Data.Table_User.Active              := True ;
        Form_Data.Table_Manage.Active            := True ;
end;

end.