mdiguidancequery.pas

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

unit MDIGuidanceQuery;

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
  TfrmMDIGuidanceQuery = class(TfrmModuleControl)
    baProduct: TAction;
    maStoreTotal: TAction;
    maQuote: TAction;
    shSaleOrderQuery: TAction;
    shPurchaseOrderQuery: TAction;
    shPurchaseInQuery: TAction;
    shSellOutQuery: TAction;
    plResPlan: TAction;
    plProducePlan: TAction;
    plMaterailPlan: TAction;
    plBrief: TAction;
    baCustomerAccIO: TAction;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    shContractQuery: TAction;
    shPayQuery: TAction;
    shRevQuery: TAction;
    baProvider: TAction;
    baCustomer: TAction;
    maStoreDetail: TAction;
    maStoreIO: TAction;
    baProviderAccIO: TAction;
    baCustomerAccount: TAction;
    baProviderAccount: TAction;
    reProSumbyOneCust: TAction;
    reSellDetail: TAction;
    reCustomerTotal: TAction;
    reCustSumbyOneProd: TAction;
    reProductTotal: TAction;
    rePurchaseTotal: TAction;
    rePurchaseDetail: TAction;
    baEmployeebyDep: TAction;
    baEmployeebyType: TAction;
    plResWork: TAction;
    plProgressReport: TAction;
    plProgressAllSO: TAction;
    plProgressAllSOOneDay: TAction;
    plProgressTakeMateriel: TAction;
    procedure FormCreate(Sender: TObject);
    procedure baRightExecute(Sender: TObject);
    procedure baProductExecute(Sender: TObject);
    procedure baProviderExecute(Sender: TObject);
    procedure baCustomerExecute(Sender: TObject);
    procedure shContractQueryExecute(Sender: TObject);
    procedure shSaleOrderQueryExecute(Sender: TObject);
    procedure shPurchaseOrderQueryExecute(Sender: TObject);
    procedure shPurchaseInQueryExecute(Sender: TObject);
    procedure shSellOutQueryExecute(Sender: TObject);
    procedure shPayQueryExecute(Sender: TObject);
    procedure shRevQueryExecute(Sender: TObject);
    procedure plResPlanExecute(Sender: TObject);
    procedure plProducePlanExecute(Sender: TObject);
    procedure plMaterailPlanExecute(Sender: TObject);
    procedure plBriefExecute(Sender: TObject);
    procedure maStoreTotalExecute(Sender: TObject);
    procedure maQuoteExecute(Sender: TObject);
    procedure maStoreDetailExecute(Sender: TObject);
    procedure maStoreIOExecute(Sender: TObject);
    procedure baCostingExecute(Sender: TObject);
    procedure baCustomerAccountExecute(Sender: TObject);
    procedure baProviderAccountExecute(Sender: TObject);
    procedure reSellDetailExecute(Sender: TObject);
    procedure reProductTotalExecute(Sender: TObject);
    procedure reCustomerTotalExecute(Sender: TObject);
    procedure reProSumbyOneCustExecute(Sender: TObject);
    procedure reCustSumbyOneProdExecute(Sender: TObject);
    procedure baCustomerAccIOExecute(Sender: TObject);
    procedure baProviderAccIOExecute(Sender: TObject);
    procedure rePurchaseDetailExecute(Sender: TObject);
    procedure rePurchasePlanExecute(Sender: TObject);
    procedure rePurchaseTotalExecute(Sender: TObject);
    procedure baEmployeebyDepExecute(Sender: TObject);
    procedure baEmployeebyTypeExecute(Sender: TObject);
    procedure plResWorkExecute(Sender: TObject);
    procedure plProgressReportExecute(Sender: TObject);
    procedure plProgressAllSOExecute(Sender: TObject);
    procedure plProgressAllSOOneDayExecute(Sender: TObject);
    procedure plProgressTakeMaterielExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIGuidanceQuery: TfrmMDIGuidanceQuery;

implementation

uses Global, GroupRight,
  QueryContractManage, QuerySellOrder, QueryPurchaseOrder,
  QueryPOIncomingOrder, QueryBillSellOut, QueryPaymentProvider,
  QueryPaymentCustomer, TreeResPlan, TreeMPS, MaterielDecompose,
  FCBrief, QueryStorageTotal, ProductQuote, TakeMateriel, ProductsIncome,
  FCCosting, AccountCustomer, AccountProvider, QueryProduct, QueryProvider,
  QueryCustomer, DetailCustomerSell, SellProductSumByCust,
  SellCustSumByProd, SellProductSumByOneCust, SellCustSumByOneProd,
  QueryStore, QueryStorageIO, CustomerAccountIO, ProviderAccountIO,
  DetailProvidePurchase, ImportProduceOrder, PurchaseSumByProv,
  QueryPurchase, QuerySeller, QueryMPS, ResPlanReport, ResWorkReport,
  QueryProgress, QueryProgressAllSO, QueryProgressAllSOOneDay,
  ProgressTakeMateriel;

{$R *.dfm}

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

procedure TfrmMDIGuidanceQuery.baRightExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmGroupRight, self, iModuleID, (Sender as TAction).Name, TForm(frmGroupRight));
end;

procedure TfrmMDIGuidanceQuery.baProductExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProduct, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProduct));
end;

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

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

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

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

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

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

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

procedure TfrmMDIGuidanceQuery.shPayQueryExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPaymentProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPaymentProvider));
end;

procedure TfrmMDIGuidanceQuery.shRevQueryExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryPaymentCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryPaymentCustomer));
end;

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

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

procedure TfrmMDIGuidanceQuery.plMaterailPlanExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmMaterielDecompose, self, iModuleID, (Sender as TAction).Name, TForm(frmMaterielDecompose));
end;

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

procedure TfrmMDIGuidanceQuery.maStoreTotalExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryStorageTotal, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryStorageTotal));
end;

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

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

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

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

procedure TfrmMDIGuidanceQuery.baCustomerAccountExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAccountCustomer, self, iModuleID, (Sender as TAction).Name, TForm(frmAccountCustomer));
end;

procedure TfrmMDIGuidanceQuery.baProviderAccountExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmAccountProvider, self, iModuleID, (Sender as TAction).Name, TForm(frmAccountProvider));
end;

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

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

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

end;

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

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

procedure TfrmMDIGuidanceQuery.baCustomerAccIOExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmCustomerAccountIO, self, iModuleID, (Sender as TAction).Name, TForm(frmCustomerAccountIO));
end;

procedure TfrmMDIGuidanceQuery.baProviderAccIOExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmProviderAccountIO, self, iModuleID, (Sender as TAction).Name, TForm(frmProviderAccountIO));
end;

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

procedure TfrmMDIGuidanceQuery.rePurchasePlanExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmImportProduceOrder, self, iModuleID, (Sender as TAction).Name, TForm(frmImportProduceOrder));
end;

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

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

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

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

procedure TfrmMDIGuidanceQuery.plProgressReportExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmQueryProgress, self, iModuleID, (Sender as TAction).Name, TForm(frmQueryProgress));
end;

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

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

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

end.