社区
数据库(包含打印,安装,报表)
帖子详情
VB6的数据库编程中公用toolbar!
xu
2000-03-08 11:02:00
VB6的数据库编程中,每个数据表单想共用一个toolbar,toolbar上有Next、Last、Edit、Del等公用按钮,如何做?关键是如何测定活动表单的Recordset
...全文
115
4
打赏
收藏
VB6的数据库编程中公用toolbar!
VB6的数据库编程中,每个数据表单想共用一个toolbar,toolbar上有Next、Last、Edit、Del等公用按钮,如何做?关键是如何测定活动表单的Recordset
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
在其他模块调!
零基础学安卓Android移动开发
适合人群: 具有Java基础的
编程
人员;想学习Android的开发人员; 课程目标: 快速入门,深入学习Android基础知识,熟练学习Android Studio新版本开发工具。 课程简介: Android Studio基础与提升,采用Android ...
VB人口户籍管理系统程序源代码附
数据库
说明文档
这里设计的人口户籍管理系统,包括登陆界面,户籍管理主界面,开户登记界面,备份
数据库
界面,打印界面,新增人口界面,删除人口界面,修改户籍信息界面,用户管理界面,分别有增、删、查、改的功能。
VB6
常用方法汇编
公用
函数 Dim si, i As Integer Dim str1 As String si = 0 For i = 1 To Len(str) str1 = Mid(str, i, 1) If Asc(str1) si = si + 2 ‘ 汉字长度为 2 Else ...
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章