productschemelistform.frm

即时通讯

         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":64DC
            Key             =   "Locate"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":6876
            Key             =   "hf"
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":6C10
            Key             =   "pz"
         EndProperty
         BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":6FAA
            Key             =   "check"
         EndProperty
         BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":7344
            Key             =   "Sum"
         EndProperty
         BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":76DE
            Key             =   "Total"
         EndProperty
         BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":7A78
            Key             =   "Detail"
         EndProperty
         BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ProductSchemeListForm.frx":7E12
            Key             =   "Order"
         EndProperty
      EndProperty
   End
   Begin VB.Menu PM_modiState 
      Caption         =   "PM_modiState"
      Visible         =   0   'False
      Begin VB.Menu m_finishDesign 
         Caption         =   "设计完成"
      End
      Begin VB.Menu m_finishScheme 
         Caption         =   "执行完成"
      End
      Begin VB.Menu m_cancelScheme 
         Caption         =   "取消计划"
      End
      Begin VB.Menu m_delScheme 
         Caption         =   "删除计划"
      End
   End
End
Attribute VB_Name = "ProductSchemeListForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :生产计划单列表管理窗体
'*    功 能 描 述 :管理生产计划单
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/08/17
'**************************************
Option Explicit
Private m_dao As ProductSchemeDAO             ' 仓库数据库操作类
Private m_psBomDao As PS_BomDAO               ' 生产计划单BOM数据库操作类
Private m_recordset As ADODB.Recordset        ' 数据操作数据集对象

Private m_queryType As String                 ' 查询的生产计划单类型
Private q As Integer
Private m_idList As String                 ' 在执行查询时查询到的ID列表字符串

Private Sub CB_schemeType_Click()
    ' 用户选择生产计划单类型
    If CB_schemeType = "全部" Then
        m_queryType = "8"
    End If
    If CB_schemeType = "设计中" Then
        m_queryType = "0"
    End If
    If CB_schemeType = "执行中" Then
        m_queryType = "1"
    End If
    If CB_schemeType = "已完成" Then
        m_queryType = "2"
    End If
    If CB_schemeType = "已取消" Then
        m_queryType = "3"
    End If
    
    ' 刷新列表
    refreshlist
End Sub

Private Sub Form_Load()
    Set m_dao = New ProductSchemeDAO
    Set m_psBomDao = New PS_BomDAO
    Set m_recordset = New ADODB.Recordset
    
    Me.Height = 6225
    Me.Width = 10605
    SetToCenter Me
    Me.caption = "生产计划单管理"
    
    m_queryType = "8"
    
    CB_schemeType.clear
    CB_schemeType.AddItem "全部"
    CB_schemeType.AddItem "设计中"
    CB_schemeType.AddItem "执行中"
    CB_schemeType.AddItem "已完成"
    CB_schemeType.AddItem "已取消"
    CB_schemeType.ListIndex = 1
    
    refreshlist
End Sub

Private Sub Form_Resize()
        hfg_schemeList.Height = Me.Height - 1400
        hfg_schemeList.Width = Me.Width - 350
    
'    Image1.Stretch = False
    
    If (hfg_schemeList.Height > hfg_schemeList.Height - 300) Or (hfg_schemeList.Width > hfg_schemeList.Width - 200) Then
        hfg_schemeList.Height = hfg_schemeList.Height + 400
        hfg_schemeList.Width = hfg_schemeList.Width + 200
'
'        Image1.Stretch = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set m_dao = Nothing
    Set m_psBomDao = Nothing
    Set m_recordset = Nothing
End Sub

Private Sub hfg_schemeList_DblClick()
    ' 修改
    ProductSchemeSingleForm.m_operatorType = 1
    If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" Then
        ProductSchemeSingleForm.m_schemeId = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11))
        ProductSchemeSingleForm.m_schemeState = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
        ProductSchemeSingleForm.show 1
        If q = 1 Then
            RefreshQueryList
        Else
'            If CB_schemeType.ListIndex = 1 Then
                refreshlist
'            End If
        End If
    End If
End Sub

Private Sub hfg_schemeList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbRightButton Then       ' 用户点击右键，调出快捷菜单
        On Error GoTo EXITSUB
        Select Case Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
        Case "0"
            m_finishDesign.Visible = True
            m_finishScheme.Visible = False
            m_cancelScheme.Visible = False
            m_delScheme.Visible = True
        Case "1"
            m_finishDesign.Visible = False
            m_finishScheme.Visible = False
            m_cancelScheme.Visible = True
            m_delScheme.Visible = False
        Case "2"
            m_finishDesign.Visible = False
            m_finishScheme.Visible = False
            m_cancelScheme.Visible = False
            m_delScheme.Visible = False
        Case "3"
            m_finishDesign.Visible = False
            m_finishScheme.Visible = False
            m_cancelScheme.Visible = False
            m_delScheme.Visible = False
        Case Else
            m_finishDesign.Visible = False
            m_finishScheme.Visible = False
            m_cancelScheme.Visible = False
            m_delScheme.Visible = False
        End Select
        PopupMenu PM_modiState
    End If
EXITSUB:
End Sub

Private Sub m_cancelScheme_Click()
    ' 设置成取消
    ChangeSchemeState "3"
End Sub
'**************************************
'*    功 能 描 述 :删除一个生产计划单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub m_delScheme_Click()
    If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" Then
        ' 删除生产计划单
        m_dao.DeleteProductScheme Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11))
        ' 删除生产计划单的BOM物料
        m_psBomDao.DeleteBomBySchemeId m_recordset, Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11))
        refreshlist
    Else
        MainForm.g_msgText = "请选择一会生产计划单进行删除操作！"
        HMsgBox MainForm.g_msgText, hxxdOKOnly, hxxdError
    End If
End Sub

Private Sub m_finishDesign_Click()
    Dim pBomDao As PS_BomDAO
    Dim recSet As ADODB.Recordset
    
    Set pBomDao = New PS_BomDAO
    Set recSet = New ADODB.Recordset
    
    If pBomDao.FindProductionBomByScheme(recSet, _
       Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)), 2) Then     ' 如果生产计划单已有生产BOM，则改到执行状态
        ' 设置成执行中
        ChangeSchemeState "1"
    Else
        MainForm.g_msgText = "生产计划单还没有设计BOM，请设计好再开始执行计划！"
        HMsgBox MainForm.g_msgText, hxxdOKOnly, hxxdError
    End If
    
    Set pBomDao = Nothing
    Set recSet = Nothing
End Sub

Private Sub m_finishScheme_Click()
    ' 设置成执行完成
    ChangeSchemeState "2"
End Sub

'**************************************
'*    功 能 描 述 :工具栏按钮的单击操作按钮
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "xz"                         ' 新增
            ProductSchemeSingleForm.m_operatorType = 0
            ProductSchemeSingleForm.show 1
            refreshlist
        Case "cx"                         ' 查询
            QueryProduceScheme
        Case "xg"                         ' 修改
            ProductSchemeSingleForm.m_operatorType = 1
            If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" Then
                ProductSchemeSingleForm.m_schemeId = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11))
                ProductSchemeSingleForm.m_schemeState = Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13))
                ProductSchemeSingleForm.show 1
                If q = 1 Then
                    RefreshQueryList
                Else
'                    If CB_schemeType.ListIndex = 1 Then
                        refreshlist
'                    End If
                End If
            End If
        Case "cd"                         ' 外协生产单清单
            
            If Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 11)) <> "" And _
               Trim(hfg_schemeList.TextMatrix(hfg_schemeList.row, 13)) <> "0" Then
                CooperateListForm.m_productSchemeId = _