unitadduser.~pas

这是一个SQL的物资管理系统 这是一个SQL的物资管理系统

unit UnitAddUser;

interface

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

type
  TFrmAddUser = class(TForm)
    Label1: TLabel;
    edtUserName: TEdit;
    Label2: TLabel;
    edtPassword: TEdit;
    Label3: TLabel;
    edtQueryPassword: TEdit;
    Label4: TLabel;
    btnPost: TButton;
    btnReflesh: TButton;
    cmbbxType: TComboBox;
    ADOStoredProc1: TADOStoredProc;
    procedure btnPostClick(Sender: TObject);
    procedure btnRefleshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAddUser: TFrmAddUser;

implementation

uses UnitDM;

{$R *.dfm}

procedure TFrmAddUser.btnPostClick(Sender: TObject);
var
    y:string;
begin
    if  self.edtUserName.Text='' then
        begin
         showmessage('用户名不能为空');
         exit;
        end;
    if  (self.edtPassword.Text='') or (edtQueryPassword.Text='') then
        begin
         showmessage('密码不能为空');
         exit;
        end;
    if  (self.cmbbxType.Text='') then
        begin
         showmessage('用户类型不能为空');
         exit;
        end;
    if  edtPassword.Text<>edtQueryPassword.Text then
     begin
     MessageBox(Handle,'两次密码输入不同，请重新输入','系统提示',MB_ICONASTERISK);
     edtPassword.Clear;
     edtQueryPassword.Clear;
     end;

    ADOStoredProc1.Connection:=DataModule2.ADOConnection1;
    ADOStoredProc1.Close;
    ADOStoredProc1.ProcedureName:='AddUser';
    ADOStoredProc1.Parameters.Refresh;
    ADOStoredProc1.Parameters.ParamByName('@username').Value:=self.edtUserName.Text;
    ADOStoredProc1.Parameters.ParamByName('@Password').Value:=edtPassword.Text;
    ADOStoredProc1.Parameters.ParamByName('@type').Value:=self.cmbbxType.Text;
    ADOStoredProc1.Parameters.ParamByName('@str').Value:=y;
    ADOStoredProc1.ExecProc;
    y:=ADOStoredProc1.Parameters.ParamByName('@str').Value;
    MessageBox(Handle,pchar(y), '系统提示', MB_ICONASTERISK);
    edtUserName.Clear;
    edtPassword.Clear;
    edtQueryPassword.Clear;

end;


procedure TFrmAddUser.btnRefleshClick(Sender: TObject);
begin
  self.edtUserName.Text:='';
  self.edtPassword.Text:='';
  self.edtQueryPassword.Text:='';
  self.cmbbxType.Text:='';
end;

end.