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