Imports System.Data
Imports System.DBNull
Imports System.Data.SqlClient

Module Module1

    Public UserName As String
    Public pepdom As Integer

    Public mod1 As Boolean
    Public mod2 As Boolean
    Public mod3 As Boolean
    Public mod4 As Boolean
    '定義四個模塊

    Public objDataSet As DataSet
    '定義一個數據集對象
    Public objDataView As DataView
    '定義一個數據視圖對象
    Public objDataAdpter As SqlDataAdapter
    '定義一個數據適配器對象
    Public objSqlConnection As SqlConnection = New _
    SqlConnection("data source=219.228.236.42;initial catalog=FoodSvc;user id=sa;password=sql")
    '定義一個數據連接對象，并初始化
    Public objCurrencyMannager As CurrencyManager
    '定義一個當前的綁定管理對象
    Public UserSqlstr As String = "SELECT * FROM UserInfo"
    '定義了查詢語句

    Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
        objDataSet = New DataSet()
        objDataSet.Clear()
        '實例化一個數據集對象
        Try
            objSqlConnection.Open()
            '打開數據庫連接
            objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
            '將數據庫的數據映射到數據適配器
            objDataAdpter.Fill(objDataSet)
            '填充數據集的數據
            objSqlConnection.Close()
            '關閉數據連接，這一點很重要
        Catch
            MsgBox("錯誤號：" & Err.Number & "錯誤描述：" & Err.Description)
        End Try
        Return objDataSet
        objDataSet = Nothing
    End Function

    Public Function UpdateData(ByVal sqlstr As String) As Boolean
        Dim objCommand As SqlCommand = New SqlCommand()
        Try
            objSqlConnection.Open()
            objCommand.Connection = objSqlConnection
            objCommand.CommandText = sqlstr
            objCommand.CommandType = CommandType.Text
            objCommand.ExecuteNonQuery()
            objSqlConnection.Close()
        Catch
            MsgBox("錯誤號：" & Err.Number & "錯誤描述：" & Err.Description)
            Return False
        End Try
        Return True
    End Function

End Module