data.pas

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

unit data;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ComCtrls, DB, DBTables, ADODB;

type
  Tfdata = class(TForm)
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    RzButton4: TRzButton;
    RzButton5: TRzButton;
    SaveDialog1: TSaveDialog;
    PrintDialog1: TPrintDialog;
    qry1: TADOQuery;
    ListView1: TListView;
    procedure RzButton5Click(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
    procedure RzButton4Click(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdata: Tfdata;

implementation

uses main;

{$R *.dfm}

procedure Tfdata.RzButton5Click(Sender: TObject);
begin
close;
end;

procedure Tfdata.RzButton2Click(Sender: TObject);
begin
PrintDialog1.Execute ;
end;

procedure Tfdata.RzButton4Click(Sender: TObject);
begin
listview1.Clear ;
end;

procedure Tfdata.RzButton1Click(Sender: TObject);
begin
 SaveDialog1.Execute ;
end;

procedure Tfdata.FormCreate(Sender: TObject);
var
 i:integer;
 


  ListItem: TListItem;


begin
  // ListView := TListView.Create(Self);

 with ListView1 do
  begin

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

 if not qry1.IsEmpty  then
  begin
  for i:=0 to qry1.RecordCount-1 do
  begin
  ListItem := Items.Add;
  ListItem.Caption :=qry1.fieldbyname('daydata').AsString;
  ListItem.SubItems.Add(qry1.fieldbyname('timedata').AsVariant );
  ListItem.SubItems.Add(qry1.fieldbyname('inputv').AsString);
  ListItem.SubItems.Add(qry1.fieldbyname('outputv').AsString);
  ListItem.SubItems.Add(qry1.fieldbyname('loadper').AsString);
  ListItem.SubItems.Add(qry1.fieldbyname('inputfre').AsString);
   ListItem.SubItems.Add(qry1.fieldbyname('loadper').AsString);
    ListItem.SubItems.Add(qry1.fieldbyname('batteryv').AsString);
    ListItem.SubItems.Add(qry1.fieldbyname('mininputv').AsString);
    ListItem.SubItems.Add(qry1.fieldbyname('temperature').AsString);
  qry1.Next ;

  end;

end;
 //qrytmp.Close;

  end;
end;

procedure Tfdata.RzButton3Click(Sender: TObject);
begin
qry1.Refresh 
end;

end.