人力资源管理系统说明全新精选

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《人力资源管理系统说明全新精选》，欢迎阅读！

……………………………………………………………最新资料推荐…………………………………………………



“人力资源管理系统”项目开发实

训说明

一 项目开发实训进度说明

2学时课要完成的任务：

完成主界面的设计；

数据库类DataBase的定义和使用； 登陆界面的设计 1）主界面设计如图



2）数据库类Database的定义和使用

说明：因为各个窗体均需要对数据库进行访问，可以把对数据库的一些操作通过一个类来实现，这样可以使对数据库的访问更加简单。 类的定义请参考相应截图和代码

最新精品资料整理推荐，更新于二〇二一年二月二十一日2021年2月21日星期日17:59:46


……………………………………………………………最新资料推荐…………………………………………………



‘类的定义

Imports System.Data Imports System.Data.OleDb Imports System.ComponentModel Public 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 Sub

#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()

'如果数据库连接对象不为空则关闭数据库连接

最新精品资料整理推荐，更新于二〇二一年二月二十一日2021年2月21日星期日17:59:46


……………………………………………………………最新资料推荐…………………………………………………



If OledbConn Is Nothing = False Then OledbConn.Close() End If End Sub

Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView '本过程的功能：对数据库的操作【按条件选择合适的记录】 Me.Open()

Dim OledbDS As DataSet = New DataSet

Dim OledbDA As OleDbDataAdapter = New OleDbDataAdapter(sSQLString, Me.OledbConn) OledbDA.Fill(OledbDS)

Return OledbDS.Tables(0).DefaultView End Function

Public Sub RunDelOrInsSQL(ByVal sSQLString As System.String) '本过程的功能：对数据库的操作【执行删除或插入操作】 Me.Open()

Dim OledbComm As OleDbCommand = New OleDbCommand(sSQLString, Me.OledbConn) OledbComm.ExecuteNonQuery() End Sub

Public Sub RunMulDelOrInsSQL(ByVal arr As ArrayList)

'本过程的功能：对数据库的操作【批量的执行删除或插入操作，用到了事物处理的作用】 Me.Open()

trans = OledbConn.BeginTransaction Dim i As Integer Try

For i = 0 To arr.Count - 1

OledbComm = New OleDbCommand(arr(i), Me.OledbConn) OledbComm.Transaction = trans OledbComm.ExecuteNonQuery()

Next i

trans.Commit() Catch ex As Exception trans.Rollback() Throw New Exception End Try End Sub

Public Function getResult(ByVal strSql As String) As OleDbDataReader '本过程的功能：对数据库的操作【按条件读出合适的记录】 Me.Open()

OledbComm = New OleDbCommand(strSql, Me.OledbConn) Dim dr As OleDbDataReader = OledbComm.ExecuteReader() Return dr End Function End Class

最新精品资料整理推荐，更新于二〇二一年二月二十一日2021年2月21日星期日17:59:46

本文来源：https://www.wddqxz.cn/7179ea2cbbf3f90f76c66137ee06eff9aff84923.html