mdisystem.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit MDISystem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModuleControl, Buttons, fcButton, fcImgBtn, fcShapeBtn, MainControl,
  fcClearPanel, fcButtonGroup, ExtCtrls, ActnList, Menus, StdCtrls, DB,
  ADODB, ImgList,IniFiles;

type
  TfrmMDISystem = class(TfrmModuleControl)
    saUserGroup: TAction;
    saUser: TAction;
    saGroupPurview: TAction;
    acMasDet: TAction;
    acMultiUser: TAction;
    procedure FormCreate(Sender: TObject);
    procedure coAddressExecute(Sender: TObject);
    procedure coUnitExecute(Sender: TObject);
    procedure coDepartmentExecute(Sender: TObject);
    procedure coETypeExecute(Sender: TObject);
    procedure coProductTypeExecute(Sender: TObject);
    procedure coTranModeExecute(Sender: TObject);
    procedure coMoneyExecute(Sender: TObject);
    procedure coPTypeExecute(Sender: TObject);
    procedure coEmployeeExecute(Sender: TObject);
    procedure coProviderExecute(Sender: TObject);
    procedure coCustomerExecute(Sender: TObject);
    procedure coFactoryDateExecute(Sender: TObject);
    procedure saUserGroupExecute(Sender: TObject);
    procedure saUserExecute(Sender: TObject);
    procedure saGroupPurviewExecute(Sender: TObject);
    procedure coProductExecute(Sender: TObject);
    procedure syCorpInfoExecute(Sender: TObject);
    procedure syPersonSetExecute(Sender: TObject);
    procedure coSheetExecute(Sender: TObject);
    procedure reProviderExecute(Sender: TObject);
    procedure reCustomerExecute(Sender: TObject);
    procedure reProductsExecute(Sender: TObject);
    procedure reEmployeebyDepExecute(Sender: TObject);
    procedure reEmploeebyTypeExecute(Sender: TObject);
    procedure acBOMExecute(Sender: TObject);
    procedure initAccountPExecute(Sender: TObject);
    procedure initAccountCExecute(Sender: TObject);
    procedure coFeeExecute(Sender: TObject);
    procedure acMasDetExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Action1Execute(Sender: TObject);
    procedure acMultiUserExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDISystem      : TfrmMDISystem;

implementation
 uses  Global, BaseGroup, BaseUser, GroupRight,BaseModule_Func,main;
//uses BaseArea, Global, BaseUnits, BaseDepartment, BaseEType, BaseProductType,
//  BaseTranMode, BaseMoney, BasePType, BaseEmployee, BaseProvider,
 // BaseCustomer, BaseFactoryDate, BaseGroup, BaseUser, GroupRight,
 // BaseProduct, BaseCompanyInfo, PersonalSet, BaseSheetType, QueryProvider,
 // QueryCustomer, QueryProduct, QueryPurchase, QuerySeller, BaseBOM,
 // InitAccountP, InitAccountC, BaseFee;

{$R *.dfm}

procedure TfrmMDISystem.FormCreate(Sender: TObject);
begin
  inherited;
  {隐藏不需要的fcBtn}
  fcbtn2.Visible := false;
  fcbtn3.Visible := false;
  fcbtn4.Visible := false;
  fcbtn5.Visible := false;
  fcbtn6.Visible := false;
  fcbtn7.Visible := false;
  //fcbtn8.Visible := false;
end;

procedure TfrmMDISystem.coAddressExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseArea, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseArea));
end;

procedure TfrmMDISystem.coUnitExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseUnits, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseUnits));
end;

procedure TfrmMDISystem.coDepartmentExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseDepartment, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseDepartment));
end;

procedure TfrmMDISystem.coETypeExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseEType, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseEType));
end;

procedure TfrmMDISystem.coProductTypeExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseProductType, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseProductType));
end;

procedure TfrmMDISystem.coTranModeExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseTranMode, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseTranMode));

end;

procedure TfrmMDISystem.coMoneyExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseMoney, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseMoney));
end;

procedure TfrmMDISystem.coPTypeExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBasePType, self, iModuleID, (Sender as TAction).Name, TForm(frmBasePType));
end;

procedure TfrmMDISystem.coEmployeeExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseEmployee, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseEmployee));
end;

procedure TfrmMDISystem.coProviderExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseProvider));
end;

procedure TfrmMDISystem.coCustomerExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseCustomer));
end;

procedure TfrmMDISystem.coFactoryDateExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseFactoryDate, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseFactoryDate));
end;

procedure TfrmMDISystem.saUserGroupExecute(Sender: TObject);
begin
  inherited;
 ShowNormalForm(TfrmBaseGroup, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseGroup));
end;

procedure TfrmMDISystem.saUserExecute(Sender: TObject);
begin
  inherited;
 ShowNormalForm(TfrmBaseUser, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseUser));
end;

procedure TfrmMDISystem.saGroupPurviewExecute(Sender: TObject);
begin
  inherited;
 ShowNormalForm(TfrmGroupRight, self, iModuleID, (Sender as TAction).Name, TForm(frmGroupRight));
end;

procedure TfrmMDISystem.coProductExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseProduct, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseProduct));
end;

procedure TfrmMDISystem.syCorpInfoExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseCompanyInfo, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseCompanyInfo));
end;

procedure TfrmMDISystem.syPersonSetExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPersonalSet, self, iModuleID, (Sender as TAction).Name, TForm(frmPersonalSet));
end;

procedure TfrmMDISystem.coSheetExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseSheetType, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseSheetType));
end;

procedure TfrmMDISystem.reProviderExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmQueryProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProvider));
end;

procedure TfrmMDISystem.reCustomerExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmQueryCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryCustomer));
end;

procedure TfrmMDISystem.reProductsExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryProduct, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProduct));
end;

procedure TfrmMDISystem.reEmployeebyDepExecute(Sender: TObject);
begin
  inherited;
 //ShowNormalForm(TfrmQueryPurchaser, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPurchaser));
end;

procedure TfrmMDISystem.reEmploeebyTypeExecute(Sender: TObject);
begin
  inherited;
//ShowNormalForm(TfrmQuerySeller, self, iModuleID, (Sender as TAction).Name, TForm(frmQuerySeller));
end;

procedure TfrmMDISystem.acBOMExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseBOM, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseBOM));
end;

procedure TfrmMDISystem.initAccountPExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmInitAccountP, self, iModuleID, (Sender as TAction).Name, TForm(frmInitAccountP));
end;

procedure TfrmMDISystem.initAccountCExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmInitAccountC, self, iModuleID, (Sender as TAction).Name, TForm(frmInitAccountC));
end;

procedure TfrmMDISystem.coFeeExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseFee, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseFee));
end;

procedure TfrmMDISystem.acMasDetExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseModule_Func, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseModule_Func));
end;

procedure TfrmMDISystem.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmMDISystem:=nil;
end;

procedure TfrmMDISystem.Action1Execute(Sender: TObject);
begin
  inherited;
  
  //frmMain.acjinxianExecute(nil);
end;

procedure TfrmMDISystem.acMultiUserExecute(Sender: TObject);
var
    MyIniFile:TIniFile;
begin
  inherited;
  MyIniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'login.ini');
  if Application.MessageBox('是否启用一用户多登录模式','提示框',MB_YESNO)=IDYES then
  begin
    G_bMultiUser:='True';
  end
  else
  begin
    G_bMultiUser:='False';
  end;
  MyIniFile.WriteString('Login','MultiUser',G_bMultiUser);
  MyIniFile.Free;
end;

end.