unit1.pas

电气控制仿真软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, OleCtrls, vgctrl40_TLB, Grids, DBGrids, StdCtrls,
  Mask, DBCtrls;

type
  TForm1 = class(TForm)
    vgctrl1: Tvgctrl;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Button1Click(Sender: TObject);
  private
    function  UnitWithId( Id : Integer ) : IUnit; //得到某一个设备编号Id对应的图形单元。
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.UnitWithId( Id : Integer ) : IUnit;
//得到某一个设备编号Id对应的图形单元。
//此处为了简便起见，做一个循环判断。
//如果采用特殊算法，可以大大加快这个函数的运算速度，不需要循环判断的。
//方法是在图形文件载入后，对所有图形按照Id进行排序，把他们放到一个排序列表中。
//这样，就能根据Id快速定位图形了。
//这个很重要。
var
  i : Integer;
  d : IUnit;
begin
  for i := 0 to vgctrl1.ActiveSheet.UnitCount - 1 do
  begin
    d := vgctrl1.ActiveSheet.Units[i];
    if d.Id = Id then
    begin
      Result := d;
      Exit;
    end;
  end;
  Result := nil;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  vgctrl1.Run( 'test' );
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  Id : Integer;
  d : IUnit;
  dt : Integer;
begin
  if Field <> nil then
  begin
    Id := ADOTable1.FieldByName( 'Id' ).AsInteger;                 //当前数据纪录字段Id的值
    d := UnitWithId( Id );                                         //根据Id得到相应的图形
    if ( d <> nil ) then                                           //如果存在指定Id的图形元素
    begin
      dt := d.GetPropertyValue( 'DataType' );                      //得到图形变量的类型
      if dt = 1 then                                               //如果Value是整形
        d.SetPropertyValue( 'Value', Field.AsInteger )
      else if dt = 2 then                                          //如果Value是小数形
        d.SetPropertyValue( 'Value', StrToFloat( Field.AsString ) )
      else if dt = 3 then                                          //如果Value是逻辑形
        d.SetPropertyValue( 'Value', Field.AsInteger = 1 );
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d : IText;
begin
  d := IText( vgctrl1.ActiveSheet.AddUnit( 'Text', 0, 0, 100, 24 ) );
  d.Id := 104;             //可以用其他方式指定新图形的Id值，这里为了简单就规定一个常数。
  d.SetPropertyValue( 'DataType', 2 );
  d.Value := 0;
  ADOTable1.Append;
  ADOTable1.Fields[0].AsInteger := d.Id;
  ADOTable1.Fields[1].AsString := '0';
end;

end.