frmadduser.vb

很完整的网吧收费管理系统,包含客户端和服务器端以及详细的使用说明.

        Me.Label12.AutoSize = True
        Me.Label12.Location = New System.Drawing.Point(25, 221)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(65, 12)
        Me.Label12.TabIndex = 31
        Me.Label12.Text = "邮政编码："
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Location = New System.Drawing.Point(48, 297)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(41, 12)
        Me.Label13.TabIndex = 32
        Me.Label13.Text = "备注："
        '
        'TxtRealName
        '
        Me.TxtRealName.Location = New System.Drawing.Point(326, 61)
        Me.TxtRealName.MaxLength = 10
        Me.TxtRealName.Name = "TxtRealName"
        Me.TxtRealName.Size = New System.Drawing.Size(154, 21)
        Me.TxtRealName.TabIndex = 33
        '
        'ComboBirthDate
        '
        Me.ComboBirthDate.Location = New System.Drawing.Point(326, 100)
        Me.ComboBirthDate.Name = "ComboBirthDate"
        Me.ComboBirthDate.Size = New System.Drawing.Size(154, 21)
        Me.ComboBirthDate.TabIndex = 34
        '
        'ComboGroup
        '
        Me.ComboGroup.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.ComboGroup.FormattingEnabled = True
        Me.ComboGroup.Items.AddRange(New Object() {"临时用户", "普通会员", "金卡会员", "银卡会员"})
        Me.ComboGroup.Location = New System.Drawing.Point(105, 101)
        Me.ComboGroup.Name = "ComboGroup"
        Me.ComboGroup.Size = New System.Drawing.Size(121, 20)
        Me.ComboGroup.TabIndex = 35
        '
        'TxtPhone
        '
        Me.TxtPhone.Location = New System.Drawing.Point(326, 220)
        Me.TxtPhone.MaxLength = 100
        Me.TxtPhone.Name = "TxtPhone"
        Me.TxtPhone.Size = New System.Drawing.Size(154, 21)
        Me.TxtPhone.TabIndex = 36
        '
        'ComboValidDate
        '
        Me.ComboValidDate.Location = New System.Drawing.Point(326, 140)
        Me.ComboValidDate.Name = "ComboValidDate"
        Me.ComboValidDate.Size = New System.Drawing.Size(154, 21)
        Me.ComboValidDate.TabIndex = 37
        '
        'ComboCertificateType
        '
        Me.ComboCertificateType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.ComboCertificateType.FormattingEnabled = True
        Me.ComboCertificateType.Items.AddRange(New Object() {"身份证", "军官证", "学生证", "其它证"})
        Me.ComboCertificateType.Location = New System.Drawing.Point(105, 260)
        Me.ComboCertificateType.Name = "ComboCertificateType"
        Me.ComboCertificateType.Size = New System.Drawing.Size(121, 20)
        Me.ComboCertificateType.TabIndex = 38
        '
        'TxtCertificateNo
        '
        Me.TxtCertificateNo.Location = New System.Drawing.Point(326, 259)
        Me.TxtCertificateNo.MaxLength = 100
        Me.TxtCertificateNo.Name = "TxtCertificateNo"
        Me.TxtCertificateNo.Size = New System.Drawing.Size(154, 21)
        Me.TxtCertificateNo.TabIndex = 39
        '
        'TxtAddress
        '
        Me.TxtAddress.Location = New System.Drawing.Point(105, 180)
        Me.TxtAddress.MaxLength = 10
        Me.TxtAddress.Name = "TxtAddress"
        Me.TxtAddress.Size = New System.Drawing.Size(375, 21)
        Me.TxtAddress.TabIndex = 40
        '
        'TxtPostCode
        '
        Me.TxtPostCode.Location = New System.Drawing.Point(105, 220)
        Me.TxtPostCode.MaxLength = 10
        Me.TxtPostCode.Name = "TxtPostCode"
        Me.TxtPostCode.Size = New System.Drawing.Size(120, 21)
        Me.TxtPostCode.TabIndex = 41
        '
        'TxtMemo
        '
        Me.TxtMemo.Location = New System.Drawing.Point(105, 298)
        Me.TxtMemo.MaxLength = 10
        Me.TxtMemo.Multiline = True
        Me.TxtMemo.Name = "TxtMemo"
        Me.TxtMemo.Size = New System.Drawing.Size(375, 79)
        Me.TxtMemo.TabIndex = 42
        '
        'FrmAddUser
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(517, 474)
        Me.Controls.Add(Me.TxtMemo)
        Me.Controls.Add(Me.TxtPostCode)
        Me.Controls.Add(Me.TxtAddress)
        Me.Controls.Add(Me.TxtCertificateNo)
        Me.Controls.Add(Me.ComboCertificateType)
        Me.Controls.Add(Me.ComboValidDate)
        Me.Controls.Add(Me.TxtPhone)
        Me.Controls.Add(Me.ComboGroup)
        Me.Controls.Add(Me.ComboBirthDate)
        Me.Controls.Add(Me.TxtRealName)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.BtnValidateUserName)
        Me.Controls.Add(Me.TxtFee)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TxtPassword)
        Me.Controls.Add(Me.TxtUserName)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.BtCancel)
        Me.Controls.Add(Me.BtOK)
        Me.MaximizeBox = False
        Me.Name = "FrmAddUser"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "添加用户信息"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        Me.Close()
    End Sub

    Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
        'Dim MSG As String
        ' If (TxtIDOrder.Text) = True Then
        '判断用户的编号是否已经存在
        '  MsgBox("该用户名已经存在！", MsgBoxStyle.Exclamation, Me.Text)
        ' TxtIDOrder.Text = ""
        ' TxtName.Text = ""
        '  TxtPassword.Text = ""
        '  TxtTime.Text = "0"
        '  TxtIDOrder.Focus()
        '  Exit Sub
        ' End If

        If Trim(TxtUserName.Text) = "" Then
            MsgBox("输入的用户名不能为空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        If Trim(TxtPassword.Text) = "" Then
            MsgBox("输入的密码不能为空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        If Trim(TxtRealName.Text) = "" Then
            MsgBox("输入的用户姓名不能为空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        If Trim(Me.TxtCertificateNo.Text) = "" Then
            MsgBox("输入的证件号码不能为空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        Dim TempUser As New ClsUser

        TempUser.UserName = Me.TxtUserName.Text
        TempUser.Password = Me.TxtPassword.Text
        TempUser.RealName = Me.TxtRealName.Text
        TempUser.Group = Me.ComboGroup.Text
        TempUser.Fee = Me.TxtFee.Text
        TempUser.BirthDate = Me.ComboBirthDate.Text
        TempUser.Phone = Me.TxtPhone.Text
        TempUser.ValidDate = Me.ComboValidDate.Text
        TempUser.CreateCardDate = Now.Date.ToString
        TempUser.CertificateType = Me.ComboCertificateType.Text
        TempUser.CertificateNo = Me.TxtCertificateNo.Text
        TempUser.Address = Me.TxtAddress.Text
        TempUser.PostCode = Me.TxtPostCode.Text
        TempUser.Memo = Me.TxtMemo.Text
        TempUser.AddUser()
    End Sub

    Private Sub BtnValidateUserName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValidateUserName.Click
        If Trim(TxtUserName.Text) = "" Then
            MsgBox("输入的用户名不能为空！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
        Dim TempUser As New ClsUser
        TempUser.UserName = Me.TxtUserName.Text
        If TempUser.UserExist = True Then
            MsgBox("用户名已被占用，请您重新输入！", MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        Else
            MsgBox("可以使用用户名" & TxtUserName.Text, MsgBoxStyle.Exclamation, Me.Text)
            Exit Sub
        End If
    End Sub

    Private Sub FrmAddUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboCertificateType.SelectedIndex = 0
        Me.ComboGroup.SelectedIndex = 0
    End Sub

    Private Sub TxtPostCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPostCode.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        If In_Int(KeyAscii) = False Then
            KeyAscii = 0
        End If
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub

    Private Sub TxtRealName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtRealName.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub
End Class