cxjieguo.pas

过负荷记录仪器分为单片机数据采集器和微机数据分析记录数据库软件两部分。 仪器具有监视变压器负荷电流（通过改变传感器也可记录最低电压）并自动记录过负荷电流出现的开始时间

unit cxjieguo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ExtCtrls, Grids, DBGrids, StdCtrls;

type
  Tcxjieguofrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Panel3: TPanel;
    a: TLabel;
    b: TLabel;
    dba: TDBGrid;
    Splitter1: TSplitter;
    dbb: TDBGrid;
    Querya: TQuery;
    Dsquerya: TDataSource;
    Dsqueryb: TDataSource;
    Queryb: TQuery;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxjieguofrm: Tcxjieguofrm;

implementation
uses chaxun,guofuhe;
{$R *.dfm}

procedure Tcxjieguofrm.FormShow(Sender: TObject);
begin
Querya.Close ;
Querya.RequestLive :=true;
Querya.SQL.Text :='select * from axiang '+chaxunfrm.cxsql;
dba.DataSource :=DsQuerya ;
Querya.Open ;
a.Caption :='A相' +inttostr(querya.RecordCount )+'  条记录      ';
Queryb.Close ;
Queryb.RequestLive :=true;
Queryb.SQL.Text :='select * from bxiang  '+chaxunfrm.cxsql;
dbb.DataSource :=DsQueryb ;
Queryb.Open ;
b.Caption :='B相' +inttostr(queryb.RecordCount )+'  条记录      ';
label1.Caption :='查询结果:   ' +'共查到 '
     +inttostr(querya.RecordCount+queryb.RecordCount)+ ' 条记录        ';
end;

procedure Tcxjieguofrm.Button1Click(Sender: TObject);
begin
cxjieguofrm.Close;
//form1.Create(self);
end;

end.