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.