productschemelistform.frm

即时通讯

                    hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)
                CooperateListForm.m_operateType = 1
                CooperateListForm.show
            Else
                MainForm.g_msgText = "物料生产单清单当前不可用!"
                HMsgBox MainForm.g_msgText, 0, 1
            End If
        Case "bomCal"                         '调用生产计划单物料管理窗体
            If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" And _
               Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13)) <> "0" Then
                ProductSchemeMaterialForm.m_productSchemeId = _
                    hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)
                ProductSchemeMaterialForm.m_schemeNum = _
                    hfg_schemeList.TextMatrix(hfg_schemeList.row, 3)
                ProductSchemeMaterialForm.m_schemeState = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
                ProductSchemeMaterialForm.show
            Else
                MainForm.g_msgText = "物料清单当前不可用!"
                HMsgBox MainForm.g_msgText, 0, 1
            End If
        Case "zt"                         '调用生产计划单物料执行情况
            If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" And _
               Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13)) <> "0" Then
                ProductSchemeExeStateForm.m_productSchemeId = _
                    hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)
                ProductSchemeExeStateForm.m_schemeNum = _
                    hfg_schemeList.TextMatrix(hfg_schemeList.row, 3)
                ProductSchemeExeStateForm.m_schemeState = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
                ProductSchemeExeStateForm.show
            Else
                MainForm.g_msgText = "物料清单当前不可用!"
                HMsgBox MainForm.g_msgText, 0, 1
            End If
        Case "bm"                         ' BOM管理
            PS_BomSingleForm.m_operatorType = 1
            If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" Then
                PS_BomSingleForm.m_productSchemeId = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11))
                PS_BomSingleForm.m_productionId = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 12))
                PS_BomSingleForm.m_schemeState = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
                PS_BomSingleForm.show
            End If
        Case "sx"                         '刷 新
            Call refreshlist
        Case "tc"                         '退 出
            Unload Me
    End Select
End Sub
'**************************************
'*    功 能 描 述 :刷新仓库列表
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub refreshlist()
    Dim currentrow As Integer                 ' 当前插入的行
    
    m_dao.FindSchemeByType m_recordset, m_queryType

    hfg_schemeList.clear
    hfg_schemeList.Rows = 2

    RefreshListTitle

    With m_recordset
'        hfg_houseList.Rows = m_recordset.RecordCount
        currentrow = 1
        Do While Not .EOF
            If currentrow > hfg_schemeList.Rows - 1 Then
                hfg_schemeList.AddItem ""
            End If
            
            '[>>自定义填充内容
            hfg_schemeList.TextMatrix(currentrow, 0) = Trim(.Fields("name"))
            hfg_schemeList.TextMatrix(currentrow, 1) = Trim(.Fields("specification"))
            hfg_schemeList.TextMatrix(currentrow, 2) = Trim(.Fields("singlenum"))
            hfg_schemeList.TextMatrix(currentrow, 3) = Trim(.Fields("totalnum"))
            hfg_schemeList.TextMatrix(currentrow, 4) = "￥" & Trim(.Fields("costprice"))
            hfg_schemeList.TextMatrix(currentrow, 5) = "￥" & Trim(.Fields("totalmoney"))
            hfg_schemeList.TextMatrix(currentrow, 6) = Trim(.Fields("makeBillDate"))
            hfg_schemeList.TextMatrix(currentrow, 7) = Trim(.Fields("beginSchemeDate"))
            hfg_schemeList.TextMatrix(currentrow, 8) = Trim(.Fields("finishSchemeDate"))
            hfg_schemeList.TextMatrix(currentrow, 9) = Trim(.Fields("groupNo"))
            hfg_schemeList.TextMatrix(currentrow, 10) = Trim(.Fields("memo"))
            hfg_schemeList.TextMatrix(currentrow, 11) = Trim(.Fields("schemeId"))
            hfg_schemeList.TextMatrix(currentrow, 12) = Trim(.Fields("productionid"))
            hfg_schemeList.TextMatrix(currentrow, 13) = Trim(.Fields("state"))
            '<<]
            '设置数据行高度(Fixed)
            hfg_schemeList.RowHeight(currentrow) = 300
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
        Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)
    m_recordset.Close

