backgoods.frm

即时通讯

'*    备        注:
'*******************************************************
Option Explicit
Private m_backgoodsDAO As BackGoodsDAO
Private m_recordset As ADODB.Recordset
Private m_supplierDAO As supplierDAO
Private m_stockstoreDAO As stockstoreDAO
Private g_recordset As ADODB.Recordset
Private m_goodsDAO As GoodsDAO
Private m_warehouseDAO As WarehouseDAO
Private m_EmployeeDAO As employeeDAO
Private m_stockorderDAO As stockorderDAO
Private k_recordset As ADODB.Recordset
Private m_BomSupplierRelationDAO As BomSupplierRelationDAO
Public backgoodsid1 As String
Private m_row As Integer            '行数
Private m_col As Integer            '列数

Private Sub Command1_Click()
            If Trim(suppliername.text) = "" Then
               MainForm.g_msgText = "请选择一个供应商的名称!!"
               Call HMsgBox(MainForm.g_msgText, 0, 1)
               Exit Sub
            End If
                SupplierBomListForm.m_supplierid = Trim(suppliername.text)
                SupplierBomListForm.m_operatorType = "0"
                SupplierBomListForm.show vbModal
            '*******************************************************
            '*    模 块 名 称 :判断商品编号是否存在
            '*******************************************************
            If Trim(MainForm.g_application.m_queryResultId) = "" Then
                Exit Sub
            Else
            '*******************************************************
            '*    模 块 名 称 :判断商品是否存在
            '*******************************************************
                    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                        If Trim(MSHFlexGrid1.row) = m_row Then
                            getgoods
                            Exit Sub
                        End If
                    Else
                    '*******************************************************
                    '*    模 块 名 称 :判断商品是否存在
                    '*******************************************************
                                Dim Y As Integer
                                For Y = 0 To MSHFlexGrid1.Rows - 2
                                        If Trim(MSHFlexGrid1.TextMatrix(Y, 8)) = Trim(MainForm.g_application.m_queryResultId) Then
                                            MainForm.g_msgText = "对不起该商品已经存在,请选择添加其他的商品！!"
                                            Call HMsgBox(MainForm.g_msgText, 0, 1)
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = ""                            '商品名称
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2) = ""                         '大单位
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4) = ""                '预设进价
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 8) = ""
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6) = 0
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = 0
                                            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = 0
'                                            MSHFlexGrid1.RemoveItem m_row
                                            Exit Sub
                                        End If
                                Next Y
                    End If
                End If
    getgoods
    MSHFlexGrid1.AddItem ""
End Sub

Private Sub Command2_Click()
    QueryFom.m_currentQuery = QUERY_SUPPLIER
    QueryFom.show 1
    m_supplierDAO.S_DanTiao m_recordset, MainForm.g_application.m_queryResultId
    With m_recordset
        If Not .EOF Then
            suppliername.text = Trim(.Fields("supplierid"))
            Text1.text = Trim(.Fields("supplier"))
            Text1.Tag = Trim(.Fields("supplier"))
            superinrtendent.text = Trim(.Fields("superinrtendent"))
            phone.text = Trim(.Fields("phone"))
        End If
    End With
    storenotenum.text = GetBillNo(2)
    storenotenum.Tag = GetBillNo(2)
    storedate.text = CDate(Trim(Date + Time()))
    deliverydate.text = Format(Date, "yyyy-mm-dd")
    memo.text = ""
    counterman.text = Trim(MainForm.g_application.m_userName)
    inputman.text = Trim(MainForm.g_application.m_userName)
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2
    Text2.text = ""
    Call showform
    m_recordset.Close
End Sub

Private Sub Command3_Click()
    Call Drbmhelp(1, Trim(deliverydate.text))
    '根据设置选择显示编码和名称,并进行存储
    If Len(XT_calendar.Xtfhcs) <> 0 Then
            deliverydate.text = XT_calendar.Xtfhcs  '将日历窗体里取得的值传给建档日期的文本框
    End If
    deliverydate.SetFocus
End Sub

Private Sub Command4_Click()
     Dim ret As Boolean
     QueryFom.m_currentQuery = QUERY_WAREHOUSE
     QueryFom.show vbModal
     ' 如果此原料已有BOM记录，则调出些条BOM的信息
     ret = m_warehouseDAO.Findwarehouse(m_recordset, _
                                   MainForm.g_application.m_queryResultId)
     If ret Then
         With m_recordset                          '将查询到的记录传到列表显示
             store.Tag = Trim(.Fields("warehouseid"))
             store.text = Trim(.Fields("仓库名称"))
         End With
         m_recordset.Close
    End If
End Sub

Private Sub Command5_Click()
    Dim ret As Boolean
            QueryFom.m_currentQuery = QUERY_EMPLOYEE
            QueryFom.show vbModal
            ' 如果此原料已有BOM记录，则调出些条BOM的信息
            ret = m_EmployeeDAO.FindEmployee(m_recordset, _
                                          MainForm.g_application.m_queryResultId)
            If ret Then
                With m_recordset                          '将查询到的记录传到列表显示
                    counterman.Tag = Trim(.Fields("员工编号"))
                    counterman.text = Trim(.Fields("员工姓名"))
                End With
                m_recordset.Close
            End If
End Sub

Private Sub Command6_Click()
    Dim ret As Boolean
    QueryFom.m_currentQuery = QUERY_EMPLOYEE
    QueryFom.show vbModal
    ' 如果此原料已有BOM记录，则调出些条BOM的信息
    ret = m_EmployeeDAO.FindEmployee(m_recordset, _
                                  MainForm.g_application.m_queryResultId)
    If ret Then
        With m_recordset                          '将查询到的记录传到列表显示
            inputman.Tag = Trim(.Fields("员工编号"))
            inputman.text = Trim(.Fields("员工姓名"))
        End With
        m_recordset.Close
    End If
End Sub

Private Sub Form_Load()
    SetToCenter Me
    Set m_warehouseDAO = New WarehouseDAO
    Set m_backgoodsDAO = New BackGoodsDAO
    Set m_recordset = New ADODB.Recordset
    Set m_supplierDAO = New supplierDAO
    Set m_stockstoreDAO = New stockstoreDAO
    Set g_recordset = New ADODB.Recordset
    Set m_goodsDAO = New GoodsDAO
    Set m_EmployeeDAO = New employeeDAO
    Set k_recordset = New ADODB.Recordset
    Set m_stockorderDAO = New stockorderDAO
    Set m_BomSupplierRelationDAO = New BomSupplierRelationDAO
        If backgoodslistform.backgoods_type = 0 Then                              '判断该页是否是从stockorderlistsupplier传过来的   0--表示是，1--表示否
            Call suppliershow
            Call goodsshow
            Call form_enabled
        ElseIf backgoodslistform.backgoods_type = 1 Then
            Call showform
            Call clear
        End If
End Sub

Private Sub MSHFlexGrid1_Click()
        m_row = MSHFlexGrid1.MouseRow
        m_col = MSHFlexGrid1.MouseCol
        If m_row < MSHFlexGrid1.FixedRows Then m_row = MSHFlexGrid1.FixedRows
        If m_col < MSHFlexGrid1.FixedCols Then m_col = MSHFlexGrid1.FixedCols
            MSHFlexGrid1.row = m_row: MSHFlexGrid1.col = m_col
        If m_col = 1 Then
            Command1.Visible = False
            Text2.Visible = False
            Command1.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft + MSHFlexGrid1.CellWidth - 300, _
                MSHFlexGrid1.Top + MSHFlexGrid1.CellTop, _
                300, _
                MSHFlexGrid1.CellHeight - 20
            Command1.Visible = True
        Else
            Command1.Visible = False
            Text2.Visible = False
        End If
        If m_col <> 6 And m_col <> 1 And m_col <> 5 And m_col <> 2 And m_col <> 8 And m_col <> 0 Then
            Text2.Visible = False
            Text2.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop, MSHFlexGrid1.CellWidth + 20, (MSHFlexGrid1.CellHeight - 50)
            Text2.text = Trim(MSHFlexGrid1.text)
            Text2.Visible = True
            Text2.SetFocus
        Else
            Text2.Visible = False
        End If
End Sub

Private Sub Text2_Change()
    If Len(Trim(Text2.text)) = 0 Then
        Exit Sub
    End If
    If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1) = "" Then
            MainForm.g_msgText = "请先选择一个商品名称!!"
            Call HMsgBox(MainForm.g_msgText, 0, 1)
            Text2.text = ""
            Exit Sub
    Else
        MSHFlexGrid1.TextMatrix(m_row, m_col) = Text2
            If Not IsNumeric(MSHFlexGrid1.TextMatrix(m_row, 3)) And Trim(MSHFlexGrid1.TextMatrix(m_row, 3)) <> "" Then
                MainForm.g_msgText = "你输入的格式有误,请输入一个数字 !!"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Text2.SetFocus
                Exit Sub
            End If
            If Not IsNumeric(Replace(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)), "￥", "")) And Trim(Replace(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)), "￥", "")) <> "" Then
                MainForm.g_msgText = "你输入的格式有误,请输入一个数字 !!"
                Call HMsgBox(MainForm.g_msgText, 0, 1)
                Text2.SetFocus
                Exit Sub
            End If
        If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3)) <> "" Then
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = "￥" & CDbl(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3)) * CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)), "￥", "")))
        End If
        If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)) <> "" Then
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 5) = "￥" & CDbl(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3)) * CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 4)), "￥", "")))
        End If
    End If
