form_queryv.frm

2008年版

        Select Case form_AnJuan.List1.ListIndex
        Case 0
            strSql = strSql + " order by file_number,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26 '专业
            strSql = strSql + " order by SORT_CODE,CATALOG_CODE,SERIES_CODE,file_number,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 7, 12 '照片 人物
            strSql = strSql + " order by SORT_CODE,CATALOG_CODE,file_number,SERIES_CODE,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 2, 3, 4, 5 '科技
            strSql = strSql + " order by ITEM_CODE,STAGE_CODE,series_CODE,FILE_NUMBER,SERIAL_NUMBER,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 10 '会计
            strSql = strSql + " order by SORT_CODE,SERIES_CODE,CATALOG_CODE,file_number,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 8, 9 '媒体
            strSql = strSql + " order by SORT_CODE,CATALOG_CODE,SERIES_CODE,file_number,REFERENCE_CODE_OF_FILE_OFFICE "
        Case 11 '实物
            strSql = strSql + " order by SERIES_CODE,CLASS_CODE,catalog_code,SERIAL_NUMBER,REFERENCE_CODE_OF_FILE_OFFICE "
        End Select
    Else
        strSql = strSql + " order by REFERENCE_CODE_OF_FILE_OFFICE,file_number "
    End If
    
    flagWhere = strSql
    
    If form_AnJuan.List1.ListIndex <> 0 Then
        form_AnJuan.ListView1.ListItems.Clear
        'MsgBox "www" & strSql
        Debug.Print "QuerySQL=" + strSql
        rs.Open strSql, conn
            While Not rs.EOF
            i = i + 1
                Set itmX = form_AnJuan.ListView1.ListItems.Add(, , i)
                    itmX.SubItems(1) = rs.Fields(0).Value
                    
                    itmX.SubItems(2) = xml("REFERENCE_CODE_OF_FILE_OFFICE")
                    itmX.SubItems(3) = xml("TITLE_PROPER")
                    If form_AnJuan.List1.ListIndex <> 13 Then
                        itmX.SubItems(4) = xml("date_begun") + " " + xml("date_finished")
                    Else
                        itmX.SubItems(4) = xml("date_begun")
                    End If
                    itmX.SubItems(5) = xml("medium_quantity")
                    Select Case xml("RETENTION_PERIOD")
                Case 0
                    itmX.SubItems(6) = "永久"
                Case 1
                    itmX.SubItems(6) = "长期"
                Case 2
                    itmX.SubItems(6) = "短期"
                End Select
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                Select Case form_AnJuan.List1.ListIndex
                'Case 2, 3, 4, 5
                '    itmX.SubItems(8) = xml("REFERENCE_CODE_OF_FILE_OFFICE")
                Case 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26
                    If xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIES_CODE") <> "" Then
                        itmX.SubItems(8) = xml("SORT_CODE") + "." + xml("CATALOG_CODE") + "." + xml("SERIES_CODE") + "-" + xml("FILE_NUMBER")
                    End If
                Case 7, 12
                    If xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIES_CODE") <> "" Then
                        itmX.SubItems(8) = xml("SORT_CODE") + "." + xml("CATALOG_CODE") + "." + xml("FILE_NUMBER") + "-" + xml("SERIES_CODE")
                    End If
                Case Else
                    itmX.SubItems(8) = ""
                End Select
                rs.MoveNext
            Wend
            rs.Close
        '添加记录到列表框
        End If
    
    '列表框显示
     Select Case form_AnJuan.List1.ListIndex
    Case 0
        'MsgBox "文书档案"                   '0
        form_AnJuan.ListView1.ListItems.Clear
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
            Set itmX = form_AnJuan.ListView1.ListItems.Add(, , i)
                itmX.SubItems(1) = rs.Fields(0).Value
                itmX.SubItems(2) = xml("REFERENCE_CODE_OF_FILE_OFFICE")
                itmX.SubItems(3) = xml("TITLE_PROPER")
                itmX.SubItems(4) = xml("date_begun") + " " + xml("date_finished")
                itmX.SubItems(5) = xml("medium_quantity")
                'itmX.SubItems(6) = xml("RETENTION_PERIOD")
                'MsgBox xml("RETENTION_PERIOD")
                Select Case xml("RETENTION_PERIOD")
                Case 0
                    itmX.SubItems(6) = "永久"
                Case 1
                    itmX.SubItems(6) = "长期"
                Case 2
                    itmX.SubItems(6) = "短期"
                End Select
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                itmX.SubItems(8) = Format(xml("file_number"), "0000")
            rs.MoveNext
        Wend
        rs.Close

    Case 12, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26
        'MsgBox "专业档案"
    Case 18 '专业会计
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "档号", 2000
        .ColumnHeaders.Add , , "类别", 0
        .ColumnHeaders.Add , , "卷(册袋)标题", 5300
        .ColumnHeaders.Add , , "起止日期", 2000
        .ColumnHeaders.Add , , "凭证编号", 2600
        .ColumnHeaders.Add , , "卷内张数", 1200
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "备注", 1200
        .ColumnHeaders.Add , , "档案馆编", 2000
        .View = lvwReport
        .ListItems.Clear
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
                itmX.SubItems(1) = ""
                itmX.SubItems(2) = xml("TITLE_PROPER")
                itmX.SubItems(3) = xml("DATE_BEGUN") + " " + xml("DATE_FINISHED")
                itmX.SubItems(4) = ""
                itmX.SubItems(5) = xml("MEDIUM_QUANTITY")
                Combo2.ListIndex = xml("RETENTION_PERIOD") + 1
                itmX.SubItems(6) = Combo2.text
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                If xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIES_CODE") <> "" Then
                    itmX.SubItems(8) = xml("SORT_CODE") + "." + xml("CATALOG_CODE") + "." + xml("SERIES_CODE") + "-" + xml("FILE_NUMBER")
                End If
            rs.MoveNext
        Wend
        rs.Close
        End With
        form_Print.Show 1
