jcamconnectionform.pas

来自「销售软件」· PAS 代码 · 共 65 行

(*===========================================================*)
(*                                                           *)
(*              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 JCAMConnectionForm;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  ADODB_TLB;

type
  TJCAMConnectionFormClass = class of TfrmJCAMConnectionForm;

  TfrmJCAMConnectionForm = class(TForm)
  private
    m_cn: _Connection;
    procedure SetConnection(const Value: _Connection);
  public
    property Connection: _Connection
      read m_cn
      write SetConnection;
  end;

var
  frmJCAMConnectionForm: TfrmJCAMConnectionForm;

implementation

{$R *.dfm}

{ TfrmJCMAConnectionForm }

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

end.