下载后可任意编辑人力资源管理系统说明12024 年 6 月 23 日下载后可任意编辑”人力资源管理系统”项目开发实训说明一 项目开发实训进度说明2 学时课要完成的任务: 完成主界面的设计; 数据库类 DataBase 的定义和使用; 登陆界面的设计1) 主界面设计如图2) 数据库类 Database 的定义和使用说明: 因为各个窗体均需要对数据库进行访问, 能够把对数据库的一些操作经过一个类来实现, 这样能够使对数据库的访问更加简单。类的定义请参考相应截图和代码‘类的定义Imports System.Data22024 年 6 月 23 日下载后可任意编辑Imports System.Data.OleDbImports System.ComponentModelPublic Class DataBase Implements IDisposable '实现接口IDisposable, 主要用来”显示释放资源” Private OledbConn As OleDbConnection '数据库连接对象 Private trans As OleDbTransaction '事务处理对象 Dim OledbComm As OleDbCommand Public Shared sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hrmbook.mdb;Persist Security Info=False" Private disposedValue As Boolean = False ' 检测冗余的调用 Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then ' TODO: 显式调用时释放非托管资源 If OledbConn Is Nothing = False Then OledbConn.Dispose() OledbConn = Nothing End If End If ' TODO: 释放共享的非托管资源 End If Me.disposedValue = True End Sub32024 年 6 月 23 日本 部 分代 码 自动 添 加的下载后可任意编辑#Region " IDisposable Support " ' Visual Basic 添加此代码是为了正确实现可处理模式。 Public Sub Dispose() Implements IDisposable.Dispose ' 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean) 中。 Dispose(True) GC.SuppressFinalize(Me) End Sub#End Region Public Sub Open() If OledbConn Is Nothing = True Then '建立数据库连接对象 OledbConn = New OleDbConnection(sConn) 'me.sConn '打开数据库连接 OledbConn.Open() End If End Sub Public Sub Close() '假如数据库连接对象不为空则关闭数据库连接 If OledbConn Is Nothing =...
