📄 stockorderlistsupplier.frm

📁 即时通讯
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
            End If
        Case "sc"
            Call delete                                    ' 删 除 记 录
            Call sxjl
        Case "tc"                                          ' 退 出
             Unload Me
        Case "bz"
            If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) = "" Then
                MainForm.g_msgText = "请选择一条采购订单！!"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Exit Sub
            End If
            If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)) = "未审核" Then
                MainForm.g_msgText = "该采购订单还未审核，请先审核再入库！!"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Exit Sub
            ElseIf Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)) = "已审核" Then
                StockStorec.stockstore_form = 1
                stockstorelistform.stockstore_type = 1
                StockStorec.stockstore_stockstoreid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                StockStorec.show 1
                StockStorec.stockstore_form = 0
                Call sxjl
            End If
        Case "cx"
            Call cxjl
        Case "xz"
            type_g = 1
            StockOrder.show 1
            sxjl
    End Select
'    Unload Me
End Sub
Private Sub sxjl()
        Dim ret As Boolean
        ret = m_stockorderDAO.stockorder_show(m_recordset)
        MSHFlexGrid1.clear
        MSHFlexGrid1.Rows = 2
        Call showform
        With m_recordset
        currentrow = 1
           Do While Not .EOF
               If currentrow > MSHFlexGrid1.Rows - 1 Then
                   MSHFlexGrid1.AddItem ""
               End If
               '[>>自定义填充内容
               MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("stockorderid"))
               MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman"))
               MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman"))
               MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("notenum"))
               Dim ret1 As Boolean
                ret1 = m_supplierDAO.S_DanTiao(s_recordset, Trim(.Fields("supplierid")))
                    MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(s_recordset.Fields("supplier"))
                s_recordset.Close
               MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("inputdate"))
               MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("deliverydate"))
               MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("superinrtendent"))
               MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
               MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("memo"))
               If .Fields("shhe") = 1 Then
                   MSHFlexGrid1.TextMatrix(currentrow, 10) = "未审核"
               ElseIf .Fields("shhe") = 0 Then
                   MSHFlexGrid1.TextMatrix(currentrow, 10) = "已审核"
               End If
               MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("supplierid"))
               Dim i As Integer
               ret = m_stockorderDAO.stockorderdetail_show(g_recordset, Trim(.Fields("stockorderid")))
               Do While Not g_recordset.EOF
                   If CDbl(Trim(g_recordset.Fields("num")) - Trim(g_recordset.Fields("finishnum"))) = 0 Then
                           MSHFlexGrid1.TextMatrix(currentrow, 12) = "已完成"
                           MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(g_recordset.Fields("num"))
                           MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(g_recordset.Fields("finishnum"))
                       Else
                           MSHFlexGrid1.TextMatrix(currentrow, 12) = "未完成"
                           MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(g_recordset.Fields("num"))
                           MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(g_recordset.Fields("finishnum"))
                           Exit Do
                       End If
               g_recordset.MoveNext
               i = i + 1
               Loop
               g_recordset.Close
               '<<]
        
               '动态集指针加1,同时将计数器加1(Fixed)
               .MoveNext
               currentrow = currentrow + 1
         Loop
      End With
      Text1.text = Trim(m_recordset.RecordCount)
      m_recordset.Close
End Sub

