物流运输管理系统 第4页

物流运输管理系统 第4页
  arrclient(1, inum) = rs("NAME")
                 rs.MoveNext
                 inum = inum + 1
             Loop
         End If
        Call GotoPage(NowPage, arrTraffic)
    End If
End Sub
Private Sub GotoPage(ByVal pg As Integer, ByVal arr)
   
    '清除原有
    lsvTraffic.ListItems.Clear
    With lsvTraffic
        lsvTraffic.ColumnHeaders.Clear
        .ColumnHeaders.Add , , "序号", 600
        .ColumnHeaders.Add , , "日期", 1200
        .ColumnHeaders.Add , , "品名", 1200
        .ColumnHeaders.Add , , "车号", 1200
        .ColumnHeaders.Add , , "发站", 1200
        .ColumnHeaders.Add , , "到站", 1200
        .ColumnHeaders.Add , , "发货人", 1200
        .ColumnHeaders.Add , , "重量", 1200
        .ColumnHeaders.Add , , "运费", 1200
        .GridLines = True
        .ColumnHeaders.Item(1).Alignment = lvwColumnLeft
        .ColumnHeaders.Item(2).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(3).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(4).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(5).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(6).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(7).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(8).Alignment = lvwColumnCenter
        .ColumnHeaders.Item(9).Alignment = lvwColumnCenter
    End With
    Dim iq As Integer
    Dim ia As Integer
    For iq = 0 To 49
     Set Item = lsvTraffic.ListItems.Add(, , "")
        If 50 * pg + iq <= UBound(arr, 2) Then
            Item.Tag = sys.StrToText(arr(0, 50 * pg + iq))
            Item.Text = sys.StrToText(50 * pg + iq + 1)
            Item.SubItems(1) = sys.StrToText(arr(2, 50 * pg + iq))
            For ia = 0 To UBound(arrProduct, 2)
                If arrProduct(0, ia) = sys.TextTolong(arr(3, 50 * pg + iq)) Then
                    Item.SubItems(2) = arrProduct(1, ia)
                End If
            Next
            Item.SubItems(3) = sys.StrToText(arr(1, 50 * pg + iq))
            For ia = 0 To UBound(arrstation, 2)
                If arrstation(0, ia) = sys.TextTolong(arr(4, 50 * pg + iq)) Then
                    Item.SubItems(4) = arrstation(1, ia)
                End If
            Next
            For ia = 0 To UBound(arrstation, 2)
                If arrstation(0, ia) = sys.TextTolong(arr(5, 50 * pg + iq)) Then
                    Item.SubItems(5) = arrstation(1, ia)
                End If
            Next
            For ia = 0 To UBound(arrclient, 2)
                If arrclient(0, ia) = sys.TextTolong(arr(6, 50 * pg + iq)) Then
                    Item.SubItems(6) = arrclient(1, ia)
                End If
            Next
            Item.SubItems(7) = sys.StrToText(arr(7, 50 * pg + iq))
            Item.SubItems(8) = sys.StrToText(arr(8, 50 * pg + iq))
        End If
     Next
    If pg > 0 Then
        cmdForWard.Enabled = True
    Else
        cmdForWard.Enabled = False
    End If
    If pg < MaxPage Then
        cmdNext.Enabled = True
    Else
        cmdNext.Enabled = False
    End If
    Label2.Caption = "共" & total & "条记录 共" & MaxPage + 1 & "页 当前第" & NowPage + 1 & "页"
End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

物流运输管理系统 第4页下载如图片无法显示或论文不完整，请联系qq752018766