codemanagerpropertyfrm.pas

供水营销打印程序源码

unit CodeManagerPropertyFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJCustomProperty, cxLookAndFeelPainters, PropStorageEh,
  StdCtrls, cxButtons, ExtCtrls, fcTreeView, wwSpeedButton, wwDBNavigator,
  wwclearpanel, ImgList, SJCustomCodeFrm;

type
  TfrmPropertyCodeManager = class(TSJCustomPropertyForm)
    NaviPanel: TPanel;
    tvCode: TfcTreeView;
    MainPanel: TPanel;
    Bevel2: TBevel;
    DBNavigator: TwwDBNavigator;
    DBNavigatorFirst: TwwNavButton;
    DBNavigatorPrior: TwwNavButton;
    DBNavigatorNext: TwwNavButton;
    DBNavigatorLast: TwwNavButton;
    DBNavigatorInsert: TwwNavButton;
    DBNavigatorDelete: TwwNavButton;
    DBNavigatorEdit: TwwNavButton;
    DBNavigatorPost: TwwNavButton;
    DBNavigatorCancel: TwwNavButton;
    DBNavigatorRefresh: TwwNavButton;
    DBNavigatorSaveBookmark: TwwNavButton;
    DBNavigatorRestoreBookmark: TwwNavButton;
    ImageList: TImageList;
    Image1: TImage;
    labHint: TLabel;
    procedure tvCodeChange(TreeView: TfcCustomTreeView; Node: TfcTreeNode);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FCodeform: TSJCustomCodeForm;
  public
    { Public declarations }
  end;

var
  frmPropertyCodeManager: TfrmPropertyCodeManager;

implementation

uses CodeTownFrm, CodeAreaFrm, CodeBookFrm, CodeCopierFrm, CodePaymodeFrm,
  CodeUsagerFrm, CodeUsersFrm;

{$R *.dfm}

procedure TfrmPropertyCodeManager.tvCodeChange(TreeView: TfcCustomTreeView;
  Node: TfcTreeNode);
// 显示当前代码编辑器
begin
  inherited;
  Screen.Cursor   := crHourGlass;
  labHint.Caption := Node.StringData2;

  try
    if Assigned(FcodeForm) then
    begin
      FreeAndNil(FcodeForm);
      DBNavigator.DataSource := nil;
    end;
    if Node.Level = 0 then
      Exit;

    if Node.StringData = 'Town' then
      FcodeForm := TfrmCodeTown.Create(Application, MainPanel);
    if Node.StringData = 'Area' then
      FcodeForm := TfrmCodeArea.Create(Application, MainPanel);
    if Node.StringData = 'Book' then
      FcodeForm := TfrmCodeBook.Create(Application, MainPanel);
    if Node.StringData = 'Copier' then
      FcodeForm := TfrmCodeCopier.Create(Application, MainPanel);
    if Node.StringData = 'Paymode' then
      FcodeForm := TfrmCodePaymode.Create(Application, MainPanel);
    if Node.StringData = 'Usager' then
      FcodeForm := TfrmCodeUsager.Create(Application, MainPanel);
    if Node.StringData = 'Users' then
      FcodeForm := TfrmCodeUsers.Create(Application, MainPanel);

    // 设置导航栏的数据源
    FcodeForm.Show;
    DBNavigator.DataSource := FcodeForm.grdBrowse.DataSource;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TfrmPropertyCodeManager.FormCreate(Sender: TObject);
begin
  inherited;
  FcodeForm := nil;
end;

procedure TfrmPropertyCodeManager.FormDestroy(Sender: TObject);
// 释放系统资源
begin
  inherited;
  if Assigned(FcodeForm) then
    FreeAndNil(FcodeForm);
end;

procedure TfrmPropertyCodeManager.FormShow(Sender: TObject);
// 显示所有的代码
begin
  inherited;
  tvCode.Items.Item[0].Expand(False);
  tvCode.Selected := tvCode.Items.Item[0];
end;

end.