powerunit.pas

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

unit PowerUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, ExtCtrls, DBCtrls, DB, ADODB, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, cxCheckBox, cxDBEdit, cxContainer, cxEdit,
  cxGroupBox, cxPC, cxControls, dxDBTLCl, dxGrClms;

type
  TfrmPower = class(TForm)
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    dxDBGrid1MCode: TdxDBGridColumn;
    dxDBGrid1MName: TdxDBGridColumn;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGroupBox1: TcxGroupBox;
    cxDBCheckBox1: TcxDBCheckBox;
    cxGroupBox2: TcxGroupBox;
    cxDBCheckBox2: TcxDBCheckBox;
    cxGroupBox3: TcxGroupBox;
    cxDBCheckBox3: TcxDBCheckBox;
    cxDBCheckBox4: TcxDBCheckBox;
    cxDBCheckBox5: TcxDBCheckBox;
    cxDBCheckBox6: TcxDBCheckBox;
    cxDBCheckBox7: TcxDBCheckBox;
    cxDBCheckBox8: TcxDBCheckBox;
    cxDBCheckBox9: TcxDBCheckBox;
    cxDBCheckBox10: TcxDBCheckBox;
    cxTabSheet2: TcxTabSheet;
    cxGroupBox4: TcxGroupBox;
    cxGroupBox5: TcxGroupBox;
    cxDBCheckBox12: TcxDBCheckBox;
    cxDBCheckBox13: TcxDBCheckBox;
    cxGroupBox6: TcxGroupBox;
    cxDBCheckBox14: TcxDBCheckBox;
    cxDBCheckBox11: TcxDBCheckBox;
    cxDBCheckBox17: TcxDBCheckBox;
    cxDBCheckBox18: TcxDBCheckBox;
    cxTabSheet3: TcxTabSheet;
    cxTabSheet4: TcxTabSheet;
    cxGroupBox7: TcxGroupBox;
    cxGroupBox8: TcxGroupBox;
    cxDBCheckBox15: TcxDBCheckBox;
    cxDBCheckBox16: TcxDBCheckBox;
    cxDBCheckBox19: TcxDBCheckBox;
    cxDBCheckBox20: TcxDBCheckBox;
    cxGroupBox9: TcxGroupBox;
    cxGroupBox10: TcxGroupBox;
    cxGroupBox12: TcxGroupBox;
    cxDBCheckBox27: TcxDBCheckBox;
    cxDBCheckBox21: TcxDBCheckBox;
    cxDBCheckBox22: TcxDBCheckBox;
    cxDBCheckBox23: TcxDBCheckBox;
    cxDBCheckBox24: TcxDBCheckBox;
    cxDBCheckBox25: TcxDBCheckBox;
    cxDBCheckBox26: TcxDBCheckBox;
    cxGroupBox11: TcxGroupBox;
    cxDBCheckBox28: TcxDBCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPower: TfrmPower;

implementation


uses

  dataUnit , LoginUnit;
{$R *.dfm}

procedure TfrmPower.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   dm.tbPower.Locate('UserName',FrmLogin.LandingUser,[]);
end;

end.