el3"
 Me.Label3.Size = New System.Drawing.Size(149, 16)
Me.Label3.TabIndex = 11
Me.Label3.Text = "为保证系统安全,请先登录"
''''
''''loginForm
''''
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.ClientSize = New System.Drawing.Size(319, 284)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.txtUserPwd)
Me.Controls.Add(Me.txtUserName)
Me.Controls.Add(Me.btnSubmit)
Me.Controls.Add(Me.lblUserName)
Me.Controls.Add(Me.lblUserPwd)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "loginForm"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "登录"
Me.Text = "TEST--系统登录"
Me.ResumeLayout(False)
 End Sub
#End Region
  Private Sub loginForm_Load()Sub loginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtUserName.Focus()
'''' btnCancel.Visible = False
End Sub
Private Sub btnExit_Click()Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
Private Sub btnSubmit_Click()Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
''''调用loginValidator组件
Dim validator As New Validator
validator.vUsername = txtUserName.Text.Trim
validator.vUserpwd = txtUserPwd.Text.Trim
If (validator.validate() = True) Then
Me.Close()上一页 [1] [2] [3] [4] [5] [6] [7] 下一页 |
