untmain.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit untMain;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  XPMan,
  StdCtrls,
  RzLabel,
  RzGroupBar,
  RzSplit,
  RzButton,
  ImgList,
  Menus,
  ActnList,
  ExtCtrls,
  RzPanel,
  RzTabs,
  RzStatus,
  JCAMConsts,
  JCAMUtils,
  JCAMManagerForm,
  JCAMConnectionForm;

type
  PForm = ^TForm;
  TfrmMain = class( TForm )
    xpMain: TXPManifest;
    ils16: TImageList;
    ils32: TImageList;
    alMain: TActionList;
    actMMerchant: TAction;
    actMBrand: TAction;
    actMInAccessory: TAction;
    actMComputer: TAction;
    actMOutAccessory: TAction;
    actMAfterService: TAction;
    actMEmployee: TAction;
    actFModifyPassword: TAction;
    actFServerInfo: TAction;
    actELogout: TAction;
    actEExit: TAction;
    tabMainContainer: TRzTabControl;
    pnlMainParent: TPanel;
    actMStartPage: TAction;
    pnlNavBar: TRzSizePanel;
    gbrMainNav: TRzGroupBar;
    grpManager: TRzGroup;
    grpExpand: TRzGroup;
    grpExit: TRzGroup;
    grpTeacherInfo: TRzGroup;
    lblLoginName: TRzLabel;
    lblRealName: TRzLabel;
    lblLoginTime: TRzLabel;
    tbrMain: TRzToolbar;
    ils24: TImageList;
    stbMain: TRzStatusBar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton4: TRzToolButton;
    RzToolButton5: TRzToolButton;
    actTShowExpBar: TAction;
    RzToolButton6: TRzToolButton;
    actTFullScreen: TAction;
    RzToolButton7: TRzToolButton;
    RzSpacer3: TRzSpacer;
    actMIncomeExpenses: TAction;
    actInfoAdd: TAction;
    actInfoDelete: TAction;
    actInfoEdit: TAction;
    actInfoSave: TAction;
    actInfoCancel: TAction;
    actInfoSelectAll: TAction;
    actInfoSimpleSearch: TAction;
    stpSelectedCount: TRzStatusPane;
    RzKeyStatus1: TRzKeyStatus;
    RzKeyStatus2: TRzKeyStatus;
    stpItemsCount: TRzStatusPane;
    stpSelectedIndex: TRzStatusPane;
    stpRemark: TRzStatusPane;
    stpWorkArea: TRzGlyphStatus;
    actTAbout: TAction;
    RzToolButton8: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton9: TRzToolButton;
    pmTools: TPopupMenu;
    miTIEDBFiles: TMenuItem;
    miTCalc: TMenuItem;
    actMTIEDBFiles: TAction;
    actMTCalc: TAction;
    sprLogo: TRzSpacer;
    pnlLogo: TRzPanel;
    imgLogo: TImage;
    procedure actMMerchantExecute( Sender: TObject );
    procedure actMBrandExecute( Sender: TObject );
    procedure actMInAccessoryExecute( Sender: TObject );
    procedure actMComputerExecute( Sender: TObject );
    procedure actMOutAccessoryExecute( Sender: TObject );
    procedure actMAfterServiceExecute( Sender: TObject );
    procedure actMEmployeeExecute( Sender: TObject );
    procedure actFModifyPasswordExecute( Sender: TObject );
    procedure actFServerInfoExecute( Sender: TObject );
    procedure actELogoutExecute( Sender: TObject );
    procedure actEExitExecute( Sender: TObject );
    procedure FormCreate( Sender: TObject );
    procedure actMStartPageExecute( Sender: TObject );
    procedure tabMainContainerChange( Sender: TObject );
    procedure tabMainContainerClose( Sender: TObject; var AllowClose: Boolean );
    procedure actTShowExpBarExecute( Sender: TObject );
    procedure tabMainContainerDblClick( Sender: TObject );
    procedure actTFullScreenExecute( Sender: TObject );
    procedure actMIncomeExpensesExecute( Sender: TObject );
    procedure pACTInfoExecute( Sender: TObject );
    procedure actTAboutExecute( Sender: TObject );
    procedure actMTCalcExecute( Sender: TObject );
    procedure actMTIEDBFilesExecute( Sender: TObject );
    procedure tbrMainResize( Sender: TObject );
    procedure imgLogoClick( Sender: TObject );
  private
    m_sLoginName: string;
    m_bStartPageLoaded: Boolean;
    m_bMerchantLoaded: Boolean;
    m_bBrandLoaded: Boolean;
    m_bInAccessoryLoaded: Boolean;
    m_bComputerLoaded: Boolean;
    m_bOutAccessoryLoaded: Boolean;
    m_bAfterServiceLoaded: Boolean;
    m_bEmployeeLoaded: Boolean;
    m_bIncomeExpensesLoaded: Boolean;
    procedure SetLoginName( const Value: string );
    procedure pLoadMainStartPage;
    procedure pLoadManagerForm( var bFormLoaded: Boolean; var frmManagerForm:
      TForm; clsManagerForm: TFormClass; sTableViewName, sKeyFieldName,
      sSaveInfoProcName, sDeleteInfoProcName: string; actManagerControl: TAction
      );
    function GetCurrentPageIndex: Integer;
    procedure SetCurrentPageIndex( const Value: Integer );
    function GetCurrentPageAddr: Pointer;
    function GetStatusItemsCount: string;
    function GetStatusRemark: string;
    function GetStatusSelectedCount: string;
    function GetStatusSelectedIndex: string;
    procedure SetStatusItemsCount( const Value: string );
    procedure SetStatusRemark( const Value: string );
    procedure SetStatusSelectedCount( const Value: string );
    procedure SetStatusSelectedIndex( const Value: string );
  public
    property LoginName: string
      read m_sLoginName
      write SetLoginName;
    property CurrentPageIndex: Integer
      read GetCurrentPageIndex
      write SetCurrentPageIndex;
    property CurrentPageAddr: Pointer
      read GetCurrentPageAddr;
    property StatusItemsCount: string
      read GetStatusItemsCount
      write SetStatusItemsCount;
    property StatusSelectedCount: string
      read GetStatusSelectedCount
      write SetStatusSelectedCount;
    property StatusSelectedIndex: string
      read GetStatusSelectedIndex
      write SetStatusSelectedIndex;
    property StatusRemark: string
      read GetStatusRemark
      write SetStatusRemark;
    procedure ExitFullScreen;
    procedure StartSurf;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

