VB学生成绩管理系统
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
沈阳大学
沈阳大学
沈阳大学
字段名称数据类型字段大小
学号文本10
姓名文本10
性别文本 2
年龄数字 2 联系电话数字50 班级文本50 家庭住址文本50
表1.基本信息表
4详细设计
4.1.1登入界面实现
第一个登陆界面选择用户类型，分为教师和学生。具体图形及相关代码如下所示：
核心代码：
Private Sub Command1_Click()
dl.Hide
沈阳大学
沈阳大学
核心代码如下：
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 = ""
沈阳大学
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, "警告"
沈阳大学
沈阳大学
Data1.RecordSource = "select * from 成绩表where 学号='" & xsdl.Text1.Text & "'"
Data1.Refresh
End Sub
4.1.5学生密码修改界面：
代码如下：
Private Sub Command1_Click()
沈阳大学
沈阳大学
代码如下：
Private Sub tcxt_Click()
End
End Sub
Private Sub tjyh_Click()
Me.Hide
tianjiayonghu.Show
End Sub
Private Sub xgmm_Click()
Me.Hide
jiaoshimimaxiugai.Show
End Sub
Private Sub xmtj_Click()
Me.Hide
xiangmutongji.Show
End Sub
Private Sub xxcx_Click()
Me.Hide
xinxichaxun.Show
沈阳大学
End Sub
Private Sub xxtj_Click()
Me.Hide
xueshengxinxitianjia.Show
End Sub
Private Sub xxxg_Click()
Me.Hide
xinxixiugai.Show
End Sub
Private Sub cjcx_Click()
main.Hide
chengjichaxun.Show
End Sub
Private Sub cjlr_Click()
Me.Hide
chengjiluru.Show
End Subv
Private Sub cjxg_Click()
Me.Hide
chengjixiugai.Show
End Sub
4.1.7添加用户界面：
代码如下：
Private Sub Command1_Click()
沈阳大学