maincontrol.pas

Barcode And LabelPrint

unit MainControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MDIBase, ExtCtrls, Buttons, ActnList, Menus, Main, StdCtrls;

type
  TfrmMainControl = class(TfrmMDIBase)
    pnlTop: TPanel;
    pnlClient: TPanel;
    spbSystem: TSpeedButton;
    spbPurchase: TSpeedButton;
    spbSell: TSpeedButton;
    spbAlarm: TSpeedButton;
    spbBusinessFlow: TSpeedButton;
    spbGuidanceQuery: TSpeedButton;
    spbMRP: TSpeedButton;
    spbProduceFlow: TSpeedButton;
    spbProducePlanning: TSpeedButton;
    spbStock: TSpeedButton;
    spbFinance: TSpeedButton;
    ImgMain: TImage;
    ImgTop: TImage;
    Label1: TLabel;
    lbType: TLabel;
    Label2: TLabel;
    lbEdition: TLabel;
    spbReports: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    procedure WMClose (var message : TWMClose);message WM_CLOSE;  //截取Close消息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMainControl: TfrmMainControl;

implementation

Uses Global;
{$R *.dfm}

//截取Close消息
procedure TfrmMainControl.WMClose (var message : TWMClose);
begin
abort;
end;

procedure TfrmMainControl.FormCreate(Sender: TObject);
begin
  inherited;
lbType.Caption := c_AppType;
lbEdition.Caption := c_AppEdition;

{$IFDEF DEMO}
Label3.Caption :='可用天数：';
Label4.Caption :=FloattoStr(c_Day-(Date - G_StartDate))+'天';
{$ELSE}
Label3.Caption :='许可给：';
Label4.Caption :='Misystem';
{$ENDIF}

ImgTop.Picture.LoadFromFile('MainTop.Bmp');
ImgMain.Picture.LoadFromFile('MainGroup.Bmp'); 
end;

end.