End Sub
'**************************************
'*    功 能 描 述 :刷新列表的标题栏
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub RefreshListTitle()
    hfg_schemeList.TextMatrix(0, 0) = "名称"
    hfg_schemeList.TextMatrix(0, 1) = "产品规格"
    hfg_schemeList.TextMatrix(0, 2) = "单件数"
    hfg_schemeList.TextMatrix(0, 3) = "总数量"
    hfg_schemeList.TextMatrix(0, 4) = "成本单价"
    hfg_schemeList.TextMatrix(0, 5) = "总金额"
    hfg_schemeList.TextMatrix(0, 6) = "制单日期"
    hfg_schemeList.TextMatrix(0, 7) = "开始日期"
    hfg_schemeList.TextMatrix(0, 8) = "完工日期"
    hfg_schemeList.TextMatrix(0, 9) = "生产批号"
    hfg_schemeList.TextMatrix(0, 10) = "备注"
    hfg_schemeList.TextMatrix(0, 11) = "schemeId"
    hfg_schemeList.TextMatrix(0, 12) = "productionid"
    hfg_schemeList.TextMatrix(0, 13) = "state"
    
    
                                                     '设置列对齐方式  8-右对齐 5-居中对齐 2-左对齐
    hfg_schemeList.ColAlignment(0) = 2
    hfg_schemeList.ColAlignment(1) = 2
    hfg_schemeList.ColAlignment(2) = 8
    hfg_schemeList.ColAlignment(3) = 8
    hfg_schemeList.ColAlignment(4) = 8
    hfg_schemeList.ColAlignment(5) = 8
    hfg_schemeList.ColAlignment(6) = 2
    hfg_schemeList.ColAlignment(7) = 2
    hfg_schemeList.ColAlignment(8) = 2
    hfg_schemeList.ColAlignment(9) = 2
    hfg_schemeList.ColAlignment(10) = 2
    hfg_schemeList.ColAlignment(11) = 2
    hfg_schemeList.ColAlignment(12) = 2
    hfg_schemeList.ColAlignment(13) = 8
    
    hfg_schemeList.ColWidth(0) = 3000
    hfg_schemeList.ColWidth(1) = 0
    hfg_schemeList.ColWidth(2) = 0
    hfg_schemeList.ColWidth(3) = 600
    hfg_schemeList.ColWidth(4) = 0
    hfg_schemeList.ColWidth(5) = 0
    hfg_schemeList.ColWidth(6) = 1000
    hfg_schemeList.ColWidth(7) = 1000
    hfg_schemeList.ColWidth(8) = 1000
    hfg_schemeList.ColWidth(9) = 1000
    hfg_schemeList.ColWidth(10) = 1000
    hfg_schemeList.ColWidth(11) = 0
    hfg_schemeList.ColWidth(12) = 0
    hfg_schemeList.ColWidth(13) = 0
    
End Sub
'**************************************
'*    功 能 描 述 :改变生产计划单的状态
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Function ChangeSchemeState(state As String)
    Dim ret As Boolean
    Dim answer As Integer
    
    MainForm.g_msgText = "你真的要改变生产单状态吗？？修改后将不可改变成原来状态！！"
    answer = HMsgBox(MainForm.g_msgText, 1, 4)
    If answer = 7 Then     ' 不改变状态
        Exit Function
    End If
    
    If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" Then
        ret = m_dao.SetProductSchemeState(m_recordset, state, _
              Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)))
        If ret Then
            hfg_schemeList.TextMatrix(hfg_schemeList.row, 11) = state
            refreshlist
        End If
    End If
    
End Function

'**************************************
'*    功 能 描 述 :改变生产计划单的状态
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Function QueryProduceScheme()
    q = 1
    Dim ret As Boolean
    Dim currentrow As Integer                 ' 当前插入的行

    QueryFom.m_currentQuery = QUERY_PRODUCE_SCHEME
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
End Function

Private Sub RefreshQueryList()
    Dim ret As Boolean
    
    ' 显示查询到的结果
    On Error GoTo EXITFUN
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    InsertQueryIdList m_idList                             ' 把要显示的记录ID列表插入临时表
    ret = m_dao.productScheme_findByIdList(m_recordset)    ' 查找记录
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 提交事务
    
    hfg_schemeList.clear
    hfg_schemeList.Rows = 2

    RefreshListTitle
    If ret Then
        GetRecordToList m_recordset
    End If
    Text1.text = Trim(m_recordset.RecordCount)
    m_recordset.Close
    Exit Sub

EXITFUN:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans  ' 回滚事务
End Sub
'**************************************
'*    功 能 描 述 :从数据集中取出记录在列表中显示
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub GetRecordToList(recSet As ADODB.Recordset)
    Dim currentrow As Integer
    
    With m_recordset
    '        hfg_houseList.Rows = m_recordset.RecordCount
        currentrow = 1
        Do While Not .EOF
            If currentrow > hfg_schemeList.Rows - 1 Then
                hfg_schemeList.AddItem ""
            End If
            
            '[>>自定义填充内容
            hfg_schemeList.TextMatrix(currentrow, 0) = Trim(.Fields("name"))
            hfg_schemeList.TextMatrix(currentrow, 1) = Trim(.Fields("specification"))
            hfg_schemeList.TextMatrix(currentrow, 2) = Trim(.Fields("singlenum"))
            hfg_schemeList.TextMatrix(currentrow, 3) = Trim(.Fields("totalnum"))
            hfg_schemeList.TextMatrix(currentrow, 4) = "￥" & Trim(.Fields("costprice"))
            hfg_schemeList.TextMatrix(currentrow, 5) = "￥" & Trim(.Fields("totalmoney"))
            hfg_schemeList.TextMatrix(currentrow, 6) = Trim(.Fields("makeBillDate"))
            hfg_schemeList.TextMatrix(currentrow, 7) = Trim(.Fields("beginSchemeDate"))
            hfg_schemeList.TextMatrix(currentrow, 8) = Trim(.Fields("finishSchemeDate"))
            hfg_schemeList.TextMatrix(currentrow, 9) = Trim(.Fields("groupNo"))
            hfg_schemeList.TextMatrix(currentrow, 10) = Trim(.Fields("memo"))
            hfg_schemeList.TextMatrix(currentrow, 11) = Trim(.Fields("schemeId"))
            hfg_schemeList.TextMatrix(currentrow, 12) = Trim(.Fields("productionid"))
            hfg_schemeList.TextMatrix(currentrow, 13) = Trim(.Fields("state"))

            '<<]
            '设置数据行高度(Fixed)
            hfg_schemeList.RowHeight(currentrow) = 300
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
        Loop
    End With
    
    Text1.text = Trim(m_recordset.RecordCount)
End Sub