mdiproduceflow.pas

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

unit MDIProduceFlow;

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
  TfrmMDIProduceFlow = class(TfrmModuleControl)
    opReport: TAction;
    seSalary: TAction;
    Image1: TImage;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    opProduceDrawM: TAction;
    opProduceReturnM: TAction;
    opProduceIn: TAction;
    buBeginProduce: TAction;
    buFinishProduce: TAction;
    seTakeMateriel: TAction;
    seReturnMateriel: TAction;
    seProductIncome: TAction;
    buProduceOrder: TAction;
    seProduceOrder: TAction;
    seProgressReport: TAction;
    seProgressTakeMateriel: TAction;
    opProduceTransition: TAction;
    seProduceTransition: TAction;
    seProgressAllSO: TAction;
    seProgressAllSOOneDay: TAction;
    opQualityCheckBL: TAction;
    opQualityCheckCY: TAction;
    opProduceFlowCard: TAction;
    procedure FormCreate(Sender: TObject);
    procedure opReportExecute(Sender: TObject);
    procedure opRecordExecute(Sender: TObject);
    procedure seSalaryExecute(Sender: TObject);
    procedure opProduceDrawMExecute(Sender: TObject);
    procedure opProduceReturnMExecute(Sender: TObject);
    procedure opOutExecute(Sender: TObject);
    procedure opIncomeExecute(Sender: TObject);
    procedure opProduceInExecute(Sender: TObject);
    procedure seCostingExecute(Sender: TObject);
    procedure seBriefExecute(Sender: TObject);
    procedure buBeginProduceExecute(Sender: TObject);
    procedure buFinishProduceExecute(Sender: TObject);
    procedure seTakeMaterielExecute(Sender: TObject);
    procedure seReturnMaterielExecute(Sender: TObject);
    procedure seProductInExecute(Sender: TObject);
    procedure seProductOutExecute(Sender: TObject);
    procedure seProductIncomeExecute(Sender: TObject);
    procedure buProduceOrderExecute(Sender: TObject);
    procedure seProduceOrderExecute(Sender: TObject);
    procedure seProgressReportExecute(Sender: TObject);
    procedure seProgressTakeMaterielExecute(Sender: TObject);
    procedure opProduceTransitionExecute(Sender: TObject);
    procedure seProduceTransitionExecute(Sender: TObject);
    procedure seProgressAllSOExecute(Sender: TObject);
    procedure seProgressAllSOOneDayExecute(Sender: TObject);
    procedure opQualityCheckBLExecute(Sender: TObject);
    procedure opQualityCheckCYExecute(Sender: TObject);
    procedure opProduceFlowCardExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIProduceFlow : TfrmMDIProduceFlow;

implementation

uses DataModule, Global, Main, FCAddReport, RecordAdd,
  QueryFCSalary, FCAddRecord, TakeMateriel, ReturnMateriel,
  PronductsOut, ProductsIn, ProductsIncome, FCCosting, FCBrief,
  ProduceOrderBegin, ProduceOrderFinish, QueryTakeMateriel,
  QueryReturnMateriel, QueryProductsIn, QueryProductsOut,
  QueryProductsIncome, ProduceOrder, QueryProduceOrder, ProgressReport,
  ProgressTakeMateriel, CostConvert, QueryCostConvert, AddReport,
  QueryProgress, QueryProgressAllSO, QueryProgressAllSOOneDay, QualityCheckBL,
  QualityCheckCY, ProduceFlowCard;

{$R *.dfm}

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

procedure TfrmMDIProduceFlow.opReportExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAddReport, self, iModuleID, (Sender as TAction).Name, TForm(frmAddReport));
end;

procedure TfrmMDIProduceFlow.opRecordExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCAddRecord, self, iModuleID, (Sender as TAction).Name, TForm(frmFCAddRecord));
end;

procedure TfrmMDIProduceFlow.seSalaryExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryFCSalary, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryFCSalary));
end;

procedure TfrmMDIProduceFlow.opProduceDrawMExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmTakeMateriel));
end;

procedure TfrmMDIProduceFlow.opProduceReturnMExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmReturnMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmReturnMateriel));
end;

procedure TfrmMDIProduceFlow.opOutExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProductsOut, self, iModuleID, (Sender as TAction).Name, TForm(frmProductsOut));
end;

procedure TfrmMDIProduceFlow.opIncomeExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProductsIn, self, iModuleID, (Sender as TAction).Name, TForm(frmProductsIn));
end;

procedure TfrmMDIProduceFlow.opProduceInExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProductsIncome, self, iModuleID, (Sender as TAction).Name, TForm(frmProductsIncome));
end;

procedure TfrmMDIProduceFlow.seCostingExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmFCCosting, self, iModuleID, (Sender as TAction).Name, TForm(frmFCCosting));
end;

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

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

procedure TfrmMDIProduceFlow.buFinishProduceExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProduceOrderFinish, self, iModuleID, (Sender as TAction).Name, TForm(frmProduceOrderFinish));
end;

procedure TfrmMDIProduceFlow.seTakeMaterielExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryTakeMateriel));
end;

procedure TfrmMDIProduceFlow.seReturnMaterielExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryReturnMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryReturnMateriel));
end;

procedure TfrmMDIProduceFlow.seProductInExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProductsIn, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProductsIn));
end;

procedure TfrmMDIProduceFlow.seProductOutExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProductsOut, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProductsOut));
end;

procedure TfrmMDIProduceFlow.seProductIncomeExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProductsIncome, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProductsIncome));
end;

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

procedure TfrmMDIProduceFlow.seProduceOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProduceOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProduceOrder));
end;

procedure TfrmMDIProduceFlow.seProgressReportExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmProgressReport,self,iModuleID,(Sender as TAction).Name,TForm(frmProgressReport));
  ShowNormalForm(TfrmQueryProgress, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProgress));
end;

procedure TfrmMDIProduceFlow.seProgressTakeMaterielExecute(
  Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProgressTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmProgressTakeMateriel));
end;

procedure TfrmMDIProduceFlow.opProduceTransitionExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCostConvert, self, iModuleID, (Sender as TAction).Name, TForm(frmCostConvert));

end;

procedure TfrmMDIProduceFlow.seProduceTransitionExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryCostConvert, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryCostConvert));
end;

procedure TfrmMDIProduceFlow.seProgressAllSOExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProgressAllSO, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProgressAllSO));
end;

procedure TfrmMDIProduceFlow.seProgressAllSOOneDayExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProgressAllSOOneDay, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProgressAllSOOneDay));
end;

procedure TfrmMDIProduceFlow.opQualityCheckBLExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQualityCheckBL, self, iModuleID, (Sender as TAction).Name, TForm(frmQualityCheckBL));
end;

procedure TfrmMDIProduceFlow.opQualityCheckCYExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQualityCheckCY, self, iModuleID, (Sender as TAction).Name, TForm(frmQualityCheckCY));
end;

procedure TfrmMDIProduceFlow.opProduceFlowCardExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProduceFlowCard, self, iModuleID, (Sender as TAction).Name, TForm(frmProduceFlowCard));
end;

end.