mdipurchase.pas

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

unit MDIPurchase;

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
  TfrmMDIPurchase = class(TfrmModuleControl)
    baProvider: TAction;
    baBuyer: TAction;
    stPurchaseOrder: TAction;
    stPOIncoming: TAction;
    stPOReturn: TAction;
    reProvider: TAction;
    rePurchaseOrder: TAction;
    reIncomeOrder: TAction;
    rePurchaseReturnOrder: TAction;
    rePurchaseDetailbyPro: TAction;
    rePurchaseTotalbyPro: TAction;
    stSubmit: TAction;
    stFinish: TAction;
    stCanel: TAction;
    stProviderIncoming: TAction;
    stProviderBack: TAction;
    reProviderBack: TAction;
    reProviderIncoming: TAction;
    stPurchaseRequest: TAction;
    baProviderQuote: TAction;
    baProductQuote: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    Image1: TImage;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    rePurchaseRequest: TAction;
    procedure FormCreate(Sender: TObject);
    procedure baBuyerExecute(Sender: TObject);
    procedure baProviderExecute(Sender: TObject);
    procedure stPurchaseOrderExecute(Sender: TObject);
    procedure stPOIncomingExecute(Sender: TObject);
    procedure stPOReturnExecute(Sender: TObject);
    procedure stSubmitExecute(Sender: TObject);
    procedure stCanelExecute(Sender: TObject);
    procedure stFinishExecute(Sender: TObject);
    procedure reProviderExecute(Sender: TObject);
    procedure rePurchaserExecute(Sender: TObject);
    procedure rePurchaseOrderExecute(Sender: TObject);
    procedure reIncomeOrderExecute(Sender: TObject);
    procedure rePurchaseReturnOrderExecute(Sender: TObject);
    procedure stProviderIncomingExecute(Sender: TObject);
    procedure stProviderBackExecute(Sender: TObject);
    procedure reProviderIncomingExecute(Sender: TObject);
    procedure reProviderBackExecute(Sender: TObject);
    procedure stPurchaseRequestExecute(Sender: TObject);
    procedure baProviderQuoteExecute(Sender: TObject);
    procedure baProductQuoteExecute(Sender: TObject);
    procedure rePurchaseDetailbyProExecute(Sender: TObject);
    procedure rePurchaseTotalbyProExecute(Sender: TObject);
    procedure rePurchaseRequestExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIPurchase    : TfrmMDIPurchase;

implementation

uses BasePurchaser, Global, BaseProvider, PurchaseOrder, POIncomingOrder,
  POBack, PurchaseOrderSubmit, PurchaseOrderCounteract, PurchaseOrderFinish,
  QueryProvider, QueryPurchase, QueryPurchaseOrder, QueryPOIncomingOrder,
  QueryPOBack, ProviderIncoming, ProviderBack, QueryProviderIncoming,
  QueryProviderBack, PurchaseRequest, Providerquote, ProductQuote,
  DetailProvidePurchase, PurchaseSumByProv, QueryPurchaseRequest;

{$R *.dfm}

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

procedure TfrmMDIPurchase.baBuyerExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBasePurchaser, self, iModuleID, (Sender as TAction).Name, TForm(frmBasePurchaser));
end;

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

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

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

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

procedure TfrmMDIPurchase.stSubmitExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPurchaseOrderSubmit, self, iModuleID, (Sender as TAction).Name, TForm(frmpurchaseOrderSubmit));
end;
procedure TfrmMDIPurchase.stCanelExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPurchaseOrderCounteract, self, iModuleID, (Sender as TAction).Name, TForm(frmPurchaseOrderCounteract));

end;

procedure TfrmMDIPurchase.stFinishExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPurchaseOrderFinish, self, iModuleID, (Sender as TAction).Name, TForm(frmPurchaseOrderFinish));
end;

procedure TfrmMDIPurchase.reProviderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProvider));

end;

procedure TfrmMDIPurchase.rePurchaserExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQueryPurchaser,self,iModuleID,(Sender as TAction).Name,TForm(frmQueryPurchaser));
end;

procedure TfrmMDIPurchase.rePurchaseOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPurchaseOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPurchaseOrder));
end;

procedure TfrmMDIPurchase.reIncomeOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPOIncomingOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPOIncomingOrder));
end;

procedure TfrmMDIPurchase.rePurchaseReturnOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPOBack, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPOBack));
end;

procedure TfrmMDIPurchase.stProviderIncomingExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProviderIncoming, self, iModuleID, (Sender as TAction).Name, TForm(frmProviderIncoming));
end;

procedure TfrmMDIPurchase.stProviderBackExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProviderBack, self, iModuleID, (Sender as TAction).Name, TForm(frmProviderBack));
end;

procedure TfrmMDIPurchase.reProviderIncomingExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProviderIncoming, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProviderIncoming));
end;

procedure TfrmMDIPurchase.reProviderBackExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProviderBack, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProviderBack));
end;

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

procedure TfrmMDIPurchase.baProviderQuoteExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProviderQuote, self, iModuleID, (Sender as TAction).Name, TForm(frmProviderQuote));
end;

procedure TfrmMDIPurchase.baProductQuoteExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProductQuote, self, iModuleID, (Sender as TAction).Name, TForm(frmProductQuote));
end;

procedure TfrmMDIPurchase.rePurchaseDetailbyProExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmDetailProvidePurchase, self, iModuleID, (Sender as TAction).Name, TForm(frmDetailProvidePurchase));
end;

procedure TfrmMDIPurchase.rePurchaseTotalbyProExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmPurchaseSumByProv, self, iModuleID, (Sender as TAction).Name, TForm(frmPurchaseSumByProv));
end;

procedure TfrmMDIPurchase.rePurchaseRequestExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPurchaseRequest, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPurchaseRequest));
end;

end.