⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 abdbctrls.pas

📁 著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
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

⌨️ 快捷键说明

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