⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 loginmodule.bas

📁 城市公交系统的应用开发
💻 BAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
                bussite(i, 0) = rs("SiteName").Value
                bussite(i, 1) = rs("SiteX").Value
                bussite(i, 2) = rs("SiteY").Value
                Busmanage.BusTxt5 = rs("SiteName").Value
                Busmanage.BusList2.AddItem "终    点：" & rs("SiteName").Value
            ElseIf i < 10 Then
                If i = 2 Then
                    Busmanage.BusTxt6 = rs("SiteName").Value
                End If
                bussite(i, 0) = rs("SiteName").Value
                bussite(i, 1) = rs("SiteX").Value
                bussite(i, 2) = rs("SiteY").Value
                Busmanage.BusList2.AddItem "第0" & i & "站点：" & rs("SiteName").Value
            Else
                bussite(i, 0) = rs("SiteName").Value
                bussite(i, 1) = rs("SiteX").Value
                bussite(i, 2) = rs("SiteY").Value
                Busmanage.BusList2.AddItem "第" & i & "站点：" & rs("SiteName").Value
            End If
            rs.MoveNext
        Next
        rs.Close
    Else
        MsgBox "没有第" & Busmanage.BusTxt3.Text & "车的相关信息,请您确认输入是否准确", 48, "提示信息"
        Busmanage.BusTxt3.SelStart = 0
        Busmanage.BusTxt3.SelLength = Len(Busmanage.BusTxt3.Text)
        Busmanage.BusTxt3.SetFocus
    End If
End Sub
Public Sub addbussite() '添加站点信息
    Busmanage.BusList2.Clear
    Call managebussite
End Sub

Public Sub addbussiteline() '添加站点信息
    'Busmanage.BusList2.Clear
    Call connetion
    cmd.CommandText = "select * from BusLine where BusName like ? order by BusNameID ASC"
    
    '设置para相关属性
    para.Type = adBSTR
    para.Direction = adParamInput
    para.Value = Busmanage.BusTxt3.Text

    '把para添加到参数集
    cmd.Parameters.Append para
    cmd.Parameters(0) = Busmanage.BusTxt3.Text

    '执行command对象
    Set rs = cmd.Execute
    If Not rs.EOF Then
        For j = 1 To rs.RecordCount
            If rs("SiteName").Value <> "" Then
                Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 50, linecolor
            Else
                Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 1, linecolor
            End If
            If j = 1 Then
                x1 = rs("SiteX").Value
                y1 = rs("SiteY").Value
                Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                Busmanage.BusImage1.FontBold = True
                Busmanage.BusImage1.ForeColor = sitecolor
                Busmanage.BusImage1.FontSize = 10
                If rs("SiteName").Value <> "" Then
                    Busmanage.BusImage1.Print rs("SiteName").Value
                End If
            Else
                Busmanage.BusImage1.Line (x1, y1)-(rs("SiteX").Value, rs("SiteY").Value), linecolor
                x1 = rs("SiteX").Value
                y1 = rs("SiteY").Value
                Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                Busmanage.BusImage1.FontBold = True
                Busmanage.BusImage1.ForeColor = sitecolor
                Busmanage.BusImage1.FontSize = 10
                If rs("SiteName").Value <> "" Then
                    Busmanage.BusImage1.Print rs("SiteName").Value
                End If
            End If
            rs.MoveNext
        Next
    End If
End Sub

Public Sub addbussiteedit() '添加站点信息
    'Busmanage.BusList2.Clear
    Call managebussite
End Sub

Public Sub addbusline() '添加公交线路
    Busmanage.BusList2.Clear
    Call connetion
    cmd.CommandText = "select * from SiteName"

    '执行command对象
    Set rs = cmd.Execute
    Do While rs.AddNew
    
End Sub

Public Sub busline() '公交线路较果图
    'BusSelect.BusSelectTimer1.Enabled = False
    BusSelect.BusImage.Cls
    Call connetion
    cmd.CommandText = "select * from BusLine where BusName=? order by BusNameID ASC"
        
    '设置para相关属性
    para.Type = adBSTR
    para.Direction = adParamInput
    If BusSelect.BusOption11.Value = True Then
        para.Value = BusName(n)
    Else
        para.Value = bussite(n - 1, 0)
    End If

    '把para添加到参数集
    cmd.Parameters.Append para
    If BusSelect.BusOption11.Value = True Then
        cmd.Parameters(0) = BusName(n)
    Else
        cmd.Parameters(0) = bussite(n - 1, 0)
    End If
    
    '执行command对象
    Set rs = cmd.Execute
    If Not rs.EOF Then
        n = rs.RecordCount - 1
        z = n
        ReDim bussites(n, 3)
        For i = 0 To rs.RecordCount - 1
            bussites(i, 0) = rs("SiteName").Value
            bussites(i, 1) = rs("SiteX").Value
            bussites(i, 2) = rs("SiteY").Value
            rs.MoveNext
        Next
        rs.Close
        n = 0
        BusSelect.BusSelectTimer2.Enabled = True
    End If
End Sub

