module2_modify.bas

来自「2008年版」· BAS 代码 · 共 51 行

Attribute VB_Name = "Module2_Modify"
Public Function numberPage(table As String, colname As String) As Integer
On Error Resume Next
If flag = "Insert" Then
    rs.Open "select count(number_of_page) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "'", conn
        If rs.Fields(0).Value = 0 Then
            numberPage = 1
        Else
        rs.Close
        rs.Open "select max(number_of_page) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "'", conn
            numberPage = rs.Fields(0).Value + 1
        End If
    rs.Close
End If
End Function '判断最大页号add by AKII 20040621
Public Function numberPage2(table As String, colname As String) As Integer
On Error Resume Next
If flag = "Insert" Then
    rs.Open "select count(number_of_page) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "' and class_code='" & form_AnJuan.List1.ListIndex & "'", conn
        If rs.Fields(0).Value = 0 Then
            numberPage2 = 1
        Else
        rs.Close
        rs.Open "select max(number_of_page) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "' and class_code='" & form_AnJuan.List1.ListIndex & "'", conn
            numberPage2 = rs.Fields(0).Value + 1
        End If
    rs.Close
End If
End Function '判断最大页号add by AKII 20040621科技有分类的档案
Public Sub Number()
    If Not (KeyAscii > 47 And KeyAscii < 59) Then
        KeyAscii = 0
        MsgBox "请输入数字!", 48, ""
    End If
End Sub
Public Function numberPage3(table As String, colname As String) As Integer
On Error Resume Next
If flag = "Insert" Then
    rs.Open "select count(STARTING_PHOTO_CODE) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "'", conn
        If rs.Fields(0).Value = 0 Then
            numberPage3 = 1
        Else
        rs.Close
        rs.Open "select max(val(STARTING_PHOTO_CODE)) from " + table + " where REFERENCE_CODE_OF_FILE_OFFICE='" & colname & "'", conn
            numberPage3 = rs.Fields(0).Value + 1
        End If
    rs.Close
End If
End Function '判断最大页号add by AKII 20040703