|
目 录 1．绪论... -- copyright paper51.com
1．1课题背景... - - 内容来自论文无忧网 www.paper51.com 1．2可行性研究... - 3 - http://www.paper51.com 1．2．1 用户需求情况... - 4- 内容来自论文无忧网 www.paper51.com 1．2．2 技术可行性分析... - 5- 内容来自www.paper51.com
1．2．3 经济可行性分析... - 5 - http://www.paper51.com 1．2．4 结论... - 6- 内容来自www.paper51.com
2．需求分析... - 7 - 内容来自www.paper51.com 2．1业务分析... - 7 - copyright paper51.com
2．2系统目标... - 7 - 内容来自论文无忧网 www.paper51.com 2．3功能需求描述... - 7 - paper51.com
2．3．1系统设置... - 8- http://www.paper51.com 2．3．2员工档案... - 8 - 内容来自论文无忧网 www.paper51.com 2．3．3考勤管理... - 8 - http://www.paper51.com
2．3．4工作评价... - 9 - 内容来自www.paper51.com 2．3．5员工调动... - 9- paper51.com 2．3．6工资管理... - 10 - 内容来自www.paper51.com 2．3．7帮助... - 10 - 内容来自论文无忧网 www.paper51.com 3．系统设计... - 10 - copyright paper51.com
3．1开发工具的介绍... - 10- 内容来自论文无忧网 www.paper51.com 3．1．1 Visual basic 的发展历史... - 10- http://www.paper51.com 3．1．2 VB可视化编程特点... - 11- copyright paper51.com 3．1．3 ACCESS的介绍... - 12 - copyright paper51.com 3．2本系统结构图... - - 内容来自论文无忧网 www.paper51.com 3．3模块的设计... - - paper51.com 4．数据库的设计... - - paper51.com 4．1数据库的选择... - 14 - copyright paper51.com
4．2概念模型及E-R图... - 14 - copyright paper51.com 4．3 数据库分析... - 16 - copyright paper51.com 4．4数据库的实现... - 16- copyright paper51.com
5．详细设计... - 22 - paper51.com 5．1详细设计的意义... - 22- paper51.com 5．2各模块的详细设计... - 22 - 内容来自论文无忧网 www.paper51.com 5．2．1用户登录模块的设计... -22- 内容来自论文无忧网 www.paper51.com 5．2．2主窗体的设计... - 25 - paper51.com
5．2．3员工基本信息模块的设计... - 27 - copyright paper51.com 5．2．4考勤信息窗体的设计... - 28 - 内容来自www.paper51.com 5．2．5员工调动窗体的设计... - 30- http://www.paper51.com
6．系统的测试... - 33 - copyright paper51.com 6．1软件测试的重要性... - 33 - copyright paper51.com 6．2测试... - 33 - paper51.com 6．2．1 MDI主窗体模块的测试... - 34- 内容来自www.paper51.com
6．2．2进行员工档案管理模块的测试... - 34 - http://www.paper51.com 小结... - 34 - http://www.paper51.com 致谢... -35- paper51.com
参考文献... - 35 - http://www.paper51.com
附录：源程序清单... - 36 - paper51.com
http://www.paper51.com 5.2.4考勤信息的窗体的设计 http://www.paper51.com
http://www.paper51.com
当用户输入“员工编号”，再单击“确定”按钮时，就进如本窗体，在该窗体中用户可以查询该员工的考勤信息。 http://www.paper51.com 部分代码设计如下： 内容来自www.paper51.com Private Sub CmdQuery_Click() 内容来自www.paper51.com Dim StrSQL As String http://www.paper51.com StrSQL = "select * from考勤信息 where " '//给定义好的字符变量赋予SQL语句 copyright paper51.com '//判断复选框有一个选中时,则 内容来自论文无忧网 www.paper51.com If ChkCode.Value = 1 OrChkName.Value = 1 Or ChkDate.Value = 1 Then 内容来自论文无忧网 www.paper51.com
'//判断三个复选框同时选中时,则 copyright paper51.com IfChkCode.Value = 1 And ChkName.Value = 1 And ChkDate.Value = 1 Then 内容来自论文无忧网 www.paper51.com StrSQL = StrSQL & "员工编号='" & Trim(CmbCode.Text) & "'" & "and"& " 员工姓名 = '" &Trim(TxtName.Text) & "'" & "and" & " 年度='" & Trim(TxtYear.Text) &"'" & "and" & " 月份='"& Trim(CmbMonth.Text) & "'" paper51.com
'//判断编号与姓名复选框选中时,则 http://www.paper51.com ElseIf ChkCode.Value = 1 And ChkName.Value = 1 Then paper51.com
StrSQL = StrSQL & "员工编号='" & Trim(CmbCode.Text) & "'" & "and"& " 员工姓名 = '" & Trim(TxtName.Text)& "'" 内容来自论文无忧网 www.paper51.com
'//判断编号与进入公司时间复选框选中时,则 内容来自www.paper51.com ElseIf ChkCode.Value = 1 And ChkDate.Value = 1 Then paper51.com StrSQL = StrSQL & "员工编号='" & Trim(CmbCode.Text) & "'" & "and"& " 年度='" & Trim(TxtYear.Text)& "'" & "and" & " 月份='" & Trim(CmbMonth.Text) &"'" copyright paper51.com '//判断姓名与进入公司时间复选框选中时,则 paper51.com ElseIf ChkName.Value = 1 And ChkDate.Value = 1 Then http://www.paper51.com StrSQL = StrSQL & " 员工姓名= '" & Trim(TxtName.Text) & "'" & "and"& " 年度='" & Trim(TxtYear.Text)& "'" & "and" & " 月份='" & Trim(CmbMonth.Text) &"'" http://www.paper51.com Else copyright paper51.com
If ChkCode.Value = 1 Then '//只有编号复选框选中时,则 内容来自www.paper51.com StrSQL = StrSQL & "员工编号='" & Trim(CmbCode.Text) & "'" copyright paper51.com End If 内容来自论文无忧网 www.paper51.com
If ChkName.Value = 1 Then '//只有姓名复选框选中时,则 paper51.com StrSQL = StrSQL & " 员工姓名= '" & Trim(TxtName.Text) & "'" 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com If ChkDate.Value = 1 Then '//只有进入公司时间复选框选中时,则 paper51.com StrSQL = StrSQL & "年度='" & Trim(TxtYear.Text) & "'" & "and"& " 月份='" & Trim(CmbMonth.Text)& "'" 内容来自论文无忧网 www.paper51.com End If paper51.com End If paper51.com If RstQueryCheck.State = adStateClosed Then 内容来自论文无忧网 www.paper51.com RstQueryCheck.Open StrSQL, DBCON, adOpenKeyset, adLockOptimistic,adCmdText 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
SetVSDateCheck.DataSource = RstQueryCheck.DataSource http://www.paper51.com LblCount.Caption = RstQueryCheck.RecordCount '//将记录条数显示在标签上 copyright paper51.com VSDateCheck.Refresh '//刷新网格 内容来自www.paper51.com RstQueryCheck.Close '//关闭记录集 内容来自www.paper51.com CmbCode.Text = Empty '//请空文本框 http://www.paper51.com TxtName.Text = Empty paper51.com TxtYear.Text = Empty 内容来自www.paper51.com 'CmbMonth.Text = Empty 内容来自www.paper51.com Else 内容来自www.paper51.com If RsQueryCheck.State =adStateClosed Then 内容来自www.paper51.com RsQueryCheck.Open "考勤信息",DBCON, adOpenKeyset, adLockOptimistic, adCmdTable copyright paper51.com End If paper51.com SetVSDateCheck.DataSource = RsQueryCheck.DataSource '//设置网格的数据源 copyright paper51.com LblCount.Caption = RsQueryCheck.RecordCount paper51.com VSDateCheck.Refresh '//刷新网格 copyright paper51.com RsQueryCheck.Close '//关闭记录集 内容来自论文无忧网 www.paper51.com CmbCode.Text = Empty '//请空文本框 copyright paper51.com TxtName.Text = Empty 内容来自www.paper51.com TxtYear.Text = Empty 内容来自论文无忧网 www.paper51.com
'CmbMonth.Text = Empty paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com 5.2.5员工调动窗体的设计 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com ` 内容来自www.paper51.com |