当前位置:跳过导航链接计算机毕业设计首页 : VB计算机毕业设计 : 详细内容

VB公交管理系统(程序下载)(6)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-07 点击数:25124

计算机毕业设计介绍:

5.4.1 对数据库的访问技术
本系统是采用ADODB对数据库的连接,ADODB 是 Active Data Objects Data Base 的简称,它是一种 PHP 存取数据库的中间函式组件。虽然 PHP 是建构 Web 系统强有力的工具,但是 PHP 存取数据库的功能,一直未能标准化,每一种数据库,都使用另一种不同且不兼容的应用程序接口(API)。为了填补这个缺憾,因此才有 ADODB 的出现。一旦存取数据库的接口予以标准化,就能隐藏各种数据库的差异,若欲转换至其它不同的数据库,将变得十分容易。目前 ADODB最新版本是V4.62,支持的数据库种类非常地多,例如:MySQL, PostgreSQL, Interbase, Informix, Oracle, MS SQL 7, Foxpro, Access, ADO, Sybase, DB2 以及一般的 ODBC (其中 PostgreSQL、Informix、Sybase 的driver 是由自由软件社群发展之后贡献出来的)。使用 ADODB 最大的优点之一是:不管后端数据库如何,存取数据库的方式都是一致的,开发设计人员不必为了某一套数据库,而必须再学习另一套不同的存取方法,这大大减轻开发人员的知识负担,过去的知识往后仍可继续使用,转移数据库平台时,程序代码也不必做太大的更动。
本系统示例如下:

'声明数据库连接对象
Public cn As New ADODB.Connection

'声明记录集对象
Public rs As New ADODB.Recordset

' 连接数据库
Public Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\bus.mdb;Persist Security Info=False;"
End Sub


'关闭数据库
Public Sub CloseConn()
If rs.State = True Then
    rs.Close
    Set rs = Nothing
End If
    cn.Close
    Set cn = Nothing
End Sub


'提示窗口
Public Sub msginfo(msg As String)
    MsgBox (msg & "成功!")
End Sub


Function FormFace(FormObj As Object, TopPicObj As Object, kk As Object)
'窗体外观函数
TopPicObj.AutoRedraw = True
kk.Top = 0
kk.Left = 0
kk.Width = FormObj.Width
kk.Height = FormObj.Height
End Function

Function TopCaption(TopPictureOBJ, DCaptiona As String)
'向TopPictureOBJ中动态先是字符串
'-----------------------
TopPictureOBJ.ForeColor = &HFFFFFF
TopPictureOBJ.Print DCaptiona
'-----------------------
End Function

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第7页为计算机毕业论文部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线