vb和SQL做的学生成绩管理系统-.pdf

资源ID：76257695 资源大小：3.33MB 全文页数：21页
资源格式： PDF 下载积分：20金币

快捷下载

会员登录下载

微信登录下载

三方登录下载：

微信扫一扫登录

下载资源需要20金币

邮箱/手机：
温馨提示：	快捷下载时，用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）。如填写123，账号就是123，密码也是123。
支付方式：
验证码：	换一换

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

vb和SQL做的学生成绩管理系统-.pdf

Form1的代码：Private Sub Command1_Click()Unload Me Form3.Show End Sub Private Sub Command2_Click()Unload Me Form2.Show End Sub Private Sub Command3_Click()If MsgBox(确定退出管理系统？,_ vbQuestion+vbYesNo+vbDefaultButton2,警告！)=vbYes Then End End If End Sub Private Sub Picture1_Click()End Sub Private Sub Timer1_Timer()Command4.Caption=Time$()End Sub Private Sub Form_Load()Timer1.Interval=1000 Timer1.Enabled=True End Sub Form2 的代码：Private Sub Command1_Click()Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 用户名=&Text1.Text&If Adodc1.Recordset.EOF=True Then Adodc1.Recordset.MoveFirst If(Trim(Text1.Text)=(Trim(Text3.Text)And(Trim(Text2.Text)=(Trim(Text4.Text)Then Adodc1.Enabled=False Form4.Text3.Text=Text1.Text Unload Me Form8.Show Else MsgBox 非法的账号!,vbOKOnly+vbExclamation,请重新输入！Text1.Text=Text2.Text=Text1.SetFocus End If End Sub Private Sub Command2_Click()Text1.Text=Text2.Text=End Sub Private Sub Command3_Click()Unload Me Form1.Show End Sub Private Sub Form_Load()Text2.Text=Text1.Text=Text2.PasswordChar=*End Sub Private Sub Picture1_Click()End Sub Form3 的代码：Private Sub Command1_Click()Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 用户名=&Text1.Text&If Adodc1.Recordset.EOF=True Then Adodc1.Recordset.MoveFirst If(Trim(Text1.Text)=(Trim(Text3.Text)And(Trim(Text2.Text)=(Trim(Text4.Text)Then Adodc1.Enabled=False Form4.Text1.Text=Text1.Text Form4.Text2.Text=Text4.Text Unload Me Form5.Show Else MsgBox 非法的账号!,vbOKOnly+vbExclamation,请重新输入！Text1.Text=Text2.Text=Text1.SetFocus End If End Sub Private Sub Command2_Click()Option1.Value=False Option2.Value=False Text1.Text=Text2.Text=End Sub Private Sub Command3_Click()Unload Me Form1.Show End Sub Private Sub Form_Load()Text2.Text=Text1.Text=Text2.PasswordChar=*End Sub 无代码Form5 的代码：Private Sub cjcx_Click(Index As Integer)Unload Me Form7.Show End Sub Private Sub Command1_Click()On Error Resume Next If Command1.Caption=修改 Then Command1.Caption=确认 Adodc2.Recordset.Requery Text5.SetFocus Else Command1.Caption=修改 Adodc2.Recordset.Update MsgBox 修改成功 End If End Sub Private Sub Form_Load()Adodc1.CommandType=adCmdUnknown Adodc1.RecordSource=Select*From studentwel Where 用户名=&Form4.Text1.Text&Adodc1.Refresh Text1.Visible=True Text3.Visible=True Timer1.Interval=1000 Timer1.Enabled=True End Sub Private Sub Picture1_Click()End Sub Private Sub tcxt_Click(Index As Integer)Unload Me Form3.Show End Sub Private Sub Timer1_Timer()Text2.Text=Time$()End Sub Private Sub xgmm_Click()Label5.Visible=True Label7.Visible=True Text4.Visible=True Text5.Visible=True Command1.Visible=True Adodc2.CommandType=adCmdUnknown Adodc2.RecordSource=Select*From studententer Where 用户名=&Form4.Text1.Text&Adodc2.Refresh End Sub Private Sub xxcx_Click(Index As Integer)Unload Me Form6.Show End Sub Form6 的代码：Private Sub Command1_Click()Unload Me Form5.Show End Sub Private Sub Command2_Click()On Error Resume Next If Command2.Caption=修改 Then Text1.SetFocus Command2.Caption=确认 Adodc1.Recordset.Requery MsgBox 信息修改成功 Else Command2.Caption=修改 Adodc1.Recordset.Update End If End Sub Private Sub Form_Load()Adodc1.CommandType=adCmdUnknown Adodc1.RecordSource=Select*From studentinfor Where 学号=&Form4.Text1.Text&Adodc1.Refresh Text1.Visible=True Text2.Visible=True Text3.Visible=True Text4.Visible=True Text5.Visible=True Text6.Visible=True Text7.Visible=True Text8.Visible=True End Sub Private Sub Picture1_Click()End Sub Private Sub Command1_Click()Unload Me Form5.Show End Sub Private Sub Form_Load()Adodc1.Recordset.MoveFirst Dim a As String a=Form4.Text1.Text Adodc1.Recordset.Find 学号=&a&Text1.Visible=True Text2.Visible=True Text4.Visible=True Text6.Visible=True Dim b As Integer b=Text2.Text If b=90 Then Text3.Text=优 ElseIf b=80 Then Text3.Text=良 ElseIf b=70 Then Text3.Text=中 ElseIf b=60 Then Text3.Text=及格 Else Text3.Text=不及格 End If Dim c As Integer c=Text4.Text If c=90 Then Text5.Text=优 ElseIf c=80 Then Text5.Text=良 ElseIf c=70 Then Text5.Text=中 ElseIf c=60 Then Text5.Text=及格 Else Text5.Text=不及格 End If Dim d As Integer d=Text6.Text If d=90 Then Text7.Text=优 ElseIf d=80 Then Text7.Text=良 ElseIf d=70 Then Text7.Text=中 ElseIf d=60 Then Text7.Text=及格 Else Text7.Text=不及格 End If If Text3.Text=不及格 Then Text2.ForeColor=&HFF&End If If Text5.Text=不及格 Then Text4.ForeColor=&HFF&End If If Text7.Text=不及格 Then Text6.ForeColor=&HFF&End If End Sub Private Sub Picture1_Click()End Sub Form8 的代码：Private Sub Command1_Click()On Error Resume Next If Command1.Caption=修改 Then Command1.Caption=确认 Adodc1.Recordset.Requery Text2.SetFocus Else Command1.Caption=修改 Adodc1.Recordset.Update MsgBox 修改成功 End If End Sub Private Sub file1_Click()Unload Me Form10.Show End Sub Private Sub file2_Click()Unload Me Form9.Show End Sub Private Sub file4_Click()Unload Me Form12.Show End Sub Private Sub file5_Click()Unload Me Form11.Show End Sub Private Sub file7_Click()Unload Me Form2.Show End Sub Private Sub file8_Click()Label3.Visible=True Label4.Visible=True Text1.Visible=True Text2.Visible=True Command1.Visible=True Adodc1.CommandType=adCmdUnknown Adodc1.RecordSource=Select*From teacherenter Where 用户名=&Form4.Text3.Text&Adodc1.Refresh End Sub Private Sub Picture1_Click()End Sub Form9 的代码：Private Sub Command1_Click()Dim mno As String mno=InputBox(请输入学号,查找窗)Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 学号=&mno&If Adodc1.Recordset.EOF=True Then MsgBox 无此学号！,提示 End Sub Private Sub Command2_Click()Unload Me Form8.Show End Sub Private Sub Command3_Click()Dim mnon As String mnon=InputBox(请输入姓名,查找窗)Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 姓名=&mnon&If Adodc1.Recordset.EOF=True Then MsgBox 无此学号！,提示 End Sub Private Sub Label5_Click()End Sub Private Sub Label7_Click()End Sub Form10 的代码：Private Sub Command1_Click()On Error Resume Next Command2.Enabled=Not Command2.Enabled Command3.Enabled=Not Command3.Enabled Command4.Enabled=Not Command4.Enabled If Command1.Caption=新增 Then Command1.Caption=确认 Adodc1.Recordset.AddNew Text1.SetFocus Else Command1.Caption=新增 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast End If End Sub Private Sub Command2_Click()On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command3_Click()On Error Resume Next Command1.Enabled=Not Command1.Enabled Command2.Enabled=Not Command2.Enabled Command4.Enabled=Not Command4.Enabled If Command3.Caption=修改 Then Command3.Caption=确认 Adodc1.Recordset.Requery Text1.SetFocus Else Command3.Caption=修改 Adodc1.Recordset.Update End If End Sub Private Sub Command4_Click()On Error Resume Next Command1.Caption=新增 Command3.Caption=修改 Command1.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveLast End Sub Private Sub Command5_Click()Unload Me Form8.Show End Sub Private Sub Command6_Click()Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command7_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If End Sub Private Sub Command8_Click()Adodc1.Recordset.MoveFirst End Sub Private Sub Command9_Click()Adodc1.Recordset.MoveLast End Sub Private Sub Label5_Click()End Sub Form11 的代码：Private Sub Command1_Click()Dim mno As String mno=InputBox(请输入学号,查找窗)Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 学号=&mno&If Adodc1.Recordset.EOF=True Then MsgBox 无此学号！,提示 End Sub Private Sub Command2_Click()Unload Me Form8.Show End Sub Private Sub Picture1_Click()End Sub Form12 的代码：Private Sub Command1_Click()On Error Resume Next Command2.Enabled=Not Command2.Enabled Command3.Enabled=Not Command3.Enabled Command4.Enabled=Not Command4.Enabled If Command1.Caption=新增 Then Command1.Caption=确认 Adodc1.Recordset.AddNew Text1.SetFocus Else Command1.Caption=新增 Adodc1.Recordset.Update Adodc1.Recordset.MoveLast End If End Sub Private Sub Command2_Click()On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command3_Click()On Error Resume Next Command1.Enabled=Not Command1.Enabled Command2.Enabled=Not Command2.Enabled Command4.Enabled=Not Command4.Enabled If Command3.Caption=修改 Then Command3.Caption=确认 Adodc1.Recordset.Requery Text1.SetFocus Else Command3.Caption=修改 Adodc1.Recordset.Update End If End Sub Private Sub Command4_Click()On Error Resume Next Command1.Caption=新增 Command3.Caption=修改 Command1.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveLast End Sub Private Sub Command5_Click()Unload Me Form8.Show End Sub Private Sub Command6_Click()Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command7_Click()Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If End Sub Private Sub Command8_Click()Adodc1.Recordset.MoveFirst End Sub Private Sub Command9_Click()Adodc1.Recordset.MoveLast End Sub Private Sub Picture1_Click()End Sub 数据库部分：建立数据库表：

注意事项

本文（vb和SQL做的学生成绩管理系统-.pdf）为本站会员（索****）主动上传，淘文阁 - 分享文档赚钱的网站仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知淘文阁 - 分享文档赚钱的网站（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。