unfindoutpt.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit UnFindoutPt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ComCtrls;

type
  Tfindout_frm = class(TForm)
    ListView1: TListView;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure ListCPDetail();
  public
    { Public declarations }
  end;

var
  findout_frm: Tfindout_frm;

implementation

uses Undm, UnFuntion;

{$R *.dfm}

{ Tfindout_frm }

procedure Tfindout_frm.ListCPDetail;
var
  ls:TListItem;
  //Iu:integer;
 // Id:integer;
  msrz:Single;
  cur,ucur,dcur:Single;
  dispyc,dispvalue:string;
begin
  if not dm.AQ7.Active then exit;
  with DM.AQ7 do begin
    DM.AQ7.First;
    while not Eof do       //variants
    begin
      ls:=ListView1.Items.Add;
      ls.Caption:='No. '+inttostr(RecNo);
      ls.SubItems.Add(fieldbyname('用户名称').AsString);
      ls.SubItems.Add(fieldbyname('msrno').AsString+'-'+fieldbyname('msrname').AsString);
      ls.SubItems.Add(fieldbyname('msritem').AsString);
      ls.SubItems.Add(fieldbyname('eupetno').AsString+'-'+fieldbyname('eupetname').AsString);
      ls.SubItems.Add(fieldbyname('npartno').AsString+'-'+fieldbyname('partname').AsString);
      ls.SubItems.Add(fieldbyname('dwv').AsString);
      ls.SubItems.Add(fieldbyname('uwv').AsString);
      ls.SubItems.Add(fieldbyname('ib').AsString);
      //try
      //ls.SubItems.Add(fieldbyname('perdate').AsString);
      //except
      //ls.SubItems.Add('');
      //end;
      ls.SubItems.Add(fieldbyname('cdate').AsString);

      if FieldByName('MsrValue').AsString ='-9999' then
       begin
        dispvalue:='停巡';dispyc:='异常';
       end else if  FieldByName('MsrValue').AsString ='-10000' then
       begin
        dispvalue:='热备';dispyc:='异常';
       end else if  FieldByName('MsrValue').AsString ='-10001' then
       begin
        dispvalue:='维修';dispyc:='异常';
       end else if  FieldByName('MsrValue').AsString ='-10002' then
       begin
        dispvalue:='正常';dispyc:='正常';
       end else if  FieldByName('MsrValue').AsString ='-10003' then
       begin
        dispvalue:='异常';dispyc:='异常';
       end else begin
        dispvalue:=FieldByName('MsrValue').AsString;
          try
            ucur:=StrToFloat(fieldbyname('uwv').AsString);
          except
            ucur:=0;
          end;
          try
            dcur:=StrToFloat(fieldbyname('dwv').AsString);
          except
            dcur:=0;
          end;
        if (StrToFloat(dispvalue)<dcur) or (StrToFloat(dispvalue)>ucur) then
          dispyc:='异常'
        else
          dispyc:='正常'
       end;
        ls.SubItems.Add(dispvalue);
        ls.SubItems.Add(dispyc);



      {ls.SubItems.Add(fieldbyname('msrvalue').AsString);
      try
        msrz:=StrToFloat(FieldByName('msrvalue').AsString);
      except
        msrz:=-9999;
      end;
      if FieldByName('msritem').AsString<>'检查' then
      begin
        if msrz<>-9999 then
        begin
        if (msrz>=fieldbyname('dwv').AsInteger) and
        (msrz<=fieldbyname('uwv').AsInteger) then
          ls.SubItems.Add('正常')
          else
          ls.SubItems.Add('异常');
        end else
          ls.SubItems.Add('异常');
      end else
        ls.SubItems.Add(fieldbyname('msrvalue').AsString); }
      Next;
    end;
  end;
end;

procedure Tfindout_frm.FormShow(Sender: TObject);
begin
  ListCPDetail;
end;

procedure Tfindout_frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=caFree;  findout_frm:=nil;
end;

procedure Tfindout_frm.FormCreate(Sender: TObject);
begin
  Height:=580;Top:=10;width:=1003;Left:=12;
end;

procedure Tfindout_frm.ListView1DblClick(Sender: TObject);
begin
  CopyListviewToExcel([ListView1]);
end;

end.