deleteuser.pas

来自「该程序不能实现全程售票」· PAS 代码 · 共 91 行

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.