groupdel.pas

来自「完成酒店管理系统」· PAS 代码 · 共 67 行

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);
  var
  loc: Boolean;
  begin
  ADOQuery1.first;
  loc:= ADOQuery1.Locate('接待对象',Edit1.Text,[locaseInsensitive]);
  if loc = True then
  begin

  while not ADOQuery1.Eof do
  begin
  if ADOQuery1.FieldByName('接待对象').AsString = Edit1.Text then
  ADOQuery1.Delete
  else
  ADOQuery1.Next;
  end;
  Showmessage('已经成功删除');
  end
  else
  begin
  ShowMessage('此接待对象不存在，请重新输入！');
  Edit1.Text:= '';
  Edit1.SetFocus;
  end;

   


end;
end.