untsysalarmset.pas

显示当前采集的10个测量点的路温湿度值： 温度单位是℃

unit untSysAlarmSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmAlarmSet = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAlarmSet: TfrmAlarmSet;
  oldHighTemp,oldLowTemp,oldHighHum,oldLowHum:Integer;
implementation

uses untDMmain,LoginForm;

{$R *.dfm}

procedure TfrmAlarmSet.BitBtn1Click(Sender: TObject);
var
   equalFlag :byte; // 相等标志
begin
   equalFlag := 1; // default equal
   lowTemp := strToint(Edit1.Text);
   highTemp :=strToint(Edit2.Text);
   lowHum := strToint(Edit3.Text);
   highHum := strToint(Edit4.Text);
  if  oldHighTemp <> highTemp then
    begin
      equalFlag :=0;
      oldHighTemp := highTemp;
    end;
  if  oldLowTemp <> lowTemp then
     begin
       equalFlag :=0;
       oldLowTemp := lowTemp;
     end;
  if  oldHighHum <> highHum then
     begin
       equalFlag :=0;
       oldHighHum := highHum;
     end;
  if  oldLowHum <> lowHum then
     begin
       equalFlag :=0;
       oldLowHum := lowHum;
     end;  
  if equalFlag =0 then
  begin
  // 存储测试数据
  try
      DMmain.ADOTblSysAlarm.Open;
      DMmain.ADOTblSysAlarm.Refresh;
      DMmain.ADOTblSysAlarm.edit;
      DMmain.ADOTblSysAlarm.append;
      DMmain.ADOTblSysAlarm.Fields[1].value := highTemp; // 高温
      DMmain.ADOTblSysAlarm.Fields[2].value := lowTemp; // 低温
      DMmain.ADOTblSysAlarm.Fields[3].value := highHum; // 高湿
      DMmain.ADOTblSysAlarm.Fields[4].value := lowHum; // 低湿
      DMmain.ADOTblSysAlarm.post;
      DMmain.ADOTblSysAlarm.close;
   except
    end;
   end;
  // 关闭窗体 
  close;
end;

procedure TfrmAlarmSet.FormShow(Sender: TObject);
begin
   Edit1.Text := inttostr(lowTemp);
   Edit2.Text := inttoStr(highTemp);
   Edit3.Text := inttoStr(lowHum);
   Edit4.Text := inttoStr(highHum);
   oldHighTemp := highTemp;
   oldLowTemp := lowTemp;
   oldHighHum := highHum;
   oldLowHum := lowHum;
end;

end.