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

Question

如果你用data控件,规定每个form的data控件名称为data1
在工具栏的代码中加入：dim mydata as data
set mydata=screen.activeform.data1
如果是mdi窗口：
set mydata=mdiformname.activeform.data1或者设一个property Get 返回当前的data控件

Answer 1

定義一个class 用参数進行判断和控制定義一个数据環境 和命令對象，recordset 自動生成，
例如：
dim cmdsql as adodb.command
set cmdsql =new adodb.command
cmdsql.commandtext="Sql 語句"
以上在数据環境中定義的，dataenvironment.rscmdsql
記住 用完要關閉recordset
rscmdsql.close
set rscmdsql=nothing

Answer 2

把响应Next、Last、Edit、Del等公用按钮的代码
编成公用过程在 (*.bas):
public sub next(adoRecordsetX as adodb.recordset)
...
end sub
在其他模块调!

Answer 3

在Form中写过程:Public Sub Next()
       mrst.MoveNext
End SubPublic Sub Last()
       mrst.MoveLast
End Sub.....
Toolbar的ButtonClick中写入:
Select Case Button.Key
Case "Next"
      Screen.ActiveForm.Next
Case "Last"
      Screen.ActiveForm.Last
.....