module1.vb

.net 编写的高速公路收费系统 很实用

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb
'\\引入需要的名称空间，特别是最后一个，是必需的。

Module Module1
    '\\ 定义工程级/项目级全局变量，在本项目生命周期中都适用。
    Public AdminId As String
    Public User As String
    '\\定义使用用户的ID，并用来在窗体间进行传值。
    Public IsAdmin As Boolean
    '\\判断是否是系统操作员，并根据这一值来进行权限分配。
    Public IsMan As Boolean
    '\\判断性别是否为男
    Public IsLocalStn As Boolean
    '\\判断是否为当地收费站
    Public LocalStCode As String
    '\\当地收费站点代码
    Public LocalStName As String
    '\\当地收费站点名称
    Public Structure CountInfo
        Public Count As Integer
        Public Index As Integer
    End Structure
    '\\定义记录数信息包括总记录数目和当前索引值的结构
    Public UserCount As CountInfo
    '\\继承一个存储用户信息的结构
    Public StdCount As CountInfo
    '\\继承用户定义的存储收费标准信息的结构
    Public CSCount As CountInfo
    '\\继承用户定义的存储收费站信息的结构
    Public DBPath As String
    '\\定义存放数据库的路径。
    Public ConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; "
    '\\定义数据库引擎。
    Public ConnectStr As String
    '\\定义数据库连接字段，包括数据库引擎和数据库存放路径。
    Public MyDB As OleDbDataAdapter
    '\\定义一个数据适配器。
    Public DBConn As OleDbConnection
    '\\定义一个数据连接。
    Public DS As DataSet
    '\\定义一个数据集。
    Public DR As DataRow
    '\\定义一个数据行。
    Public IsError As Boolean
    '\\定义一个布尔型变量
    Public DBCmdBuild As OleDbCommandBuilder

    Public Structure UserInfo
        Public UserID As String
        Public TName As String
        Public Gender As Boolean
        Public Age As Integer
        Public Relation As String
        Public OtherInfo As String
    End Structure
    '\\定义用户信息的结构体
    Public Structure LoginUser
        Public UserID As String
        Public Password As String
        Public IsAdmin As String
    End Structure
    '\\定义登陆用户信息的结构体
    Public Structure CSInfo
        Public Code As String
        Public Name As String
        Public No As Integer
        Public Distance As Single
        Public IsLocal As Boolean
    End Structure
    '\\
    Public Structure CSStd
        Public VhCode As String
        Public VhName As String
        Public ChMoney As Single
        Public Explain As String
        Public SDate As Date
        Public EDate As Date
    End Structure
    '\\
    Public Function ConnToDB(ByVal SQLString As String, _
                             ByVal MSGstring As String, _
                             ByVal CPTstring As String) As Boolean
        Try
            IsError = False
            '\\默认情况是没有错误事件。
            DBPath = Application.StartupPath
            DBPath = DBPath.Substring(0, DBPath.LastIndexOf("\") + 1)
            DBPath = DBPath & "DB\TWCS.mdb"
            ConnectStr = ConnStr & "Data Source=" & DBPath
            DBConn = New OleDbConnection()
            '\\实例化一个新的数据库连接。
            DBConn.ConnectionString = ConnectStr
            '\\设置数据库连接字段，包括数据库引擎和数据库存放路径。
            MyDB = New OleDbDataAdapter(SQLString, DBConn)
            '\\实例化一个新的数据适配器，并赋值。
            DS = New DataSet()
            DS.Clear()
            '\\清空数据集中的元来数据架构和数据。
            MyDB.Fill(DS)
            '将数据适配器获取的数据映向填充到数据集。
            DR = DS.Tables.Item(0).Rows.Item(0)
            '\\单行显示数据集中的数据。
            DBConn.Close()
            '\\
        Catch
            MessageBox.Show(MSGstring, CPTstring, MessageBoxButtons.OK, _
             MessageBoxIcon.Exclamation)
            '\\显示需要发出的错误、警告或者提示消息的内容和标题。
            IsError = True
            '\\发生了错误事件，将IsEroor赋值为真。
            Exit Function
            '\\出现错误，则退出函数，即断开与数据库的连接。
        End Try
        '\\调用结构化错误调试代码。
        Return IsError
        '\\强制返回布尔值

    End Function
    '\\定义与数据库连接的函数。

    Public Function UpdateDB(ByVal MyDataset As DataSet)
        Try
            DBCmdBuild = New OleDbCommandBuilder(MyDB)
            MyDB.Update(MyDataset)
        Catch
            MessageBox.Show(Err.Description, "数据更新失败", _
            MessageBoxButtons.OK, MessageBoxIcon.Hand)
        End Try

    End Function

    Public Function SaveToTable(ByVal mySQLstr As String)
        DBPath = Application.StartupPath
        DBPath = DBPath.Substring(0, DBPath.LastIndexOf("\") + 1)
        DBPath = DBPath & "DB\TWCS.mdb"
        ConnectStr = ConnStr & "Data Source=" & DBPath
        Dim sqlconn As New OleDbConnection(ConnectStr)
        Try
            Dim cmdTable As OleDbCommand = New OleDbCommand(mySQLstr, sqlconn)
            '\\加入代码处理多条记录
            cmdTable.CommandType = CommandType.Text
            sqlconn.Open()
            cmdTable.ExecuteNonQuery()
            sqlconn.Close()
        Catch
            MessageBox.Show(Err.Description)
        End Try

    End Function

    Public Sub Main()
        Dim myform As New Login()
        myform.ShowDialog()
        '\\显示登陆窗体
    End Sub


End Module