据库的设计结果,为本系统设计如下模块,最终得到如下图所示的功能模块图:(附图)
图3-6
从总体结构图容易列出应用程序的菜单,由总体结构图转换到菜单时,其对应情况如下:系统对应菜单文件,子系统层对应菜单标题,功能层对应子菜单项。本系统所使用的模块包括:系统模块,员工调动信息模块,员工考勤模块,员工基本信息模块等。
1.系统:系统启动的时候有一个管理员用户,使用这个用户登录后,可以添加其它用户,而且每一个用户都可以更改自己的密码。
1.员工基本信息
(1)添加员工信息:系统自动生成员工编号,管理员可以添加员工的基本信息,包括姓名、性别、籍贯、年龄、生日、住址、E-mail、学历、专业、进入本公司时间等。
(2)修改员工信息:选择一个员工,可以修改这个员工的基本信息。
(3)查询员工信息:可以根据员工的编号、姓名或者进入公司的时间进行查询员工基本信息。并且可以针对查询结果进行修改和删除操作。
(4)删除员工信息:直接从列表中选中需要删除的员工信息,然后进行删除操作,或者首先查询需要删除的员工信息,然后再删除。
2.员工考勤信息:
(1)添加考勤信息:主要分为上下班信息和其他考勤信息.上下班信息主要记录每个员工每天上下班的时间,而其他考勤信息包含有请假、加班、出差信息。
(2)修改考勤信息:当考勤信息出现错误需要修改的时候,可以从这里修改相应的记录。
(3)查询考勤信息:分为删除上下班信息和删除其他考勤信息。
(4)删除考勤信息:分为删除上下班信息和删除其他考勤信息。
(5)设置上下班时间:设置公司上下班时间。
3.员工调动信息
(1)添加调动信息:添加企业员工的原有部门、原有职务、新部门、新职务等信息。
(2)修改调动信息:修改相应的员工调动信息。
(3)查询调动信息:查询某个员工的调动信息或者某段时间内企业内部的调动情况。
第四章员工管理系统的实现
§4.1开发环境的选择
4.1.1前端开发工具VisualBasic6.0简介
VisualBasic是在世界范围内广泛使用的一种强大的编程语言,它为Windows应用程序的开发提供了最迅速和便捷的方法。不论是Windows应用程序的专业开发人员还是初学者,VisualBasic都为他们提供了一整套的工具用来方便地开发应用程序。如果您现在想学习Windows编程,我们建议您先从VisualBasic学起,因为它简单易学,功能强大,可以很轻松地开发出Windows应用程序。目前VisualBasic软件开发团体是世界上最大的软件开发团体,它为全世界数千种工具和控件商所支持,因此选择VisualBasic将使您获得很大的优势。
VisualBasic是在原有Basic语言基础上进一步发展,至今包含了数百条语句、函数及关键词,其中很多和WindowsGUI有直接关系。专业人员可以用VisualBasic实现其它任何windows编程语言所能实现的功能,而初学者只要掌握几个关键词就可以建立实用的Windows应用程序。用VisualBasic既可以开发现一般的Windows应用程序,也可以实现先进的客户机/服务器、浏览器/服务器系统。目前VisualBasic6.0有三种版本,即学习版、专业版和企业版,可以满足不同的开发需要。
§4.2员工管理系统模块设计举例
4.2.1建立公共模块
运行VisualBasic后,选择"文件"→"新建工程"菜单,然后从工程模板中选择"标准EXE"项,单击"确定"按钮。VisualBasic就会自动生成一个窗体,这个窗体的属性采用的都是默认设置。在这个实例中,先删除这个窗体,然后选择"文件"→"保存工程"菜单,在出现的"文件另存为"对话框中输入这个工程项目的名称stuff_mis,并且选择要保存这个工程的目录,单击"保存"按钮,保存工程。
为了提高代码的效率方便维护,在VisualBasic中可以用公用模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中,每个功能模块都要使用数据库,因此可以使用一个公用有数据操作函数,来执行一系列的SQL语句。
在项目资源管理器中为这个工程添加一个模块,保存为Module1.bas.
代码如下:
PublicgUserNameAsString'保存用户名称
PublicflagAsInteger'添加和修改的标志
PublicgSQLAsString'保存SQL语句
PublickqsqlAsString'保存查询考勤结果SQL语句
Publickqsql2AsString'保存查询其他考勤结果SQL语句
PublicArecordIDAsInteger'保存上下班记录编号
PublicLrecordIDAsInteger'保存请假记录编号
PublicOrecordIDAsInteger'保存加班记录编号
PublicErecordIDAsInteger'保存出差记录编号
PubliciflagAsInteger'数据库是否打开标志
PublicFunctionTransactSQL(ByValSQLAsString)AsADODB.Recordset
DimconAsADODB.Connection
DimrsAsADODB.Recordset
DimstrConnectionAsString
DimstrArray()AsString
Setcon=NewADODB.Connection'创建连接
Setrs=NewADODB.Recordset'创建记录集
GoToTransactSQL_Error
strConnection="Provider=Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\Person.mdb"
strArray=Split(SQL)
con.OpenstrConnection'打开连接
IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Then
rs.OpenTrim$(SQL),con,adOpenKeyset,adLockOptimistic
SetTransactSQL=rs'返回记录集
iflag=1
Else
con.ExecuteSQL'执行命令
iflag=1
EndIf
TransactSQL_Exit:
Setrs=Nothing
Setcon=Nothing
ExitFunction
TransactSQL_Error:
MsgBox"查询错误:"&Err.Description
iflag=2
ResumeTransactSQL_Exit
EndFunction
PublicSubTabToEnter(KeyAsInteger)
IfKey=13Then'判断是否为回车键
SendKeys"{TAB}"'转换为Tab键
EndIf
EndSub
Submain()
DimfLoginAsNewfrmLogin
fLogin.ShowvbModual'显示窗体
EndSub
二、登录窗体:
图4-1
有关本窗体的代码如下:
OptionExplicit
DimpwdCountAsInteger
PrivateSubcmdCancel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click()
DimSQLAsString
DimrsAsADODB.Recordset
IfTrim(UserName.Text="")Then
MsgBox"没有输入用户名称,请重新输入!",vbOKOnly+vbExclamation,"警告"
UserName.SetFocus
Else'查询用户
Setrs=TransactSQL(SQL)
Ififlag=1Then
Ifrs.EOF=TrueThen
msgBox"没有这个用户,请重新输入!",vbOKOnly+vbExclamation,"警告"
UserName.SetFocus
Else
IfTrim(rs.Fields(1))=Trim(PassWord.Text)Then
rs.Close
Me.Hide
gUserName=Trim(UserName.Text)'保存用户名称
FrmMain.Show
UnloadMe
Else
MsgBox"密码不正确,请重新输入!",vbOKOnly+vbExclamation,"警告"
EndIf
EndIf
Else
UnloadMe
EndIf
EndIf
pwdCount=pwdCount+1'判断输入次数
IfpwdCount=3Then
UnloadMe
ExitSub
EndIf
EndSub
PrivateSubForm_Load()
pwdCount=0
gUserName=""
EndSub
PrivateSubPassWord_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
TabToEnterKeyCode
EndSub
PrivateSubUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
TabToEnterKeyCode
EndSub
3、系统主界面的设计效果
4、修改密码窗体:
图4-3
图4-2
PrivateSubcmdCancel_Click()
UnloadMe
EndSub
PrivateSubcmdOK_Click()
DimSQLAsString
DimrsAsADODB.Recordset
IfTrim(OldPWD.Text)=""Then'判断是否输入旧密码
MsgBox"请输入旧密码",vbOKOnly+vbExclamation,"警告"
OldPWD.SetFocus
ExitSu
上一篇:
VB合同管理系统(论文只有数据结构表)(论文和程序)
下一篇:
法律专业开题报告范文