unttviewparent.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 untTViewParent;

interface

uses
  ADODB_TLB,
  SysUtils,
  Variants,
  JCAMTableView;

const
  TN_VIEWPARENT: string = 't_ViewParent';

type
  TTableViewParent = class( TCustomTableView )
  private
    m_rsTViewParent: _Recordset;
    m_nViewParentID: Integer;
    m_sViewName: string;
    m_sParentName: string;
    procedure SetParentName( const Value: string );
    procedure SetViewName( const Value: string );
    procedure SetViewParentID( const Value: Integer );
  protected
    procedure GetAllFieldsValue; override;
  public
    constructor Create; override;
    destructor Destroy; override;
    property Connection;
    property ViewParentID: Integer
      read m_nViewParentID
      write SetViewParentID
      default -1;
    property ViewName: string
      read m_sViewName
      write SetViewName;
    property ParentName: string
      read m_sParentName
      write SetParentName;
  end;

implementation

constructor TTableViewParent.Create;
begin
  inherited;

  m_rsTViewParent := CoRecordset.Create;
  m_nViewParentID := -1;
end;

destructor TTableViewParent.Destroy;
begin
  m_rsTViewParent := nil;

  inherited;
end;

procedure TTableViewParent.GetAllFieldsValue;
begin
  inherited;

  if m_rsTViewParent.EOF then
  begin
    m_nViewParentID := -1;
    m_sViewName := EmptyStr;
    m_sParentName := EmptyStr;
  end
  else
  begin
    m_nViewParentID := Integer( m_rsTViewParent.Fields[ 'ViewParent_ID' ].Value
      );
    m_sViewName := VarToStr( m_rsTViewParent.Fields[ 'ViewName' ].Value );
    m_sParentName := VarToStr( m_rsTViewParent.Fields[ 'ParentName' ].Value );
  end;
end;

procedure TTableViewParent.SetParentName( const Value: string );
begin
  if m_rsTViewParent.State <> 0 then
    m_rsTViewParent.Close;

  m_rsTViewParent.Open( 'SELECT * FROM [' + TN_ViewParent +
    '] WHERE [ParentName]=''' + Value + '''',
    Connection, adOpenForwardOnly, adLockReadOnly, adCmdText );

  GetAllFieldsValue;
end;

procedure TTableViewParent.SetViewName( const Value: string );
begin
  if m_rsTViewParent.State <> 0 then
    m_rsTViewParent.Close;

  m_rsTViewParent.Open( 'SELECT * FROM [' + TN_ViewParent +
    '] WHERE [ViewName]=''' + Value + '''',
    Connection, adOpenForwardOnly, adLockReadOnly, adCmdText );

  GetAllFieldsValue;
end;

procedure TTableViewParent.SetViewParentID( const Value: Integer );
begin
  if m_rsTViewParent.State <> 0 then
    m_rsTViewParent.Close;

  m_rsTViewParent.Open( 'SELECT * FROM [' + TN_ViewParent +
    '] WHERE [ViewParent_ID]=' + IntToStr( Value ),
    Connection, adOpenForwardOnly, adLockReadOnly, adCmdText );

  GetAllFieldsValue;
end;

end.