frmsaveedituser.vb

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

        'Label12
        '
        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
        '
        'FrmSaveEditUser
        '
        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.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 = "FrmSaveEditUser"
        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
        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.Delete()
        TempUser.AddUser()
    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
        Dim TempUser As New ClsUser
        TempUser.UserName = Me.TxtUserName.Text
        TempUser.GetInfo()
        Me.TxtPassword.Text = TempUser.Password
        Me.TxtRealName.Text = TempUser.RealName
        Me.ComboGroup.Text = TempUser.Group
        Me.TxtFee.Text = TempUser.Fee
        Me.ComboBirthDate.Text = TempUser.BirthDate
        Me.TxtPhone.Text = TempUser.Phone
        Me.ComboValidDate.Text = TempUser.ValidDate
        ' TempUser.CreateCardDate = Now.Date.ToString
        Me.ComboCertificateType.Text = TempUser.CertificateType
        Me.TxtCertificateNo.Text = TempUser.CertificateNo
        Me.TxtAddress.Text = TempUser.Address
        Me.TxtPostCode.Text = TempUser.PostCode
        Me.TxtMemo.Text = TempUser.Memo
    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