frmtripstatus.frm

用VB6.0编写的关于车辆运输调度的系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmTripstatus 
   Caption         =   "Trips"
   ClientHeight    =   6615
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8460
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6615
   ScaleWidth      =   8460
   StartUpPosition =   2  'CenterScreen
   Begin MSComctlLib.ListView lsvTrips 
      Height          =   6480
      Left            =   15
      TabIndex        =   0
      Top             =   15
      Width           =   8400
      _ExtentX        =   14817
      _ExtentY        =   11430
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
End
Attribute VB_Name = "frmTripstatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public lprocode As Long, lcuscode As Long
Public sprodesc As String, scusdesc As String
Public lsalonum As Long, lpicknum As Long, lsalolin As Long
Public dquantity As Double, smeaunit As String
Public TripType As String

Private Sub Form_Load()

    Me.Left = 1000
    Me.Top = 1000
    
    Call Inilsv
    
    Call setOrderInfo(TripType)
    
End Sub

Private Sub setOrderInfo(ByVal sType As String)
Dim sSQL As String, sprocode As String
Dim ItemX As ListItem
Dim rstOrderInfo As Recordset
Dim iCount As Long
    
    If sType = "" Then
        sSQL = "select a.itecode,a.itedesc,a.cuscode,b.cusdesc,a.salonum,a.picknum,a.salolin,a.sugoqty,a.meaunit from Orderd a,appcus b where a.cuscode=b.cuscode and a.salotyp in('DO','TO','CMP') order by a.itecode,a.cuscode,a.salonum,a.salolin "
    ElseIf sType = "TO" Or sType = "CMP" Then
        sSQL = "select c.tripsno,a.itecode,a.itedesc,a.cuscode,b.cusdesc,a.salonum,a.picknum,a.salolin,a.sugoqty,a.meaunit from Orderd a,appcus b,ttosta c where a.cuscode=b.cuscode and a.salonum=c.salonum and a.salolin=c.salolin and a.salotyp='" & sType & "' order by c.tripsno,a.itecode,a.cuscode,a.salonum,a.salolin "
    ElseIf sType = "DO" Then
        sSQL = "select a.itecode,a.itedesc,a.cuscode,b.cusdesc,a.salonum,a.picknum,a.salolin,a.sugoqty,a.meaunit from Orderd a,appcus b where a.cuscode=b.cuscode and a.salotyp='" & sType & "' order by a.itecode,a.cuscode,a.salonum,a.salolin "
    End If
    
    Set rstOrderInfo = Acs_cnt.Execute(sSQL)
    
    lsvTrips.ListItems.Clear
    
    If sType = "" Or sType = "DO" Then
        With rstOrderInfo
        Do While Not .EOF
            iCount = iCount + 1
            Set ItemX = lsvTrips.ListItems.Add(, "K" & iCount, "")
            ItemX.SubItems(1) = .Fields("itecode")
            ItemX.SubItems(2) = .Fields("itedesc")
            ItemX.SubItems(3) = .Fields("cuscode")
            ItemX.SubItems(4) = .Fields("cusdesc")
            ItemX.SubItems(5) = .Fields("salonum")
            ItemX.SubItems(6) = .Fields("picknum")
            ItemX.SubItems(7) = .Fields("salolin")
            ItemX.SubItems(8) = .Fields("sugoqty")
            ItemX.SubItems(9) = .Fields("meaunit")
            .MoveNext
        Loop
        End With
    ElseIf sType = "TO" Or sType = "CMP" Then
        With rstOrderInfo
        Do While Not .EOF
            iCount = iCount + 1
            Set ItemX = lsvTrips.ListItems.Add(, "K" & iCount, .Fields("tripsno"))
            ItemX.SubItems(1) = .Fields("itecode")
            ItemX.SubItems(2) = .Fields("itedesc")
            ItemX.SubItems(3) = .Fields("cuscode")
            ItemX.SubItems(4) = .Fields("cusdesc")
            ItemX.SubItems(5) = .Fields("salonum")
            ItemX.SubItems(6) = .Fields("picknum")
            ItemX.SubItems(7) = .Fields("salolin")
            ItemX.SubItems(8) = .Fields("sugoqty")
            ItemX.SubItems(9) = .Fields("meaunit")
            .MoveNext
        Loop
        End With
    End If
    
    rstOrderInfo.Close
    Set rstOrderInfo = Nothing

    If lsvTrips.ListItems.Count > 0 Then
        lsvTrips.ListItems(1).Selected = True
    End If
    
End Sub

Private Sub Inilsv()
    
    With lsvTrips
        .FullRowSelect = True
        .MultiSelect = False
        .LabelEdit = lvwManual
        
        .ColumnHeaders.Add , "K1", "Trips Number", 1300
        .ColumnHeaders.Add , "K2", "Product Code", 1300
        .ColumnHeaders.Add , "K3", "Product Desc", 1800
        .ColumnHeaders.Add , "K4", "Customer Code", 1400
        .ColumnHeaders.Add , "K5", "Customer Desc", 2000
        .ColumnHeaders.Add , "K6", "Order Number", 1400
        .ColumnHeaders.Add , "K7", "Pick Slip Number", 1700
        .ColumnHeaders.Add , "K8", "Order Line Number", 1800
        .ColumnHeaders.Add , "K9", "Quantity", 1000
        .ColumnHeaders.Add , "K10", "Unit of Measurement", 1900
    
    End With
       
End Sub