VB程序设计登陆界面代码详例.docVIP

Imports System.Data.SqlClient Public Class frmMagementMain Inherits System.Windows.Forms.Form Dim constr As String = User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local) 定义一个变量，连接字符串 Dim sqlstr As String = select * from manid 定义一个变量，SQL语句 Dim mycon As New SqlConnection(constr) 定义一个变量，为一个连接对象 Dim mycom As New SqlCommand(sqlstr, mycon) 定义一个变量，为命令对象 Dim myReader As SqlDataReader 定义一个变量，阅读器 Dim i As Integer = 0 Dim userIDsys() As Array Private Sub frmMagementMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mycon.Open() 打开这个联接 myReader = mycom.ExecuteReader 把这个命令的连接送入阅读器 myReader.Read() Dim k As Integer = 0 While myReader.Read while 为遍历集合的每一项，用阅读器的read的方法来读取定义一个变量的第一项 k = k + 1 MsgBox(myReader.Item(1)) End While MsgBox(k) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Visual Basic 2005 Declare a new TextBox. Dim TextBox2 As New TextBox Set the location below the first TextBox TextBox2.Left = 102 TextBox2.Top = 242 Add the TextBox to the forms Controls collection. Me.Controls.Add(TextBox2) TextBox2.Text = 这可是我动态加的控件呀 End Sub Private Sub mnu_magement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_magement.Click Dim frmlogin As frmlogin = New frmlogin frmlogin.Show() GBmagemetPeple.Left = 8 GBmagemetPeple.Top = 28 GBmagemetPeple.Visible = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub End Class ///////////////////////////////////// Imports System.Data.SqlClient Public Class frmlogin Dim i As Integer = 0 Dim constr1 As String = 定义一个变量，连接字符串 Dim sqlstr1 As String = Dim mycon1 As N