abdbctrls.pas

来自「著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行」· PAS 代码 · 共 1,975 行 · 第 1/4 页

PAS
1,975 行
字号
1234
unit AbDBCtrls;

{******************************************************************************}
{ Abakus VCL                                                                   }
{                            Abakus DB-Enabled components                      }
{                                                                              }
{******************************************************************************}
{        e-Mail: support@abaecker.de , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2000 A.Baecker, All rights Reserved             }
{******************************************************************************}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dbctrls, dB, _AbDB,
  AbVSlide, AbHSlide, AbDial, AbGearDial,
  AbVInd,
  AbVMeter, AbHMeter, AbRMeter, AbBar, AbVBar, AbHBar, AbThMet, AbTank,
  AbLED,
  AbSwitch, AbCBitBt;
type

  TAbDBHSlider = class(TAbHSlider)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBVSlider = class(TAbVSlider)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBDial = class(TAbDial)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBGearDial = class(TAbGearDial)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBValueInd = class(TAbValueInd)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBHMeter = class(TAbHMeter)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;


  TAbDBVMeter = class(TAbVMeter)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDB270Meter = class(TAb270Meter)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDB180Meter = class(TAb180Meter)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDB120Meter = class(TAb120Meter)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBBar = class(TAbBar)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBVBar = class(TAbVBar)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBHBar = class(TAbHBar)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBThermometer = class(TAbThermometer)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBTank = class(TAbTank)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure ValueChange; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;



  TAbDBLED = class(TAbLED)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    procedure StatusIntChanged; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBColBitBtn = class(TAbColBitBtn)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    procedure StatusIntChanged; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBRockerSwitch = class(TAbRockerSwitch)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    procedure StatusIntChanged; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;

  TAbDBToggleSwitch = class(TAbToggleSwitch)
  private
    FDataLink: TAbFieldDataLink;
    function GetDataReadOnly: Boolean;
    procedure SetDataReadOnly(Value: Boolean);
    function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
    procedure DataRead(Sender: TObject);
    procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  protected
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
  public
    procedure StatusIntChanged; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
    property DataReadOnly: Boolean read GetDataReadOnly write SetDataReadOnly;
  end;



implementation

// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
//                          Slider's + Dial
// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

//========================== TAbDBHSlider ======================================

constructor TAbDBHSlider.Create(AOwner: TComponent);
1234

abdbctrls.pas - 源码说明

本页面展示了「著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行」中的 abdbctrls.pas 源码文件，采用 PAS 编程语言编写，共 1,975 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与虚拟仪表相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?