deluserform.pas

家庭理财系统.rar

unit DelUserForm;

interface

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

type
  TDelUser = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelUser: TDelUser;

implementation

uses DMForm, LoginForm, AddUserForm ;

{$R *.dfm}

procedure TDelUser.Button2Click(Sender: TObject);
begin
  postmessage(handle,wm_close,0,0);
end;

procedure TDelUser.FormCreate(Sender: TObject);
begin
  with dm.ADOQuery1 do
    begin
      dm.adoquery1.Close ;
      dm.adoquery1.Open ;
      while not dm.adoquery1.Eof do
      begin
        ComboBox1.Items.Add(dm.adoquery1.FieldByName('用户名').AsString);
        dm.adoquery1.Next
      end;
    end;
end;

procedure TDelUser.Button1Click(Sender: TObject);
begin
  if combobox1.Text = '选择您要删除的用户' then
    messagebox(getactivewindow(),'您没有选择任何用户，请选择！','请重新选择' ,MB_OK + MB_ICONINFORMATION);
  if combobox1.Text = login.user then
    messagebox(getactivewindow(),'该用户正在使用系统，请重新选择！','请重新选择' ,MB_OK + MB_ICONINFORMATION);
  if combobox1.Text = 'root' then
    messagebox(getactivewindow(),'root帐号为系统默认的管理，您不能删除，请重新选择！','重新选择' ,MB_OK + MB_ICONINFORMATION);
  if (combobox1.Text <> '选择您要删除的用户') and (combobox1.Text <> 'root') and (combobox1.Text <> login.user) then
    begin
      dm.User.Close;
      dm.User.SQL.Clear;
      dm.User.SQL.Add('DELETE * FROM admin WHERE 用户名 = :user');
      dm.User.Parameters.ParamByName('user').Value := combobox1.Text;
      dm.User.Prepared;
      dm.User.ExecSql;
      messagebox(getactivewindow(),'删除用户成功，单击确定返回！','成功删除' ,MB_OK + MB_ICONINFORMATION);
      postmessage(handle,wm_close,0,0);
    end;
end;

end.