?? deleteuser.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -