check.pas

来自「串口监控程序,可与UPS进行通信,适合初学者使用」· PAS 代码 · 共 99 行

unit check;

interface

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

type
  Tfcheck = class(TForm)
    ch_cancel: TRzButton;
    ch_sure: TRzButton;
    ch_Radio: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    check_more: TRzButton;
    check_com: TRzComboBox;
    ADOQuery1: TADOQuery;
    procedure check_moreClick(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ch_cancelClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcheck: Tfcheck;

implementation
 uses
  fastups,main ;
{$R *.dfm}

procedure Tfcheck.check_moreClick(Sender: TObject);
begin
  with tffastups.Create(nil) do
 begin
  showmodal;
  free;
 end;
end;

procedure Tfcheck.RadioButton2Click(Sender: TObject);
begin
 if radiobutton2.Checked = true  then
   begin
   check_com.Enabled :=true;
    check_more.Enabled :=true;

   end;

end;

procedure Tfcheck.ch_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfcheck.RadioButton1Click(Sender: TObject);
begin
 if radiobutton1.Checked = true  then
   begin
   check_com.Enabled :=false;
    check_more.Enabled :=false;

   end;
end;

procedure Tfcheck.FormCreate(Sender: TObject);
var
qrytemp:tadoquery;
 i:integer;
begin
  qrytemp:=tadoquery.Create(self);
  qrytemp.Connection :=fmain.dbcon ;
  qrytemp.SQL.Clear ;
  qrytemp.SQL.Text :='select * from fastups';
  qrytemp.Open;

  //qrytmp.Prior ;
  if not qrytemp.IsEmpty then

  for i:=0 to  qrytemp.RecordCount-1  do
    begin
    check_com.Items.Add(trim('('+qrytemp.fieldbyname('upsname').AsString+')'+
                         '   '+qrytemp.fieldbyname('upsip').AsString))  ;

    qrytemp.Next;
    end;
    qrytemp.Close;
    qrytemp.Free;
end;

end.