adduserform.pas

家庭理财系统.rar

unit AddUserForm;

interface

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

type
  TAddUser = class(TForm)
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    user: TEdit;
    passwd: TEdit;
    confirm: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUser: TAddUser;

implementation

uses DMForm;

{$R *.dfm}

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

procedure TAddUser.Button1Click(Sender: TObject);
var
  tmpadmin: boolean ;
begin
  if user.Text = '' then
    messagebox(getactivewindow(),'请输入你想要注册的用户名！','用户名为空' ,MB_OK + MB_ICONINFORMATION)
  else if passwd.Text = '' then
    messagebox(getactivewindow(),'密码不能为空，请输入密码！','密码为空' ,MB_OK + MB_ICONINFORMATION)
  else if passwd.Text <> confirm.Text then
    messagebox(getactivewindow(),'两次密码输入不一致，请重新输入！','确认密码错误' ,MB_OK + MB_ICONINFORMATION)
  else if (radiobutton1.Checked = false) and (radiobutton2.Checked = false) then
    messagebox(getactivewindow(),'请选择用户权限！','错误' ,MB_OK + MB_ICONINFORMATION)
  else
    begin
      if radiobutton1.Checked then
        tmpadmin := true
      else
        tmpadmin := false;
      DM.User.Close;
      DM.User.SQL.Clear;
      DM.User.SQL.Add('INSERT INTO admin (用户名,密码,管理员权限) VALUES (:user,:passwd,:admin)');
      DM.User.Parameters.ParamByName('user').Value := user.Text;
      DM.User.Parameters.ParamByName('passwd').Value := confirm.Text;
      DM.User.Parameters.ParamByName('admin').Value := tmpadmin;
      DM.User.Prepared;
      DM.User.ExecSql;
      messagebox(getactivewindow(),'添加用户成功，单击确定返回！','成功添加' ,MB_OK + MB_ICONINFORMATION);
      postmessage(handle,wm_close,0,0);
    end;
end;

end.