mdistock.pas

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

unit MDIStock;

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
  TfrmMDIStock = class(TfrmModuleControl)
    baSotreInfo: TAction;
    stPurchaseIncome: TAction;
    stPurchaseReturn: TAction;
    stSellOut: TAction;
    stPorduceDrawM: TAction;
    stProduceReturM: TAction;
    stMaterailChange: TAction;
    chFrostStorage: TAction;
    stMoveStore: TAction;
    reStorageIO: TAction;
    stSellBack: TAction;
    reStoreTotal: TAction;
    reStorage: TAction;
    baStorageManager: TAction;
    chGatherStorage: TAction;
    chCheckStorage: TAction;
    chAccFactStorage: TAction;
    stProductIn: TAction;
    reStorageCheck: TAction;
    reTransition: TAction;
    reTransfer: TAction;
    stMaterielIn: TAction;
    stMaterielOut: TAction;
    reMaterielIn: TAction;
    reMaterielOut: TAction;
    procedure FormCreate(Sender: TObject);
    procedure baSotreInfoExecute(Sender: TObject);
    procedure stMoveStoreExecute(Sender: TObject);
    procedure stMaterailChangeExecute(Sender: TObject);
    procedure stSellOutExecute(Sender: TObject);
    procedure stSellBackExecute(Sender: TObject);
    procedure stPurchaseIncomeExecute(Sender: TObject);
    procedure stPurchaseReturnExecute(Sender: TObject);
    procedure reStoreTotalExecute(Sender: TObject);
    procedure reStorageExecute(Sender: TObject);
    procedure stPorduceRepairMExecute(Sender: TObject);
    procedure stPorduceDrawMExecute(Sender: TObject);
    procedure stProduceReturMExecute(Sender: TObject);
    procedure reSupplyTakeMaterielExecute(Sender: TObject);
    procedure reTakeMaterielExecute(Sender: TObject);
    procedure reReturnMaterielExecute(Sender: TObject);
    procedure baStorageManagerExecute(Sender: TObject);
    procedure stIncomeExecute(Sender: TObject);
    procedure stOutExecute(Sender: TObject);
    procedure chFrostStorageExecute(Sender: TObject);
    procedure chGatherStorageExecute(Sender: TObject);
    procedure chAccFactStorageExecute(Sender: TObject);
    procedure chCheckStorageExecute(Sender: TObject);
    procedure reStorageIOExecute(Sender: TObject);
    procedure stProductInExecute(Sender: TObject);
    procedure reTransitionExecute(Sender: TObject);
    procedure reStorageCheckExecute(Sender: TObject);
    procedure reTransferExecute(Sender: TObject);
    procedure stMaterielInExecute(Sender: TObject);
    procedure stMaterielOutExecute(Sender: TObject);
    procedure reMaterielInExecute(Sender: TObject);
    procedure reMaterielOutExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIStock       : TfrmMDIStock;

implementation
uses Global;

{$R *.dfm}

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

procedure TfrmMDIStock.baSotreInfoExecute(Sender: TObject);
begin
  inherited;
 // ShowNormalForm(TfrmBaseStorage, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseStorage));
end;

procedure TfrmMDIStock.stMoveStoreExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBillTransfer, self, iModuleID, (Sender as TAction).Name, TForm(frmBillTransfer));
end;

procedure TfrmMDIStock.stMaterailChangeExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBillTransition, self, iModuleID, (Sender as TAction).Name, TForm(frmBillTransition));
end;

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

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

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

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

procedure TfrmMDIStock.reStoreTotalExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryStorageTotal, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryStorageTotal));

end;

procedure TfrmMDIStock.reStorageExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryStore, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryStore));
end;

procedure TfrmMDIStock.stPorduceRepairMExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmSupplyTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmSupplyTakeMateriel));
end;

procedure TfrmMDIStock.stPorduceDrawMExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmTakeMateriel));

end;

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

procedure TfrmMDIStock.reSupplyTakeMaterielExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQuerySupplyTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmQuerySupplyTakeMateriel));

end;

procedure TfrmMDIStock.reTakeMaterielExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryTakeMateriel, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryTakeMateriel));

end;

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

procedure TfrmMDIStock.baStorageManagerExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmBaseStorageManager, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseStorageManager));
end;

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

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

procedure TfrmMDIStock.chFrostStorageExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmStorageFrost, self, iModuleID, (Sender as TAction).Name, TForm(frmStorageFrost));
end;

procedure TfrmMDIStock.chGatherStorageExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmStorageGather, self, iModuleID, (Sender as TAction).Name, TForm(frmStorageGather));
end;

procedure TfrmMDIStock.chAccFactStorageExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmStorageAccFact, self, iModuleID, (Sender as TAction).Name, TForm(frmStorageAccFact));
end;

procedure TfrmMDIStock.chCheckStorageExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmStorageCheck, self, iModuleID, (Sender as TAction).Name, TForm(frmStorageCheck));
end;

procedure TfrmMDIStock.reStorageIOExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryStorageIO, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryStorageIO));
end;

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

procedure TfrmMDIStock.reTransitionExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryBillTransition, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryBillTransition));
end;

procedure TfrmMDIStock.reStorageCheckExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryStorageCheck, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryStorageCheck));
end;

procedure TfrmMDIStock.reTransferExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryBillTransfer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryBillTransfer));
end;

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

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

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

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

end.