unviewncpt.pas

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

unit UnViewNcpt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls,AdoDb,Db, StdCtrls, Menus;

type
  Tfrm_ViewNcpt = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    checknum:TStrings;
  public
    { Public declarations }  //
    procedure addItem(strsql:string);
  end;

var
  frm_ViewNcpt: Tfrm_ViewNcpt;

implementation

uses Undm;

{$R *.dfm}

procedure Tfrm_ViewNcpt.addItem(strsql:string);
var
  lv:TListItem;
  adoqNcpt:TADOQuery;
begin
  adoqNcpt:=TADOQuery.Create(SELF);
  checknum:=TStringList.Create;
  try
    WITH  adoqNcpt do
    begin
      Connection:=DM.AdoConn;
      SQL.Text:=strsql;
      Open;
      while not eof do
      begin
        lv:=ListView1.Items.Add;
        lv.Caption:=fieldbyname('eupetno').AsString;
        lv.SubItems.Add(fieldbyname('eupetname').AsString);
        lv.SubItems.Add(fieldbyname('partno').AsString);
        lv.SubItems.Add(fieldbyname('partname').AsString);
        lv.SubItems.Add(fieldbyname('username').AsString);
        lv.SubItems.Add(fieldbyname('msrno').AsString);
        lv.SubItems.Add(fieldbyname('msrname').AsString);
        lv.SubItems.Add(fieldbyname('msritem').AsString);
        lv.SubItems.Add(fieldbyname('udate').AsString);
        lv.SubItems.Add(fieldbyname('memo').AsString);
        checknum.Add(fieldbyname('checknum').AsString);
        Next;
      end;
    end;
  finally
    adoqncpt.Close;
    adoqNcpt.Free;
  end;


end;

procedure Tfrm_ViewNcpt.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree; frm_ViewNcpt:=nil;
end;

procedure Tfrm_ViewNcpt.FormCreate(Sender: TObject);
begin
//
  left:=5;width:=1005;Height:=518;Top:=20;
  ListView1.Clear;
 // addItem;
end;

procedure Tfrm_ViewNcpt.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_ViewNcpt.N1Click(Sender: TObject);
var
  adoqNcpt:TADOQuery;
  str:string;
begin
  adoqNcpt:=TADOQuery.Create(SELF);
  str:=listview1.Selected.SubItems[8];
  if InputQuery('输入',' 请输入备注信息：',str) then
    listview1.Selected.SubItems[8]:=str;
  try
    WITH  adoqNcpt do
    begin
      Connection:=DM.AdoConn;
      SQL.Text:='select * from T_Ncpt where msrno='+quotedstr(listview1.Selected.SubItems[4])+
      ' and checknum='+checknum[listview1.ItemIndex];
      Open;
      //dm.AdoConn.BeginTrans;
      if not eof then
      begin
        Edit;
        FieldByName('memo').AsString:=listview1.Selected.SubItems[8];
        UpdateRecord;
        Refresh;
      end;
      //dm.AdoConn.CommitTrans;
    end;
  finally
    adoqNcpt.Close;
    adoqNcpt.Free;
  end;
end;

procedure Tfrm_ViewNcpt.FormDestroy(Sender: TObject);
begin
  checknum.Free;
end;

end.