mdiguidancequery.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 70 行

unit MDIGuidanceQuery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModuleControl, Menus, ImgList, ActnList, fcButton, fcImgBtn,
  fcShapeBtn, fcClearPanel, fcButtonGroup, Buttons, ExtCtrls;

type
  TfrmMDIGuidanceQuery = class(TfrmModuleControl)
    baproduct: TAction;
    baprovider: TAction;
    bacustomer: TAction;
    baemployeebydep: TAction;
    baemloyeebytype: TAction;
    mastoretotal: TAction;
    mastoredetail: TAction;
    mastoreIO: TAction;
    maquote: TAction;
    reselldetail: TAction;
    reproducttotal: TAction;
    reprosumbyonecust: TAction;
    recussumbyoneprod: TAction;
    recustomertotal: TAction;
    repurchasedetail: TAction;
    repurchasetotal: TAction;
    bacustomerAccio: TAction;
    baprovideraccio: TAction;
    bacustomeraccount: TAction;
    baprovideraccount: TAction;
    bacosting: TAction;
    plmaterialplan: TAction;
    plresplan: TAction;
    plreswork: TAction;
    plproduceplan: TAction;
    plbrief: TAction;
    plprogressreport: TAction;
    plprogressAllso: TAction;
    plprogressallsooneday: TAction;
    plprogresstakematerial: TAction;
    shcontractquery: TAction;
    shsaleorderquery: TAction;
    shpurchaseorderquery: TAction;
    shpurchaseinquery: TAction;
    shelloutquery: TAction;
    shpayquery: TAction;
    shrevquery: TAction;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIGuidanceQuery: TfrmMDIGuidanceQuery;

implementation

{$R *.dfm}

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

end.