数据在窗体中的翻页

原创 2002年05月04日 17:44:00

用mshflexgrid控件实现数据库翻页
========================
打开vb6.0
在窗体中加入2个command控件,1个mshflexgrid控件
代码:
-----------------------------
Dim intpage As Integer

Private Sub Command1_Click()
intpage = intpage - 1
page intpage
End Sub

Private Sub Command2_Click()

intpage = intpage + 1
page intpage
End Sub

 Sub page(intpagecount As Integer)
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
Dim rs As New ADODB.Recordset
MSHFlexGrid1.Clear
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "/Students.mdb"
cn.Open
cm.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "select * from 新生入学信息表 ", cn, adOpenDynamic, adLockBatchOptimistic
rs.PageSize = 10
If intpagecount > rs.PageCount Then
intpagecount = rs.PageCount
End If
If intpagecount < 1 Then
intpagecount = 1
End If
rs.AbsolutePage = intpagecount

'MsgBox rs.Fields.Count
With MSHFlexGrid1
    .Cols = rs.Fields.Count
    .Rows = 10
    For i = 0 To 9
        For j = 0 To rs.Fields.Count - 1
        .TextMatrix(i, j) = rs.Fields(j)
        Next
    rs.MoveNext
    Next
End With
 End Sub

Private Sub Form_Load()
Command2.Caption = "下一页"
Command1.Caption = "上一页"
page 1
End Sub

作者主页:http://risk.y365.com

vb读取excel中的数据并在窗体上显示

Public ExcelTable As Workbook  'excel 工作表对象 Private TextBoxA() As Control      '以编辑框为基础动态构造数据网格 ...

在窗体中画出带有颜色的图形

  • 2011年12月22日 22:23
  • 5KB
  • 下载

C# 利用接口在窗体间传递消息(很基础很实用)

接口是一组包含了函数型方法的数据结构。通过这组数据结构,客户代码可以调用组件对象的功能。我们在实际开发中,经常要用到在窗体间传递数据。很多情况下,我们用委托把数据从子窗体传递到主窗体,这个例子我们来看...

java_在窗体中绘制图形

  • 2015年06月27日 00:50
  • 50KB
  • 下载

自定义Dialog,如何实现浮动层,主要是dialog浮动在窗体上

学习目标: 1.如何自定义Dialog的外观样式和方法? 自定义一个类继承自Dialog类,然后在构造方法中,定义这个dialog的布局和一些初始化信息。 public class Menu...

固定一个DIV在窗体上的位置

  • 2012年11月09日 11:56
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据在窗体中的翻页
举报原因:
原因补充:

(最多只允许输入30个字)