VB6的数据库编程中公用toolbar!

xu 2000-03-08 11:02:00
VB6的数据库编程中,每个数据表单想共用一个toolbar,toolbar上有Next、Last、Edit、Del等公用按钮,如何做?关键是如何测定活动表单的Recordset
...全文
115 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
weity 2000-03-08
  • 打赏
  • 举报
回复
定義一个class 用参数進行判断和控制

定義一个数据環境 和命令對象,recordset 自動生成,
例如:
dim cmdsql as adodb.command
set cmdsql =new adodb.command
cmdsql.commandtext="Sql 語句"
以上在数据環境中定義的,

dataenvironment.rscmdsql
記住 用完要關閉recordset
rscmdsql.close
set rscmdsql=nothing

qianqian 2000-03-08
  • 打赏
  • 举报
回复
如果你用data控件,规定每个form的data控件名称为data1
在工具栏的代码中加入:

dim mydata as data
set mydata=screen.activeform.data1
如果是mdi窗口:
set mydata=mdiformname.activeform.data1

或者设一个property Get 返回当前的data控件
Un1 2000-03-08
  • 打赏
  • 举报
回复
在Form中写过程:

Public Sub Next()
mrst.MoveNext
End Sub

Public Sub Last()
mrst.MoveLast
End Sub

.....


Toolbar的ButtonClick中写入:
Select Case Button.Key
Case "Next"
Screen.ActiveForm.Next
Case "Last"
Screen.ActiveForm.Last
.....

playyuer 2000-03-08
  • 打赏
  • 举报
回复
把响应Next、Last、Edit、Del等公用按钮的代码
编成公用过程在 (*.bas):
public sub next(adoRecordsetX as adodb.recordset)
...
end sub
在其他模块调!

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