ufrm_level3_3.pas

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

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

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

interface

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

type
  Tfrm_level3_3 = class(Tfrm_level2)
    Ilist_tools2: TImageList;
    IList_tools: 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;
    Bevel1: TBevel;
    Splitter1: TSplitter;
    PanelDetail1: TPanel;
    dbGrid: TdxDBGrid;
    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_3: Tfrm_level3_3;

implementation

{$R *.dfm}

procedure Tfrm_level3_3.modistatus;
begin
    PanelEdit.Enabled:=true;
    tbExit.Enabled:=false;

    tbAdd.Enabled:=false;
    tbEdit.Enabled:=false;
    tbDelete.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:=clSilver;

    page01.ActivePageIndex:=0;
    modistatus_add;
end;


procedure Tfrm_level3_3.modistatus_add;
begin
 ;
end;

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

   tbAdd.Enabled:=true;
   tbEdit.Enabled:=true;
   tbDelete.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_3.savestatus_add;
begin
 ;
end;

end.