unit DeleteUser;

interface

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

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

var
  DeleteUserFrm: TDeleteUserFrm;

implementation
       uses Login;
{$R *.dfm}

procedure TDeleteUserFrm.Button1Click(Sender: TObject);
begin
    showmessage('確定刪除嗎？');
    with LoginFrm.ADOQuery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 管理員 where admiid=');
    sql.Add(''''+LoginFrm.Edit1.Text+'''');
    open;
    first;
    if recordcount=0then
    showmessage('對不起，您沒有刪除權限!')
    else
    begin
    close;
    sql.Clear;
   sql.Add('select * from 售票員 where sailorid=');
   sql.Add(''''+Edit1.Text+'''');
    open;
    first;
    if recordcount=0then
    begin
    showmessage('對不起，該用戶不存在!');
    Edit1.Text:='';
    Edit2.Text:='';
    end
    else
    if
    Edit1.Text<>Edit2.Text then
    begin
    showmessage('兩次輸入不一致，請您重新輸入員工號');
    Edit1.Text:='';
    Edit2.Text:='';
    end
    else
    begin
    close;
    sql.Clear;
   sql.Add('Delete from 售票員 where sailorid=');
   sql.Add(''''+Edit1.Text+'''');
    execsql;
   showmessage('刪除成功');
   Edit1.Text:='';
    Edit2.Text:='';
    end;
    end;
    end;
    end;

procedure TDeleteUserFrm.Button2Click(Sender: TObject);
begin
DeleteUserFrm.Hide;
edit1.Text:='';
edit2.text:='';
DeleteUserFrm.Hide;
end;

end.