pasmdibom.pas

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

unit pasMDIBom;

interface

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

type
  TfrmMDIBom = class(TfrmModuleControl)
    acBom: TAction;
    AcProductInfo: TAction;
    AcClientAppeal: TAction;
    AcBaseWorkingProcedure: TAction;
    AcCcBaseNames: TAction;
    AcSlip_money: TAction;
    AcCcSlipFile: TAction;
    AcSlip_Print: TAction;
    AcPrintXh: TAction;
    AcTechnicsFlow: TAction;
    Acbase: TAction;
    procedure FormCreate(Sender: TObject);
    procedure acBomExecute(Sender: TObject);
    procedure AcProductInfoExecute(Sender: TObject);
    procedure AcClientAppealExecute(Sender: TObject);
    procedure AcBaseWorkingProcedureExecute(Sender: TObject);
    procedure AcCcBaseNamesExecute(Sender: TObject);
    procedure AcSlip_moneyExecute(Sender: TObject);
    procedure AcCcSlipFileExecute(Sender: TObject);
    procedure AcSlip_PrintExecute(Sender: TObject);
    procedure AcPrintXhExecute(Sender: TObject);
    procedure AcTechnicsFlowExecute(Sender: TObject);
    procedure AcbaseExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIBom: TfrmMDIBom;

implementation
uses Global,pasBom,ProductInfo,AppealInfo,CcBaseNames,BaseWorkingProcedure,Slip_money,
  CcSlipFile,Slip_Print,printxh,TechnicsFlow,otherclass;
{$R *.dfm}

procedure TfrmMDIBom.FormCreate(Sender: TObject);
begin
  inherited;
  fcbtn4.Visible := false;
  fcbtn5.Visible := false;
  fcbtn6.Visible := false;
  fcbtn7.Visible := false;
end;

procedure TfrmMDIBom.acBomExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBom, self, iModuleID, (Sender as TAction).Name, TForm(frmBom));
end;

procedure TfrmMDIBom.AcProductInfoExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProductInfo, self, iModuleID, (Sender as TAction).Name, TForm(frmProductInfo));
end;

procedure TfrmMDIBom.AcClientAppealExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAppealInfo, self, iModuleID, (Sender as TAction).Name, TForm(frmAppealInfo));
end;

procedure TfrmMDIBom.AcBaseWorkingProcedureExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseWorkingProcedure, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseWorkingProcedure));
end;

procedure TfrmMDIBom.AcCcBaseNamesExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCcBaseNames, self, iModuleID, (Sender as TAction).Name, TForm(frmCcBaseNames));
end;

procedure TfrmMDIBom.AcSlip_moneyExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSlip_money, self, iModuleID, (Sender as TAction).Name, TForm(frmSlip_money));
end;

procedure TfrmMDIBom.AcCcSlipFileExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCcSlipFile, self, iModuleID, (Sender as TAction).Name, TForm(frmCcSlipFile));
end;

procedure TfrmMDIBom.AcSlip_PrintExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSlip_Print, self, iModuleID, (Sender as TAction).Name, TForm(frmSlip_Print));
end;

procedure TfrmMDIBom.AcPrintXhExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(Tfrmprintxh, self, iModuleID, (Sender as TAction).Name, TForm(frmprintxh));
end;

procedure TfrmMDIBom.AcTechnicsFlowExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmTechnicsFlow, self, iModuleID, (Sender as TAction).Name, TForm(frmTechnicsFlow));
end;

procedure TfrmMDIBom.AcbaseExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(Tfrmotherclass, self, iModuleID, (Sender as TAction).Name, TForm(frmotherclass));
end;

end.