ufrmtopreport.pas

一个会议签到系统

{*******************************************************************************
*              用于树不托动的模板        业务模块经常用到 特别是单据类
*              风格：工具条+树+表格    
*ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
*              改进后的窗体 主要是界面上   去掉了标题栏
*              工具条该为 Pannle 制作  更加灵活的 按钮 有 SpeetBtn
*ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
*              标准工具条 Height=30
*              工具条上按钮高 = 25  宽=30  所以如果 PnlTOP 高 = 30  就刚好显示工具条
*              如果  PnlTOP 高 > 30  就可以放 其他控件 制作其他单据等
*ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
*              界面经过改动 已经很完整了 很适用 工作去很大
*              用Panel 代替了工具条  更加 灵活实用
*              200303021  符林
*ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
*              这个积累根据 FrmTopCA 演变而来的  主要是很多窗口上有多个表格
*              所以这个窗口可以很 FramGrid 混合使用   20030402
*ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
*               报表专用窗体  用来显示报表
*******************************************************************************}
unit uFrmTopReport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uFrmTop, AppEvnts, ActnList, ExtCtrls, Buttons, ImgList, ComCtrls,
  ToolWin, OleCtrls, MSFlexGridLib_TLB, StdCtrls,uDataSys, Menus,
  CELLLib_TLB;

type
  TFrmTopReport = class(TFrmTop)
    PnlTop: TPanel;
    IMGTree: TImageList;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N9: TMenuItem;
    PopupMenu2: TPopupMenu;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    ActTrvVisible: TAction;
    PnlToolBar: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    SpbtnRefresh: TSpeedButton;
    SpbtnAdd: TSpeedButton;
    SpbtnEdit: TSpeedButton;
    SpbtnDel: TSpeedButton;
    SpbtnSave: TSpeedButton;
    SpbtnCancel: TSpeedButton;
    SpbtnExport: TSpeedButton;
    SpbtnPrint: TSpeedButton;
    SpbtnFirst: TSpeedButton;
    SpbtnPrivor: TSpeedButton;
    SpbtnNext: TSpeedButton;
    SpbtnLast: TSpeedButton;
    SpbtnExit: TSpeedButton;
    Panel7: TPanel;
    SpbtnFind: TSpeedButton;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Cell32: TCell;
    procedure TbtExitClick(Sender: TObject);
    procedure SpbtnExitClick(Sender: TObject);
    procedure SpbtnAddClick(Sender: TObject);
    procedure SpbtnEditClick(Sender: TObject);
    procedure SpbtnSaveClick(Sender: TObject);
    procedure SpbtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure PFxGridSetFocus(iEditClass: Integer);
    { Private declarations }
  public
    {用于绑定控件}
    GridControl:Array of TGridColCon;
    { Public declarations }
  end;

var
  FrmTopReport: TFrmTopReport;

implementation

uses uFuntionSys;

{$R *.DFM}

procedure TFrmTopReport.TbtExitClick(Sender: TObject);
begin
  inherited;
  Self.Close;
end;

procedure TFrmTopReport.SpbtnExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;
{*******************************************************************************
*         表格控件的焦点设置
*         iEditClass=1 Add 2 Edit 3 Delete 4 保存 0 Cancle
*******************************************************************************}
procedure TFrmTopReport.PFxGridSetFocus(iEditClass: Integer);
begin
   if iEditClass = 1  then begin
      SpbtnAdd.Down:=True;
      SpbtnRefresh.Enabled:=False;
      SpbtnAdd.Enabled:=False;
      SpbtnEdit.Enabled:=False;
      SpbtnSave.Enabled:=True;
      SpbtnCancel.Enabled:=True;

      SpbtnSave.Down:=False;
      SpbtnCancel.Down:=False;
   end;
   if iEditClass = 2 then begin
      SpbtnEdit.Down:=True;
      SpbtnRefresh.Enabled:=False;
      SpbtnAdd.Enabled:=False;
      SpbtnEdit.Enabled:=False;
      SpbtnSave.Enabled:=True;
      SpbtnCancel.Enabled:=True;
     
      SpbtnSave.Down:=False;
      SpbtnCancel.Down:=False;
   end;
   if iEditClass= 3  then begin
      //
   end;
   if iEditClass =4 then begin
      SpbtnRefresh.Enabled:=True;
      SpbtnAdd.Enabled:=True;
      SpbtnEdit.Enabled:=True;
      SpbtnSave.Enabled:=False;
      SpbtnCancel.Enabled:=False;

      SpbtnAdd.Down:=False;
      SpbtnEdit.Down:=False;
      SpbtnSave.Down:=True;
      SpbtnCancel.Down:=True;
   end;
   if iEditClass = 0 then begin
      SpbtnRefresh.Enabled:=True;
      SpbtnAdd.Enabled:=True;
      SpbtnEdit.Enabled:=True;
      SpbtnSave.Enabled:=False;
      SpbtnCancel.Enabled:=False;
    
      SpbtnAdd.Down:=False;
      SpbtnEdit.Down:=False;
      SpbtnSave.Down:=True;
      SpbtnCancel.Down:=True;
   end;
end;

procedure TFrmTopReport.SpbtnAddClick(Sender: TObject);
begin
  PFxGridSetFocus(1);
end;

procedure TFrmTopReport.SpbtnEditClick(Sender: TObject);
begin
  PFxGridSetFocus(2);
end;

procedure TFrmTopReport.SpbtnSaveClick(Sender: TObject);
begin
  PFxGridSetFocus(4);
end;

procedure TFrmTopReport.SpbtnCancelClick(Sender: TObject);
begin
  PFxGridSetFocus(0);
end;


procedure TFrmTopReport.FormShow(Sender: TObject);
begin
  inherited;
  PSetOrderPnlBtn(PnlToolBar);
end;

end.