untstatinfo.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit untStatInfo;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  JCAMDialogForm,
  RzButton,
  ExtCtrls,
  StdCtrls,
  ComCtrls,
  RzListVw,
  JCAMManagerForm;

type
  TfrmStatInfo = class( TfrmJCAMDialogForm )
    Label1: TLabel;
    lvwStatInfo: TRzListView;
    procedure FormCreate( Sender: TObject );
  private
    m_nItemsCount: Integer;
    m_nSelectedCount: Integer;
    m_nCurrentIdx: Integer;
    procedure SetCurrentIndex( const Value: Integer );
    procedure SetItemsCount( const Value: Integer );
    procedure SetSelectedCount( const Value: Integer );
  public
    property StatListView: TRzListView
      read lvwStatInfo
      write lvwStatInfo;
    property ItemsCount: Integer
      read m_nItemsCount
      write SetItemsCount;
    property SelectedCount: Integer
      read m_nSelectedCount
      write SetSelectedCount;
    property CurrentIndex: Integer
      read m_nCurrentIdx
      write SetCurrentIndex;
  end;

var
  frmStatInfo: TfrmStatInfo;

implementation

{$R *.dfm}

procedure TfrmStatInfo.FormCreate( Sender: TObject );
begin
  inherited;

  m_nItemsCount := -1;
  m_nSelectedCount := -1;
  m_nCurrentIdx := -1;

  if Owner is TfrmJCAMManagerForm then
    with TfrmJCAMManagerForm( Owner ).DBListView do
    begin
      ItemsCount := Items.Count;
      SelectedCount := SelCount;
      if Selected <> nil then
        CurrentIndex := Selected.Index + 1
      else
        CurrentIndex := 0;
    end;
end;

procedure TfrmStatInfo.SetCurrentIndex( const Value: Integer );
begin
  m_nCurrentIdx := Value;
  StatListView.Items[ 2 ].SubItems[ 0 ] := IntToStr( m_nCurrentIdx );
end;

procedure TfrmStatInfo.SetItemsCount( const Value: Integer );
begin
  m_nItemsCount := Value;
  StatListView.Items[ 0 ].SubItems[ 0 ] := IntToStr( m_nItemsCount );
end;

procedure TfrmStatInfo.SetSelectedCount( const Value: Integer );
begin
  m_nSelectedCount := Value;
  StatListView.Items[ 1 ].SubItems[ 0 ] := IntToStr( m_nSelectedCount );
end;

end.