upcinfo.pas

来自「用delphi实现的一个酒店管理系统框架」· PAS 代码 · 共 41 行

unit UPCInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inherit, RpDefine, RpRave, DB, ADODB, ImgList, StdCtrls,
  ComCtrls, Grids, DBGrids, DBCtrls, ExtCtrls, ToolWin, Menus, ExtDlgs;

type
  TPCInfo = class(TTInherit)
    ToolButton18: TToolButton;
    procedure ToolButton18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PCInfo: TPCInfo;

implementation

{$R *.dfm}

procedure TPCInfo.ToolButton18Click(Sender: TObject);
var s:string;
begin
ADODataSet1.IndexFieldNames:='host';ADODataSet1.Last;s:='';
while (not ADODataSet1.Bof) do
 Begin
  if ADODataSet1['host']=s then
   ADODataSet1.Delete else s:=ADODataSet1['host'];
  ADODataSet1.Prior;
  if ((ADODataSet1.RecNo=1)and(ADODataSet1.Bof)) then exit;
 End;
end;

end.