ufrm_level3.pas

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

//  ***************************************
//  *    Program name: pattern ufrm_level3*
//  *    AUTHOR      : Guo xuliang 郭许良 *
//  *    Date        : 2005/05/15         *
//  *    Purpose     :公共模板第三层      *
//  ***************************************

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

unit ufrm_level3;

interface

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

type
  Tfrm_level3 = 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;
  private
    { Private declarations }
  protected
     procedure modistatus;
     procedure savestatus;
  public
    { Public declarations }
  end;

var
  frm_level3: Tfrm_level3;

implementation

{$R *.dfm}

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

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

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

    dbGrid.Enabled:=false;

    page01.ActivePageIndex:=0;
end;


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

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

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

   dbGrid.Enabled:=true;

end;


end.