VB学生成绩管理系统

可运行

沈 阳 大 学

可运行

沈 阳 大 学

可运行

沈 阳 大 学

可运行

沈 阳 大 学

可运行

沈 阳 大 学

可运行

课程设计说明书

NO.6

核心代码如下： 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

沈 阳 大 学

可运行

沈 阳 大 学

可运行

沈 阳 大 学

可运行

课程设计说明书

NO.9

4.1.5 学生密码修改界面： 4.1.5 学生密码修改界面： 1.

代码如下： 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

NO.10

4.1.6 主窗体界面： 4.1.6 主窗体界面： 1.

代码如下： 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

NO.11

沈 阳 大 学

可运行

课程设计说明书4.1.7 添加用户界面： 4.1.7 添加用户界面： 1.

NO.12

代码如下： Private Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "请输入用户名！", vbOKOnly + vbExclamation, "信息提示" Text1.SetFocus Exit Sub Else Data1.RecordSource = "select * from 教师密码表 where 用户名='" & Text1.Text & "'" Data1.Refresh If Not Data1.Recordset.EOF Then MsgBox "用户已存在，请重新输入用户名！", vbOKOnly + vbExclamation, "提示信息" Text1.SetFocus Text1.Text = "": Text2.Text = "": Text3.Text = "" Exit Sub End If End If If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "两次输入的密码不一样

,请确认！", vbOKOnly + vbExclamation, "警告" Text2.SetFocus Text2.Text = "" Text3.Text = "" Exit Sub Else With Data1 .Recordset.AddNew .Recordset.Fields(0) = Trim(Text1.Text) .Recordset.Fields(1) = Trim(Text2.Text) .Recordset.Update

沈 阳 大 学

可运行

课程设计说明书End With MsgBox "添加用户成功！", vbOKOnly + vbExclamation, "添加用户" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() Me.Hide main.Show End Sub

NO.13

4.1.8 修改密码界面： 4.1.8 修改密码界面： 1.

代码如下： 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

NO.14

4.1.9 添加学生信息界面： 4.1.9 添加学生信息界面： 1.

代码如下： Private Sub Command1_Click() If Text2.Text = "" Or Text3.Text = "" Then

沈 阳 大 学

可运行

沈 阳 大 学

可运行

课程设计说明书

NO.16

4.2.0 修改学生信息界面： 2.0 修改学生信息界面：

代码如下： Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入内容！" Else Data1.Recordset.Edit Data1.Recordset.Fie

lds(0) = Text2.Text Data1.Recordset.Fields(1) = Text3.Text Data1.Recordset.Fields(2) = text4.Text Data1.Recordset.Fields(3) = Text5.Text Data1.Recordset.Fields(4) = Text6.Text Data1.Recordset.Fields(5) = Text7.Text Data1.Recordset.Fields(6) = Text8.Text

沈 阳 大 学