Private Sub showform()
  MSHFlexGrid1.TextMatrix(0, 0) = "采购订单编号"
  MSHFlexGrid1.TextMatrix(0, 1) = "业务员"           '初始化MSHFLexGrid1的各列的名称
  MSHFlexGrid1.TextMatrix(0, 2) = "制单人"
  MSHFlexGrid1.TextMatrix(0, 3) = "单据编号"
  MSHFlexGrid1.TextMatrix(0, 4) = "供应商名称"
  MSHFlexGrid1.TextMatrix(0, 5) = "录入日期"
  MSHFlexGrid1.TextMatrix(0, 6) = "交货日期"
  MSHFlexGrid1.TextMatrix(0, 7) = "联系人"
  MSHFlexGrid1.TextMatrix(0, 8) = "联系电话"
  MSHFlexGrid1.TextMatrix(0, 9) = "备注"
  MSHFlexGrid1.TextMatrix(0, 10) = "审核"
  MSHFlexGrid1.TextMatrix(0, 11) = "供应商编号"
  MSHFlexGrid1.TextMatrix(0, 12) = "完成状态"
  MSHFlexGrid1.TextMatrix(0, 13) = "总数量"
  MSHFlexGrid1.TextMatrix(0, 14) = "完成数量"
  
                                                                                       '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    MSHFlexGrid1.ColAlignment(0) = 2
    MSHFlexGrid1.ColAlignment(1) = 2
    MSHFlexGrid1.ColAlignment(2) = 2
    MSHFlexGrid1.ColAlignment(3) = 2
    MSHFlexGrid1.ColAlignment(4) = 2
    MSHFlexGrid1.ColAlignment(5) = 2
    MSHFlexGrid1.ColAlignment(6) = 2
    MSHFlexGrid1.ColAlignment(7) = 2
    MSHFlexGrid1.ColAlignment(8) = 2
    MSHFlexGrid1.ColAlignment(9) = 2
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2
    MSHFlexGrid1.ColAlignment(12) = 2
    MSHFlexGrid1.ColAlignment(13) = 8
    MSHFlexGrid1.ColAlignment(14) = 8
    
  MSHFlexGrid1.ColWidth(0) = 5
  MSHFlexGrid1.ColWidth(11) = 5
  MSHFlexGrid1.ColWidth(13) = 5
  MSHFlexGrid1.ColWidth(14) = 5
End Sub


Private Sub delete()
  If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 10)) = "已审核" Then
        MainForm.g_msgText = "该采购订单已经审核，不能删除!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
  Else
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) = "" Then             ' 删除选中的记录
        MainForm.g_msgText = "请选择一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
    End If
        MainForm.g_msgText = "确定删除这条记录吗？"
        Dim f As String
        f = HMsgBox(MainForm.g_msgText, 2, 1)
        If f = 1 Then
             m_stockorderDAO.Deletestockorderdetail m_recordset, Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        End If
 End If
End Sub

Private Sub cxjl()
    q = 1
    QueryFom.m_currentQuery = QUERY_STOCKORDER
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
        
End Sub

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_stockorderDAO.stockorder1_showList(m_recordset)    ' 查找记录
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 提交事务
    
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2
    Call showform
    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
    Dim ret As Boolean
    
    With m_recordset
    '        hfg_houseList.Rows = m_recordset.RecordCount
        currentrow = 1
        Do While Not .EOF
            If currentrow > MSHFlexGrid1.Rows - 1 Then
                MSHFlexGrid1.AddItem ""
            End If
            
            '[>>自定义填充内容
            MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("stockorderid"))
            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman"))
            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman"))
            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("notenum"))
            Dim ret1 As Boolean
            ret1 = m_supplierDAO.S_DanTiao(s_recordset, Trim(.Fields("supplierid")))
            MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(s_recordset.Fields("supplier"))
            s_recordset.Close
            MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("inputdate"))
            MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("deliverydate"))
            MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("superinrtendent"))
            MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("phone"))
            MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("memo"))
            If .Fields("shhe") = 1 Then
                MSHFlexGrid1.TextMatrix(currentrow, 10) = "未审核"
            ElseIf .Fields("shhe") = 0 Then
                MSHFlexGrid1.TextMatrix(currentrow, 10) = "已审核"
            End If
            MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("supplierid"))
            Dim i As Integer
            ret = m_stockorderDAO.stockorderdetail_show(g_recordset, Trim(.Fields("stockorderid")))
            Do While Not g_recordset.EOF
                If CDbl(Trim(g_recordset.Fields("num")) - Trim(g_recordset.Fields("finishnum"))) = 0 Then
                    MSHFlexGrid1.TextMatrix(currentrow, 12) = "已完成"
                    MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(g_recordset.Fields("num"))
                    MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(g_recordset.Fields("finishnum"))
                Else
                    MSHFlexGrid1.TextMatrix(currentrow, 12) = "未完成"
                    MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(g_recordset.Fields("num"))
                    MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(g_recordset.Fields("finishnum"))
                    Exit Do
                End If
            g_recordset.MoveNext
            i = i + 1
            Loop

            '<<]
            '设置数据行高度(Fixed)
            MSHFlexGrid1.RowHeight(currentrow) = 300
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
            g_recordset.Close
        Loop
    End With
    
    Text1.text = Trim(m_recordset.RecordCount)
End Sub
上一页 1 23
💿 文件大小 2190 K
👤 上传用户 huanghuanl
📂 所属分类汇编语言
🏷️ 相关标签

#即时通讯
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -