【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了DeleteUser.pas提供大家参考,希望对大家有所帮助!
unit DeleteUser;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ExtCtrls, DBCtrls, DBTables, StdCtrls,
Buttons, Mask;
type
TDeleteUserFrm = class(TForm)
DeleteUser_DBNavigator: TDBNavigator;
DeleteUser_DataSource: TDataSource;
DeleteUserOk_BitBtn: TBitBtn;
DeleteUserCancel_BitBtn: TBitBtn;
DeleteUser_Table: TTable;
UserName_DBEdit: TDBEdit;
UserName_Label: TLabel;
procedure DeleteUserCancel_BitBtnClick(Sender: TObject);
procedure DeleteUserOk_BitBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DeleteUserFrm: TDeleteUserFrm;
implementation
uses Login;
{$R *.dfm}
procedure TDeleteUserFrm.DeleteUserCancel_BitBtnClick(Sender: TObject);
begin
DeleteUserFrm.hide;
end;
procedure TDeleteUserFrm.DeleteUserOk_BitBtnClick(Sender: TObject);
var username:string;
i:integer;
begin
if LoginFrm.loginusername='administrator' then
begin
//-------判断是否管理员,管理员不能删除------
username:=DeleteUser_table.FieldByName('username').asstring;
if username='administrator' then
messagebox(DeleteUserFrm.handle,'不能删除系统管理员!','警告',mb_ok+mb_iconwarning)
else
begin
DeleteUser_table.delete;
for i:=1 to DeleteUser_table.recordcount do
begin
//-------更新用户数据库------
DeleteUser_table.edit;
DeleteUser_table.fieldvalues['userid']:=inttostr(i);
DeleteUser_table.post;
end;
end;
end
else
begin
messagebox(DeleteUserFrm.handle,'您无权进行此超作!','警告',mb_ok+mb_iconwarning);
DeleteUserFrm.hide;
end;
end;
procedure TDeleteUserFrm.FormShow(Sender: TObject);
begin
DeleteUser_Table.active:=False;
DeleteUser_Table.active:=True;
end;
end.