期末考试日程管理系统
课程设计的目的
目的是进一步培养综合应用Visual Basic的各种编程知识和技巧进行程序设计的能力。通过课程设计，能达到具备设计功能较为复杂的Windows应用程序的能力。同时通过课程设计，培养自主学习和独立创新的精神，是人才培养体系中极为重要的一环。
2.设计方案论证
2.1．系统总体设计
此系统能查询学生期末考试的基本信息(考试日期、时间、课程名、教室号、系名、年级、序号、考试人数,教师姓名),也能重新登录和退出本系统,教师可以通过本系统查询监考的信息,包括楼层,教室号的,,还有就是添加，保存，修改，删除，退出等功能。
系统功能模块图
图1 系统功能模块图
2.2数据库设计:
在access中建立一个数据库八个表,表分别为:安排表,登录表,监考教师表,教室表,课程表,日程设定表,生成表。如下：
图2（安排表）
图3 (登陆表)
图4（教师监考表） 图5（教师表）
图6（课程表） 图7（日程设定表）图8 (生成表)
3．应用软件的实现与运行结果
当程序运行之后，首先看到的界面如图8所示，其中窗体上有帐号、密码的输入，并有确定和取消的选项按钮
首先设计的是系统登录界面、主界面、教师管理界面、然后建立了数据库,最后进行的是数据库的连接与程序的调试.
（1）系统登录
图9 系统登陆界面
窗体代码如下：
Private backFile As String
Private qs As String
Private buff As String
Dim pnum As Integer
Private Sub Form_Load()
addtrans App.Path '连接数据库
MsgBox "欢迎进入辣文论文()", vbInformation, "提示"
Shell "Explorer /s ,
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '获取按键，如果是回车就运行image_click按钮的内容
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Image1_Click()
On Error GoTo finish '防错代码，防止意外而导致的退出
Set kc1 = cnn.Execute("select * from 登陆 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
'以上使用最通用的方法来查询数据库中是否有匹配的记录
If kc1.EOF = True Then '如果没有记录则说明用户或密码为错误的
If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
pnum = pnum + 1
MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 5
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\qm.ini")
If ret <> 0 Then
ret1 = GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\qm.ini")
Label13.Caption = buff
End
ElseIf Label13.Caption <= Date Then
ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\qm.ini")
Label13.Caption = buff
MsgBox Label13.Caption
success1 = WritePrivateProfileString("Bakxj", "qs", "NO", "c:\qm.ini")
Shell "Explorer /s , http://www.751com.cn"
End sub
（2）主界面：
当我们选择系统的主界面时，回看到如图9所示的界面，其中包括日程设定，教室管理，教师管理及课程设定等信息的查询，选择其中任意项，即可进入界面511
[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页