productcheckrecord.frm

即时通讯

         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":3D3A
            Key             =   "xx"
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":40D4
            Key             =   "define"
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":446E
            Key             =   "exec"
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":4808
            Key             =   "xz"
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":4BA2
            Key             =   "sc"
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":4F3C
            Key             =   "sx"
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":52D6
            Key             =   "cx"
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":5670
            Key             =   "zd"
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":5A0A
            Key             =   "dz"
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":5DA4
            Key             =   "ph"
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":613E
            Key             =   "fz"
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":64D8
            Key             =   "Locate"
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":6872
            Key             =   "hf"
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":6C0C
            Key             =   "pz"
         EndProperty
         BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":6FA6
            Key             =   "check"
         EndProperty
         BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":7340
            Key             =   "Sum"
         EndProperty
         BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":76DA
            Key             =   "Total"
         EndProperty
         BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":7A74
            Key             =   "Detail"
         EndProperty
         BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "productcheckrecord.frx":7E0E
            Key             =   "Order"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "productcheckrecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :产品检验记录维护与管理
'*    功 能 描 述 :产品经验记录的基本信息
'*    程序员姓名  :黄朝和
'*    最后修改人  :
'*    最后修改时间:2005/09/20
'*    备        注:
'*******************************************************
Option Explicit
Private ret As Boolean
Private ret1 As Boolean
Private judge As Boolean
Private judge1 As Boolean
Private m_recordset As ADODB.Recordset
Private g_recordset As ADODB.Recordset
Private f_recordset As ADODB.Recordset
Private h_recordset As ADODB.Recordset
Private m_productcheckrecordDAO As productcheckrecordDAO
Private currentrow As Integer
Private m_queryType As String
Private m_idList As String                 ' 在执行查询时查询到的ID列表字符串
'**************************************
'*    功 能 描 述 :MSHFlexGrid1控件加载函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub showform()
    MSHFlexGrid1.TextMatrix(0, 18) = "检验ID"
    MSHFlexGrid1.TextMatrix(0, 1) = "产品ID"
    MSHFlexGrid1.TextMatrix(0, 2) = "产品名称"
    MSHFlexGrid1.TextMatrix(0, 3) = "生产计划单ID"
    MSHFlexGrid1.TextMatrix(0, 4) = "生产单ID"
    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) = "各个部分相互作用"
    MSHFlexGrid1.TextMatrix(0, 14) = "回零误差"
    MSHFlexGrid1.TextMatrix(0, 15) = "检验结论"
    MSHFlexGrid1.TextMatrix(0, 16) = "核检员"
    MSHFlexGrid1.TextMatrix(0, 17) = "检验标记"
    MSHFlexGrid1.TextMatrix(0, 0) = "生产编号"
    MSHFlexGrid1.TextMatrix(0, 5) = "批次号"
    
    
                                         '设置列对齐方式  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) = 2
    MSHFlexGrid1.ColAlignment(8) = 2
    MSHFlexGrid1.ColAlignment(9) = 8
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2
    MSHFlexGrid1.ColAlignment(12) = 2
    MSHFlexGrid1.ColAlignment(13) = 2
    MSHFlexGrid1.ColAlignment(14) = 2
    MSHFlexGrid1.ColAlignment(15) = 2
    MSHFlexGrid1.ColAlignment(16) = 2
    MSHFlexGrid1.ColAlignment(17) = 8
    MSHFlexGrid1.ColAlignment(18) = 2

    
    
    
    MSHFlexGrid1.ColWidth(0) = 1900
    MSHFlexGrid1.ColWidth(1) = 5
    MSHFlexGrid1.ColWidth(18) = 5
    MSHFlexGrid1.ColWidth(3) = 5
    MSHFlexGrid1.ColWidth(2) = 1700
    MSHFlexGrid1.ColWidth(4) = 5
    MSHFlexGrid1.ColWidth(13) = 1700
    MSHFlexGrid1.ColWidth(17) = 5
End Sub
'**************************************
'*    功 能 描 述 :combo1控件加载刷新函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Combo1_Click()
    If Combo1 = "全部" Then
        m_queryType = "8"
        sxjl
    End If
    If Combo1 = "未检验" Then
        m_queryType = "0"
        sxjl
    End If
    If Combo1 = "未核检" Then
        m_queryType = "1"
        sxjl
    End If
    If Combo1 = "已核检未合格" Then
        m_queryType = "2"
        sxjl
    End If
    If Combo1 = "已核检已合格" Then
        m_queryType = "3"
        sxjl
    End If
    If Combo1 = "检验未完成" Then
        m_queryType = "4"
        sxjl
    End If
    If Combo1 = "已经入库" Then
        m_queryType = "5"
        sxjl
    End If
End Sub
'**************************************
'*    功 能 描 述 :窗体载入数据
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Form_Load()
    Set m_productcheckrecordDAO = New productcheckrecordDAO
    Set m_recordset = New ADODB.Recordset
    Set g_recordset = New ADODB.Recordset
    Set f_recordset = New ADODB.Recordset
    Set h_recordset = New ADODB.Recordset
    judge = yhqxpd(MainForm.g_application.m_userId, Trim(CHECK_P))       ' 权限判断
    If judge Then
            Combo1.clear
            Combo1.AddItem "未检验"
            Combo1.AddItem "检验未完成"
            Combo1.AddItem "未核检"
            Combo1.ListIndex = 0
    End If
    judge1 = yhqxpd(MainForm.g_application.m_userId, Trim(CHECK_CHECK_P))       ' 权限判断
    If judge1 Then
            Combo1.clear
            Combo1.AddItem "未核检"
            Combo1.ListIndex = 0
    End If
    If judge Then
        If judge1 Then
            Combo1.clear
            Combo1.AddItem "全部"
            Combo1.AddItem "未检验"
            Combo1.AddItem "未核检"
            Combo1.AddItem "检验未完成"
            Combo1.AddItem "已核检未合格"
            Combo1.AddItem "已核检已合格"
            Combo1.AddItem "已经入库"
            Combo1.ListIndex = 1
        End If
    End If
    
    SetToCenter Me
    showform
    sxjl
End Sub
'**************************************
'*    功 能 描 述 :刷新数据库
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub sxjl()
    ret = m_productcheckrecordDAO.checkrecord_show(m_recordset, m_queryType)
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2
    MSHFlexGrid1.WordWrap = True
    Call showform
    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))
             If Len(Trim(.Fields(6))) = 1 Then
               MSHFlexGrid1.TextMatrix(currentrow, 6) = "000" & Trim(.Fields(6))
             End If
             If Len(Trim(.Fields(6))) = 2 Then
               MSHFlexGrid1.TextMatrix(currentrow, 6) = "00" & Trim(.Fields(6))
             End If
             If Len(Trim(.Fields(6))) = 3 Then
               MSHFlexGrid1.TextMatrix(currentrow, 6) = "0" & Trim(.Fields(6))
             End If
             If Len(Trim(.Fields(6))) = 4 Then
               MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields(6))
             End If
             
             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(18))
             MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields(19) & " ")
             '<<]
      
             '动态集指针加1,同时将计数器加1(Fixed)
             .MoveNext
             currentrow = currentrow + 1
         Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)