form1.vb

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

        '将单选按钮与菜单的选中标记关联起来，以系类同
        If IsAdmin = True Then
            Call OtherDeal(False)
        Else
            Call OtherDeal(True)
        End If
        '判断用户类型
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As Object, _
                                            ByVal e As System.EventArgs) _
                                            Handles RadioButton2.CheckedChanged
        Me.MenuItem16.Checked = Me.RadioButton2.Checked
        Call OtherDeal(False)
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As Object, _
                                            ByVal e As System.EventArgs) _
                                            Handles RadioButton3.CheckedChanged
        Me.MenuItem18.Checked = Me.RadioButton3.Checked
        Call OtherDeal(False)
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As Object, _
                                            ByVal e As System.EventArgs) _
                                            Handles RadioButton4.CheckedChanged
        Me.MenuItem17.Checked = Me.RadioButton4.Checked
        Call OtherDeal(False)
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As Object, _
                                            ByVal e As System.EventArgs) _
                                            Handles RadioButton5.CheckedChanged
        Me.MenuItem19.Checked = Me.RadioButton5.Checked
        Call OtherDeal(False)
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, _
                                 ByVal e As System.EventArgs) _
                                 Handles MenuItem14.Click
        Dim IsVisible As Boolean
        IsVisible = Me.MenuItem14.Checked
        '获取菜单是否被复选
        Me.StatusBar1.Visible = Not IsVisible
        Me.MenuItem14.Checked = Not IsVisible
        '设置状态栏是否可见和菜单是否被复选
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles MenuItem5.Click
        myForm = New Employee()
        myForm.ShowDialog()
        '显示人员管理的窗体
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, _
                                 ByVal e As System.EventArgs) _
                                 Handles MenuItem12.Click
        myForm = New frmDDForm()
        myForm.ShowDialog()
        '显示设置数据字典的窗体
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles MenuItem6.Click
        Dim MPassword As New ModifyPassword()
        MPassword.ShowDialog()
        '显示修改用户密码的窗体
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) _
                                Handles MenuItem8.Click

    End Sub

    Public Function IniSystem()
        MySQLstr = "SELECT * FROM CSStd"
        Message = "对不起，您输入的密码与账号不一致，请您重新输入的密码。"
        Caption = "登录失败"
        '定义没有账号与密码不一致的消息
        Call ConnToDB(MySQLstr, Message, Caption)
        If IsError = False Then
            Dim myDR As DataRow
            Dim myCount As Integer
            myCount = DS.Tables.Item(0).Rows.Count - 1
            '
            ReDim ChgSTd(myCount)
            Dim index As Integer = 0
            '
            Dim MyCSStd As CSStd
            For Each myDR In DS.Tables.Item(0).Rows
                MyCSStd.VhCode = myDR.Item(0)
                MyCSStd.VhName = myDR.Item(1)
                MyCSStd.ChMoney = myDR.Item(2)
                MyCSStd.Explain = myDR.Item(3)
                MyCSStd.SDate = myDR.Item(4)
                MyCSStd.EDate = myDR.Item(5)
                If Now.Date > MyCSStd.EDate Then
                    MessageBox.Show("您现在所使用的收费标准已经过期，请按新收费标准执行收费。", _
                    "收费标准已过期", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    IsAdmin = True
                    Call PurAllot()
                    Exit Function
                End If
                Me.ComboBox1.Items.Add(MyCSStd.VhCode)
                '没有发生错误时继续进行二级验证。
                ChgSTd(index) = MyCSStd.ChMoney
                index += 1
            Next

        Else
            Exit Function
            '退出子过程。
        End If
        '发生错误时需要触发的事件。
        Me.ComboBox1.SelectedIndex = 0
    End Function

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, _
                                               ByVal e As System.EventArgs) _
                                               Handles ComboBox1.SelectedIndexChanged
        Cell1.SetCellString(3, 2, Cell1.GetCurSheet, Me.ComboBox1.SelectedItem)
        Cell1.Refresh()
        CurChgStd = ChgSTd(Me.ComboBox1.SelectedIndex)
        Money = CurChgStd * Distance
        Cell1.SetCellString(5, 4, Cell1.GetCurSheet, Money)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button3.Click
        Me.Button2.Enabled = True
        Me.Button1.Enabled = True
        Dim myCSSQLstr As String
        QueryCSInfo.Code = Me.TextBox1.Text
        myCSSQLstr = "SELECT * FROM CSInfo WHERE CSCode='" & QueryCSInfo.Code & "'"
        Message = "找不到您输入的收费站点编号，请检查。"
        Caption = "查询失败"
        '定义没有账号与密码不一致的消息
        Call ConnToDB(myCSSQLstr, Message, Caption)
        If IsError = False Then
            Dim myDR As DataRow
            myDR = DS.Tables.Item(0).Rows.Item(0)
            QueryCSInfo.No = myDR.Item(2)
            QueryCSInfo.Distance = myDR.Item(3)
            Cell1.SetCellString(3, 3, Cell1.GetCurSheet, Me.TextBox1.Text)
            Cell1.Refresh()
            '获取进站口信息
            Me.Button1.Enabled = True
            Me.Button3.Enabled = False
        Else
            Exit Sub
        End If
        Dim TheBig, TheSmall As Integer
        If QueryCSInfo.No = LocalCSInfo.No Then
            Distance = 0
            MessageBox.Show("从本站入口的，无须收费。", _
            "无须收费", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        End If
        '比较两个站点之间的序号大小
        If QueryCSInfo.No < LocalCSInfo.No Then
            TheBig = LocalCSInfo.No : TheSmall = QueryCSInfo.No
        ElseIf QueryCSInfo.No > LocalCSInfo.No Then
            TheSmall = LocalCSInfo.No : TheBig = QueryCSInfo.No
        End If
        Dim DisSQLstr As String
        DisSQLstr = "SELECT * FROM CSInfo WHERE (CSNo >= " & TheSmall & ") AND (CSNo < " & TheBig & ")"
        Message = "找不到您输入的收费站点编号，请检查。"
        Caption = "查询失败"
        Call ConnToDB(DisSQLstr, Message, Caption)
        Distance = 0
        Dim disDR As DataRow
        For Each disDR In DS.Tables.Item(0).Rows
            Dim CurCSInfo As CSInfo
            CurCSInfo.Distance = disDR.Item(3)
            Distance += CurCSInfo.Distance
            '开始统计     
        Next
        Cell1.SetCellString(3, 4, Cell1.GetCurSheet, Distance)
    End Sub

    Public Function GetLocalCS()
        Dim myCSSQLstr As String
        Dim myCSInfo As CSInfo
        myCSInfo.Code = Me.TextBox1.Text
        myCSSQLstr = "SELECT * FROM CSInfo"

        Message = "找不到本地收费站点编号，请检查。"
        Caption = "查询失败"
        '定义没有账号与密码不一致的消息
        Call ConnToDB(myCSSQLstr, Message, Caption)
        If IsError = False Then
            Dim myDR As DataRow
            For Each myDR In DS.Tables.Item(0).Rows
                myCSInfo.Code = myDR.Item(0)
                myCSInfo.Name = myDR.Item(1)
                myCSInfo.No = myDR.Item(2)

                myCSInfo.IsLocal = myDR.Item(4)
                If myCSInfo.IsLocal = True Then
                    LocalCSInfo.Code = myCSInfo.Code
                    LocalCSInfo.Name = myCSInfo.Name
                    LocalCSInfo.No = myCSInfo.No
                    LocalCSInfo.Distance = myDR.Item(3)
                    Me.StatusBarPanel1.Text = "本地收费站： " & myCSInfo.Name
                    Me.StatusBarPanel3.Text = "本地收费站： " & myCSInfo.Code
                    Cell1.SetCellString(5, 3, Cell1.GetCurSheet, LocalCSInfo.Code)
                End If
            Next
        End If
    End Function


    Public Function OtherDeal(ByVal TF As Boolean)
        Me.Button1.Enabled = TF
        Me.Button2.Enabled = TF
        Me.Button3.Enabled = TF
        Me.TextBox1.ReadOnly = Not TF
    End Function

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Cell1.PrintPreview(1, Cell1.GetCurSheet)
        '设置打印预览的参数
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ChgDate = Now.ToLongDateString
        '获取当时的日期
        Cell1.SetCellString(5, 5, Cell1.GetCurSheet, Now.ToLongDateString)
        '设置Cell组件的文本
        Dim STChstr As String
        STChstr = "INSERT INTO CSCharge(CSCode,LCSCode, VhlCode, CSMoney,  CSDate, Chger) " & _
        "VALUES ('" & QueryCSInfo.Code & "','" & LocalCSInfo.Code & "'," & _
        "'" & Me.ComboBox1.SelectedItem & "'," & Money & ",'" & ChgDate & "',' User ')"
        Call SaveToTable(STChstr)
        '保存到数据库中
        Cell1.Refresh()
        'Cell组件更新
        Me.Button1.Enabled = False
        Me.Button3.Enabled = True
        '设置Button的属性
    End Sub

End Class