Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“VB.userinformation”中。您可以根据需要移动或删除它。
        Me.UserinformationTableAdapter.Fill(Me.VB.userinformation)
        Cbotype.SelectedIndex = 0
        If userid = "" Then
            cnt = 0
            txtuser.Text = "李浩波"
            txtpwd = ""
        End If
    End Sub