rightman.~pas

来自「该系统将温度数据以类似股票K线显示方式进行分析」· ~PAS 代码 · 共 68 行

unit RightMan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids,kxiancommon, DBCtrls, ComCtrls,DateUtils,
  StdCtrls, GridsEh, DBGridEh, Mask, dbcgrids, Buttons ;

type
  tfRightMan = class(TForm)
    DataRight: TDataSource;
    ADODRight: TADODataSet;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    bAll: TButton;
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    Datauser: TDataSource;
    ADODuser: TADODataSet;
    DBGridEh2: TDBGridEh;
    ADOConnection1: TADOConnection;
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
 end;

var
  fRightMan: tfRightMan;

implementation

{$R *.dfm}


procedure tfRightMan.FormShow(Sender: TObject);
begin

    DBGrideh1.DataSource.DataSet.Open;
    DBGrideh2.DataSource.DataSet.Open;

end;

procedure tfRightMan.FormResize(Sender: TObject);
begin
    groupBox2.Width := self.ClientWidth-10;
    dbgridEh2.Top :=40;
    dbgridEh2.left :=5;
    dbgridEh2.height := self.ClientHeight -40-3;

    dbgridEh1.Top :=40;
    dbgridEh1.left :=dbgridEh2.left+dbgridEh2.width +2;
    dbgridEh1.height := self.ClientHeight -40-3;
    dbgridEh1.width :=  self.Clientwidth -dbgridEh1.left-5;


end;

procedure tfRightMan.FormCreate(Sender: TObject);
begin
 //   AdodAddr.Connection := adocwdkz ;
//    AdodGroup.Connection := adocwdkz ;
end;

end.