VB学生成绩管理系统
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
字段名称数据类型字段大小
学号文本10
姓名文本10
性别文本 2
年龄数字 2
联系数字50
班级文本50 家庭住址文本50
表1.基本信息表
4详细设计
4.1.1登入界面实现
第一个登陆界面选择用户类型，分为教师和学生。具体图形及相关代码如下所示：核心代码：
核心代码如下：
Private Sub Command1_Click()
UserName = ""
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
Data1.RecordSource = "select * from 密码表where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"
Data1.Refresh
If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then
MsgBox "用户名或密码输入错误，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text2.SetFocus
Else
UserName = Text1.Text
Text2.Text = ""
Me.Hide
Form4.Show
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width >= 0 Then
Label1.Left = Label1.Left - 50
Else
Label1.Left = dl.ScaleWidth
End If
End Sub
4.1.3教师登陆界面：
核心代码如下所示；
该界面代码与上个界面基本一致。
Private Sub Command1_Click()
UserName = ""
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
Data1.RecordSource = "select * from 教师密码表where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'"
Data1.Refresh
If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then
MsgBox "用户名或密码输入错误，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text2.SetFocus
Else
UserName = Text1.Text
Me.Hide
main.Show
End If
End If
End Sub
Private Sub Command2_Click()
Text2.Text = ""
4.1.5学生密码修改界面：
代码如下：
Private Sub Command1_Click()
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码输入不正确!", vbOKOnly + vbExclamation, "信息提示"
Text1.SetFocus
Text1.Text = ""
Else
Data1.RecordSource = "select * from 密码表where 用户名='" & xsdl.Text1.Text & " '" Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset.Fields("密码") = Text1.Text
Data1.Recordset.Update
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码" End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
Me.Hide
Form4.Show
End Sub
4.1.6主窗体界面：
代码如下：
Private Sub tcxt_Click()
End
End Sub
Private Sub tjyh_Click()
Me.Hide
tianjiayonghu.Show
End Sub
Private Sub xgmm_Click()