module1.vb

采用Visual Basic.NET开发的单机版餐饮服务管理系统

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=WZQ;initial catalog=FoodSvc;user id=sa;password=sa")
    '定义一个数据连接对象，并初始化
    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