groupdel.~pas

完成酒店管理系统

unit GroupDel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TGroupDelFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GroupDelFrm: TGroupDelFrm;

implementation

{$R *.dfm}

procedure TGroupDelFrm.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit1.SetFocus;
end;

procedure TGroupDelFrm.Button1Click(Sender: TObject);
  begin

  ADOQuery1.first;
  while not ADOQuery1.Eof do
  begin
  if ADOQuery1.FieldByName('接待对象').AsString = Edit1.Text then
  begin
  flag:=true;
  Delete;
  end;
  Next;
  end;
  Showmessage('已经成功删除');
  end;
    if flag = false then

        ShowMessage('此接待对象不存在！');

    Edit1.Text:='';
    Edit1.SetFocus;


end;
end.