息管理与库存管理中各个模块进行了测试。
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
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] 下一页