frmdrvhelp.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmdrvhelp 
   Caption         =   "Driver Help"
   ClientHeight    =   5985
   ClientLeft      =   1665
   ClientTop       =   1845
   ClientWidth     =   8070
   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     =   5985
   ScaleWidth      =   8070
   StartUpPosition =   2  'CenterScreen
   Begin MSComctlLib.ListView lsvdriver 
      Height          =   5895
      Left            =   15
      TabIndex        =   0
      Top             =   45
      Width           =   3960
      _ExtentX        =   6985
      _ExtentY        =   10398
      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
   Begin MSComctlLib.ListView lsvDrvRecord 
      Height          =   5895
      Left            =   4035
      TabIndex        =   1
      Top             =   45
      Width           =   3975
      _ExtentX        =   7011
      _ExtentY        =   10398
      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 = "frmdrvhelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public sdrvcode As String
Public sDrvName As String

Private Sub Form_Load()

    Call Inilsvtru
    Call InilsvtruRecord
    
    Call setDriverinfo
    
End Sub


Private Sub Inilsvtru()
    
    With lsvdriver
        .View = lvwReport
        .FullRowSelect = True
        .MultiSelect = False
        .LabelEdit = lvwManual
        
        .ColumnHeaders.Add , "K1", "Driver Code", 1400
        .ColumnHeaders.Add , "K2", "Driver Name", .Width - 1500
'        .ColumnHeaders.Add , "K3", "Qualifition", .Width - 3100

    End With
    
End Sub

Private Sub InilsvtruRecord()
    
    With lsvDrvRecord
        .View = lvwReport
        .FullRowSelect = True
        .MultiSelect = False
        .LabelEdit = lvwManual
        
        .ColumnHeaders.Add , "K1", "No.", 500
        .ColumnHeaders.Add , "K2", "Begin Date", 1400
        .ColumnHeaders.Add , "K3", "End Date", .Width - 2000

    End With
    
End Sub

Private Sub setDriverinfo()
Dim sSQL As String
Dim ItemX As ListItem
Dim rstdriver As Recordset
Dim iCount As Long

    sSQL = "select a.drvcode,a.drvname,a.qualify from appdrv a where a.availab=1"
    Set rstdriver = Acs_cnt.Execute(sSQL)
    
    With rstdriver
    Do While Not .EOF
        iCount = iCount + 1
        Set ItemX = lsvdriver.ListItems.Add(, "K" & iCount, .Fields("drvcode"))
        ItemX.SubItems(1) = .Fields("drvname")
'        itemx.SubItems(2) = "" & .Fields("qualify")
        
        .MoveNext
    Loop
    End With
    
    rstdriver.Close
    Set rstdriver = Nothing
    
    If lsvdriver.ListItems.Count > 0 Then
        lsvdriver.ListItems(1).Selected = True
        sdrvcode = lsvdriver.SelectedItem.Text
        Call RefershRecord(sdrvcode)
    End If
    
End Sub


Private Sub lsvdriver_DblClick()

If lsvdriver.ListItems.Count > 0 Then
    If lsvdriver.SelectedItem.Index > 0 Then
        sdrvcode = lsvdriver.SelectedItem.Text
        sDrvName = lsvdriver.SelectedItem.SubItems(1)
    End If
End If

Unload frmdrvhelp
    
End Sub


Private Sub RefershRecord(ByVal sdrvcode As String)
Dim sSQL As String
Dim rstDrvRecord As Recordset
Dim ItemX As ListItem
Dim ldate As Long
Dim iCount As Long

    ldate = ChangeDate(Date)
    
    lsvDrvRecord.ListItems.Clear
    sSQL = "select * from appdcd where drvcode='" & sdrvcode & "' and (enddate>=" & ldate & " or enddate=0)"
    Set rstDrvRecord = Acs_cnt.Execute(sSQL)
    
    iCount = 0
    With rstDrvRecord
    Do While Not .EOF
        Set ItemX = lsvDrvRecord.ListItems.Add(, "K" & iCount, iCount + 1)
        ItemX.SubItems(1) = .Fields("begdate")
        ItemX.SubItems(2) = .Fields("enddate")
        iCount = iCount + 1
        .MoveNext
    Loop
    End With
    
    rstDrvRecord.Close
    Set rstDrvRecord = Nothing

End Sub

Private Sub lsvdriver_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim sdrvcode As String

    sdrvcode = lsvdriver.SelectedItem.Text
    Call RefershRecord(sdrvcode)
    
End Sub

Private Sub lsvdriver_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call lsvdriver_DblClick
    End If
End Sub