ufrm_level3_2.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  *****************************************
//  *    Program name: pattern ufrm_level3_2*
//  *    AUTHOR      : Guo xuliang 郭许良   *
//  *    Date        : 2005/05/15           *
//  *    Purpose     :公共模板第三层        *
//  *    Purpose     :雙檔維護模板(單頭維護)*
//  *****************************************

//=================================================================
//設置項目﹕
//1.WindowState:wsMaximized
//2.放入coolbar&toolbar&page&dbGride&button.
//3.procedure modistatus;
//4.procedure savestatus;
//=================================================================

unit ufrm_level3_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrm_level2, ComCtrls, ToolWin, ImgList, ExtCtrls, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, Menus;

type
  Tfrm_level3_2 = class(Tfrm_level2)
    IList_tools: TImageList;
    Ilist_tools2: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbExit: TToolButton;
    ToolButton12: TToolButton;
    tbAdd: TToolButton;
    tbEdit: TToolButton;
    tbDelete: TToolButton;
    ToolButton17: TToolButton;
    tbFirst: TToolButton;
    tbPrior: TToolButton;
    tbNext: TToolButton;
    tbLast: TToolButton;
    tbRefresh: TToolButton;
    tbFilter: TToolButton;
    tbQuery: TToolButton;
    ToolButton18: TToolButton;
    tbSave: TToolButton;
    tbUnsave: TToolButton;
    ToolButton19: TToolButton;
    tbConfirm: TToolButton;
    tbUnconfirm: TToolButton;
    ToolButton20: TToolButton;
    tbPrint: TToolButton;
    tbExcel: TToolButton;
    tbHelp: TToolButton;
    Page01: TPageControl;
    TabSheet1: TTabSheet;
    panelEdit: TPanel;
    tbDetail: TToolButton;
    Splitter1: TSplitter;
    PanelDetail1: TPanel;
    dbGrid: TdxDBGrid;
    l_RecordCount: TLabel;
    tbother: TToolButton;
    pp_other: TPopupMenu;
  private
    { Private declarations }
  protected
     procedure modistatus;
     procedure savestatus;
     procedure modistatus_add; virtual;
     procedure savestatus_add; virtual;
  public
    { Public declarations }
  end;

var
  frm_level3_2: Tfrm_level3_2;

implementation

{$R *.dfm}
procedure Tfrm_level3_2.modistatus;
begin
    PanelEdit.Enabled:=true;
    tbExit.Enabled:=false;

    tbAdd.Enabled:=false;
    tbEdit.Enabled:=false;
    tbDelete.Enabled:=false;
    tbDetail.Enabled:=false;

    tbFirst.Enabled:=false;
    tbPrior.Enabled:=false;
    tbNext.Enabled:=false;
    tbLast.Enabled:=false;

    tbQuery.Enabled:=false;
    tbPrint.Enabled:=false;
    tbRefresh.Enabled:=false;
    tbExcel.Enabled:=false;
    tbHelp.Enabled:=false;
    tbFilter.Enabled:=false;

    tbSave.Enabled:=true;
    tbUnsave.Enabled:=true;

    tbConfirm.Enabled:=false;
    tbUnconfirm.Enabled:=false;

    tbother.Enabled:=false;

    dbGrid.Enabled:=false;

    panelEdit.Color:=clMoneyGreen;
    //panelEdit.Color:=clSkyBlue;

    page01.ActivePageIndex:=0;

    modistatus_add;

end;



procedure Tfrm_level3_2.modistatus_add;
begin
;
end;

procedure Tfrm_level3_2.savestatus;
begin
   PanelEdit.Enabled:=false;
   tbExit.Enabled:=true;

   tbAdd.Enabled:=true;
   tbEdit.Enabled:=true;
   tbDelete.Enabled:=true;
   tbDetail.Enabled:=true;

   tbfirst.Enabled:=true;
   tbprior.Enabled:=true;
   tbnext.Enabled:=true;
   tblast.Enabled:=true;

   tbQuery.Enabled:=true;
   tbPrint.Enabled:=true;
   tbRefresh.Enabled:=true;
   tbExcel.Enabled:=true;
   tbHelp.Enabled:=true;
   tbFilter.Enabled:=true;

   tbSave.Enabled:=false;
   tbUnsave.Enabled:=false;

   tbConfirm.Enabled:=true;
   tbUnconfirm.Enabled:=true;

   tbother.Enabled:=true;

   panelEdit.Color:=clBtnFace;

   dbGrid.Enabled:=true;

   savestatus_add;
end;


procedure Tfrm_level3_2.savestatus_add;
begin
 ;
end;

end.