uses
  untAbout,
  untServerInfo,
  untLogin,
  untFullScreenButton,
  untModifyPassword,
  untMerchantManager,
  untBrandManager,
  untInAccessoryManager,
  untComputerManager,
  untEmployeeManager,
  untOutAccessoryManager,
  untAfterServiceManager,
  untIncomeExpensesManager,
  untTMerchant,
  untTBrand,
  untTInAccessory,
  untTComputer,
  untTEmployee,
  untTOutAccessory,
  untTAfterService,
  untTIncomeExpenses,
  untMainStartPage;

procedure TfrmMain.actEExitExecute( Sender: TObject );
begin
  { 退出 }

  FreeAndNil( Self );
  Application.Terminate;
end;

procedure TfrmMain.actELogoutExecute( Sender: TObject );
begin
  { 注销 }

  FreeAndNil( Self );
  Application.CreateForm( TfrmLogin, frmLogin );
  frmLogin.Show;
end;

procedure TfrmMain.actFModifyPasswordExecute( Sender: TObject );
begin
  { 修改密码 }

  frmModifyPassword := TfrmModifyPassword.Create( Self );
  with frmModifyPassword do
  begin
    Connection := g_cnJCAMIS;
    LoginName := Self.LoginName;
    ShowModal;
  end;
  FreeAndNil( frmModifyPassword );
end;

procedure TfrmMain.actFServerInfoExecute( Sender: TObject );
begin
  { 设置服务器信息 }

  frmServerInfo := TfrmServerInfo.Create( Self );
  with frmServerInfo do
  begin
    ShowModal;
  end;
  FreeAndNil( frmServerInfo );
end;

procedure TfrmMain.actTAboutExecute( Sender: TObject );
begin
  frmAbout := TfrmAbout.Create( Self );
  with frmAbout do
  begin
    ShowModal;
  end;
  FreeAndNil( frmAbout );
end;

procedure TfrmMain.actTFullScreenExecute( Sender: TObject );
begin
  { 全屏幕 }

  Visible := False;
  if actTFullScreen.Checked then
  begin
    BorderStyle := bsNone;
    WindowState := wsNormal;
    SetBounds( 0, 0, Screen.Width, Screen.Height );
    actTFullScreen.Checked := True;
    pnlNavBar.Visible := False;
    tbrMain.Visible := False;
    stbMain.Visible := False;

    if frmFullScreenButton = nil then
    begin
      frmFullScreenButton := TfrmFullScreenButton.Create( Self );
      frmFullScreenButton.Show;
    end;
  end
  else
  begin
    BorderStyle := bsSizeable;
    WindowState := wsMaximized;
    actTFullScreen.Checked := False;
    pnlNavBar.Visible := True;
    tbrMain.Visible := True;
    stbMain.Visible := True;

    if frmFullScreenButton <> nil then
      FreeAndNil( frmFullScreenButton );
  end;
  Visible := True;
end;

procedure TfrmMain.actTShowExpBarExecute( Sender: TObject );
begin
  { 导航栏 }

  if actTShowExpBar.Checked then
  begin
    pnlNavBar.RestoreHotSpot;
    actTShowExpBar.Checked := True;
  end
  else
  begin
    pnlNavBar.CloseHotSpot;
    actTShowExpBar.Checked := False;
  end;
end;

procedure TfrmMain.ExitFullScreen;
begin
  actTFullScreen.Checked := False;
  actTFullScreenExecute( Self );
end;

procedure TfrmMain.actMAfterServiceExecute( Sender: TObject );
begin
  { 售后管理 }

  pLoadManagerForm(
    m_bAfterServiceLoaded,
    TForm( frmAfterServiceManager ),
    TfrmAfterServiceManager,
    VN_AFTERSERVICE,
    KFN_AFTERSERVICE,
    PN_SAVEAFTERSERVICEINFO,
    PN_DELETEAFTERSERVICEINFO,
    actMAfterService );
end;

procedure TfrmMain.actMBrandExecute( Sender: TObject );
begin
  { 品牌管理 }

  pLoadManagerForm(
    m_bBrandLoaded,
    TForm( frmBrandManager ),
    TfrmBrandManager,
    VN_BRAND,
    KFN_BRAND,
    PN_SAVEBRANDINFO,
    PN_DELETEBRANDINFO,
    actMBrand );
end;

procedure TfrmMain.actMComputerExecute( Sender: TObject );
begin
  { 装机管理 }

  pLoadManagerForm(
    m_bComputerLoaded,
    TForm( frmComputerManager ),
    TfrmComputerManager,
    VN_COMPUTER,
    KFN_COMPUTER,