check.~pas

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

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;
    Edit1: TEdit;
    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
//qrytmp:tadoquery;
 //i:integer;
begin
  {qrytmp:=tadoquery.Create(self);
  qrytmp.Connection :=fmain.dbcon ;
  qrytmp.SQL.Clear ;
  qrytmp.SQL.Text :='select * from fastups';
  qrytmp.Open;
  edit1.Text :=inttostr(qrytmp.RecordCount );
  for i:=1 to  qrytmp.RecordCount -1 do
    begin
     check_com.Items.Strings[i]:=qrytmp.fieldbyname('upsname').AsString  ;
     //+'   '+qrytmp.fieldbyname('upsip').AsString
    qrytmp.Next;
    end;
    qrytmp.Close;
    qrytmp.Free;  }
end;

end.