Public Sub buslineshow() '公交线路较果图
    'BusSelect.BusSelectTimer1.Enabled = False
    BusSelect.BusImage.Cls
    Call connetion
    cmd.CommandText = "select * from BusLine where BusName=? order by BusNameID ASC"
        
    '设置para相关属性
    para.Type = adBSTR
    para.Direction = adParamInput
    para.Value = bussite(n - 1, 0)
    'MsgBox bussite(n - 1, 0)
    '把para添加到参数集
    cmd.Parameters.Append para
    cmd.Parameters(0) = bussite(n - 1, 0)

    '执行command对象
    Set rs = cmd.Execute
    If Not rs.EOF Then
        n = rs.RecordCount - 1
        z = n
        ReDim bussites(n, 3)
        For i = 0 To rs.RecordCount - 1
            bussites(i, 0) = rs("SiteName").Value
            bussites(i, 1) = rs("SiteX").Value
            bussites(i, 2) = rs("SiteY").Value
            rs.MoveNext
        Next
        rs.Close
        n = 0
        BusSelect.BusSelectTimer2.Enabled = True
    End If
End Sub

Public Sub busmanagelineshow() '公交线路较果图
    Busmanage.BusImage1.Cls
    If Busmanage.BusOption8.Value = True Then
            If Busmanage.BusOption6.Value = True Then
                Call connetion
                cmd.CommandText = "select * from BusLine where BusName=? order by BusNameID ASC"
        
                '设置para相关属性
                para.Type = adBSTR
                para.Direction = adParamInput
                para.Value = Trim(Busmanage.BusTxt3.Text)

                '把para添加到参数集
                cmd.Parameters.Append para
                cmd.Parameters(0) = Trim(Busmanage.BusTxt3.Text)

                '执行command对象
                Set rs = cmd.Execute
                If Not rs.EOF Then
                    For j = 1 To rs.RecordCount
                        If rs("SiteName").Value <> "" Then
                            Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 50, linecolor
                        Else
                            Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 1, linecolor
                        End If
                        If j = 1 Then
                            x1 = rs("SiteX").Value
                            y1 = rs("SiteY").Value
                            Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                            Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                            Busmanage.BusImage1.FontBold = True
                            Busmanage.BusImage1.ForeColor = sitecolor
                            Busmanage.BusImage1.FontSize = 10
                            If rs("SiteName").Value <> "" Then
                                Busmanage.BusImage1.Print rs("SiteName").Value
                            End If
                        Else
                            Busmanage.BusImage1.Line (x1, y1)-(rs("SiteX").Value, rs("SiteY").Value), linecolor
                            x1 = rs("SiteX").Value
                            y1 = rs("SiteY").Value
                            Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                            Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                            Busmanage.BusImage1.FontBold = True
                            Busmanage.BusImage1.ForeColor = sitecolor
                            Busmanage.BusImage1.FontSize = 10
                            If rs("SiteName").Value <> "" Then
                                Busmanage.BusImage1.Print rs("SiteName").Value
                            End If
                        End If
                        rs.MoveNext
                    Next
                    rs.Close
                End If
            ElseIf Busmanage.BusOption7.Value = True Then
                Call connetion
                cmd.CommandText = "select * from BusLine where BusName=? order by BusNameID ASC"
        
                '设置para相关属性
                para.Type = adBSTR
                para.Direction = adParamInput
                para.Value = Trim(Busmanage.BusTxt3.Text)

                '把para添加到参数集
                cmd.Parameters.Append para
                cmd.Parameters(0) = Trim(Busmanage.BusTxt3.Text)

                '执行command对象
                Set rs = cmd.Execute
                If Not rs.EOF Then
                    For j = 1 To rs.RecordCount
                        If rs("SiteName").Value <> "" Then
                            Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 50, linecolor
                        Else
                            Busmanage.BusImage1.Circle (rs("SiteX").Value, rs("SiteY").Value), 1, linecolor
                        End If
                        If j = 1 Then
                            x1 = rs("SiteX").Value
                            y1 = rs("SiteY").Value
                            Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                            Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                            Busmanage.BusImage1.FontBold = True
                            Busmanage.BusImage1.ForeColor = sitecolor
                            Busmanage.BusImage1.FontSize = 10
                            If rs("SiteName").Value <> "" Then
                                Busmanage.BusImage1.Print rs("SiteName").Value
                            End If
                        Else
                            Busmanage.BusImage1.Line (x1, y1)-(rs("SiteX").Value, rs("SiteY").Value), linecolor
                            x1 = rs("SiteX").Value
                            y1 = rs("SiteY").Value
                            Busmanage.BusImage1.CurrentX = rs("SiteX").Value
                            Busmanage.BusImage1.CurrentY = rs("SiteY").Value
                            Busmanage.BusImage1.FontBold = True
                            Busmanage.BusImage1.ForeColor = sitecolor
                            Busmanage.BusImage1.FontSize = 10
                            If rs("SiteName").Value <> "" Then
                                Busmanage.BusImage1.Print rs("SiteName").Value
                            End If
                        End If
                        rs.MoveNext
                    Next
                    rs.Close
                End If
            End If
        ElseIf Busmanage.BusOption9.Value = True Then
            If Busmanage.BusOption6.Value = True Then
                Call addbussite     '站点信息管理
            ElseIf BusOption7.Value = True Then
                Call addbusline     '公交线路管理
            End If
        End If
End Sub

Public Sub connetion() '设置连接数据库
    'BusSelect.BusList1.Clear
    Set cnn = New Connection
    cnn.CursorLocation = adUseClient
    Set cmd = New Command
    Set rs = New Recordset
    Set para = New Parameter

    '连接数据源
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\Data\bus.mdb"

    '关联command和connection对象
    cmd.ActiveConnection = cnn

    '设置cmd相关属性
    cmd.CommandType = adCmdText
End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -