fastups.pas

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

unit fastups;

interface

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

type
  Tffastups = class(TForm)
    ffdel: TRzButton;
    ffin: TRzButton;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    ffsh: TRzButton;
    ffex: TRzButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzEdit3: TRzEdit;
    RzEdit4: TRzEdit;
    ListBox1: TListBox;
    ADOQuery1: TADOQuery;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    DataSource1: TDataSource;
    procedure ffexClick(Sender: TObject);
    procedure ffinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ffdelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ffastups: Tffastups;

implementation
  uses
   main;
{$R *.dfm}

procedure Tffastups.ffexClick(Sender: TObject);
begin
close;
end;

procedure Tffastups.ffinClick(Sender: TObject);
 var
  qrytmp:tadoquery;

begin

qrytmp:=tadoquery.Create(self);
qrytmp.Connection :=fmain.dbcon ;
qrytmp.SQL.Clear ;
qrytmp.SQL.Text :='insert into fastups(upsname,upsip,upsaddr,upspass)'+
                  ' values(:upsname,:upsip,:upsaddr,:upspass)';

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.ExecSQL ;

 qrytmp.Close;
 qrytmp.Free;


 listbox1.Items.add(trim(rzedit1.Text ))  ;
 listbox1.ItemIndex :=listbox1.Items.IndexOf (trim(rzedit1.Text ));
end;

procedure Tffastups.FormCreate(Sender: TObject);
 var
 i:integer;
 qrytmp:tadoquery;
begin

qrytmp:=tadoquery.Create(self);
qrytmp.Connection :=fmain.dbcon ;
qrytmp.SQL.Clear ;
qrytmp.SQL.Text :='select * from fastups';
qrytmp.Open       ;

 if not qrytmp.IsEmpty  then
  begin
  for i:=0 to qrytmp.RecordCount-1  do
  begin

  listbox1.Items.Strings[i]:=qrytmp.fieldbyname('upsname').AsString ;
  qrytmp.Next ;
  end;
  rzedit1.Text :=qrytmp.fieldbyname('upsname').AsString ;
  rzedit2.Text :=qrytmp.fieldbyname('upsip').AsString ;
  rzedit3.Text :=qrytmp.fieldbyname('upsaddr').AsString ;
  rzedit4.Text :=qrytmp.fieldbyname('upspass').AsString ;
 end;
 qrytmp.Close;

end;

procedure Tffastups.ListBox1Click(Sender: TObject);
 var
  qrytmp:tadoquery;
begin

qrytmp:=tadoquery.Create(self);
qrytmp.Connection :=fmain.dbcon ;
qrytmp.SQL.Clear ;
qrytmp.SQL.Text :='select * from fastups where upsname=:upsname';
QryTmp.Parameters.Items[0].Value:=trim(listbox1.Items.Strings [listbox1.itemindex]);
 qrytmp.Open ;
  rzedit1.Text :=qrytmp.fieldbyname('upsname').AsString ;
  rzedit2.Text :=qrytmp.fieldbyname('upsip').AsString ;
  rzedit3.Text :=qrytmp.fieldbyname('upsaddr').AsString ;
  rzedit4.Text :=qrytmp.fieldbyname('upspass').AsString ;
 qrytmp.Close;
 qrytmp.Free;
end;

procedure Tffastups.ffdelClick(Sender: TObject);
 var
  qrytmp:tadoquery;

begin

qrytmp:=tadoquery.Create(self);
qrytmp.Connection :=fmain.dbcon ;
qrytmp.SQL.Clear ;
qrytmp.SQL.Text :='select * from  fastups where upsname=:upsname';
QryTmp.Parameters.Items[0].Value:=trim(listbox1.Items.Strings [listbox1.itemindex]);

 qrytmp.Open ;
   qrytmp.Delete;
 qrytmp.Close;
 qrytmp.Free;


 listbox1.Items.Delete(listbox1.Items.IndexOf(trim(rzedit1.Text )))  ;
// listbox1.ItemIndex :=listbox1.Items.IndexOf (trim(rzedit1.Text ));

end;

end.