毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

期末考试日程管理系统

更新时间:2009-8-4:  来源:毕业论文

期末考试日程管理系统
 课程设计的目的
目的是进一步培养综合应用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.lwfree.cn"
 End sub
(2)主界面:
当我们选择系统的主界面时,回看到如图9所示的界面,其中包括日程设定,教室管理,教师管理及课程设定等信息的查询,选择其中任意项,即可进入界面511

[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

期末考试日程管理系统下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©lwfree.cn 六维论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。