maincontrol.pas

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

unit mainControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, MMDIBase, StdCtrls;

type
  TfrmMainControl = class(TfrmMMDIBase)
    pnlTop: TPanel;
    ImgTop: TImage;
    pnlClient: TPanel;
    ImgMain: TImage;
    spbSystem: TSpeedButton;
    spbPurchase: TSpeedButton;
    spbSell: TSpeedButton;
    spbAlarm: TSpeedButton;
    spbBusinessFlow: TSpeedButton;
    spbGuidanceQuery: TSpeedButton;
    spbMRP: TSpeedButton;
    spbProduceFlow: TSpeedButton;
    spbProducePlanning: TSpeedButton;
    spbReports: TSpeedButton;
    spbStock: TSpeedButton;
    spbFinance: TSpeedButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure WM_CLOSE(var MESSAGE:TWMCLOSE);message WM_CLOSE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMainControl: TfrmMainControl;

implementation

uses Global;

{$R *.dfm}

{ TfrmMainControl }

procedure TfrmMainControl.WM_CLOSE(var MESSAGE: TWMCLOSE);
begin
  Abort;
end;

procedure TfrmMainControl.FormCreate(Sender: TObject);
begin
  inherited;
  imgtop.Picture.LoadFromFile(GetLogDir('Images')+'MainControl\maintop.bmp');
  imgmain.Picture.LoadFromFile(GetLogDir('Images')+'MainControl\mainGroup.bmp');
end;

end.