mdisell.pas

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

unit MDISell;

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
  TfrmMDISell = class(TfrmModuleControl)
    baCustomer: TAction;
    baOperation: TAction;
    saSaleOrder: TAction;
    saSaleOutOrder: TAction;
    saSaleReturnOrder: TAction;
    saBargain: TAction;
    reCustomer: TAction;
    reSaleBargain: TAction;
    reSaleOutOrder: TAction;
    reSaleReturnOrder: TAction;
    reSaleParticular: TAction;
    reProdSumbyOneCust: TAction;
    stCancel: TAction;
    stSubmit: TAction;
    stFinish: TAction;
    reSellOrder: TAction;
    saCustomerBack: TAction;
    saCustomerOut: TAction;
    reCustomerBack: TAction;
    reCustomerOut: 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;
    reCustomerTotal: TAction;
    acProductSellTotal: TAction;
    reCustSumbyOneProd: TAction;
    procedure FormCreate(Sender: TObject);
    procedure baCustomerExecute(Sender: TObject);
    procedure baOperationExecute(Sender: TObject);
    procedure baCustomerBOMExecute(Sender: TObject);
    procedure saBargainExecute(Sender: TObject);
    procedure saSaleOutOrderExecute(Sender: TObject);
    procedure saSaleOrderExecute(Sender: TObject);
    procedure stSubmitExecute(Sender: TObject);
    procedure stCancelExecute(Sender: TObject);
    procedure stFinishExecute(Sender: TObject);
    procedure reSellOrderExecute(Sender: TObject);
    procedure saSaleReturnOrderExecute(Sender: TObject);
    procedure reSaleReturnOrderExecute(Sender: TObject);
    procedure reSaleOutOrderExecute(Sender: TObject);
    procedure reSaleBargainExecute(Sender: TObject);
    procedure reCustomerExecute(Sender: TObject);
    procedure reOperationExecute(Sender: TObject);
    procedure saCustomerBackExecute(Sender: TObject);
    procedure saCustomerOutExecute(Sender: TObject);
    procedure reCustomerBackExecute(Sender: TObject);
    procedure reCustomerOutExecute(Sender: TObject);
    procedure reSaleParticularExecute(Sender: TObject);
    procedure reProdSumbyOneCustExecute(Sender: TObject);
    procedure reCustomerTotalExecute(Sender: TObject);
    procedure reCustSumbyOneProdExecute(Sender: TObject);
    procedure acProductSellTotalExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDISell        : TfrmMDISell;

implementation

uses BaseCustomer, Global, BasePurchaser, BaseSell, BaseCustomerProduct,
  ContractManage, billSellOut, SellOrder, SellOrderSubmit, SellOrderCancel,
  SellOrderFinish, QuerySellOrder, BillSellBack, QueryBillSellBack,
  QueryBillSellOut, QueryContractManage, QueryCustomer, QuerySeller,
  CustomerBack, CustomerOut, QueryCustomerBack, QueryCustomerOut,
  DetailCustomerSell, SellProductSumByOneCust, SellCustSumByProd,
  SellCustSumByOneProd, SellProductSumByCust;

{$R *.dfm}

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

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

procedure TfrmMDISell.baOperationExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseSell, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseSell));
end;

procedure TfrmMDISell.baCustomerBOMExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBaseCustomerProduct, self, iModuleID, (Sender as TAction).Name, TForm(frmBaseCustomerProduct));
end;

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

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

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

procedure TfrmMDISell.stSubmitExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellOrderSubmit, self, iModuleID, (Sender as TAction).Name, TForm(frmSellOrderSubmit));
end;

procedure TfrmMDISell.stCancelExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellOrderCancel, self, iModuleID, (Sender as TAction).Name, TForm(frmSellOrderCancel));
end;

procedure TfrmMDISell.stFinishExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellOrderFinish, self, iModuleID, (Sender as TAction).Name, TForm(frmSellOrderFinish));
end;

procedure TfrmMDISell.reSellOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQuerySellOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmQuerySellOrder));
end;

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

procedure TfrmMDISell.reSaleReturnOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryBillSellBack, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryBillSellBack));
end;

procedure TfrmMDISell.reSaleOutOrderExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryBillSellOut, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryBillSellOut));
end;

procedure TfrmMDISell.reSaleBargainExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryContractManage, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryContractManage));
end;

procedure TfrmMDISell.reCustomerExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryCustomer));
end;

procedure TfrmMDISell.reOperationExecute(Sender: TObject);
begin
  inherited;
  //ShowNormalForm(TfrmQuerySeller,self,iModuleID,(Sender as TAction).Name,TForm(frmQuerySeller));
end;

procedure TfrmMDISell.saCustomerBackExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCustomerBack, self, iModuleID, (Sender as TAction).Name, TForm(frmCustomerBack));
end;

procedure TfrmMDISell.saCustomerOutExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCustomerOut, self, iModuleID, (Sender as TAction).Name, TForm(frmCustomerOut));
end;

procedure TfrmMDISell.reCustomerBackExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryCustomerBack, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryCustomerBack));
end;

procedure TfrmMDISell.reCustomerOutExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryCustomerOut, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryCustomerOut));
end;

procedure TfrmMDISell.reSaleParticularExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmDetailCustomerSell, self, iModuleID, (Sender as TAction).Name, TForm(frmDetailCustomerSell));
end;

procedure TfrmMDISell.reProdSumbyOneCustExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellProductSumByOneCust, self, iModuleID, (Sender as TAction).Name, TForm(frmSellProductSumByOneCust));

end;

procedure TfrmMDISell.reCustomerTotalExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellCustSumByProd, self, iModuleID, (Sender as TAction).Name, TForm(frmSellCustSumByProd));
end;

procedure TfrmMDISell.reCustSumbyOneProdExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellCustSumByOneProd, self, iModuleID, (Sender as TAction).Name, TForm(frmSellCustSumByOneProd));
end;

procedure TfrmMDISell.acProductSellTotalExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmSellProductSumByCust, self, iModuleID, (Sender as TAction).Name, TForm(frmSellProductSumByCust));
end;

end.