modulelogin.vb

来自「固定资产管理信息系统,虽然还有些不足,但基本功能已实现!希望大家多多改进!」· VB 代码 · 共 60 行

Imports System.Data
Imports System.Data.sqlClient

Module ModuleLogin


    Public LoginDataSet As DataSet = New DataSet
    Dim CustDataAdapter As New SqlDataAdapter
    Dim conn As New SqlConnection
    'Public StrData As String
    Public loginTable As DataTable
    Public userRow As DataRow
    Public pawRow As DataRow

    Dim StrSql As String

    Public ObjForm1 As New Form1
    Public ObjLogin As New Login


    Public Sub Login_User()
        ' StrData = "User ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=assent;data source=localhost"

        conn = New SqlConnection(StrData)

        StrSql = "select * from T_USER "

        Dim myCommand As SqlCommand = New SqlCommand(StrSql, conn)

        conn.Open()

        CustDataAdapter.SelectCommand = myCommand

        CustDataAdapter.Fill(LoginDataSet, "T_USER")

        For Each userRow In LoginDataSet.Tables("T_USER").Rows

            ObjLogin.ComboBox1.Items.Add(userRow("UNAME"))
        Next

        For Each pawRow In LoginDataSet.Tables("T_USER").Rows

            ObjLogin.ComboBox2.Items.Add(pawRow("UPWD"))
        Next

        conn.Close()

        loginTable = LoginDataSet.Tables("T_USER")
        loginTable = LoginDataSet.Tables(0)


     


    End Sub


End Module