课堂考勤系统说明书

计算机程序设计说明书

题目课堂考勤数据管理

专业信管09级 2 班

学号0911200239 _____

姓名陈政宇 ___

2011年6月

一、设计目的与要求：

设计一个Excel VAB程序，来对数信学院纪检部课堂考勤数据库进行管理，设置第一张工作表为汇总表，在第一张工作表中可以快速查找到某同学的课堂考勤记录，同时可以查询已达到惩罚条件的同学，并将他们列到汇总表中。

原始数据：

设置第一张工作表页面：

：

单击“第一个查询”按钮的结果：

出现等待查询界面：

查询结果：

没有符合查询要求的时候：

单击接下来几个查询按钮的结果类似上图。

单击“查询学生具体情况”按钮，出现如下所示：

如果班级、姓名为空或者输入的班级不是数信学院的班级：

输入正确的班级和姓名后，界面跳到相应的班级，出现结果如下

二. 需求分析：

本程序主要是5个按钮代码和一个窗体代码的编写。

各部分设计分析

1. 编写“惩罚方式”相应按钮的大致步骤都如下：

①删除上次的查询结果；

②查询所有学生旷课数或迟到数达到了惩罚要求的学生，并列出到汇总表中相应的位置。

③对汇总表中的数据进行筛选删除重复的数据

2. 编写“查询学生具体情况”按钮的大致步骤：

①创建一个查询窗体；

②显示该窗体

3. 编写“查询学生具体情况”窗体的大致步骤：

①检验输入中的数据不能为空，如果为空则给出提示。

②检验输入中的班级名称是否是我们学院的班级，如果不是，则给出提示。

③查询所在班级工作表中某学生的情况，如果没有该学生信息，则给出提示。

④清空查询窗体中的数据

三、详细设计

（一）查询学生具体情况的流程图：

1．编写“查询学生具体情况”按钮代码：

Private Sub CommandButton5_Click() UserForm3.Show …显示窗体3

End Sub

2．：编写“查询学生具体情况”窗体代码

①.主要编程代码

Private Sub CommandButton1_Click()

Dim X As String, b As String, hang As Integer, q As Integer

b = TextBox1.Text

X = TextBox2.Text

p = 0

q = 0

t = Worksheets.Count

If X = "" Or b = "" Then …文本框中不能为空格

MsgBox " 请同时输入班级和姓名进行查询！", vbOKOnly, "个人课堂表现情况查询"

Else

For i = 2 To t

If Sheets(i).Name = b Then

hang = Sheets(i).UsedRange.Rows.Count

p = 1 + p

Sheets(i).Select

ActiveSheet.AutoFilterMode = False '关闭自动筛选

Range("A2").Select '选择表格的左上角单元格

Selection.AutoFilter '给单元格设置自动筛选

Selection.AutoFilter Field:=3, Criteria1:=X '筛选出“姓名”列为"x"的单元格

For j = 3 To hang '查询是否有X的存在

If Sheets(i).Cells(j, 3) = X Then

q = 1 + q

End If

Next j

End If

Next i

'如果输入的不是我们学院的班级，给出提示

If p = 0 Then

MsgBox "请输入我们学院正确的班级名称！", vbOKOnly, "个人课堂表现情况查询"

End If

'如果查找不到该同学的信息，给出提示

If q = 0 Then

MsgBox "请确认您所输入姓名和班级是否正确或者没有该同学信息！", vbOKOnly, "个人课堂表现情况查询"

ActiveSheet.AutoFilterMode = False ‘关闭自动筛选，并返回汇总工作表

Sheets(1).Select

End If

'清空文本框

TextBox1.Text = ""

TextBox2.Text = ""

UserForm3.Hide

End If

End Sub

②.设置窗体标题

Private Sub UserForm_Initialize()

'设置窗体标题

Me.Caption = "数信学院纪检部课堂考勤管理系统"

End Sub

（二）“惩罚方式”按钮代码编写：

院通报批评（旷课5节左右或迟到早退8节左右）按钮代码：

Private Sub CommandButton1_Click()

