stockstorelistform.frm

即时通讯

         Loop
      End With
      Text1.text = Trim(m_recordset.RecordCount)
      m_recordset.Close
End Sub
'**************************************
'*    功 能 描 述 :载入数据
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Form_Load()
    SetToCenter Me
        Set m_warehouseDAO = New WarehouseDAO
        Set w_recordset = New ADODB.Recordset
        Set m_stockstoreDAO = New stockstoreDAO
        Set m_recordset = New ADODB.Recordset
        Set m_supplierDAO = New supplierDAO
        Set s_recordset = New ADODB.Recordset
    If supplier_store_type = 0 Then
        Call showform
        Call sxjl
    ElseIf supplier_store_type = 1 Then
        Tlb_Action.Buttons("xz").Enabled = False
        Tlb_Action.Buttons("cx").Enabled = False
        Call showform
        Call supplier_sxjl
        
        If Trim(MSHFlexGrid1.TextMatrix(1, 0)) <> "" Then
            Me.caption = MSHFlexGrid1.TextMatrix(1, 4) & "--" & "采购入库列表"
        Else
            Me.caption = "该供应商无采购入库单"
        End If
    End If
End Sub

Private Sub Form_Resize()
        MSHFlexGrid1.Height = Me.Height - 1420
        MSHFlexGrid1.Width = Me.Width - 300
    
'    Image1.Stretch = False
    
    If (MSHFlexGrid1.Height > MSHFlexGrid1.Height - 300) Or (MSHFlexGrid1.Width > MSHFlexGrid1.Width - 200) Then
        MSHFlexGrid1.Height = MSHFlexGrid1.Height + 400
        MSHFlexGrid1.Width = MSHFlexGrid1.Width + 200
    End If
End Sub
'**************************************
'*    功 能 描 述 :查看记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub MSHFlexGrid1_DblClick()
    stockstore_type = 0
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        stockstoreid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        StockStorec.suppliername3 = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4))
        StockStorec.storename = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 11))
        StockStorec.show 1
    Else
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub
'**************************************
'*    功 能 描 述 :工具栏按钮的单击操作按钮
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
        Select Case Button.Key
            Case "sx"                                           ' 刷 新
                 Call sxjl
            Case "yl"
                 Call yl
            Case "xz"
                stockstore_type = 1
                StockStorec.show 1
                sxjl
            Case "tc"                                           ' 退 出
                 Unload Me
            Case "cx"
                Call cxjl
        End Select
End Sub
'**************************************
'*    功 能 描 述 :预览按钮-预览所选的记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub yl()
    stockstore_type = 0
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        stockstoreid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        StockStorec.suppliername3 = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4))
        StockStorec.storename = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 11))
        StockStorec.show 1
    Else
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub
'**************************************
'*    功 能 描 述 :查询按钮
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub cxjl()
    QueryFom.m_currentQuery = QUERY_STOCKSTORE
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
End Sub
'**************************************
'*    功 能 描 述 :显示供应商的资料
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub supplier_sxjl()
        Dim ret As Boolean
        ret = m_stockstoreDAO.stockstore1_show(m_recordset, Trim(supplier_stockstore))
        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("stockstoreid"))
               MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman"))
               MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman"))
               MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("storenotenum"))
               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("storedate"))
               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 Trim(.Fields("shhe")) = 1 Then
                   MSHFlexGrid1.TextMatrix(currentrow, 10) = "未审核"
               ElseIf Trim(.Fields("shhe")) = 0 Then
                   MSHFlexGrid1.TextMatrix(currentrow, 10) = "已审核"
               End If
               Dim W As Boolean
                W = m_warehouseDAO.FindById(w_recordset, Trim(.Fields("store")))
                MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(w_recordset.Fields("仓库名称"))
                w_recordset.Close
                MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("supplierid"))
               '<<]
        
               '动态集指针加1,同时将计数器加1(Fixed)
               .MoveNext
               currentrow = currentrow + 1
           Loop
      End With
      Text1.text = Trim(m_recordset.RecordCount)
      m_recordset.Close
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_stockstoreDAO.stockstore1_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
    
    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("stockstoreid") & " ")
            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("counterman") & " ")
            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("inputman") & " ")
            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("storenotenum") & " ")
            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("storedate") & " ")
            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 Trim(.Fields("shhe")) = 1 Then
                MSHFlexGrid1.TextMatrix(currentrow, 10) = "未审核"
            ElseIf Trim(.Fields("shhe")) = 0 Then
                MSHFlexGrid1.TextMatrix(currentrow, 10) = "已审核"
            End If
            Dim w2 As Boolean
            w2 = m_warehouseDAO.FindById(w_recordset, Trim(.Fields("store")))
            MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(w_recordset.Fields("仓库名称"))
            w_recordset.Close
            MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("supplierid"))

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