mdipurchase.pas

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

unit MDIPurchase;

interface

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

type
  TfrmMDIPurchase = class(TfrmModuleControl)
    repurchasetotalbypro: TAction;
    baprovider: TAction;
    babuyer: TAction;
    baproviderquote: TAction;
    baproductquote: TAction;
    stSubmit: TAction;
    stFinish: TAction;
    stCandel: TAction;
    stpurchaserequest: TAction;
    stpurchaseorder: TAction;
    stpoincoming: TAction;
    stporeturn: TAction;
    stproviderincoming: TAction;
    stproviderback: TAction;
    reprovider: TAction;
    repurchaserequest: TAction;
    repurchaseorder: TAction;
    reincomeorder: TAction;
    repruchasereturnorder: TAction;
    reprovidcerincoming: TAction;
    reproviderback: TAction;
    repuirchasedetailbypro: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMDIPurchase: TfrmMDIPurchase;

implementation

{$R *.dfm}

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

end.