jcamtableview.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 JCAMTableView;

interface

uses
  ADODB_TLB,
  JSDBListView;

type
  TCustomTableView = class( TObject )
  private
    m_cn: _Connection;
    procedure SetConnection( const Value: _Connection );
  protected
    procedure GetAllFieldsValue; virtual;
  public
    constructor Create; virtual;
    destructor Destroy; override;
    function InfoExists( nID: Integer; bAddNew: Boolean = False;
      bFillBasicInfoID: Boolean = True ): Integer; virtual;
    function InfoAddCancel: Boolean; virtual;
    procedure FillListViewByBasicInfo( dvwSrc: TJSDBListView;
      nBasicInfoID: Integer ); virtual;
    property Connection: _Connection read m_cn write SetConnection;
  end;

implementation

{ TCustomTableView }

constructor TCustomTableView.Create;
begin
  inherited;

end;

destructor TCustomTableView.Destroy;
begin

  inherited;
end;

procedure TCustomTableView.FillListViewByBasicInfo( dvwSrc: TJSDBListView;
  nBasicInfoID: Integer );
begin

end;

procedure TCustomTableView.GetAllFieldsValue;
begin

end;

function TCustomTableView.InfoAddCancel: Boolean;
begin
  Result := False;
end;

function TCustomTableView.InfoExists( nID: Integer; bAddNew: Boolean = False;
  bFillBasicInfoID: Boolean = True ): Integer;
begin
  Result := -1;
end;

procedure TCustomTableView.SetConnection( const Value: _Connection );
begin
  m_cn := Value;
end;

end.