ps_partproductform.frm

即时通讯

            Style           =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "报警"
            Key             =   "bj"
            ImageIndex      =   25
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "查询"
            Key             =   "cx"
            ImageKey        =   "cx"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "打印"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "sx"
            ImageKey        =   "sx"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "tc"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.TextBox Text1 
         Alignment       =   1  'Right Justify
         Appearance      =   0  'Flat
         ForeColor       =   &H80000006&
         Height          =   270
         Left            =   9240
         TabIndex        =   3
         Text            =   "Text1"
         Top             =   120
         Width           =   975
      End
   End
End
Attribute VB_Name = "PS_partProductForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 : 零件生产管理窗体
'*    功 能 描 述 : 管理一个零件的生产列表
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/10/9
'**************************************
Option Explicit

Public m_operateType As Integer       ' 操作类型    0 - 管理零件生产
Public m_psId As String               ' 生产计划单的编号
Public m_psbomId As String            ' 生产计划单BOM编号

Private m_bomDAO As PS_BomDAO                      ' 操作生产计划单BOM表的类
Private m_dao As ProductSchemeDAO                  ' 生产计划单数据库操作类

Private m_partMaterialSet As ADODB.Recordset ' 当前管理的零件的数据集
Private m_recordset As ADODB.Recordset

Private m_currentrow As Integer              ' 刷新列表时当前正在刷新的行
Private m_haveSetProcessNo As Boolean        ' 标志当前零件是否已经做好工序标志
Dim ret As Boolean
'**************************************
'*    功 能 描 述 :窗体初始化函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Form_Load()
    Set m_bomDAO = New PS_BomDAO
    Set m_dao = New ProductSchemeDAO
    
    Set m_partMaterialSet = New ADODB.Recordset
    Set m_recordset = New ADODB.Recordset
    
    m_haveSetProcessNo = False
    
    Me.Height = 6285
    Me.Width = 10785
    HFG_materialList.Width = Me.Width - 200
    
    StatusBar1.Panels(1).Width = StatusBar1.Width - 100
    SetToCenter Me
    
    FindPartMaterial                      ' 找到被管理的物料记录
    
    refreshlist
End Sub
'**************************************
'*    功 能 描 述 :刷新列表的标题栏
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub RefreshListTitle()
    HFG_materialList.Cols = 18

    HFG_materialList.TextMatrix(0, 0) = "工序编号"
    HFG_materialList.TextMatrix(0, 1) = "工序名称"
    HFG_materialList.TextMatrix(0, 2) = "物料名称"
    HFG_materialList.TextMatrix(0, 3) = "工 序 费"
    HFG_materialList.TextMatrix(0, 4) = "总工序费"
    HFG_materialList.TextMatrix(0, 5) = "成本单价"
    HFG_materialList.TextMatrix(0, 6) = "总 成 本"
    HFG_materialList.TextMatrix(0, 7) = "数    量"
    HFG_materialList.TextMatrix(0, 8) = "完成数量"
    HFG_materialList.TextMatrix(0, 9) = "已下单数量"
    HFG_materialList.TextMatrix(0, 10) = "psMaterialId"
    HFG_materialList.TextMatrix(0, 11) = "psId"
    HFG_materialList.TextMatrix(0, 12) = "bomId"
    HFG_materialList.TextMatrix(0, 13) = "materialType"
    HFG_materialList.TextMatrix(0, 14) = "materialId"
    HFG_materialList.TextMatrix(0, 15) = "报损数"
    HFG_materialList.TextMatrix(0, 16) = "索赔数"
    HFG_materialList.TextMatrix(0, 17) = "返工数"
    
    
                                                                                 '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    HFG_materialList.ColAlignment(0) = 2
    HFG_materialList.ColAlignment(1) = 2
    HFG_materialList.ColAlignment(2) = 2
    HFG_materialList.ColAlignment(3) = 8
    HFG_materialList.ColAlignment(4) = 8
    HFG_materialList.ColAlignment(5) = 8
    HFG_materialList.ColAlignment(6) = 8
    HFG_materialList.ColAlignment(7) = 8
    HFG_materialList.ColAlignment(8) = 8
    HFG_materialList.ColAlignment(9) = 8
    HFG_materialList.ColAlignment(10) = 2
    HFG_materialList.ColAlignment(11) = 2
    HFG_materialList.ColAlignment(12) = 2
    HFG_materialList.ColAlignment(13) = 8
    HFG_materialList.ColAlignment(14) = 2
    HFG_materialList.ColAlignment(15) = 8
    HFG_materialList.ColAlignment(16) = 8
    HFG_materialList.ColAlignment(17) = 8
    
    
    HFG_materialList.ColWidth(0) = 800
    HFG_materialList.ColWidth(1) = 800
    HFG_materialList.ColWidth(2) = 1000
    HFG_materialList.ColWidth(3) = 800
    HFG_materialList.ColWidth(4) = 800
    HFG_materialList.ColWidth(5) = 800
    HFG_materialList.ColWidth(6) = 800
    HFG_materialList.ColWidth(7) = 800
    HFG_materialList.ColWidth(8) = 800
    HFG_materialList.ColWidth(9) = 800
    HFG_materialList.ColWidth(10) = 0
    HFG_materialList.ColWidth(11) = 0
    HFG_materialList.ColWidth(12) = 0
    HFG_materialList.ColWidth(13) = 0
    HFG_materialList.ColWidth(14) = 0
    HFG_materialList.ColWidth(15) = 600
    HFG_materialList.ColWidth(16) = 600
    HFG_materialList.ColWidth(17) = 600

