考勤登记表vb课程设计报告模板

1、设计学院 机械 班级 机设 054 班 学号 050368 成绩一、设计思路1.要达到的目的要求用 Visual Basic 对象的来完成程序的设计。在设计程序的过程中，要求会使用按钮( (frame)、单选按钮 option 等基本控件。dbutton)、文本框(text)、(label)、框架要求要完成此设计题目，必须熟练使用和掌握 combobox 控件和 option 控件数组。动态切换显示查询条件要求在程序中能够运用结构化程序设计的选择和循环结构，并熟练使用相关的语句（如 select case 、for 等）。熟练运用文件的写操作完成提交保存功能，以及使用文件的读操作完成统计查询功

2、能。2.关键问题的解决正文（宋体 5 号字，单倍行距）设计程序界面因为用的全是基本控件，界面设计没有什么难度，照样子拼就可以了。五种出勤情况：正常、早退、旷工、请假可用单选按钮来选择（要用控件数组）。统计情况的输出用 Picturebox 控件来实现。编写代码代码主要包括事件处理过程。 事件处理包括下面的主要事件：Form_Load()作一些初始化的工作。主要是完成控件可见与否及相关 Combobox 控件中内容的输入。d1_Click()将输入数据进行保存将输入数据存入某一数组中，然后将数组中的内容写入文件中。Combo5_Click()根据统计条件动态更新条件界面。主要是统计条件确定后，应

3、使哪些控件可见，哪些控件不可见。d3_Click()根据设定的统计条件进行统计。主要工作有对符合条件的的，需要一个数组来一条完整的内容，并进行格式化，另外为了下一条，此数组的内容要转入另外一个动态数组（因为不确定符合条件的有多少条）中作为其中的一个元素。二、模块之间的调用关系，或程序流程图Gamestart 模块调用调用调用doublehelp 模块调用elp 模块Singlehdoubleplayers 模块Singleplayer 模块三、部分程序关键源代码及注释Private Subd3_Click()Dim s As String, s1 As String, fileno Asege

4、rDim b(1 To 10) As String, c(1 To 10) As String, d(1 To 10) As String, e(1 To 10) As String, f(1 To 10) As StringDim ss() As String Form2.Show Form2.Picture1.Cls fileno = FreeFileSelect Case Combo5.ListIndex Case 1s = Combo6.Text & 月 & Combo7.Text & 日 Open aa.txt For Input As #filenoDo While Not EOF

5、(fileno)i = i + 1Input #fileno, b(i), c(i), d(i), e(i), f(i) LoopClose #fileno s1 = For j = 1 To iIf s = b(j) Thenk = k + 1ReDim Preserve ss(k) As String将每一项内容都保存在一个数组中设置一个动态数组ss(k) = b(j) & c(j) & d(j) & e(j) & f(j) End IfNext jCase 2s = 第 & Combo8.Text & 组 Open aa.txt For Input As #fileno Do While

6、 Not EOF(fileno)i = i + 1Input #fileno, b(i), c(i), d(i), e(i), f(i) LoopClose #fileno s1 = For j = 1 To iIf s = c(j) Then k = k + 1ReDim Preserve ss(k) As Stringss(k) = b(j) & c(j) & d(j) & e(j) & f(j) End IfNext j Case 3s = Text2.TextOpen aa.txt For Input As #fileno Do While Not EOF(fileno)i = i +

7、 1Input #fileno, b(i), c(i), d(i), e(i), f(i) LoopClose #fileno s1 = For j = 1 To iIf s = d(j) Then k = k + 1ReDim Preserve ss(k) As Stringss(k) = b(j) & c(j) & d(j) & e(j) & f(j) End IfNext j Case 4s = Combo9.TextOpen aa.txt For Input As #fileno Do While Not EOF(fileno)i = i + 1Input #fileno, b(i),

8、 c(i), d(i), e(i), f(i) LoopClose #fileno s1 = For j = 1 To iIf s = e(j) Then k = k + 1ReDim Preserve ss(k) As Stringss(k) = b(j) & c(j) & d(j) & e(j) & f(j) End IfNext j Case 0For n = 0 To 4If Option2(n).Value = True Then s = Option2(n).CaptionOpen aa.txt For Input As #fileno Do While Not EOF(filen

9、o)i = i + 1Input #fileno, b(i), c(i), d(i), e(i), f(i) LoopClose #fileno s1 = For j = 1 To iIf s = f(j) Thenk = k + 1ReDim Preserve ss(k) As Stringss(k) = b(j) & c(j) & d(j) & e(j) & f(j)End If Next jEnd If Next nEnd SelectFor i = 1 To kForm2.Picture1.Pr Next iss(i)将经过条件选取的显现在 picture1 中End Sub1设计方案的地方方案还行，最后一步需要简化一些，是程序看起来更简洁2. 目前存在的问题Option 控件数组的选中出现了错误，如 Option1.(0)选中以后处于一直选中的状态。五、本次设计的收获及心得体会这次设计思路都很明确，只是在具体设计代码时总会粗心。因为几个字母的错误使得程序无法运行，而且对各种空间的属性掌握不够熟悉，使得编码工作