plandetali.pas

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

unit plandetali;

interface

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

type
  Tfplandetail = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    SpinEdit1: TSpinEdit;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fplandetail: Tfplandetail;

implementation
 uses
  workplan;
{$R *.dfm}

procedure Tfplandetail.FormCreate(Sender: TObject);
begin



 //edit1.Text :=fworkplan.Edit1.Text ;
end;

procedure Tfplandetail.RzButton1Click(Sender: TObject);
begin

 close;
end;

procedure Tfplandetail.RzButton2Click(Sender: TObject);
begin
worktime:= DateTimePicker1.Time ;

if  RadioButton1.Checked then
 workdetail:='启动UPS';
if  RadioButton2.Checked then
 workdetail:='系统并关闭UPS';
if  RadioButton3.Checked then
 workdetail:='UPS自我测试到电池低电压预报警';
if  RadioButton4.Checked then
 workdetail:='自我测试10秒钟';
if  RadioButton5.Checked then
 workdetail:='UPS自我测试 '+ SpinEdit1.Text+'分钟' ;


 if  RadioButton6.Checked then
 worknum:='一次';
if  RadioButton7.Checked then
 worknum:='每日';
if  RadioButton8.Checked then
 worknum:='每周';
if  RadioButton9.Checked then
 worknum:='每月';

close;
end;


end.