📄 productcheckrecord.frm
字号:
m_recordset.Close
End Sub
'**************************************
'* 功 能 描 述 :窗体大小改变
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub Form_Resize()
MSHFlexGrid1.Width = Me.Width - 150
MSHFlexGrid1.Height = Me.Height - 1045
End Sub
'**************************************
'* 功 能 描 述 :查看已经核检的产品
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub MSHFlexGrid1_DblClick()
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)) <> "" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "0" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "4" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "1" Then
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "2" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "3" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "5" Then
productioncheckrecord.checkvalue_form = 2
productioncheckrecord.bj = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17))
productioncheckrecord.checkId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18))
productioncheckrecord.scjhbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3))
productioncheckrecord.scdbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4))
productioncheckrecord.show
Else
MainForm.g_msgText = "该产品可能未检验或未核检!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Else
MainForm.g_msgText = "请选择一条记录！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
End Sub
'查询产品
Private Sub cxjl()
QueryFom.m_currentQuery = QUERY_CHECKRECORD
QueryFom.m_operateType = 1
QueryFom.show vbModal
m_idList = MainForm.g_application.m_queryResultId
RefreshQueryList ' 显示查询到的结果
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim checkForm As productioncheckrecord ' 检验窗体
Set checkForm = New productioncheckrecord
Select Case Button.Key
Case "sx" '刷新-------------------
Call sxjl
Case "cx" '查询-------------------
Call cxjl
Case "copy" '复制-------------------
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_P)))
ret1 = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_CHECK_P)))
If Not ret Or Not ret1 Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)) <> "" Then
MainForm.g_msgText = "确定复制这条记录吗？"
Dim f As String
f = HMsgBox(MainForm.g_msgText, 2, 2)
If f = 1 Then
Call copy
End If
Else
MainForm.g_msgText = "请您选择一条记录,请重试！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Case "shqs1" '核检-----------------------
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)) <> "" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "2" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "3" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "0" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "4" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "5" Then
Exit Sub
End If
checkForm.checkvalue_form = 0
checkForm.bj = 6
checkForm.checkId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18))
checkForm.produceId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0)) '生产编号
checkForm.scjhbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3))
checkForm.scdbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4))
checkForm.show 1
sxjl
Else
MainForm.g_msgText = "请选择一条记录！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Case "fq1" '检验----------------------
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)) <> "" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "2" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "3" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "5" Then
Exit Sub
End If
checkForm.checkvalue_form = 1
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "1" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 8)) = Trim(MainForm.g_application.m_userName) Then
checkForm.checkvalue_form = 0
checkForm.bj = 4
Else
MainForm.g_msgText = "该条记录已经被检验，只有检验该条记录的人才可以再次检验！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "4" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 8)) = Trim(MainForm.g_application.m_userName) Then
checkForm.checkvalue_form = 0
checkForm.bj = 4
checkForm.CX = "7"
Else
MainForm.g_msgText = "该条记录检验未完成，只有检验该条记录的人才可以重新检验！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
End If
checkForm.checkId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18))
checkForm.scjhbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3))
checkForm.scdbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4))
checkForm.show 1
sxjl
Exit Sub
Else
MainForm.g_msgText = "请选择一条记录！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Case "yl" '预览------------------------
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CHECK_P))) ' 权限判断
If Not ret Then
MainForm.g_msgText = "该功能您无权操作！"
HMsgBox MainForm.g_msgText, 0, 1
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)) <> "" Then
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "0" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "4" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "1" Then
Exit Sub
End If
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "2" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "3" Or Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17)) = "5" Then
checkForm.checkvalue_form = 2
checkForm.bj = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 17))
checkForm.checkId = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18))
checkForm.scjhbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3))
checkForm.scdbh = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4))
checkForm.show
Else
MainForm.g_msgText = "该产品可能未检验或未核检!或者您没有该权限!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Else
MainForm.g_msgText = "请选择一条记录！!"
Call HMsgBox(MainForm.g_msgText, 0, 1)
Exit Sub
End If
Case "tc" '退出
Unload Me
End Select
Set checkForm = Nothing
End Sub
'**************************************
'* 功 能 描 述 :复制一条记录
'* 输 入 参 数 :无
'* 输 出 能 数 :无
'**************************************
Private Sub copy()
Dim string1 As String
ret = m_productcheckrecordDAO.checkrecord_find1(m_recordset, Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 18)))
With m_recordset
string1 = m_productcheckrecordDAO.CheckRecord_add(g_recordset, Trim(.Fields("productionId")), Trim(.Fields("psId")), _
Trim(.Fields("productId")), Trim(.Fields("piciNo")), Trim(.Fields("serial")), _
Trim(.Fields("checkDate")), "0", "0", "0", _
"0", "0", "0", "0", "0", "0", "0", Trim(.Fields("produceid")))
End With
MainForm.g_msgText = "该条记录复制成功！"
HMsgBox MainForm.g_msgText, 0, 4
' g_recordset.Close
m_recordset.Close
Combo1_Click
sxjl
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_productcheckrecordDAO.checkrecord_findbyidList(m_recordset) ' 查找记录
MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans ' 提交事务
MSHFlexGrid1.clear
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.WordWrap = True
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, 18) = Trim(.Fields(0))
MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields(1))
MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields(2))
MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields(3))
MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields(4))
MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields(5))
MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields(6))
MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields(7))
MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields(8))
MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields(9))
If Trim(.Fields(10)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 10) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 10) = "不合格"
End If
If Trim(.Fields(11)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 11) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 11) = "不合格"
End If
If Trim(.Fields(12)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 12) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 12) = "不合格"
End If
If Trim(.Fields(13)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 13) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 13) = "不合格"
End If
If Trim(.Fields(14)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 14) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 14) = "不合格"
End If
If Trim(.Fields(15)) = 1 Then
MSHFlexGrid1.TextMatrix(currentrow, 15) = "合格"
Else
MSHFlexGrid1.TextMatrix(currentrow, 15) = "不合格"
End If
MSHFlexGrid1.TextMatrix(currentrow, 16) = Trim(.Fields(16))
MSHFlexGrid1.TextMatrix(currentrow, 17) = Trim(.Fields(17))
MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields(18) & " ")
.MoveNext
currentrow = currentrow + 1
Loop
End With
Text1.text = Trim(m_recordset.RecordCount)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -