producefinishlist.frm

即时通讯

      EndProperty
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   4935
      Left            =   0
      TabIndex        =   1
      Top             =   600
      Width           =   8775
      _ExtentX        =   15478
      _ExtentY        =   8705
      _Version        =   393216
      BackColor       =   -2147483634
      Cols            =   14
      FixedCols       =   0
      RowHeightMin    =   300
      BackColorFixed  =   15723503
      AllowUserResizing=   3
      _NumberOfBands  =   1
      _Band(0).Cols   =   14
   End
End
Attribute VB_Name = "ProduceFinishlist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :外协收工单维护与管理
'*    功 能 描 述 :外协收工单的基本信息
'*    程序员姓名  :黄朝和
'*    最后修改人  :
'*    最后修改时间:2005/09/12
'*    备        注:
'*******************************************************
Option Explicit
Public m_operateType As Integer               ' 0--主菜单调用显显所有的完工单，
                                              ' 1--外协单调用，显示本外协单的完工单
Public m_cooperateId As String                ' 外部调用时传进来的生产计划单编号

Private m_recordset As ADODB.Recordset
Private m_dao As ProduceFinishDAO
Public rowname As String
Private m_idList As String                 ' 在执行查询时查询到的ID列表字符串

Private Sub showform()
    MSHFlexGrid1.Cols = 14
    MSHFlexGrid1.Rows = 2
'    MSHFlexGrid1.CellAlignment = 0

    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.TextMatrix(0, 9) = "完成时间"
    MSHFlexGrid1.TextMatrix(0, 10) = "备注"
    MSHFlexGrid1.TextMatrix(0, 11) = "库位"
    MSHFlexGrid1.TextMatrix(0, 12) = "商品编号"
    MSHFlexGrid1.TextMatrix(0, 13) = "商品类型"
    
                             '设置列对齐方式  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) = 8
    MSHFlexGrid1.ColAlignment(6) = 8
    MSHFlexGrid1.ColAlignment(7) = 8
    MSHFlexGrid1.ColAlignment(8) = 8
    MSHFlexGrid1.ColAlignment(9) = 2
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2
    MSHFlexGrid1.ColAlignment(12) = 2
    MSHFlexGrid1.ColAlignment(13) = 8
    
    MSHFlexGrid1.ColWidth(0) = 0
    MSHFlexGrid1.ColWidth(1) = 0
    MSHFlexGrid1.ColWidth(2) = 2000
    MSHFlexGrid1.ColWidth(10) = 0
    MSHFlexGrid1.ColWidth(11) = 0
    MSHFlexGrid1.ColWidth(12) = 0
End Sub


Private Sub Form_Load()
    SetToCenter Me

    Set m_recordset = New ADODB.Recordset
    Set m_dao = New ProduceFinishDAO
    RefreshFinishList
End Sub

Private Sub Form_Resize()
    MSHFlexGrid1.Height = Me.Height - 1400
    MSHFlexGrid1.Width = Me.Width - 350
    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()
    ProduceFinish.m_cooperateType = 2
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        rowname = MSHFlexGrid1.RowSel
        ProduceFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
        ProduceFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
        ProduceFinish.show 1
    Else
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
            Case "sx"
                RefreshFinishList
            Case "xz"                    ' 新增
                If m_cooperateId <> "" Then
                    ProduceFinish.m_cooperateId = m_cooperateId
                    ProduceFinish.m_cooperateType = 0
                    ProduceFinish.show 1
                    RefreshFinishList
                Else
                    ProduceFinish.m_cooperateType = 1
                    ProduceFinish.show 1
                    RefreshFinishList
                End If
            Case "yl"
                ProduceFinish.m_cooperateType = 2
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
                    rowname = MSHFlexGrid1.RowSel
                    ProduceFinish.m_cooperateFinishId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                    ProduceFinish.m_cooperateId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 1))
                    ProduceFinish.show 1
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
            Case "cx"
                Call cxjl
            Case "fgd"        ' 调用与此收工单对应的返工单资料，查看
                If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" And _
                    Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6)) <> "" Then
                    If CDbl(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 6)) > 0 Then
                        CooperateRedo.m_finishid = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                        CooperateRedo.show 1
                    End If
                Else
                    MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                    Call HMsgBox(MainForm.g_msgText, 0, 1)
                    Exit Sub
                End If
                
            Case "tc"
                Unload Me
    End Select
End Sub


Public Function RefreshFinishList()
    Dim ret As Boolean
    Dim currentrow As Integer
    ret = m_dao.ProduceFinishFindAll(m_recordset, m_cooperateId)
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
    Call showform
    GetRecordToList m_recordset
    m_recordset.Close
    
End Function
Private Sub cxjl()
    QueryFom.m_currentQuery = QUERY_PRODUCE_FINISH
    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_dao.produce_finish_findByIdList(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
         currentrow = 1                                                         ' 赋初值
         Do While Not .EOF
            If currentrow > MSHFlexGrid1.Rows - 1 Then
                MSHFlexGrid1.AddItem ""
            End If
            '[>>自定义填充内容
            MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("finishid"))
            MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("produceId"))
            MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("processno"))
            MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("exeEmployeeName"))
            MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("bomName"))
            MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("losspartnum"))
            MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("backpartnum"))
            MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("finishpartnum"))
            MSHFlexGrid1.TextMatrix(currentrow, 8) = "￥" & Trim(.Fields("processfee"))
            MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("finishdate"))
            MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(.Fields("memo"))
            MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("warehouseName") & " ")
            MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("goodsid"))
            MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(.Fields("goodstype"))
            '<<]
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            currentrow = currentrow + 1
        Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)
End Sub