frmaddnew.frm

宾馆管理系统

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form frmaddnew 
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4530
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4530
   StartUpPosition =   2  '屏幕中心
   Begin ACTIVESKINLibCtl.Skin sknaddnew 
      Left            =   4200
      OleObjectBlob   =   "frmaddnew.frx":0000
      Top             =   2520
   End
   Begin VB.Frame Frame1 
      Caption         =   "添加用户"
      Height          =   2775
      Left            =   480
      TabIndex        =   0
      Top             =   120
      Width           =   3615
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1080
         TabIndex        =   8
         Top             =   1560
         Width           =   2055
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
         Height          =   375
         Left            =   480
         OleObjectBlob   =   "frmaddnew.frx":0234
         TabIndex        =   7
         Top             =   1560
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
         Height          =   375
         Left            =   120
         OleObjectBlob   =   "frmaddnew.frx":0298
         TabIndex        =   6
         Top             =   1080
         Width           =   975
      End
      Begin VB.TextBox TxtUser 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1080
         MaxLength       =   8
         TabIndex        =   4
         Top             =   360
         Width           =   2055
      End
      Begin VB.TextBox TxtPws 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1080
         MaxLength       =   8
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   960
         Width           =   2055
      End
      Begin VB.CommandButton CmdOK 
         Caption         =   "确  认"
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   2160
         Width           =   1095
      End
      Begin VB.CommandButton CmdC 
         Caption         =   "取 消"
         Height          =   375
         Left            =   2160
         TabIndex        =   1
         Top             =   2160
         Width           =   1095
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
         Height          =   375
         Left            =   240
         OleObjectBlob   =   "frmaddnew.frx":0300
         TabIndex        =   5
         Top             =   480
         Width           =   735
      End
   End
End
Attribute VB_Name = "frmaddnew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdC_Click()
Unload Me
End Sub

    Private Sub cmdok_Click()  '添加一个新操作员
    Dim StrUser As String
    Dim rst As New ADODB.Recordset
    txtsql = "select * from tbLogin where cName='" & Trim(TxtUser.Text) & " '"
    Set rst = ExecuteSQL(txtsql)
    If Me.TxtUser.Text = "" Then
        MsgBox "用户名不能为空！", vbOKOnly + 48, "华光宾馆管理系统"
        Exit Sub
    End If
        
            If Not rst.EOF Then
                MsgBox "此用户名已经存在！"
                TxtPws.Text = ""
                TxtUser.Text = ""
                TxtUser.SetFocus
                Exit Sub
             Else
                rst.AddNew
                rst.Fields(0) = TxtUser.Text
                rst.Fields(1) = TxtPws.Text
                rst.Fields(2) = Combo1.Text
                rst.Update
                MsgBox "用户添加成功!"
                TxtPws.Text = ""
                TxtUser.Text = ""
                TxtUser.SetFocus
                Exit Sub
            End If
            rst.MoveFirst
   
     rst.Close
End Sub

Private Sub Form_Load()
Call changeskin(Me, sknaddnew, strSkin) '更换皮肤
Combo1.AddItem "管理用户"
Combo1.AddItem "普通用户"
End Sub