ufrm_level3_1.pas

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

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

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

interface

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

type
  Tfrm_level3_1 = class(Tfrm_level2)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbExit: TToolButton;
    ToolButton12: TToolButton;
    tbAdd: TToolButton;
    tbEdit: TToolButton;
    tbDelete: TToolButton;
    ToolButton17: TToolButton;
    tbFirst: TToolButton;
    tbPrior: TToolButton;
    tbNext: TToolButton;
    tbLast: TToolButton;
    tbQuery: TToolButton;
    ToolButton18: TToolButton;
    tbSave: TToolButton;
    tbUnsave: TToolButton;
    ToolButton19: TToolButton;
    tbConfirm: TToolButton;
    tbUnconfirm: TToolButton;
    ToolButton20: TToolButton;
    tbPrint: TToolButton;
    tbExcel: TToolButton;
    tbHelp: TToolButton;
    IList_tools: TImageList;
    Page01: TPageControl;
    TabSheet1: TTabSheet;
    panelEdit: TPanel;
    TabSheet2: TTabSheet;
    dbGrid: TdxDBGrid;
    tbRefresh: TToolButton;
    tbFilter: TToolButton;
    Ilist_tools2: TImageList;
    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_1: Tfrm_level3_1;

implementation

{$R *.dfm}

procedure Tfrm_level3_1.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;

    tbother.Enabled:=false;

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

    dbGrid.Enabled:=false;

    //panelEdit.Color:=clSilver;

    page01.ActivePageIndex:=0;

    modistatus_add;
end;


procedure Tfrm_level3_1.modistatus_add;
begin
;
end;

procedure Tfrm_level3_1.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;

   tbother.Enabled:=true;

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


   //panelEdit.Color:=clBtnFace;

   dbGrid.Enabled:=true;

   savestatus_add;
end;


procedure Tfrm_level3_1.savestatus_add;
begin
;
end;

end.