tempaddr.pas

该系统将温度数据以类似股票K线显示方式进行分析

unit TempAddr;

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
  tfTempAddr = class(TForm)
    DataAddr: TDataSource;
    ADODaddr: TADODataSet;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    bAll: TButton;
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    GroupBox1: TGroupBox;
    eYbId: TMaskEdit;
    eYbAddr: TMaskEdit;
    eYbName: TMaskEdit;
    eYbJc: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DataGroup: TDataSource;
    ADODGroup: TADODataSet;
    eYbGroupId: TMaskEdit;
    DBGridEh2: TDBGridEh;
    bEdit: TBitBtn;
    bOk: TBitBtn;
    bCancel: TBitBtn;
    eYbMax: TEdit;
    eYbMin: TEdit;
    eYbGroupName: TMaskEdit;
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bEditClick(Sender: TObject);
    procedure bOkClick(Sender: TObject);
  private
    { Private declarations }
 end;

var
  fTempAddr: tfTempAddr;

implementation

{$R *.dfm}


procedure tfTempAddr.FormShow(Sender: TObject);
begin

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

end;

procedure tfTempAddr.FormResize(Sender: TObject);
begin
    groupBox2.Width := self.ClientWidth-10;
    dbgridEh1.Top :=40;
    dbgridEh1.left :=5;

    dbgridEh1.height := self.ClientHeight -40;
//    dbgridEh1.Width :=self.ClientWidth-10;
end;

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

procedure tfTempAddr.DBGridEh1CellClick(Column: TColumnEh);
begin
    with  AdodAddr do
        begin
             eYbId.Text := Fields.Fields[0].AsString;
             eYbAddr.Text:= Fields.Fields[1].AsString;
             eYbName.Text   :=Fields.Fields[2].AsString;
             EYbJc.Text := Fields.Fields[3].AsString;
             eYbMax.Text := FloatToStrF(Fields.Fields[4].AsFloat,ffFixed, 5,1);
             eYbMin.Text := FloatToStrF(Fields.Fields[5].AsFloat,ffFixed, 5,1);
             eYbGroupId.Text := Fields.Fields[6].AsString;
    end;
end;

procedure tfTempAddr.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      with  AdodAddr do
        begin
             eYbId.Text := Fields.Fields[0].AsString;
             eYbAddr.Text:= Fields.Fields[1].AsString;
             eYbName.Text   :=Fields.Fields[2].AsString;
             EYbJc.Text := Fields.Fields[3].AsString;
             eYbMax.Text := FloatToStrF(Fields.Fields[4].AsFloat,ffFixed, 5,1);
             eYbMin.Text := FloatToStrF(Fields.Fields[5].AsFloat,ffFixed, 5,1);
             eYbGroupId.Text := Fields.Fields[6].AsString;
    end;
end;

procedure tfTempAddr.bEditClick(Sender: TObject);
begin
      bOk.Enabled := True;
      EYbName.ReadOnly :=false;
      EYbJc.ReadOnly :=false;
      eYbMax.ReadOnly :=false;
      eYbMin.ReadOnly :=false;
      eYbGroupId.ReadOnly :=false;
      eYbName.SetFocus();
end;

procedure tfTempAddr.bOkClick(Sender: TObject);
begin
      bOk.Enabled := False;
      EYbName.ReadOnly :=True;
      EYbJc.ReadOnly :=True;
      eYbMax.ReadOnly :=True;
      eYbMin.ReadOnly :=True;
      eYbGroupId.ReadOnly :=True;
// UPDATE THE DATA
end;

end.