'    Case 22, 23, 25 '专业套用科技打印
'        With form_Print.ListView1
'        .ColumnHeaders.Clear
'        .ColumnHeaders.Add , , "档号", 2000
'        .ColumnHeaders.Add , , "唯一号", 0
'        .ColumnHeaders.Add , , "保管单位名称", 5300
'        .ColumnHeaders.Add , , "单位", 2000
'        .ColumnHeaders.Add , , "时间", 2600
'        .ColumnHeaders.Add , , "保管期限", 1200
'        .ColumnHeaders.Add , , "页数", 1200
'        .ColumnHeaders.Add , , "备注", 1200
'        .ColumnHeaders.Add , , "编制单位", 2000
'        .ColumnHeaders.Add , , "馆编档号", 2000
'        .View = lvwReport
'        .ListItems.Clear
'        rs.Open strSql, conn
'        While Not rs.EOF
'        i = i + 1
'            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
'                itmX.SubItems(1) = xml("RECORD_SEQUENCE_NUMBER")
'                itmX.SubItems(2) = xml("title_proper")
'                itmX.SubItems(3) = ""
'                itmX.SubItems(4) = xml("DATE_BEGUN") + " " + xml("DATE_FINISHED")
'                Combo2.ListIndex = xml("RETENTION_PERIOD") + 1
'                itmX.SubItems(5) = Combo2.text
'                itmX.SubItems(6) = xml("MEDIUM_QUANTITY")
'                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
'                itmX.SubItems(8) = ""
'                If xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIES_CODE") <> "" Then
'                    itmX.SubItems(9) = xml("SORT_CODE") + "." + xml("CATALOG_CODE") + "." + xml("SERIES_CODE") + "-" + xml("FILE_NUMBER")
'                End If
'            rs.MoveNext
'        Wend
'        rs.Close
'        End With
'        form_Print.Show 1
    Case 7
        'MsgBox "---照片档案"                 '2
    Case 8, 9
        'MsgBox "---音、视频档案"              '3
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "档号", 2000
        .ColumnHeaders.Add , , "序号", 2000
        .ColumnHeaders.Add , , "题名", 5300
        .ColumnHeaders.Add , , "责任者", 2000
        .ColumnHeaders.Add , , "录制日期", 2600
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "片长", 1200
        .ColumnHeaders.Add , , "参见号", 1200
        .ColumnHeaders.Add , , "备注", 1200
        .ColumnHeaders.Add , , "馆编档号", 2000
        .View = lvwReport
        .ListItems.Clear
        'MsgBox strSql
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
        'MsgBox i
            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
                itmX.SubItems(1) = i
                itmX.SubItems(2) = xml("TITLE_PROPER")
                itmX.SubItems(3) = "(主)" + xml("PRIMARY_CREATOR") + "(次)" + xml("SUBORDINATE_CREATOR")
                itmX.SubItems(4) = xml("DATE_BEGUN") + " " + xml("DATE_FINISHED")
                Combo2.ListIndex = xml("RETENTION_PERIOD") + 1
                itmX.SubItems(5) = Combo2.text
                itmX.SubItems(6) = xml("MEDIUM_QUANTITY")
                itmX.SubItems(7) = xml("REFERENCE_CODE")
                itmX.SubItems(8) = xml("NOTES_OF_ARCHIVIST")
                If xml("sort_code") <> "" And xml("SERIES_CODE") <> "" And xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" Then
                    itmX.SubItems(9) = xml("sort_code") + "." + xml("CATALOG_CODE") + "." + xml("SERIES_CODE") + "-" + xml("FILE_NUMBER")
                End If
            rs.MoveNext
        Wend
        rs.Close
        End With
        form_Print.Show 1
    Case 2, 3, 4, 5
        'MsgBox "科技档案"                        '19
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "档号", 2000
        .ColumnHeaders.Add , , "唯一号", 0
        .ColumnHeaders.Add , , "保管单位名称", 5300
        .ColumnHeaders.Add , , "单位", 2000
        .ColumnHeaders.Add , , "时间", 2600
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "页数", 1200
        .ColumnHeaders.Add , , "备注", 1200
        .ColumnHeaders.Add , , "编制单位", 2000
        .ColumnHeaders.Add , , "馆编档号", 2000
        .View = lvwReport
        .ListItems.Clear
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
                itmX.SubItems(1) = xml("RECORD_SEQUENCE_NUMBER")
                itmX.SubItems(2) = xml("TITLE_PROPER")
                itmX.SubItems(3) = xml("authorized_unit")
                itmX.SubItems(4) = xml("DATE_BEGUN") + " " + xml("DATE_FINISHED")
                Combo2.ListIndex = xml("RETENTION_PERIOD") + 1
                itmX.SubItems(5) = Combo2.text
                itmX.SubItems(6) = xml("MEDIUM_QUANTITY")
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                itmX.SubItems(8) = xml("authorized_unit")
                If form_AnJuan.List1.ListIndex = 2 Or form_AnJuan.List1.ListIndex = 3 Then
                    If xml("ITEM_CODE") <> "" And xml("STAGE_CODE") <> "" And xml("series_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIAL_NUMBER") <> "" Then
                        itmX.SubItems(9) = xml("ITEM_CODE") + "." + xml("STAGE_CODE") + "." + xml("series_CODE") + "." + xml("FILE_NUMBER") + "-" + xml("SERIAL_NUMBER")
                    End If
                End If
                If form_AnJuan.List1.ListIndex = 4 Then
                    If xml("ITEM_CODE") <> "" And xml("STAGE_CODE") <> "" And xml("series_CODE") <> "" And xml("FILE_NUMBER") <> "" Then
                        itmX.SubItems(9) = xml("ITEM_CODE") + "." + xml("STAGE_CODE") + "." + xml("series_CODE") + "-" + xml("FILE_NUMBER")
                    End If
                End If
                If form_AnJuan.List1.ListIndex = 5 Then
                    If xml("ITEM_CODE") <> "" And xml("series_CODE") <> "" And xml("FILE_NUMBER") <> "" And xml("SERIAL_NUMBER") <> "" Then
                        itmX.SubItems(9) = xml("ITEM_CODE") + "." + xml("series_CODE") + "." + xml("FILE_NUMBER") + "-" + xml("SERIAL_NUMBER")
                    End If
                End If
            rs.MoveNext
        Wend
        rs.Close
        End With
        form_Print.Show 1
    Case 10
        'MsgBox "会计档案"                        '19
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "档号", 2000
        .ColumnHeaders.Add , , "类别", 0
        .ColumnHeaders.Add , , "卷(册袋)标题", 5300
        .ColumnHeaders.Add , , "起止日期", 2000
        .ColumnHeaders.Add , , "凭证编号", 2600
        .ColumnHeaders.Add , , "卷内张数", 1200
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "备注", 1200
        .ColumnHeaders.Add , , "档案馆编", 2000
        .View = lvwReport
        .ListItems.Clear
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
                itmX.SubItems(1) = xml("ACCOUNT_BOOK_TYPE")
                itmX.SubItems(2) = xml("TITLE_PROPER")
                itmX.SubItems(3) = xml("DATE_BEGUN") + " " + xml("DATE_FINISHED")
                itmX.SubItems(4) = xml("VOUCHER_CODE")
                itmX.SubItems(5) = xml("MEDIUM_QUANTITY")
                itmX.SubItems(6) = xml("RETENTION_PERIOD")
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                If xml("sort_code") <> "" And xml("SERIES_CODE") <> "" And xml("CATALOG_CODE") <> "" And xml("FILE_NUMBER") <> "" Then
                    itmX.SubItems(8) = xml("sort_code") + "." + xml("SERIES_CODE") + "." + xml("CATALOG_CODE") + "-" + xml("FILE_NUMBER")
                End If
            rs.MoveNext
        Wend
        rs.Close
        End With
        form_Print.Show 1
    Case 11
        'MsgBox "实物档案"                        '19
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "档号", 2000
        .ColumnHeaders.Add , , "类别", 1500
        .ColumnHeaders.Add , , "实物标题", 5300
        .ColumnHeaders.Add , , "颁发日期", 2000
        .ColumnHeaders.Add , , "颁发单位", 2600
        .ColumnHeaders.Add , , "件数", 1200
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "备注", 1200
        .ColumnHeaders.Add , , "档案馆编", 2000
        .View = lvwReport
        .ListItems.Clear
        rs.Open strSql, conn
        While Not rs.EOF
        i = i + 1
            Set itmX = .ListItems.Add(, , xml("REFERENCE_CODE_OF_FILE_OFFICE"))
                itmX.SubItems(1) = xml("ACCOUNT_BOOK_TYPE")
                itmX.SubItems(2) = xml("TITLE_PROPER")
                itmX.SubItems(3) = xml("AWARD_DATA")
                itmX.SubItems(4) = xml("MEDIUM_UNIT")
                itmX.SubItems(5) = xml("MEDIUM_QUANTITY")
                Combo2.ListIndex = xml("RETENTION_PERIOD") + 1
                itmX.SubItems(6) = Combo2.text
                itmX.SubItems(7) = xml("NOTES_OF_ARCHIVIST")
                If xml("CLASS_CODE") <> "" And xml("CATALOG_CODE") <> "" And xml("SERIAL_NUMBER") <> "" Then
                    itmX.SubItems(8) = xml("SERIES_CODE") + "." + xml("CLASS_CODE") + "." + xml("CATALOG_CODE") + "-" + xml("SERIAL_NUMBER")
                End If
            rs.MoveNext
        Wend
        rs.Close
        End With
        form_Print.Show 1
    Case 13
        'MsgBox "电子档案"                        '19
        With form_Print.ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "室编档号", 2000
        .ColumnHeaders.Add , , "文件名称", 5300
        .ColumnHeaders.Add , , "形成日期", 2000
        .ColumnHeaders.Add , , "信息类型", 2000
        .ColumnHeaders.Add , , "参见号", 2000
        .ColumnHeaders.Add , , "载体编号", 2000
        .ColumnHeaders.Add , , "保管期限", 1200
        .ColumnHeaders.Add , , "备注", 1200