基本表：[专业课程管理]
字段 类型 长度 格式 约束
专业编号 文本 200 主键
专业名称 文本 200
专业内容 文本 200
专业学分 文本 200
专业学期 文本 200
基本表：[文化课程管理]
字段 类型 长度 格式 约束
课程编号 文本 200 主键
课程名称 文本 200
课程内容 文本 200
课程学分 文本 200
专业学期 文本 200
基本表：[班级管理]
字段 类型 长度 格式 约束
学生编号 文本 200 主键
姓名 文本 200
职务 文本 200
期末总成绩 文本 200
联系电话 文本 200
所在专业 文本 200
所在年级 文本 200
所在班级 文本 200
班级总人数 文本 200
基本表：[用户]
字段 类型 长度 格式 约束
用户ID 文本 200 主键
用户密码 文本 200
用户身份 文本 200 优-文^论,文.网http://www.youerw.com
第四章学生信息管理系统界面设计及编码
本部分主要内容为本系统的运行界面以及界面的源代码。
4.1登陆界面
本界面主要是进入系统和退出系统
代码：
Private Sub Command1_Click()
学生系统用户登陆.Show ' 进去系统
End Sub
Private Sub Command2_Click()
End ' 退出系统
End Sub
学生系统用户登陆，可以在用户身份中选择你所用的身份，每个身份在登陆后会有不同的权限。如系统管理人员的权限是最大的。在登陆的时候还要注意身份和帐号、密码保持一致。如3个其中1个不正确都无法进去系统。
代码：
Dim sf As String
Dim cnn As String
Dim ssql As String
Dim rst As New ADODB.Recordset
Private Sub Command1_Click()
If Option1.Value = True Then
sf = "教师"
ElseIf Option2.Value = True Then
sf = "学生"
Else
sf = "管理人员"
End If
Set rst = Nothing
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "帐号和密码不能为空，请输入！"
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "密码不能为空，请输入！"
Text2.SetFocus优-文^论,文.网http://www.youerw.com
ElseIf Text1.Text = "" Then
MsgBox "帐号不能为空，请输入！"
Text1.SetFocus
Else
ssql = "select * from xueshengxitongyonghu where 用户帐号 = '" & Text1.Text & "'"
rst.Open ssql, cnn, adOpenKeyset, adLockPessimistic
If rst.EOF() Then
MsgBox "无此用户，重新输入用户名"
Text1.Text = ""
Text1.SetFocus
ElseIf rst.Fields(1) = Text2.Text Then
If rst.Fields(2) = sf Then
If rst.Fields(2) = "学生" Then
tt = 1
ElseIf rst.Fields(2) = "教师" Then
tt = 2
Else
tt = 3
End If
首页.Show
Unload Me
Else
MsgBox "身份选择错误，重新选择"
End If
Else
MsgBox "密码错误，请重新输入密码"
Text2.Text = ""
Text2.SetFocus
End If
End If
End Sub
Private Sub Command2_Click()
If MsgBox("您要退出登录吗？", vbYesNo, "提示信息") = vbYes Then
Form1.Show
Unload Me
End If
End Sub
Private Sub Form_Load()
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
End Sub4.2主界面
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页