mdimrp.pas

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

unit MDIMRP;

interface

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

type
  TfrmMDIaccount = class(TfrmModuleControl)
    mrpPlanOperation: TAction;
    quProduct: TAction;
    quMRPQuery: TAction;
    mrpEditBom: TAction;
    mrpProduceOrder: TAction;
    mrpPurchaseRequst: TAction;
    biProduct: TAction;
    quBom: TAction;
    procedure FormCreate(Sender: TObject);
    procedure mrpPlanOperationExecute(Sender: TObject);
    procedure mrpEditBomExecute(Sender: TObject);
    procedure mrpPurchaseRequstExecute(Sender: TObject);
    procedure mrpProduceOrderExecute(Sender: TObject);
    procedure biProductExecute(Sender: TObject);
    procedure biBOMExecute(Sender: TObject);
    procedure quProductExecute(Sender: TObject);
    procedure quBomExecute(Sender: TObject);
    procedure quMRPQueryExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIaccount         : TfrmMDIaccount;

implementation

uses Global, MaterielDecompose, BaseBOM, PurchaseRequest, ProduceOrder,
  BaseProduct, QueryProduct, QueryMaterielDec;

{$R *.dfm}

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

procedure TfrmMDIaccount.mrpPlanOperationExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmMaterielDecompose, self, iModuleID, (Sender as TAction).Name, TForm(frmMaterielDecompose));
end;

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

procedure TfrmMDIaccount.mrpPurchaseRequstExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPurchaseRequest, self, iModuleID, (Sender as TAction).Name, TForm(frmPurchaseRequest));
end;

procedure TfrmMDIaccount.mrpProduceOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProduceOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmProduceOrder));
end;

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

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

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

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

procedure TfrmMDIaccount.quMRPQueryExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryMaterielDec, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryMaterielDec));
end;

end.