modulecontrol.pas

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

unit ModuleControl;


interface

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

type
  TfrmModuleControl = class(TfrmMMDIBase)
    pnlNavigator: TPanel;
    pnlCenter: TPanel;
    ActionList: TActionList;
    spb1: TSpeedButton;
    spb2: TSpeedButton;
    spb3: TSpeedButton;
    spb4: TSpeedButton;
    spb5: TSpeedButton;
    spb6: TSpeedButton;
    spb7: TSpeedButton;
    spb8: TSpeedButton;
    spb9: TSpeedButton;
    spb10: TSpeedButton;
    spb11: TSpeedButton;
    spb12: TSpeedButton;
    spb13: TSpeedButton;
    spb14: TSpeedButton;
    spb15: TSpeedButton;
    spb16: TSpeedButton;
    Panel1: TPanel;
    fcBtgNavigator: TfcButtonGroup;
    fcbtn1: TfcShapeBtn;
    fcbtn2: TfcShapeBtn;
    fcbtn3: TfcShapeBtn;
    fcbtn4: TfcShapeBtn;
    fcbtn5: TfcShapeBtn;
    fcbtn6: TfcShapeBtn;
    fcbtn7: TfcShapeBtn;
    fcbtn8: TfcShapeBtn;
    ImgLeft: TImage;
    ImgRight: TImage;
    ImgLstModule: TImageList;
    pnlFlow: TPanel;
    ImgFlowRight: TImage;
    procedure fcbtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure UpdatePnlCenter(Sender: TObject); //