message.pas

串口监控程序,可与UPS进行通信,适合初学者使用

unit message;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, DB, ADODB;

type
  Tfmessage = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzEdit3: TRzEdit;
    RzEdit4: TRzEdit;
    RzEdit5: TRzEdit;
    RzEdit6: TRzEdit;
    RzEdit7: TRzEdit;
    Label7: TLabel;
    procedure RzButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmessage: Tfmessage;

implementation
  uses
   main;
{$R *.dfm}

procedure Tfmessage.RzButton2Click(Sender: TObject);
begin
 close;
end;

procedure Tfmessage.FormCreate(Sender: TObject);
 var
  qrytmp:tadoquery;
begin
    qrytmp:=tadoquery.Create(self);
    qrytmp.Connection :=fmain.dbcon ;
    qrytmp.SQL.Clear ;
    qrytmp.SQL.Text :='select * from warning';
    qrytmp.Open ;

 RzEdit1.Text :=trim(qrytmp.fieldbyname('t1').AsString) ;
 rzedit2.Text :=trim(qrytmp.fieldbyname('t2').AsString) ;
 rzedit3.Text :=trim(qrytmp.fieldbyname('t3').AsString) ;
 rzedit4.Text :=trim(qrytmp.fieldbyname('t4').AsString) ;
 rzedit5.Text :=trim(qrytmp.fieldbyname('t5').AsString) ;
 rzedit6.Text :=trim(qrytmp.fieldbyname('t6').AsString) ;
 rzedit7.Text :=trim(qrytmp.fieldbyname('t7').AsString) ;
    qrytmp.Close;
end;

procedure Tfmessage.RzButton1Click(Sender: TObject);
begin

 RzEdit1.Text :='注意!市电断电!';
 rzedit2.Text :='UPS电池低电位!';
 rzedit3.Text :='市电恢复!';
 rzedit4.Text :='UPS低电位恢复!';
 rzedit5.Text :='日程关机警告!!';
 rzedit6.Text :='日程关机取消!!';
 rzedit7.Text :='注意!UPS损坏';
end;

procedure Tfmessage.RzButton3Click(Sender: TObject);
var
  qrytmp:tadoquery;
begin
    qrytmp:=tadoquery.Create(self);
    qrytmp.Connection :=fmain.dbcon ;
    qrytmp.SQL.Clear ;
    qrytmp.SQL.Text :='update warning set t1=:t1,t2=:t2,t3=:t3,t4=:t4,'+
                       't5=:t5,t6=:t6,t7=:t7 ';

    QryTmp.Parameters.Items[0].Value:=trim(rzedit1.Text) ;
    QryTmp.Parameters.Items[1].Value:=trim(rzedit2.Text) ;
    QryTmp.Parameters.Items[2].Value:=trim(rzedit3.Text) ;
    QryTmp.Parameters.Items[3].Value:=trim(rzedit4.Text) ;
    QryTmp.Parameters.Items[4].Value:=trim(rzedit5.Text) ;
    QryTmp.Parameters.Items[5].Value:=trim(rzedit6.Text) ;
    QryTmp.Parameters.Items[6].Value:=trim(rzedit7.Text) ;

   qrytmp.ExecSQL ;

   qrytmp.Close ;
    qrytmp.Free ;
    close;

end;

end.