Dim kks As Integer, cdzts As Integer, xm As String, xh As String, bj As String, hang As Integer, X As Integer, hang0 As Integer ‘定义需要用到的函数

Range("C10:G1000").Select '选择上次查询结果区域Selection.ClearContents '删除上次查询时的数据UserForm1.Show ‘显示窗口一

t = Worksheets.Count '总共使用的工作表

X = 10

For i = 2 To t

Sheets(i).AutoFilterMode = False

hang = Sheets(i).UsedRange.Rows.Count '每个工作表使用的行数

'汇总表中出现数据

If hang > 4 Then '如果每个工作表行数大于四则进行筛选For j = 3 To hang

cdzts = 0

kks = 0

For k = 3 To hang

If Sheets(i).Cells(k, 3) = Sheets(i).Cells(j, 3) Then '选择同一个姓名记录的旷课数和迟到早退数kks = Sheets(i).Cells(k, 8) + kks '旷课数If Sheets(i).Cells(k, 9) <> "" Or Sheets(i).Cells(k, 10) <> "" Then

cdzts = cdzts + 1 '迟到早退数

End If

End If

Next k

If kks > 5 Or cdzts > 8 Then '如果旷课数大于5或迟到早退数大于8

bj = Sheets(i).Cells(1, 1)

xm = Sheets(i).Cells(j, 3)

xh = Sheets(i).Cells(j, 4)

Sheets(1).Cells(X, 3) = bj

Sheets(1).Cells(X, 4) = xm

Sheets(1).Cells(X, 5) = xh

Sheets(1).Cells(X, 6) = cdzts

Sheets(1).Cells(X, 7) = kks

X = X + 1

End If

Next j

End If

Next i

hang0 = Sheets(1).UsedRange.Rows.Count ‘汇总表中所出现的行数

If hang0 > 12 Then

Range("D9:D1000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True '对输出区域进行高级筛选

Dim Y% '删除筛选区域中隐藏的数据For Y = 1000 To 10 Step -1

If Rows(Y).EntireRow.Hidden = True Then

Rows(Y).Delete

End If

Next

End If

UserForm1.Hide

If Sheets(1).Cells(10, 3) = "" Then ‘如果没有所需要的数据给出提示UserForm2.Show

End If

End Sub

（说明：由于下面的几个按钮代码都是参照第一个代码设计的，只是将其中的需查询的数据替换即可，这里就不一一列出了）

（三）剩余几个窗体代码编写

窗体一;

Private Sub CommandButton1_Click()

UserForm1.Hide …点击确定，隐藏窗体

End Sub

Private Sub UserForm_Initialize()

Me.Caption = "数信学院纪检部课堂考勤管理系统" …修改窗体标题

End Sub

窗体二：

Private Sub UserForm_Initialize()

Me.Caption = "数信学院纪检部课堂考勤管理系统" '设置窗体标题

End Sub

Private Sub 知道了_Click()

UserForm2.Hide '隐藏窗体

End Sub

四、设计总结：

这个纪检部的课堂考勤数据管理系统的设计，主要是想增加纪检部工作的效率，方便纪检部的工作。

在这次程序设计中有如下几个特点：

1.点击查询能自动查询出每周需要统计出的是否有达到处分线的同学单

2.能查询出在不同处分线上的同学名单

3.单击查询学生具体情况，可以查询出数据中的已记录的学生课堂情况，并能根据查询结果利

用窗体或窗口给出相应的提示。

心得体会：

作为学院纪检部的副部，在这么久的工作中一直感觉有许多的工作通过改善方法和方式可以极大的提高效率，其中之一就是这个课堂考勤数据库，每周都要录入各班的考勤记录，然后还要从中审查出已到达处分线的同学名单发给老师。这个工作很繁琐，不过学习了VBA课程以后，可以建立这个课堂考勤系统，节约时间。不过一直以来，感觉这个课堂考勤系统有那么些难，没有进行动手去实施，这次的课程设计正好给了我这个压力，做完之后，感觉这真的没有想象中的那么难，现在只有一句话能代表我这次课程设计的心得，那就是“只有想不到的事情，而没有做不到的事情“。