frmdownorderlist.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDownOrderList 
   Caption         =   "Download Order List"
   ClientHeight    =   6555
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8415
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6555
   ScaleWidth      =   8415
   StartUpPosition =   2  'CenterScreen
   Begin MSComctlLib.ListView lsvOrder 
      Height          =   6420
      Left            =   45
      TabIndex        =   0
      Top             =   45
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   11324
      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.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
End
Attribute VB_Name = "frmDownOrderList"
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

Private Sub Form_Load()

    Me.Left = 1000
    Me.Top = 1000
           
'    lprocode = 0
'    sprodesc = ""
    lcuscode = 0
    scusdesc = ""
    lsalonum = 0
    lpicknum = 0
    lsalolin = 0
    dquantity = 0
    sMeaUnit = ""
            
    Call Inilsv
    
    Call setOrderInfo(lprocode)
    
End Sub


Private Sub Inilsv()
    
    With lsvOrder
        .FullRowSelect = True
        .MultiSelect = False
        .LabelEdit = lvwManual
        
        .ColumnHeaders.Add , "K1", "Product Code", 1500
        .ColumnHeaders.Add , "K2", "Product Desc", 1800
        .ColumnHeaders.Add , "K3", "Customer Code", 1600
        .ColumnHeaders.Add , "K4", "Customer Desc", 2000
        .ColumnHeaders.Add , "K5", "Order Number", 1500
        .ColumnHeaders.Add , "K6", "Pick Slip Number", 1900
        .ColumnHeaders.Add , "K7", "Order Line Number", 2000
        .ColumnHeaders.Add , "K8", "Quantity", 1200
        .ColumnHeaders.Add , "K9", "Unit of Measurement", 2200
    
    End With
    
    
End Sub

Private Sub setOrderInfo(ByVal lprocode As Long)
Dim sSQL As String, sProcode As String
Dim ItemX As ListItem
Dim rstOrderInfo As Recordset
Dim iCount As Long
    
  If lprocode = 0 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='DO' order by a.itecode,a.cuscode,a.salonum,a.salolin "
  Else
    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='DO' and a.itecode=" & lprocode & " order by a.itecode,a.cuscode,a.salonum,a.salolin "
  End If
    Set rstOrderInfo = Acs_cnt.Execute(sSQL)

    With rstOrderInfo
    Do While Not .EOF
        iCount = iCount + 1
        Set ItemX = lsvOrder.ListItems.Add(, "K" & iCount, .Fields("itecode"))
        ItemX.SubItems(1) = .Fields("itedesc")
        ItemX.SubItems(2) = .Fields("cuscode")
        ItemX.SubItems(3) = .Fields("cusdesc")
        ItemX.SubItems(4) = .Fields("salonum")
        ItemX.SubItems(5) = .Fields("picknum")
        ItemX.SubItems(6) = .Fields("salolin")
        ItemX.SubItems(7) = .Fields("sugoqty")
        ItemX.SubItems(8) = .Fields("meaunit")
        .MoveNext
    Loop
    End With

    rstOrderInfo.Close
    Set rstOrderInfo = Nothing

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

Private Sub lsvOrder_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    lsvOrder.SortKey = ColumnHeader.Index - 1
'    lsvOrder.SortOrder = lvwAscending
    lsvOrder.Sorted = True
End Sub

Private Sub lsvOrder_DblClick()

    If lsvOrder.ListItems.Count > 0 Then
        If lsvOrder.SelectedItem.Index > 0 Then
            lprocode = lsvOrder.SelectedItem.Text
            sprodesc = lsvOrder.SelectedItem.SubItems(1)
            lcuscode = lsvOrder.SelectedItem.SubItems(2)
            scusdesc = lsvOrder.SelectedItem.SubItems(3)
            lsalonum = lsvOrder.SelectedItem.SubItems(4)
            lpicknum = lsvOrder.SelectedItem.SubItems(5)
            lsalolin = lsvOrder.SelectedItem.SubItems(6)
            dquantity = lsvOrder.SelectedItem.SubItems(7)
            sMeaUnit = lsvOrder.SelectedItem.SubItems(8)
            
        End If
    End If

    Unload Me

End Sub

Private Sub lsvOrder_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call lsvOrder_DblClick
    End If
End Sub