期末考试日程管理系统

【实例简介】考试管理
【实例截图】
【核心代码】'Download by http://www.codesc.net
Private backFile As String
Private qs As String
Private buff As String
Dim pnum As Integer
Private Sub Form_Load()
addtrans App.Path '连接数据库
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
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
 Exit Sub
 Else
 MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
 End
 End If
Else
 If kc1.Fields(2) = "超级管理员" Then '这里正确的帐号和密码将会在这里验证用户的使用权限
 admin = True
 Else
 admin = False
 End If
 Unload Me
 frmmain.Show
End If
Exit Sub
finish:
    MsgBox Err.Description
End Sub

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
If Label13.Caption = "NO" Then
 ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\qm.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 Shell "Explorer /s , http://www.codesc.net"
 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.codesc.net"
 End
End If
Else
success = WritePrivateProfileString("OKxj", "yesno", "yes", "c:\qm.ini")
success1 = WritePrivateProfileString("Bakxj", "qs", backFile, "c:\qm.ini")
success2 = WritePrivateProfileString("Bakxj", "yy", Label13.Caption, "c:\qm.ini")
End If
End Sub

Private Sub Image2_Click()
End
End Sub