毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

数据库课程设计-人事工资管理系统 第7页

更新时间:2008-7-13:  来源:毕业论文

数据库课程设计-人事工资管理系统 第7页

息管理与库存管理中各个模块进行了测试。

  4.2系统结果

完成了企业人事管理系统的编译和调试工作,最后一步就是系统的编译和发行。在系统的编译和发行以前,需要设置工程项目的属性。选择”Project|Renshi_MIS Properties”菜单,进行属性设置。

最后选择”FileMade Renshi_Mis.exe”菜单,编译开始。编译完毕之后,即生成了相应的可执行文件。编译通过后,生成可执行文件Renshi_Mis.exe.我们需要在发布前对生成的可执行文件进行测试。通过测试的可执行文件,就可以发布了。

5、参考文献

  [1]郭盈发主编.《数据库原理与应用》.西安: 电子科技大学出版社,2005.

  [2]史嘉权主编.《数据库系统教程》. 北京:清华大学出版社. 2005.

  [3]史济民主编.《FoxPro及其应用系统开发》.北京:清华大学出版社,2006.

  [4]萨师煊主编.《数据库系统概述》.北京:高等教育出版社,2007.

6、附录:系统源代码

Public fMainForm As frmmain

Public gintMode As Integer

Public flagEdit As Boolean

Public username As String

Sub Main()

Dim fLogin As New frmlogin

fLogin.Show vbModal

If Not fLogin.OK Then

End

End If

Unload fLogin

 

                                                                 

课程设计说明书                 NO.21

Set fMainForm = New frmmain

fMainForm.Show

End Sub

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("INSERT,DELETE,UPDATE", _

UCase$(sTokens(0))) Then

cnn.Execute SQL

MsgString = sTokens(0) & _

" query successful"

Else

Set rst = New ADODB.Recordset

rst.Open Trim$(SQL), cnn, _

adOpenKeyset, _

adLockOptimistic

Set ExecuteSQL = rst

MsgString = "查询到" & rst.RecordCount & _

" 条记录 "

End If

ExecuteSQL_Exit:

Set rst = Nothing

Set cnn = Nothing

Exit Function

ExecuteSQL_Error:

MsgString = "查询错误: " & _

Err.Description

Resume

End Function

员工基本信息模块代码:

Option Explicit

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

数据库课程设计-人事工资管理系统 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。