userreg.~pas

完成酒店管理系统

unit UserReg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB,Login,Admin,MainDinner,MainRoom,
  MainSail;

type
  TUserRegFrm = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button1: TButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserRegFrm: TUserRegFrm;

implementation

uses UserDel, UserModify;



{$R *.dfm}

procedure TUserRegFrm.BitBtn2Click(Sender: TObject);
begin
//清空数据
ComboBox1.Text:= '';
Edit1.Text:= '';
Edit2.Text:= '';
ComboBox2.Text:= '';
ComboBox1.SetFocus;
end;

procedure TUserRegFrm.Button1Click(Sender: TObject);
begin
ComboBox1.SetFocus;

end;

procedure TUserRegFrm.BitBtn1Click(Sender: TObject);

begin
if (ComboBox1.Text = '') or (Edit1.Text = '') or(ComboBox2.Text = '')
  or (Edit2.Text = '') then
  begin
  ShowMessage('输入数据不完整!请重新输入!');
  ComboBox1.Text:= '';
  Edit1.Text:= '';
  Edit2.Text:= '';
  ComboBox2.Text:= '';
  ComboBox1.SetFocus;
  end
else

    begin
          if  Edit1.Text = Edit2.Text  then
          begin
          ADOQuery1.Append;
          ADOQuery1.FieldValues['用户名']:= ComboBox1.Text;
          ADOQuery1.FieldValues['密码']:= Edit1.Text;
          ADOQuery1.FieldValues['权限']:= ComboBox2.Text;
          ADOQuery1.Post;
          ADOQuery1.Refresh;
          MainSailFrm.ADOTable1.Refresh;
          MainSailFrm.DBGrid1.Refresh;
          
          ShowMessage('添加成功！添加的用户名为：' + ComboBox1.Text);

          end
          else
          begin
          ShowMessage('两次输入密码不一致，请重新输入！');
          Edit1.Text:= '';
          Edit2.Text:= '';
          ComboBox2.Text:= '';
          Edit1.SetFocus;
          end;
         end;





//          ADOQuery1.First;
//          while  not  ADOQuery1.Eof do
  //        begin

    //      if  ADOQuery1.FindField('用户名').AsString <> ComboBox1.Text then
      //    ADOQuery1.Next
        //  else

         // begin
  //        ShowMessage('此用户名已经存在,请重新输入!');
 //         ComboBox1.Text:= '';
 //         Edit1.Text:= '';
  //        Edit2.Text:= '';
  //        ComboBox2.Text:= '';
  //        ComboBox1.SetFocus;
 //         end;

 //         end;

 //         if  ADOQuery1.Eof then
  //        begin

 //         if  Edit1.Text = Edit2.Text  then
 //         begin
 //         ADOQuery1.Append;
 //         ADOQuery1.FieldValues['用户名']:= ComboBox1.Text;
 //         ADOQuery1.FieldValues['密码']:= Edit1.Text;
 //         ADOQuery1.FieldValues['权限']:= ComboBox2.Text;
 //         ADOQuery1.Post;
 //         ADOQuery1.Refresh;
 //         ShowMessage('添加成功！添加的用户名为：' + ComboBox1.Text);
 //         end
 //         else
 //         begin
 //         ShowMessage('两次输入密码不一致，请重新输入！');
//          Edit1.Text:= '';
//          Edit2.Text:= '';
 ////         ComboBox2.Text:= '';
 //         Edit1.SetFocus;
          end;
     





    

procedure TUserRegFrm.Button2Click(Sender: TObject);
begin
UserDelFrm.Show;
end;

procedure TUserRegFrm.Button3Click(Sender: TObject);
begin
UserModifyFrm.Show;
end;

end.