End Sub
'**************************************
'*    功 能 描 述 :找到被管理的零件的物料记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub FindPartMaterial()
    
    ret = m_dao.FindSchemeMaterialByPsidPsbomid(m_partMaterialSet, m_psId, m_psbomId)
    
    If Trim(m_partMaterialSet.Fields("parentPsMaterialId") & " ") = "" Then    ' 是否已经设置了工序的编号
        m_haveSetProcessNo = False
    Else
        m_haveSetProcessNo = True
    End If
End Sub
'**************************************
'*    功 能 描 述 :刷新列表
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub refreshlist()
    m_currentrow = 0
    Dim currentrow As Integer
    
    HFG_materialList.clear
    HFG_materialList.Rows = 2
    RefreshListTitle
    
    If Not m_haveSetProcessNo Then        ' 如果生产工序的编号还没有标注，则从树中读取各生产序号
        ReadChildrenNodes (m_psbomId)
        
        m_currentrow = m_currentrow + 1
        If m_currentrow > HFG_materialList.Rows - 1 Then      ' 对列表的行进行调整
            HFG_materialList.AddItem ""
        End If
        ' 读入数据
        HFG_materialList.TextMatrix(m_currentrow, 0) = m_currentrow
        HFG_materialList.TextMatrix(m_currentrow, 1) = Trim(m_partMaterialSet.Fields("processName"))
        HFG_materialList.TextMatrix(m_currentrow, 2) = Trim(m_partMaterialSet.Fields("bomName"))
        HFG_materialList.TextMatrix(m_currentrow, 3) = "￥" & Trim(m_partMaterialSet.Fields("fee"))
        HFG_materialList.TextMatrix(m_currentrow, 4) = "￥" & Trim(m_partMaterialSet.Fields("totalfee"))
        HFG_materialList.TextMatrix(m_currentrow, 5) = "￥" & Trim(m_partMaterialSet.Fields("bomCost"))
        HFG_materialList.TextMatrix(m_currentrow, 6) = "￥" & Trim(m_partMaterialSet.Fields("totalCost"))
        HFG_materialList.TextMatrix(m_currentrow, 7) = Trim(m_partMaterialSet.Fields("quantity"))
        HFG_materialList.TextMatrix(m_currentrow, 8) = Trim(m_partMaterialSet.Fields("finish"))
        HFG_materialList.TextMatrix(m_currentrow, 9) = Trim(m_partMaterialSet.Fields("madeBillNum"))
    
        HFG_materialList.TextMatrix(m_currentrow, 10) = Trim(m_partMaterialSet.Fields("psMaterialId"))
        HFG_materialList.TextMatrix(m_currentrow, 11) = Trim(m_partMaterialSet.Fields("psId"))
        HFG_materialList.TextMatrix(m_currentrow, 12) = Trim(m_partMaterialSet.Fields("bomId"))
        HFG_materialList.TextMatrix(m_currentrow, 13) = Trim(m_partMaterialSet.Fields("materialType"))
        HFG_materialList.TextMatrix(m_currentrow, 14) = Trim(m_partMaterialSet.Fields("materialId"))
        HFG_materialList.TextMatrix(m_currentrow, 15) = Trim(m_partMaterialSet.Fields("lossNum") & " ")
        HFG_materialList.TextMatrix(m_currentrow, 16) = Trim(m_partMaterialSet.Fields("counterclaimNum") & " ")
        HFG_materialList.TextMatrix(m_currentrow, 17) = Trim(m_partMaterialSet.Fields("backNum") & " ")
        Text1.text = m_partMaterialSet.RecordCount
        
        SetProcessNo         ' 把当前生产工序的编号标注到数据库中
    Else           ' 如果生产工序的编号已经标注，则直接从生产物料单中读取
        ret = m_dao.FindSchemeMaterialByParentMaterialId(m_recordset, _
                    Trim(m_partMaterialSet.Fields("psMaterialId")))
        If ret Then
            With m_recordset
'                hfg_houseList.Rows = m_recordset.RecordCount