mdiexamine.pas

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

unit MDIexamine;

interface

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

type
  TfrmMDIexamine = class(TfrmModuleControl)
    viProduceOrder: TAction;
    viSellOrder: TAction;
    viSellOut: TAction;
    viSellBack: TAction;
    viPayCustomer: TAction;
    mcMaterielDec: TAction;
    mcPayProvider: TAction;
    pcProducePlanning: TAction;
    pcResPlanning: TAction;
    pcBeginProduce: TAction;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton19: TSpeedButton;
    viContract: TAction;
    baBOMBill: TAction;
    baProduct: TAction;
    baCustomer: TAction;
    baProvider: TAction;
    procedure FormCreate(Sender: TObject);
    procedure baBOMBillExecute(Sender: TObject);
    procedure baProductExecute(Sender: TObject);
    procedure baCustomerBOMExecute(Sender: TObject);
    procedure viProduceOrderExecute(Sender: TObject);
    procedure viContractExecute(Sender: TObject);
    procedure viSellOrderExecute(Sender: TObject);
    procedure viSellOutExecute(Sender: TObject);
    procedure viSellBackExecute(Sender: TObject);
    procedure viPayCustomerExecute(Sender: TObject);
    procedure mcMaterielDecExecute(Sender: TObject);
    procedure mcPurchaseRequestExecute(Sender: TObject);
    procedure mcPurchaseOrderExecute(Sender: TObject);
    procedure mcPOIncomingExecute(Sender: TObject);
    procedure mcPOBackExecute(Sender: TObject);
    procedure mcPayProviderExecute(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure pcProducePlanningExecute(Sender: TObject);
    procedure pcResPlanningExecute(Sender: TObject);
    procedure pcBeginProduceExecute(Sender: TObject);
    procedure baCustomerExecute(Sender: TObject);
    procedure baProviderExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIexamine: TfrmMDIexamine;

implementation

//uses BaseBOM, Global, BaseProduct, BaseCustomerBom, ProduceOrder,
 // ContractManage, SellOrder, billSellOut, BillSellBack, PaymentCustomer,
 // MaterielDecompose, PurchaseRequest, PurchaseOrder, POIncomingOrder,
 // POBack, PaymentProvider, Main, TreeMPS, TreeResPlan,
 // ProduceOrderBegin, BaseCustomer, BaseProvider;
uses Global, MaiN;
{$R *.dfm}

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

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

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

procedure TfrmMDIexamine.baCustomerBOMExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseCustomerBOM, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseCustomerBOM));
end;

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

procedure TfrmMDIexamine.viContractExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmContractManage, self, iModuleID, (Sender as TAction).Name, TForm(frmContractManage));
end;

procedure TfrmMDIexamine.viSellOrderExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmSellOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmSellOrder));
end;

procedure TfrmMDIexamine.viSellOutExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBillSellOut, self, iModuleID, (Sender as TAction).Name, TForm(frmBillSellOut));
end;

procedure TfrmMDIexamine.viSellBackExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBillSellBack, self, iModuleID, (Sender as TAction).Name, TForm(frmBillSellBack));
end;

procedure TfrmMDIexamine.viPayCustomerExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPaymentCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmPayMentCustomer));
end;

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

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

procedure TfrmMDIexamine.mcPurchaseOrderExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPurchaseOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmPurchaseOrder));
end;

procedure TfrmMDIexamine.mcPOIncomingExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPOIncomingOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmPOIncomingOrder));
end;

procedure TfrmMDIexamine.mcPOBackExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPOBack, self, iModuleID, (Sender as TAction).Name, TForm(frmPOBack));
end;

procedure TfrmMDIexamine.mcPayProviderExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmPaymentProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmPaymentProvider));
end;

procedure TfrmMDIexamine.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  //frmMain.acPurchaseExecute(frmMain.acPurchase)
end;

procedure TfrmMDIexamine.SpeedButton13Click(Sender: TObject);
begin
  inherited;
  //frmMain.acProduceFlowExecute(frmMain.acProduceFlow);
end;

procedure TfrmMDIexamine.pcProducePlanningExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmTreeMPS, self, iModuleID, (Sender as TAction).Name, TForm(frmTreeMPS));
end;

procedure TfrmMDIexamine.pcResPlanningExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmTreeResPlan, self, iModuleID, (Sender as TAction).Name, TForm(frmTreeResPlan));
end;

procedure TfrmMDIexamine.pcBeginProduceExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmProduceOrderBegin, self, iModuleID, (Sender as TAction).Name, TForm(frmProduceOrderBegin));
end;

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

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

end.