|
第二章 系统设计 http://www.paper51.com copyright paper51.com 2.1系统分析 http://www.paper51.com
内容来自www.paper51.com
本电子教务管理系统主要由以下几大模块构成. http://www.paper51.com copyright paper51.com 一.通用模块(教工信息管理,学生信息管理,评语管系统,考试管理系统,基础数据维护,窗口,操作员命令) 内容来自www.paper51.com
copyright paper51.com 二..超级信史,系统助手 paper51.com
内容来自www.paper51.com
内容来自www.paper51.com
内容来自www.paper51.com 2.2系统流程和操作方式设计 http://www.paper51.com
paper51.com 窗口 paper51.com
内容来自www.paper51.com
copyright paper51.com 第三章 系统界面设计 http://www.paper51.com
3.1系统界面设计 内容来自www.paper51.com
1.登陆界面 内容来自www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com 代码设计: 内容来自www.paper51.com
paper51.com Private Sub CmbUser_KeyPress(KeyAsciiAs Integer) 内容来自www.paper51.com If KeyAscii = 13 Then cmdOK_Click http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com Private Sub cmdCancel_Click() 内容来自论文无忧网 www.paper51.com Me.Hide paper51.com End Sub 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
Private Sub cmdOK_Click() paper51.com
DimtxtSQL As String 内容来自www.paper51.com Set mrc= New ADODB.Recordset paper51.com
http://www.paper51.com If Trim(CmbUser.Text) = "" Then paper51.com CmbUser.SetFocus 内容来自www.paper51.com
Else 内容来自www.paper51.com
txtSQL ="select * from Login where 登录姓名 = '" &CmbUser.Text & "'" paper51.com mrc.OpenTrim$(txtSQL), Con, adOpenKeyset, adLockOptimistic 内容来自www.paper51.com Set ExecuteSQL =mrc 内容来自论文无忧网 www.paper51.com http://www.paper51.com Ifmrc.EOF = True Then 内容来自www.paper51.com
CmbUser.SetFocus 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com If Trim(mrc!密码) =Trim(Txtpassword.Text) Then http://www.paper51.com LoginUser = mrc!登录姓名 http://www.paper51.com Permission = mrc!权限 内容来自www.paper51.com If Check1.Value = 1 Then 内容来自论文无忧网 www.paper51.com r = WritePrivateProfileString("用户信息", "姓名", CmbUser.Text, App.Path + "\电子教务系统.ini") paper51.com s = WritePrivateProfileString("用户信息", "密码", Txtpassword.Text, App.Path + "\电子教务系统.ini") http://www.paper51.com
If r <> 1 Or s <> 1 Then http://www.paper51.com
MsgBox "写基本信息出错！", 48, App.Title 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
Else copyright paper51.com r = WritePrivateProfileString("用户信息", "姓名", "", App.Path + "\电子教务系统.ini") 内容来自www.paper51.com s = WritePrivateProfileString("用户信息", "密码", "", App.Path + "\电子教务系统.ini") paper51.com
End If 内容来自论文无忧网 www.paper51.com mrc.Close paper51.com Me.Hide http://www.paper51.com Exit Sub 内容来自www.paper51.com Else copyright paper51.com Txtpassword.SetFocus 内容来自论文无忧网 www.paper51.com Txtpassword.Text = "" paper51.com
End If paper51.com
EndIf http://www.paper51.com End If paper51.com
http://www.paper51.com miCount = miCount + 1 paper51.com
MsgBox "登录错误，你还有" & 3 - miCount& "次机会！", vbOKOnly + vbExclamation,"警告" paper51.com If miCount = 3 Then paper51.com
Me.Hide http://www.paper51.com
End If copyright paper51.com Exit Sub http://www.paper51.com End Sub paper51.com
copyright paper51.com Private Sub Form_Load() 内容来自www.paper51.com
http://www.paper51.com
If Len(GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini")) = 0 Or Len(GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini")) = 0 Then 内容来自论文无忧网 www.paper51.com
copyright paper51.com Else http://www.paper51.com
内容来自www.paper51.com CmbUser.Text = GetFromINI("用户信息", "姓名", App.Path + "\电子教务系统.ini") 内容来自论文无忧网 www.paper51.com
copyright paper51.com
Txtpassword.Text = GetFromINI("用户信息", "密码", App.Path + "\电子教务系统.ini") 内容来自www.paper51.com
内容来自www.paper51.com End If http://www.paper51.com 内容来自www.paper51.com Dim Rs1As ADODB.Recordset copyright paper51.com http://www.paper51.com Set Rs1= New ADODB.Recordset paper51.com 内容来自论文无忧网 www.paper51.com Rs1.Open"Login", Con, adOpenStatic, adCmdTable 内容来自论文无忧网 www.paper51.com
copyright paper51.com iCount = 0 copyright paper51.com
http://www.paper51.com
If Rs1.BOF And Rs1.EOF Then 内容来自www.paper51.com copyright paper51.com MsgBox "请用管理员账号登录" 内容来自www.paper51.com http://www.paper51.com Exit Sub 内容来自www.paper51.com
paper51.com
End If copyright paper51.com paper51.com Rs1.MoveFirst copyright paper51.com
paper51.com Do While Rs1.EOF = False copyright paper51.com
copyright paper51.com
CmbUser.AddItem Rs1!登录姓名, i paper51.com
内容来自论文无忧网 www.paper51.com
i = i +1 内容来自论文无忧网 www.paper51.com
paper51.com
Rs1.MoveNext 内容来自论文无忧网 www.paper51.com copyright paper51.com Loop http://www.paper51.com
paper51.com
paper51.com End Sub 内容来自www.paper51.com
paper51.com
内容来自论文无忧网 www.paper51.com Private Sub Txtpassword_KeyPress(KeyAsciiAs Integer) paper51.com
内容来自论文无忧网 www.paper51.com If KeyAscii = 13 Then cmdOK_Click 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com End Sub paper51.com
copyright paper51.com http://www.paper51.com
http://www.paper51.com |