End Sub

Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "bc"
            If Not Check Then                              ' 判断输入文本的内容
                Exit Sub
            End If
            If Not judge_position Then
                Exit Sub
            End If
            If Not judge_position1 Then
                Exit Sub
            End If
                Call xzjl
                Call clear
                MSHFlexGrid1.clear
                Call showform
                MSHFlexGrid1.Rows = 2
                Text2.Visible = False
        Case "xz"
            Call clear
            MSHFlexGrid1.clear
            Call showform
            MSHFlexGrid1.Rows = 2
        Case "tc"
            Unload Me
        Case "dy"
            If backgoodslistform.backgoods_type = 1 Then
                If Not Check Then                              ' 判断输入文本的内容
                    Exit Sub
                End If
                If Not judge_position Then
                    Exit Sub
                End If
                If Not judge_position1 Then
                    Exit Sub
                End If
                    Call xzjl
                    Call clear
                    MSHFlexGrid1.clear
                    Call showform
                    MSHFlexGrid1.Rows = 2
                    Text2.Visible = False
                    PrintData (Trim(backgoodsid1))
            ElseIf backgoodslistform.backgoods_type = 0 Then
                PrintData (Trim(storenotenum.Tag))
            End If
    End Select
End Sub

'*******************************************************
'*    模 块 名 称 :新增一条退货的记录
'*    最后修改时间:2005/08/31
'*    备        注:
'*******************************************************
Private Sub xzjl()
    Dim ret As Boolean
    Dim currentrow2 As Integer
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans
    On Error GoTo EXITSUB
    backgoodsid1 = m_backgoodsDAO.addbackgoods(m_recordset, Trim(storenotenum.text), Trim(suppliername.text), Trim(superinrtendent.text), CDate(storedate.text), CDate(deliverydate.text), Trim(phone.text), Trim(store.Tag), Trim(counterman.text), Trim(inputman.text), Trim(memo.text))
    For currentrow2 = 1 To MSHFlexGrid1.Rows - 1
        If Trim(MSHFlexGrid1.TextMatrix(currentrow2, 8)) <> "" Then
            ret = m_backgoodsDAO.addbackgoodsdetail(m_recordset, backgoodsid1, _
                Trim(MSHFlexGrid1.TextMatrix(currentrow2, 8)), _
                Trim(MSHFlexGrid1.TextMatrix(currentrow2, 2)), _
                CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow2, 3))), _
                CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow2, 4)), "￥", "")), _
                CDbl(Replace(Trim(MSHFlexGrid1.TextMatrix(currentrow2, 5)), "￥", "")), _
                CDbl(Trim(MSHFlexGrid1.TextMatrix(currentrow2, 6))), _
                Trim(MSHFlexGrid1.TextMatrix(currentrow2, 7)))
        Else
        End If
    Next currentrow2
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans
    Exit Sub
EXITSUB:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans
End Sub

Private Sub clear()
        storenotenum.text = GetBillNo(4)
        suppliername.text = ""
        storedate.text = CDate(Date + Time())
        deliverydate.text = Format(Date, "yyyy-mm-dd")
        superinrtendent.text = ""
        store.text = ""
        phone.text = ""
        memo.text = ""
        counterman.text = Trim(MainForm.g_application.m_userName)
        inputman.text = Trim(MainForm.g_application.m_userName)
        Text1.text = ""
        Text1.Tag = ""
        MSHFlexGrid1.clear
        Call showform
End Sub

Private Sub showform()
    MSHFlexGrid1.TextMatrix(0, 0) = "退货明细编号"
    MSHFlexGrid1.TextMatrix(0, 1) = "商品名称"
    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.ColWidth(8) = 5
    MSHFlexGrid1.ColWidth(0) = 5
        '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    MSHFlexGrid1.ColAlignment(1) = 2
    MSHFlexGrid1.ColAlignment(2) = 2
    MSHFlexGrid1.ColAlignment(7) = 2
    MSHFlexGrid1.ColAlignment(3) = 8
    MSHFlexGrid1.ColAlignment(4) = 8