clientmain.pas

三层ERP系统 (SQL)

unit ClientMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList, ImgList, ComCtrls, Buttons, ExtCtrls,
  ShellAPI, MMDIBase, ToolWin, StdCtrls, StdActns, CanvasButton;
const
  WM_USER_SHOWMAINCONTROL = WM_USER+1024;
  
type
  TMDIFormClass = Class of TfrmMMDIbase;

  TfrmClientMain = class(TForm)
    StatusBar: TStatusBar;
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    nonimagelist: TImageList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action18: TAction;
    ALModule: TActionList;
    acSystem: TAction;
    acSell: TAction;
    acStock: TAction;
    acBusinessFlow: TAction;
    acMRP: TAction;
    acProducePlanning: TAction;
    acProduceFlow: TAction;
    acFinance: TAction;
    acGuidanceQuery: TAction;
    acReports: TAction;
    acAlarm: TAction;
    acPurchase: TAction;
    N25: TMenuItem;
    Action20: TAction;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    Action5: TAction;
    Action6: TAction;
    Action7: TAction;
    Action8: TAction;
    Action9: TAction;
    Action10: TAction;
    paneltoolbar: TPanel;
    paneltool: TPanel;
    spbtnstandart: TSpeedButton;
    Pagec: TPageControl;
    PMStantard: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    spbtn3: TSpeedButton;
    spbtn4: TSpeedButton;
    spbtn5: TSpeedButton;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    spbtn6: TSpeedButton;
    spbtn1: TSpeedButton;
    spbtn2: TSpeedButton;
    Action11: TAction;
    Action12: TAction;
    Action13: TAction;
    procedure FormCreate(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Action3Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acSystemExecute(Sender: TObject);
    procedure acSellExecute(Sender: TObject);
    procedure Action20Execute(Sender: TObject);
    procedure acPurchaseExecute(Sender: TObject);
    procedure acStockExecute(Sender: TObject);
    procedure acBusinessFlowExecute(Sender: TObject);
    procedure acMRPExecute(Sender: TObject);
    procedure acProducePlanningExecute(Sender: TObject);
    procedure acProduceFlowExecute(Sender: TObject);
    procedure acFinanceExecute(Sender: TObject);
    procedure acGuidanceQueryExecute(Sender: TObject);
    procedure acReportsExecute(Sender: TObject);
    procedure acAlarmExecute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
    procedure Action9Execute(Sender: TObject);
    procedure Action10Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure spbtnstandartClick(Sender: TObject);
    procedure PagecChange(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action12Execute(Sender: TObject);
    procedure Action13Execute(Sender: TObject);
  private
    BmainClose:Boolean;
    procedure showmaincontrol(var showmaincontrol:Tmessage);Message WM_USER_SHOWMAINCONTROL;
    procedure ShowMDIForm(FormClass:TMDIFormClass; ModuleID:Integer); {承