📄 cooperatestat.frm
字号:
Picture = "CooperateStat.frx":039A
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":0734
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":0ACE
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":0E68
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":1202
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":159C
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":1936
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":1CD0
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":206A
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":2404
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":279E
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":2B38
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":2ED2
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":326C
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":3606
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":39A0
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":3D3A
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":40D4
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":446E
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":4808
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":4BA2
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":4F3C
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":52D6
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":5670
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":5A0A
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":5DA4
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":613E
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":64D8
Key = "Locate"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":6872
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":6C0C
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":6FA6
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":7340
Key = "Sum"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":76DA
Key = "Total"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":7A74
Key = "Detail"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "CooperateStat.frx":7E0E
Key = "Order"
EndProperty
EndProperty
End
Begin VB.Menu PM_menu
Caption = "PM_menu"
Visible = 0 'False
Begin VB.Menu m_getMaterial
Caption = "领 料"
Visible = 0 'False
End
Begin VB.Menu m_cooperateFinish
Caption = "完工单"
Visible = 0 'False
End
Begin VB.Menu m_cooperateFinishList
Caption = "完工列表"
Visible = 0 'False
End
Begin VB.Menu m_cooperateRedo
Caption = "返工单"
Visible = 0 'False
End
Begin VB.Menu m_cooperateRedoList
Caption = "返工列表"
Visible = 0 'False
End
Begin VB.Menu m_setFinishNum
Caption = "设置完工"
Visible = 0 'False
End
Begin VB.Menu m_test
Caption = ""
End
End
End
Attribute VB_Name = "CooperateStatForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'* 模 块 名 称 :应用程序启动窗体
'* 功 能 描 述 :应用程序启动窗体
'* 程序员姓名 : 陈齐国
'* 最后修改人 : 陈齐国
'* 最后修改时间:2005/09/09
'**************************************
Option Explicit
Public m_operateType As String ' 操作类型 0 - 菜单调用，显示所有生产单
' 1 - 显示一个生产计划单的所有生产单
' 2 - 显示一个生产计划单中一个物料的所有外协单
Public m_productSchemeId As String ' 生产计划单
Public m_psbomId As String ' 生产计划单BOM编号
Private m_dao As CooperateDAO ' 生产外协单数据库操作类
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Private m_productSchemeDAO As ProductSchemeDAO ' 生产计划单数据库操作类
Private m_queryDAO As QueryDAO ' 查询语句的执行数据库操作类
Private m_sql As String ' 根据条件设置生成的统计查询语句
Private Sub C_condition_Click()
If F_alartSet.Visible Then
F_alartSet.Visible = False
Else
F_alartSet.Visible = True
End If
End Sub
'**************************************
'* 功 能 描 述 :设置生产单的完成数量
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub C_set_Click()
Dim ret As Boolean
If Trim(HFG_cooperateList.TextMatrix(HFG_cooperateList.row, 11)) <> "" And _
Trim(T_setToNum.text) <> "" Then
ret = m_dao.SetCooperateFinishNum(m_recordset, _
Trim(HFG_cooperateList.TextMatrix(HFG_cooperateList.row, 11)), _
CDbl(T_setToNum.text), CK_state)
If ret Then
HFG_cooperateList.TextMatrix(HFG_cooperateList.row, 12) = T_setToNum.text
If CK_state.value Then
HFG_cooperateList.TextMatrix(HFG_cooperateList.row, 10) = "1"
Else
HFG_cooperateList.TextMatrix(HFG_cooperateList.row, 10) = "0"
End If
End If
End If
End Sub
Private Sub Command1_Click()
F_alartSet.Visible = False
CooperateStat
End Sub
Private Sub Form_Load()
Set m_recordset = New ADODB.Recordset
Set m_dao = New CooperateDAO
Set m_productSchemeDAO = New ProductSchemeDAO
Set m_queryDAO = New QueryDAO
' m_productSchemeId = "" ' 生产计划单
' m_psbomId = "" ' 生产计划单BOM编号
Me.caption = "外协生产统计窗体"
Me.Height = 6180
Me.Width = 10695
F_alartSet.Visible = False
F_setFinishNum.Visible = False
If m_operateType = "2" Then
SzToolbar.Buttons(3).Visible = True
Else
SzToolbar.Buttons(3).Visible = False
End If
' T_alartDays = "10"
SetToCenter Me
RefreshListTitle
End Sub
'**************************************
'* 功 能 描 述 :刷新列表的标题栏
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub RefreshListTitle()
HFG_cooperateList.TextMatrix(0, 0) = "psMaterialId"
HFG_cooperateList.TextMatrix(0, 1) = "供应商"
HFG_cooperateList.TextMatrix(0, 2) = "物料名称"
HFG_cooperateList.TextMatrix(0, 3) = "工序名称"
HFG_cooperateList.TextMatrix(0, 4) = "计划数量"
HFG_cooperateList.TextMatrix(0, 5) = "报损数量"
HFG_cooperateList.TextMatrix(0, 6) = "返工数量"
HFG_cooperateList.TextMatrix(0, 7) = "完成数量"
HFG_cooperateList.TextMatrix(0, 8) = "加 工 费"
HFG_cooperateList.TextMatrix(0, 9) = "赔 偿 费"
HFG_cooperateList.TextMatrix(0, 10) = "bomId"
HFG_cooperateList.TextMatrix(0, 11) = "materialType"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -