bas_infotolistview.bas

生产计划管理等信息 可以查询计划完成情况等

Attribute VB_Name = "Bas_InfoToListview"
Public Sub InfoToListview_ByDepartment(Lv As ListView, Bumen As String, BanZu As String, opDatetime As Date)
    Dim objLI As ListItem
    Lv.ListItems.Clear
    Dim i
    i = 1
    SQL = "Select * from 生产计划 where 部门名称='" & Bumen & "' and 班组名称='" & BanZu & "' and 生产日期=#" & opDatetime & "#"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    
    If Not rs.EOF Then
      For i = 1 To rs.RecordCount
        Set objLI = Lv.ListItems.Add(, "Row" & i, rs.Fields("计划单号").Value)
            objLI.SubItems(1) = rs.Fields("批次号").Value
            objLI.SubItems(2) = rs.Fields("子批次号").Value
            objLI.SubItems(3) = GetCustomer(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))   '用户
            objLI.SubItems(4) = GetGuiGe(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))  '规格
            objLI.SubItems(5) = rs.Fields("班组名称").Value
            objLI.SubItems(6) = Format(rs.Fields("生产日期").Value, "yyyy-mm-dd")
            objLI.SubItems(7) = Format(rs.Fields("生产时间").Value, "hh:mm:ss")
            objLI.SubItems(8) = Format(rs.Fields("完成日期").Value, "yyyy-mm-dd")
            objLI.SubItems(9) = Format(rs.Fields("完成时间").Value, "hh:mm:ss")
            objLI.SubItems(10) = rs.Fields("完成数量").Value
        rs.MoveNext
      Next i
    End If
End Sub

'=================================================================================================

Public Sub InfoToListview_ByPlan(Lv As ListView, PlanID_9 As String)
    Dim objLI As ListItem
    Lv.ListItems.Clear
    Dim i
    i = 1
    SQL = "Select * from 生产计划 where 计划单号='" & Mid(PlanID_9, 1, 7) & "' and 批次号='" & Mid(PlanID_9, 8, 2) & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    
    If Not rs.EOF Then
      For i = 1 To rs.RecordCount
        Set objLI = Lv.ListItems.Add(, "Row" & i, rs.Fields("计划单号").Value)
            objLI.SubItems(1) = rs.Fields("批次号").Value
            objLI.SubItems(2) = rs.Fields("子批次号").Value
            objLI.SubItems(3) = GetCustomer(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))   '用户
            objLI.SubItems(4) = GetGuiGe(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))  '规格
            objLI.SubItems(5) = rs.Fields("班组名称").Value
            objLI.SubItems(6) = Format(rs.Fields("生产日期").Value, "yyyy-mm-dd")
            objLI.SubItems(7) = Format(rs.Fields("生产时间").Value, "hh:mm:ss")
            objLI.SubItems(8) = Format(rs.Fields("完成日期").Value, "yyyy-mm-dd")
            objLI.SubItems(9) = Format(rs.Fields("完成时间").Value, "hh:mm:ss")
            objLI.SubItems(10) = rs.Fields("完成数量").Value
        rs.MoveNext
      Next i
    End If
End Sub

Public Sub InfoToListview_BySubPlan(Lv As ListView, PlanID_9 As String, SubPlanID_2 As String)
    Dim objLI As ListItem
    Lv.ListItems.Clear
    Dim i
    i = 1
    SQL = "Select * from 生产计划 where 计划单号='" & Mid(PlanID_9, 1, 7) & "' and 批次号='" & Mid(PlanID_9, 8, 2) & "' and 子批次号='" & SubPlanID_2 & "'"
    If rs.State = 1 Then rs.Close
    rs.Open SQL, DBConn, adOpenKeyset, adLockOptimistic, adCmdText
    
    If Not rs.EOF Then
      For i = 1 To rs.RecordCount
        Set objLI = Lv.ListItems.Add(, "Row" & i, rs.Fields("计划单号").Value)
            objLI.SubItems(1) = rs.Fields("批次号").Value
            objLI.SubItems(2) = rs.Fields("子批次号").Value
            objLI.SubItems(3) = GetCustomer(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))   '用户
            objLI.SubItems(4) = GetGuiGe(Trim(rs.Fields("计划单号").Value), Trim(rs.Fields("批次号").Value))  '规格
            objLI.SubItems(5) = rs.Fields("班组名称").Value
            objLI.SubItems(6) = Format(rs.Fields("生产日期").Value, "yyyy-mm-dd")
            objLI.SubItems(7) = Format(rs.Fields("生产时间").Value, "hh:mm:ss")
            objLI.SubItems(8) = Format(rs.Fields("完成日期").Value, "yyyy-mm-dd")
            objLI.SubItems(9) = Format(rs.Fields("完成时间").Value, "hh:mm:ss")
            objLI.SubItems(10) = rs.Fields("完成数量").Value
        rs.MoveNext
      Next i
    End If
End Sub


'======================================================
Public Sub MeterTypeToLv(Lv As ListView, Bumen As String)
'信息导入Listview
    Dim objLI As ListItem
    Lv.ListItems.Clear
    Dim i
    i = 1
    On Error GoTo ErrMsg
      If rs.State = 1 Then rs.Close
      rs.Open "select * from 表计类型 where 部门名称='" & Bumen & "' ", DBConn, adOpenKeyset, adLockOptimistic, adCmdText
      If Not rs.EOF Then
         rs.MoveFirst
         For i = 1 To rs.RecordCount
           Set objLI = Lv.ListItems.Add(, "Row" & Rnd(), rs.Fields("表计类型").Value)
           rs.MoveNext
         Next i
      End If
    Exit Sub
ErrMsg:
       MsgBox Err.Description & vbCrLf & vbCrLf & "提示：请检查数据库配置！", vbInformation, "数据库操作失败"
End Sub