模块一：
Public power As String Public tempuser As String
Public cnMod As New ADODB.Connection Public UserName As String Public UserPwd As String
Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String
On Error GoTo ExecuteSQL_Error sTokens = Split(sql)
Set cnn = New ADODB.Connection cnn.Open connectstring
If InStr(\TE\cnn.Execute sql
MsgString = sTokens(0) & \操作成功\Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst
MsgString = \查询到\条记录 \End If
ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function
ExecuteSQL_Error:
MsgString = \查询错误: \Resume ExecuteSQL_Exit End Function
Public Function connectstring() As String
connectstring = \Security=SSPI;Persist Info=False;Initial Catalog=工资管理系统;Data Source=.\End Function
模块二：
Public Function select_sql(sql As String) As ADODB.Recordset
Security
Dim cn As ADODB.Connection '定义一个数据库的连接对象 Dim rst As ADODB.Recordset '定义一个数据库的记录集对象 On Error GoTo sql_err: '容错处理 Set cn = New ADODB.Connection Set rst = New ADODB.Recordset
cn.Open \Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=.\rst.Open sql, cn, 3, 2 Set select_sql = rst
'Dim cn As New ADODB.Connection '集定义和初始化为一体 sql_err:
Set cn = Nothing Set rst = Nothing End Function
Public Function execute_sql(sql As String) As ADODB.Recordset Dim cn As ADODB.Connection '定义一个数据库的连接对象 Dim rst As ADODB.Recordset '定义一个数据库的记录集对象 On Error GoTo sql_err:
Set cn = New ADODB.Connection
cn.Open \Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=.\cn.BeginTrans '启动事务
cn.Execute sql '执行这个SQL语句 cn.CommitTrans
'Dim cn As New ADODB.Connection '集定义和初始化为一体 sql_err:
Set cn = Nothing Set rst = Nothing End Function
第四章：结 束 语
企业工资管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对企业工资管理进行系统调研，熟悉企业财务、人事、工资发放管理的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到企业工资管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用MS Visual Basic 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、
实用性、便捷性，使其能够协调统一、运行无误。运行结果证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志
谢辞
从拟定题目到定稿，历时数月。在本课程设计完成之际，首先向我的指导老师王磊老师以诚挚的谢意。在报告的写作过程中，王老师给了我许许多多的帮助和关怀，王磊老师治学严谨，待人平易近人，在王磊老师的细心指导下，我学到了扎实的专业知识。
同时，衷心感谢我的同窗同学们，在我毕业论文写作中，与同情阿门的探讨交流使我受益颇多；同时，他们也给了我很多无私的帮助和支持，我深表谢意。
参考文献：
[1] Visual Basic 6.0 程序设计教程(高等教育出版社) 龚沛曾 陆慰民 杨志强 编著 [2]Visual Basic 数据库编程与实例(人民教育出版社) 四维科技 赵斯思 编著 [3]Visual Basic 用户编程手册（人民邮电出版社） 林永 张乐强 编著 [4]数据库系统概论（高等教育出版社） 萨师煊 王珊 编著 [5]VB数据库程序设计高手（科学出版社） 温贤发 编著