职工信息管理课程设计

第一篇：职工信息管理课程设计

Vb课程设计-职工信息系统.

职工信息系统设计报告

一、设计思路 1.要达到的目的

培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。

2.关键问题的解决 ①设置属性

设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资”、“高于平均”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。

②编写代码

需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点: (1定义动态数组分别用于存放姓名、职称、工资数据。

(2单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利

用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。

(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。

(4利用InputBox 函数来输入要追加的学生的信息。 (5利用InputBox 函数来输入要删除的职工的姓名。

利用MsgBox 函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇总的结果。。。。

二、部分程序关键源代码及注释 Dim i As Integer, aver As Single Dim a( As String, b( As String, c( As String Private Sub Command1_Click( Dim str As String CommonDialog1.Filter = "txt (*.txt|*.txt|all file(*.*|*.*" CommonDialog1.FilterIndex = 1 On Error GoTo usercancle CommonDialog1.ShowOpen usercancle: Text1 = "姓名职称工资" fileno = FreeFile Open CommonDialog1.FileName For Input As #fileno i = 1 Do While Not EOF(fileno

ReDim Preserve a(i, b(i, c(i Input #fileno, a(i, b(i, c(i str = a(i & " " & b(i & " " & c(i Text1 = Text1 + vbNewLine + str i = i + 1 Loop Close #fileno i = i1 Print i aver = sum / i s1 = "职工的平均工资为:" & aver s2 = "职工总人数:" & i MsgBox s1 & vbCrLf & s2, , "zh1" Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click( Dim x As Integer, l1 As String, m1 As String Form2.Text1 = "姓名职称工资" Form2.Text1 = Form2.Text1 & vbNewLine & "--------------------------" x = 0 Print i For i = 1 To i If c(i >= aver Then x = x + 1

l1 = a(i & " " & b(i & " " & c(i Form2.Text1 = Form2.Text1 & vbNewLine & l1 End If Next i i = i1 Print i Form2.Text1 = Form2.Text1 & vbNewLine & "--------------------------" m2 = "工资小于平均工资的人数" & y Form2.Text1 = Form2.Text1 & vbNewLine & m2 Form2.Caption = "工资小于平均工资的人数" Load Form2 Form2.Show End Sub Private Sub Command5_Click( Dim n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer Dim str1 As String, str2 As String, str3 As String, str4 As String For i = 1 To i

If a(i = "教授" Then n1 = n1 + 1 ElseIf b(i = "副教授" Then n2 = n2 + 1 ElseIf c(i = "讲师" Then n3 = n3 + 1 Else n4 = n4 + 1 End If Next i i = i1 a(i = a(i + 1 b(i = b(i + 1 c(i = c(i + 1 Next i i = i1 Print i End Sub Private Sub manu1_Click( Dim m1 As Integer, m2 As Integer m1 = InputBox("请输入工资下限" m2 = InputBox("请输入工资上限" Form2.Text1 = "姓名职称工资" r = 1 For i = 1 To i If c(i >= m1 And c(i <= m2 Then r = r + 1 str5 = a(i & " " & b(i & " " & c(i Form2.Text1 = Form2.Text1 & vbCrLf & str5 End If Next i i = i1 For j = i + 1 To g If Val(c(i > Val(c(j Then t = c(i c(i = c(j c(j = t t = a(i a(i = a(j a(j = t t = b(i b(i = b(j

b(j = t End If Next j Next i i = i1 For j = i + 1 To g If Val(c(i < Val(c(j Then

t = c(i c(i = c(j c(j = t t = a(i a(i = a(j a(j = t t = b(i b(i = b(j b(j = t End If Next j Next i i = i - 1 Form2.Text1 = "姓名职称工资" For i = 1 To i str7 = a(i & " " & b(i & " " & c(i Form2.Text1 = Form2.Text1 & vbNewLine & str7 Next i Form2.Caption = "降序排序" Load Form2

Form2.Show End Sub Private Sub manu5_Click( End End Sub

三、设计方案的完善及目前存在的问题 1.设计方案要完善的地方 ①对编程语言的进一步完善 ②对程序的调用 ③程序不够人性化 2. 目前存在的问题 ①编程语言不够流畅。

四、本次设计的收获及心得体会

对VB理解不深刻,知识匮乏,但这是颇有实际用处的,认真学习vb,不断认识自己的不足,并不断改进。认真学习科学知识,在学习中充分实践。把运用与学习结合在一起。

五、对该题目和VB设计的意见和建议 1. 对该题目的意见和建议 该程序应该充分与现实结合。

让程序更容易让顾客进行操作。 更加人性化。

2.对本次设计的意见和建议

设计课程比较实用,但颇有难度,希望以后能给我们较多时间进行设计,并请老师多帮助解决疑难问题,谢谢。

第二篇：职工信息管理系统

职工信息管理系统设计报告(VB) 编号：22

职工信息管理系统 设计报告

学院

土木工程

班级

测绘C111

学号

117551

姓名

马骁飞

成绩

一、设计思路

1.要达到的目的

培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。

利用读取数据按钮，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。

清除文本框中的职工的信息。

在文本框中显示职工的信息。

按照职工号查询职工信息，并显示。

按照姓名查询职工信息，并显示。

按照职工号修改职工信息，并显示。

按照姓名修改职工信息，并显示。

追加一条记录数据，并显示。 2.关键问题的解决

(1) 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。 (2) 通过“清除数据”按钮应能清除文本框中的内容。 (3) 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框中显示查询结果。 (4) 从“按职工号修改” (“按姓名修改”)按钮，在输入对话框中输入职工号，对查询到的职工的职工号(姓名)进行修改，在窗体大的文本框中显示修改结果。

从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工.txt中，并将追加数据后职工.txt的信息显示窗体的大文本框中。

二、部分程序关键源代码及注释 rivate Sub Command1_Click() Form2.Show

End Sub

Private Sub Command2_Click()

职工信息管理系统设计报告(VB) 编号：22 List1.Clear End Sub

Private Sub Command3_Click() e = True Unload Me End Sub

Private Sub Command4_Click() List1.Clear If Text3.Text = "117001" Then List1.AddItem "张三 117001" ElseIf Text3.Text = "117002" Then List1.AddItem "李四 117002" ElseIf Text3.Text = "117003" Then List1.AddItem "王五 117003" ElseIf Text3.Text = "117004" Then List1.AddItem "王六 117004" ElseIf Text3.Text = "117005" Then List1.AddItem "赵七 117005" ElseIf Text3.Text = "117006" Then List1.AddItem "李八 117006" ElseIf Text3.Text = "117007" Then List1.AddItem "刘九 117007" ElseIf Text3.Text = "117008" Then List1.AddItem "马十

117008" Else: MsgBox "请输入正确的职工号" End If

职工信息管理系统设计报告(VB) 编号：22 End Sub

Private Sub Command5_Click() Dim a As String Dim b As String b = InputBox("请输入要修改的职工的职工号") a = InputBox("请输入新的职工姓名")

If b = "117001" Then List1.AddItem a & "

" & b ElseIf b = "117002" Then List1.AddItem a & "

" & b ElseIf b = "117003" Then List1.AddItem a & "

" & b ElseIf b = "117004" Then List1.AddItem a & "

" & b ElseIf b = "117005" Then List1.AddItem a & "

" & b ElseIf b = "117006" Then List1.AddItem a & "

" & b ElseIf b = "117007" Then List1.AddItem a & "

" & b ElseIf b = "117008" Then List1.AddItem a & "

" & b Else: MsgBox "请输入正确的职工号" End If

List1.AddItem a & "

" & b End Sub

职工信息管理系统设计报告(VB) 编号：22 Private Sub Command6_Click() List1.Clear If Text2.Text = "张三" Then List1.AddItem "张三 117001" ElseIf Text2.Text = "李四" Then List1.AddItem "李四 117002" ElseIf Text2.Text = "王五" Then List1.AddItem "王五 117003" ElseIf Text2.Text = "王六" Then List1.AddItem "王六 117004" ElseIf Text2.Text = "赵七" Then List1.AddItem "赵七 117005" ElseIf Text2.Text = "李八" Then List1.AddItem "李八 117006" ElseIf Text2.Text = "刘九" Then List1.AddItem "刘九 117007" ElseIf Text2.Text = "马十" Then List1.AddItem "马十

117008" Else: MsgBox "请输入正确的职工姓名" End If End Sub

Private Sub Command7_Click() Dim a As String Dim b As String a = InputBox("请输入要修改的职工姓名") b = Str(InputBox("请输入新职工号"))

If a = "张三" Then List1.AddItem a & "

" & b

职工信息管理系统设计报告(VB) 编号：22 ElseIf a = "李四" Then List1.AddItem a & "

" & b ElseIf a = "王五" Then List1.AddItem a & "

" & b ElseIf a = "王六" Then List1.AddItem a & "

" & b ElseIf a = "赵七" Then List1.AddItem a & "

" & b ElseIf a = "李八" Then List1.AddItem a & "

" & b ElseIf a = "刘九" Then List1.AddItem a & "

" & b ElseIf a = "马十" Then List1.AddItem a & "

" & b Else: MsgBox "请输入正确的职工姓名" End If End Sub

Private Sub Command8_Click() Dim a As String Dim b As String

a = InputBox("请输入新员工姓名") b = InputBox("请输入新员工的职工号")

List1.AddItem a & "

" & b End Sub Private Sub Combo2_Change() Select Case Comb2.Text

职工信息管理系统设计报告(VB) 编号：22 Case "*.txt" File1.Pattern = "*.txt" Case "*.ini" File1.Pattern = "*.ini" Case "*.doc" File1.Pattern = "*.doc" Case "*.*" File1.Pattern = "*.*" End Select End Sub

Private Sub Command1_Click() Dim fileno As Integer, strl As String fileno = FreeFile Open "职工信息.txt" For Input As #fileno i = 0 Do While Not EOF(fileno) Input #fileno, str1 Form1.List1.AddItem str1

i = i + 1 Loop Close #fileno Form1.Show Me.Hide End Sub

Private Sub Command2_Click() Form1.Show End Sub

职工信息管理系统设计报告(VB) 编号：22

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Private Sub File1_Click() Text3.Text = File1.FileName End Sub

Private Sub VScroll1_Change() Form1.Show End Sub

三、设计方案的完善及目前存在的问题

1.设计方案要完善的地方

追加的信息无法加载到“职工信息txt”里 查询只是单一的一对一输入，不智能 文件类型的筛选问题暂未处理办法 2. 目前存在的问题

只是简单的查询，不适合大量数据的导入与导出，不方便查看

四、本次设计的收获及心得体会

第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。

五、对该题目和VB设计的意见和建议

1. 对该题目的意见和建议

Form2中的文件类型，有些偏难，在少数文件夹的情况下可以不用通过文件类型的筛选 2.对本次设计的意见和建议

对此次课程设计的时间安排应更具体，应有相应的素材图片，增添软件的美感

第三篇：铁路职工教育管理信息化建设论文

在铁路职教发展的新时期，职工教育在铁路发展中的地位越来越重要。本文以教育档案为例，介绍云计算技术对职教管理的影响，分析了职教管理信息化建设的必要性，以及云计算在教育档案管理中的实现。

1 概述

低碳经济是低能耗、低污染、低排放的可持续发展经济模式，云计算就是这种经济模式催生下的科技创新。云计算是将计算任务分布在大量的由计算机构成的服务器上，使各种应用系统能够根据需要获取计算能力，存储空间和各种软件服务。

铁路职工接受在职教育、参加岗位技能培训、业务技术考核和技术比赛等过程中形成的文件材料，按照相关规定立卷归档以后即形成职工教育档案。职工教育档案用于记录职工个人教育经历的基本状况和动态，是职工个人文化基础，也是专业知识和业务技能不断提高的真实记录和反映。

本文以本教育档案为例，阐述了云计算技术对职教管理信息化建设的必要性，以及云计算在教育档案管理中的实现。

2 云计算技术对教育管理信息化建设的必要性

将云计算应用于职教档案管理，首先不会存在纸张的浪费，通过上传，也减少了空间浪费。其次将资料按照系统要求上传，自动排序整理，节省时间成本。再次，严格的上传时间使更容易发现违规的操作。最后最大的优势在于资料的长久保存，减少了文件丢失和损失。通过以上分析云计算在教育档案管理应用中的优势得知云计算技术在整个职教系统信息化过程中的必然性。应用云计算技术导致人员观念、工作模式和服务功能发生转变，从而促进了教育管理的发展与创新。

2.1人员观念的转变

教育档案是对职教工作发展变革的记录。在过去，很多教育档案管理人员认为，只要把真实的记录内容保存下来就可以了。但是，如何做到及时装订、归档，对电子档案做到及时更新、备份保存，如何做到分类准确、目录清楚、装订整齐，这些都是教育档案管理的工作内容。教育档案信息化管理，改变了传统的纸质管理模式，新技术的应用促使职教档案管理人员根据工作需要快速地提高计算机操作能力和对网络的认知能力，从而不断地提高责任意识和服务理念。

2.2 教育管理模式的转变

教育档案管理环节多，工作复杂繁琐，工作模式的好坏直接影响到教育档案的工作效率。

第一，由被动变主动。在过去，很多教育档案管理机构都是坐等档案信息的到来。现在，教育档案管理工作人员可以根据工作的需要，由被动变主动，深入到车间教学活动中去，收集各种教育档案信息资源，不断加强教育档案资源库建设。

第二，以用户为中心的服务模式。使用云计算技术，大量数字化信息资源存储在“云平台”，终端用户不必了解具体技术细节，只要在给定的权限范围内，使用手机、或其他移动终端设备连接到

网络，就可以访问和使用数字化信息资源，从而满足其对高质量的服务需求，这种管理体制和业务流程就是以用户为中心的服务模式。

第三，“云”进行统一管理。各种移动终端只要能够接入到“云平台”中，都可以在相应的权限内进行访问、下载，操作简单便捷。这种以用户为中心的服务，提高了服务质量，节约了时间成本。

2.3 教育管理服务功能的转变

转变传统的服务功能，加大对教育档案信息资源的利用。比如，教育档案管理部门可以建立“特色教师档案信息”，具体做法是把这些特色教师的教学经验或者教学成果进行归类整理，形成教师的教学档案。通过对档案进行深度分析、挖掘，可以做到以下三点。第一，将记录专兼职教师的教学成果和教学水平，作为评估他们历史业绩和教学成果的最可靠、最真实的依据。第二，为职教部门制定教师队伍发展规划和教师培养提供了直接的参考依据。第三，为我们进行优秀教师的遴选、人才推荐、职教队伍配置和职教先进工作者评选等提供了数据支撑。

3 云计算在职教档案管理中的实现

3.1 制定统一的规范化管理制度

由于铁路不同的站段或部门在进行职教信息化建设过程中，往往是依据本单位的职教特点和教育需求来建立数字化信息管理模式。因此没有统一的标准和通用的规范，再整合资源之后，职教管理将会呈现出数据输入输出口径不一致的混乱局面。所以首先应建立和制定统一的标准规范制度，使在“云”上进行档案管理上，使用统一的标准的档案的字段信息，使用相同的的数据的存储格式或者存储方式。这样才能使数字化网络平台上实现信息共享带来便利。

3.2 建立数据共享接口

由于铁路各部门或各站段信息化程度各有不同，领导对大数据的理解和要求不同，所以对于数据共享端口的设计也会不同。因此在对于铁路个站段或部门之间的电子数据信息进行整合过程中，则需要建立共享的数据接口，这样不仅可以通过共享平台进行交流，还能实现数据交换。

3.3 建立健全的信息安全保障机制

所谓的“档案信息云平台”，就是将档案的基本信息和数据输入到云数据库当中并建立规范的档案管理体系，以达到异地查询、快捷服务的功能。因此信息化网络成为了各种病毒传播的温床，档案信息就会丢失，甚至造成整个信息网络瘫痪。那么，如果想要档案信息不被非法窃取，并且阻止各种病毒带来的威胁，就要通过积极的建立网络系统的安全保障机制来实现。

近年来，为适应铁路经济事业不断向前推进的发展要求。信息化建设成为职教管理创新发展的新机遇。云计算技术在教育档案管理应用中的优势，可以说明其在职教系统信息化过程中的必然性，它不仅能促使职教人员增强教育管理意识、提高业务技能，而且促进现代职教管理的创新发展，使教育管理更加有序，更好地为铁路经济发展提供服务。

第四篇：职工考勤管理信息系统实训报告

班 级：10网工三班学生姓名：谢昊天学号：1215134046

项目实训目的：

锻炼学生的分析解决实际问题的能力 ;

培养学生的数据库基础系统的分析、设计和开发能力。

项目实训题目：

职工考勤管理信息系统

项目实训内容和要求：

基本要求 16) 《数据库原理及应用》课程设计采用以“项目小组”为单位进行，项目小组根据选定的项目，按计划进度完成项目的分析与设计及实现任务。 17) 每个班级分成两个大组，每组选出组长一名，负责考勤、作业的收集上交。 18) 题目自定或采用附录中的参考题目，每人选择一个题目 19) 数据库工具：Access 或者 SQLServer 20) 程序开发工具可以根据所学自行选择，或者采用ACCESS实现开发 3. 创新要求 在基本要求达到后，可进行创新设计，如系统用户功能控制，对管理员级和一般级别的用户系统功能操作不同

三、信息描述系统基本信息描述，如：学号、姓名、系别、班级和所选科目及各科成绩等。

四、功能描述(教学管理为例)系统功能基本要求职工信息，包括职工编号、职工姓名、性别、年龄、职称等;出勤记录信息，包括上班打卡时间，下班打开时间，缺勤记录等;出差信息，包括出差起始时间、结束时间、统计总共天数等;请假信息，包括请假开始时间，结束时间，统计请假天数等;加班信息，包括加班开始时间、结束时间、统计加班总时间。

需求分析描述：

需求分析阶段:

随着企业人事管理的日趋复杂和企业人员的增多企业的考勤管理变得越来越复杂。规范的考勤管理是现代企业提高管理效益的重要保证而传统的人工管理存在着效率低、不易统计、成本高和易出错等弊端已经无法适应现代企业的需求。随着计算机技术和通信技术的迅速发展将传统的人工考勤管理计算机化建立一个高效率的、无差错的考勤管理系统能够有效的帮助企业实现“公正考勤高效薪资”使企业的管理水平登上一个新的台阶。企业考勤管理经过如下的业务流程：

1、员工基本信息管理，添加，删除，更改

2、员工考勤管理，员工根据自己的班次在上下班时分别进行出勤操作采用手动方式或者使用划卡机。由人事部门专门的人员管理出勤和退勤信息。

3、一般在每个月月初进行考勤汇总，汇总信息包括工作日的出勤情况、请假天数、出差天数、休假天数和不同性质的加班记录等。

处理对象 :

职工信息(职工编号,姓名,性别,年龄。)

出差信息(职工编号,出差编号,开始时间,结束时间,统计天数。)

出勤信息(职工编号,出勤编号,开始时间,结束时间,缺席记录。)

加班信息(职工编号,加班编号,加班开始时间,加班结束时间,加班时间统计。)

请假信息(职工编号,请假编号,开始请假时间,请假结束时间,请假时间统计。)

月统计信息(职工编号，出勤统计，出差月统计，加班月统计，请假月统计。)

工资信息(职工编号，工资情况。)

部门信息(部门编号，部门信息更改。)

职位信息(职工编号，职位信息，职工编号。)

处理功能及要求 :

(1) 数据管理功能是设置和管理基础数据，包括加班、请假类别的定义和班次的定义，在全县范围内可以进行基础数据的添加、删除和修改。

(2) 考勤管理包括出勤动作、出勤信息的查询;上级对下级员工的出勤信息的确认;生成考勤统计信息并可以根据指定的条件进行查询。实现从每日出勤到统计全部考勤信息的无纸化操作。为方便数据传递和查阅要根据需求提供不同时间短的考勤统计信息表。

(3) 加班管理对员工的加班时间进行统计，记录开始时间和结束时间，对加班信息实现添 加，删除等操作。

(4) 请假管理可以提出请假申请，并完善请假信息，如请假开始时间，请假结束时间，请 假的次数进行管理。

(5) 出差管理管理者安排员工出差，对出差时间，次数的管理。

安全性和完整性要求 ：

1. 安全性要求

系统安全性要求体现在数据库安全性、信息安全性和系统平台的安全性等方面。安全性先通过视图机制，不同的用户只能访问系统授权的视图;这样可提供系统数据一定程度上的安全性，再通过分配权限、设置权限级别来区别对待不同操作者对数据库的操作来提高数据库的安全性，系统平台的安全性体现在操作系统的安全性、计算机系统的安全性和网络体系的安全性等方面。

2.完整性要求

系统完整性要求系统中数据的正确性以及相容性,设置管理员权限,用户权限,两者共同的交叉点。

需求分析阶段成果:

系统需求分析主要是通过对各公司的上下班打卡机的管理人员进行询问,请教,了解一些规则,看一些与之有关的书籍,上网查询一下,了解现阶段的考勤方式,以及管理中的一些问题,并对这些问题进行解决。

系统结构设计：

系统结构设计:

处理对象 :

职工信息:职工编号,姓名,性别,年龄。出差信息:职工编号,出差编号,开始时间,结束时间,统计天数。出勤信息:职工编号,出勤编号,开始时间,结束时间,缺席记录.

加班信息:职工编号,加班编号,加班开始时间,加班结束时间,加班时间统计请假信息:职工编号,请假编号,开始请假时间,请假结束时间,请假时间统计,月统计信息;职工编号，出勤统计，出差月统计，加班月统计，请假月统计。

工资信息(职工编号，工资情况)

部门信息(部门编号，部门信息更改)

职位信息(职工编号，职位信息，职工编号，)

处理功能及功能：

(1) 数据管理功能是设置和管理基础数据，包括加班、请假类别的定义和班次的定义，在全县范围内可以进行基础数据的添加、删除和修改。

(2) 考勤管理包括出勤动作、出勤信息的查询;上级对下级员工的出勤信息的确认;生成考勤统计信息并可以根据指定的条件进行查询。实现从每日出勤到统计全部考勤信息的无纸化操作。为方便数据传递和查阅要根据需求提供不同时间短的考勤统计信息表。

(3) 加班管理

对员工的加班时间进行统计，记录开始时间和结束时间，对加班信息实现添 加，删除等操作。

(4) 请假管理可以提出请假申请，并完善请假信息，如请假开始时间，请假结束时间，请 假的次数进行管理。

(5) 出差管理管理者安排员工出差，对出差时间，次数的管理。

安全性和完整性要求：

1. 安全性要求

系统安全性要求体现在数据库安全性、信息安全性和系统平台的安全性等方面。安全性先通过视图机制，不同的用户只能访问系统授权的视图;这样可提供系统数据一定程度上的安全性，再通过分配权限、设置权限级别来区别对待不同操作者对数据库的操作来提高数据库的安全性，系统平台的安全性体现在操作系统的安全性、计算机系统的安全性和网络体系的安全性等方面。

2.完整性要求

系统完整性要求系统中数据的正确性以及相容性,设置管理员权限,用户权限,两者共同的交叉点。

系统实现过程：

1.本实验系统是在ACCESS中进行创建的，首先在操作之前进行需求分析。

2.然后需求分析阶段的目标与任务。

3.进行绘制局部E-R图和整体E-R图。

4.然后开始数据库模式定义部分、在ACCESS中建立职工信息表、出勤信息表、出差信息表、加班记录表、月统计记录表并且设置好相关的数据类型和基本信息。

5.进行系统功能模块的设置和分析。开始建立数据库、数据表、索引 ，建立好工信息表、出勤信息表、出差信息表、加班记录表、月统计记录表之间的关系。

6.并且创建需要的查询关系，主要SQL查询语句:部门信息查询：SELECT department.dpnum, department.dpname

FROM department;

假条信息查询：

SELECT leavemess.enum, leavemess.ename, leavemess.ldate, leavemess.ldays, leavemess.ldays, leavemess.lreason, leavemess.date

FROM leavemess

WHERE (((leavemess.enum)=[Forms]![查询假条信息]![Text0]));

工资信息查询：

SELECT salary.snum, salary.enum, salary.ename, salary.date, salary.js, salary.jgs, salary.jtb, salary.ssum AS 表达式1

FROM salary;

员工信息查询：

SELECT salary.snum, salary.enum, salary.ename, salary.date, salary.js, salary.jgs, salary.jtb, salary.ssum AS 表达式1

FROM salary;

7.系统调试和测试 :

对该图书管理系统进行测试，验证每个功能是否符合要求，具体的测试如下：

(1)通过视图查看各个基本表和视图中的数据

(2)检测各个存储过程的功能;

总结和体会：

1.这次设计是我独立完成，中间我上网下载了4个职工管理系统，但是，每一个里边都有 程序设计的基本上看不懂，所以，我就查看了人家的问题，然后再添点我的思路就形成了目前的系统。

2.通过这次操作，使我更加熟悉access 2003，更加了解数据库的操作方法。知道自己的不足 之处再设计中有时写错一个实体属性所有都得重做

3.在这次试验中，我所费时间大多数都在做各种窗口。至于建立表，索引的，都很熟悉。通过这次设计，深感实践的重要。

参考文献：

1.《数据库原理及应用》主编：郭东恩河南科学技术出版社。

2.《数据库原理及开发应用——实验与课程设计指导》主编：周乾清华大学出版社。

3.《数据库原理与SQL Server2005应用教程》主编：程云志机械工业出版社。

4.《数据库原理及应用教程》主编：陈志泊人民邮电出版社

开发环境(系统环境和所使用的开发软件)： windows 7 旗舰版系统。

Microsoft Access编程软件。

第五篇：vb课程设计 职工工资管理系统代码

Form1: Dim errorCount As Integer Private Sub Command1_Click() If Text1.Text = "system" And Text2.Text = "1234" Then

Load Form2

Form2.Show

Me.Hide

MsgBox "登陆成功，欢迎您进入职工工资管理系统", vbInformation, "登陆成功"

Else

errorCount = errorCount + 1

If errorCount < 3 Then

MsgBox "用户名或密码错误(第" & errorCount & "次)!", vbOKOnly + vbExclamation, "登陆失败"

Text1.SetFocus

End If

If errorCount >= 3 Then

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

MsgBox "三次输入用户名或密码错误,程序将自动退出!", vbOKOnly + vbExclamation, "登陆失败"

End

End If End If

End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() errorCount = 0 End Sub

Private Sub Form_Unload(Cancel As Integer) If MsgBox("是否要退出程序?", vbYesNo, "退出提示") = vbNo Then

Cancel = 1 End If End Sub

- 1

For i = 1 To jlNum

ygList(i).shifagongzi = (CSng(ygList(i).jibengz) + ygList(i).gerensui

CSng(ygList(i).jingtie)

ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub

Private Sub Command5_Click() Dim linShi As YuanGong

linShi.ygnamg = InputBox("请输入要添加的姓名", "添加员工-姓名录入") If Len(Trim(linShi.ygnamg)) > 0 Then

linShi.jibengz = InputBox("请输入添加员工的基本工资", "添加员工-基本工资录入")

If Len(Trim(linShi.jibengz)) > 0 Then

linShi.jingtie = InputBox("请输入添加员工的津贴", "添加员工-津贴录入")

If Len(Trim(linShi.jingtie)) > 0 Then

linShi.gerensui = InputBox("请输入添加员工的个人所得税", "添加员工-个税录入")

If Len(Trim(linShi.gerensui)) > 0 Then

linShi.suidianfei = InputBox("请输入添加员工的水电费", "添加员工-水电费录入")

If Len(Trim(linShi.suidianfei)) > 0 Then

Open filedir For Append As #1

Write #1, linShi.ygnamg; linShi.jibengz; linShi.jingtie; linShi.gerensui; linShi.suidianfei

Close #1

MsgBox "添加员工成功!", vbOKOnly + vbInformation, "成功"

jlNum = 0 If Len(Trim(filedir)) > 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a)) > 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim Preserve ygList(jlNum) As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

- 5

Next

Close #1

MsgBox "删除员工成功!", vbOKOnly + vbInformation, "成功"

jlNum = 0 If Len(Trim(filedir)) > 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a)) > 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim ygList(jlNum) As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Input #1, ygList(jlNum).gerensui

Input #1, ygList(jlNum).suidianfei

Loop

Close #1

loadData

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

Command6.Enabled = True End If

Text1.Text = "姓名" & vbTab & "工资" & vbTab & "津贴" & vbTab & "所得税" & vbTab & "水电费" & vbCrLf

For i = 1 To jlNum

Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf

Next Else

MsgBox "删除员工失败!", vbOKOnly + vbExclamation, "失败" End If End Sub

Private Sub Command7_Click()

- 7