mdiproduceplanning.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 186 行

unit MDIProducePlanning;

interface

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

type
  TfrmMDIProducePlanning = class(TfrmModuleControl)
    prProduceBrief: TAction;
    mpsProduceNotify: TAction;
    quProducePlan: TAction;
    baMPSTemplete: TAction;
    baSection: TAction;
    baProcess: TAction;
    baCell: TAction;
    baCalendar: TAction;
    mpsResPlan: TAction;
    baFMList: TAction;
    baWorkCenter: TAction;
    quResPlan: TAction;
    quResUsed: TAction;
    prProduceBriefed: TAction;
    prProduceBriefing: TAction;
    prProduceBriefs: TAction;
    quResWork: TAction;
    mpsResCapAnalyse: TAction;
    procedure FormCreate(Sender: TObject);
    procedure mpsResPlanExecute(Sender: TObject);
    procedure fcRecordExecute(Sender: TObject);
    procedure baCellExecute(Sender: TObject);
    procedure baProcessExecute(Sender: TObject);
    procedure baSectionExecute(Sender: TObject);
    procedure baFMListExecute(Sender: TObject);
    procedure baCalendarExecute(Sender: TObject);
    procedure mpsProduceNotifyExecute(Sender: TObject);
    procedure baWorkCenterExecute(Sender: TObject);
    procedure prProduceBriefExecute(Sender: TObject);
    procedure quProducePlanExecute(Sender: TObject);
    procedure quResPlanExecute(Sender: TObject);
    procedure quResUsedExecute(Sender: TObject);
    procedure prProduceBriefsExecute(Sender: TObject);
    procedure prProduceBriefingExecute(Sender: TObject);
    procedure prProduceBriefedExecute(Sender: TObject);
    procedure quResWorkExecute(Sender: TObject);
    procedure mpsResCapAnalyseExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIProducePlanning: TfrmMDIProducePlanning;

implementation

uses Global, TreeMPS, TreeResPlan, RecordAdd,
  FCCell, FCProcess, FCSection, BaseFactoryDate, FCFMList,
  FCWorkCenter, FCBrief, QueryResCalendar, FCBriefs, FCBriefing, FCBriefed,
  ResPlanReport, ResWorkReport, QueryMPS, ResCapAnalyse;

{$R *.dfm}

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

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

procedure TfrmMDIProducePlanning.fcRecordExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmRecordAdd, self, iModuleID, (Sender as TAction).Name, TForm(frmRecordAdd));
end;

procedure TfrmMDIProducePlanning.baCellExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCCell, self, iModuleID, (Sender as TAction).Name, TForm(frmFCCell));
end;

procedure TfrmMDIProducePlanning.baProcessExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCProcess, self, iModuleID, (Sender as TAction).Name, TForm(frmFCProcess));
end;

procedure TfrmMDIProducePlanning.baSectionExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCSection, self, iModuleID, (Sender as TAction).Name, TForm(frmFCSection));
end;

procedure TfrmMDIProducePlanning.baFMListExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCFMList, self, iModuleID, (Sender as TAction).Name, TForm(frmFCFMList));
end;

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

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

procedure TfrmMDIProducePlanning.baWorkCenterExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseWorkCenter, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseWorkCenter));
end;

procedure TfrmMDIProducePlanning.prProduceBriefExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCBrief, self, iModuleID, (Sender as TAction).Name, TForm(frmFCBrief));
end;

procedure TfrmMDIProducePlanning.quProducePlanExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryMPS, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryMPS));
end;

procedure TfrmMDIProducePlanning.quResPlanExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmResPlanReport, self, iModuleID, (Sender as TAction).Name, TForm(frmResPlanReport));
end;

procedure TfrmMDIProducePlanning.quResUsedExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryResCalendar, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryResCalendar));
end;

procedure TfrmMDIProducePlanning.prProduceBriefsExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCBriefs, self, iModuleID, (Sender as TAction).Name, TForm(frmFCBriefs));
end;

procedure TfrmMDIProducePlanning.prProduceBriefingExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCBriefing, self, iModuleID, (Sender as TAction).Name, TForm(frmFCBriefing));
end;

procedure TfrmMDIProducePlanning.prProduceBriefedExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCBriefed, self, iModuleID, (Sender as TAction).Name, TForm(frmFCBriefed));
end;

procedure TfrmMDIProducePlanning.quResWorkExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmResWorkReport, self, iModuleID, (Sender as TAction).Name, TForm(frmResWorkReport));
end;

procedure TfrmMDIProducePlanning.mpsResCapAnalyseExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmResCapAnalyse, self, iModuleID, (Sender as TAction).Name, TForm(frmResCapAnalyse));
end;

end.