7,785
社区成员




Private Sub Form_Load()
Dim sql As String
maxRecord = 2 '每页显示最大记录数
pageIndex = 1 '设置当前页码为1
sql = "Select * from [doc] order by docID DESC"
Call getData(sql) '连接数据库
Call showData '显示样式
pages = rs.RecordCount / maxRecord '总页数
End Sub
Private Sub btnUp_Click()
'向前翻页
pageIndex = pageIndex - 1
End Sub
Private Sub btnDown_Click()
'向后翻页
pageIndex = pageIndex + 1
End Sub
Private Function showData()
Dim i As Integer
With MSHFlexGrid1
.Redraw = False
.Cols = 6
If rs.RecordCount <= maxRecord Then
.Rows = rs.RecordCount + 1
Else
.Rows = maxRecord + 1
End If
.TextMatrix(0, 1) = "来文字号"
.TextMatrix(0, 2) = "文件标题"
.TextMatrix(0, 3) = "文件日期"
.TextMatrix(0, 4) = "主题词"
.TextMatrix(0, 5) = "存放位置"
For i = 1 To (.Rows - 1)
.TextMatrix(i, 0) = rs.Fields("docID")
rs.MoveNext
Next i
For i = 0 To 5
.ColAlignment(i) = 3
Next i
.Redraw = True
End With
End Function
Private Sub btnDown_Click()
If Not rs.EOF Then
Call showData
MsgBox (rs.AbsolutePage)
End If
End Sub
Private Sub btnUp_Click()
If Not rs.BOF Then
Call showData
MsgBox (rs.AbsolutePage)
End If
End Sub
Private Function showData()
Dim i As Integer
rs.PageSize = 2
With MSHFlexGrid1
.Redraw = False
.Cols = 6
If rs.RecordCount <= rs.PageSize Then
.Rows = rs.RecordCount + 1
Else
.Rows = rs.PageSize + 1
End If
.TextMatrix(0, 1) = "来文字号"
.TextMatrix(0, 2) = "文件标题"
.TextMatrix(0, 3) = "文件日期"
.TextMatrix(0, 4) = "主题词"
.TextMatrix(0, 5) = "存放位置"
For i = 1 To (.Rows - 1)
If Not rs.EOF Then
.TextMatrix(i, 0) = rs.Fields("docID")
rs.MoveNext
End If
Next i
For i = 0 To 5
.ColAlignment(i) = 3
Next i
.Redraw = True
End With
End Function