VB88AC烟花爆竹经销管理
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
图4 form00窗体图
3-3 :建立公共模块
在visual basic 中，我们用公共模块来存放整个工程项目公用的函数，全局变量,这样有利于代码的效率和维护。 选择“工程”菜单中的“添加模块”，为项目添加一个mypaid,保存为“mypaid.bas”。这就可以为公共模块添加代码了。
Option Explicit
Public conn As New ADODB.Connection
Public rstemp As New ADODB.Recordset
Public iflag As Integer
【www.think58.com计算机毕业论文网】 本文来自think58
[来源：http://think58.com]
think58.com [资料来源：http://THINK58.com]Public Function transactsql(ByVal sql As String) As ADODB.Recordset
Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strconnection As String
Dim strarray() As String
Set cont = New ADODB.Connection
Set rs = New ADODB.Recordset
strconnection = "provider =microsoft.jet.oledb.4.0;
data source=" & App.Path & "\yhbzdate.mdb;"
strarray = Split(sql)
cont.Open strconnection
If StrComp(UCase$(strarray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
Set transactsql = rs
iflag = 1
Else
cont.Execute sql
iflag = 1
End If
transactsql_exit:
Set rs = Nothing
Set cont = Nothing
Exit Function
transactsql_error:
MsgBox "查询错误：" & Err.Description
iflag = 2
Resume transactsql_exit
End Function
Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) think58好，好think58
[来源：http://think58.com]
'打开一个表，得到一个数据集
With pAdo
.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=" & App.Path & "\yhbzdate.mdb;
Persist Security Info=False"
.CommandType = adCmdUnknown
.RecordSource = pRecordSource
.Refresh
End With
End Sub
说明：在系统中，每个模块都要使用数据库。通过transactsql函数，我们就不需要在每次数据库操作中都重复输入数据库的连接，取结果和数据库的关闭等类似操作的代码，做到了程序的模块化。这样，后面所有要用到的添加，删除，查询和修改等操作都可以通过调用该函数来完成，得到相应的结果.
内容来自think58 [资料来源：http://think58.com]
[来源：http://www.think58.com]