数据库技术之学生成绩管理系统程序设计样本.doc
《数据库技术之学生成绩管理系统程序设计样本.doc》由会员分享,可在线阅读,更多相关《数据库技术之学生成绩管理系统程序设计样本.doc(9页珍藏版)》请在咨信网上搜索。
《数据库技术》课程设计 《学生成绩管理系统》程序 附 录 用户登陆窗口代码: Dim username As String, userpass As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find ("userID='" & Text1 & "'") If Adodc1.Recordset.EOF Then MsgBox "无此用户,请重新输入!" Exit Sub Else abc = Adodc1.Recordset.Fields(1) If Text2 = Trim(abc) Then MsgBox "欢迎使用本系统,点击进入!", vbOKOnly, "登陆" Me.Hide Form2.Show Else MsgBox "用户名或密码不正确,请重新输入!" Text1 = "" Text2 = "" Exit Sub End If End If End Sub Private Sub Command2_Click() End End Sub 添加统计代码: Private Sub Command1_Click() Adodc1.Recordset.AddNew Text1 = InputBox("请输入学生学号", "添加学号") Text2 = InputBox("请输入学生姓名", "添加姓名") Text3 = InputBox("请输入学生性别", "添加性别") Text4 = InputBox("请输入学生年纪", "添加年纪") If Not IsNumeric(Text4) Then MsgBox "请输入数值" Text4.SetFocus End If Text5 = InputBox("请输入学生系别", "添加系别") resu = MsgBox("确定添加到数据库", vbOKCancel, "确定添加") If resu = vbOK Then Adodc1.Recordset.Update Else Adodc1.Recordset.Delete End If End Sub Private Sub Command2_Click() Me.Hide Form2.Show End Sub 学生查询代码: Private Sub Command1_Click() If Text1 = "" Then MsgBox "请输入查询条件" Text1.SetFocus End If If Option1.Value = True Then Adodc1.Recordset.Find ("sno='" & Text1 & " '") If Adodc1.Recordset.EOF Then MsgBox "没有该学生" ElseIf Option2.Value = True Then Adodc1.Recordset.Find ("sname='" & Text1 & " '") If Adodc1.Recordset.EOF Then MsgBox "没有该学生" End If End Sub Private Sub Option1_Click() Text2 = "" Adodc1.Recordset.MoveFirst End Sub Private Sub Option2_Click() Text1 = "" Adodc1.Recordset.MoveFirst End Sub 成绩查询代码: Private Sub Command1_Click() If Text4 = "" Then MsgBox "请输入查询学号" Text4.SetFocus End If Adodc1.Recordset.MoveFirst abcd = "Sno='" & Text4 & " '" Adodc1.Recordset.Find (abcd) If Adodc1.Recordset.EOF Then MsgBox "没有该学生统计" Text4.SetFocus End If End Sub Private Sub Text4_Change() If Len(Text4) > 0 Then Command1.Enabled = True Else Command1.Enabled = False End If End Sub 修改统计代码: Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst ' 第一条 Case 1 Adodc1.Recordset.MovePrevious ' 上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext ' 下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast ' 最终一条 Case 4 Dim mno As String mno = InputBox("请输入学号", "查找窗") ' 将输入值存到变量内 Adodc1.Recordset.MoveFirst ' 移动统计指针到第一条统计上 Adodc1.Recordset.Find ("sno='" & mno & "'") '用.Find方法查找指定科目 If Adodc1.Recordset.EOF Then MsgBox "无此学号!" & Adodc1.Recordset.AbsolutePosition, , "提醒" End Select End Sub Private Sub Command2_Click() Adodc1.Recordset.Update End Sub 成绩添加代码: Private Sub Command1_Click() Dim adc As String Adodc1.Recordset.AddNew a: Text1 = InputBox("输入学生学号", "添加成绩") mm = Len(Text1) For i = 1 To mm abc = Mid(Text1, i, 1) If abc < "0" Or abc > "9" Then MsgBox "输入格式不正确请重新输入" GoTo a End If Next i b: Text2 = InputBox("输入课程号", "添加成绩") mm = Len(Text2) For i = 1 To mm abc = Mid(Text2, i, 1) If abc < "0" Or abc > "9" Then MsgBox "输入格式不正确请重新输入" GoTo b End If Next i c: Text3 = InputBox("输入学生成绩", "添加成绩") mm = Len(Text3) For i = 1 To mm abc = Mid(Text3, i, 1) If abc < "0" Or abc > "9" Then MsgBox "输入格式不正确请重新输入" GoTo a End If Next i resu = MsgBox("确定添加数据库??", vbOKOnly, "确定添加") If resu = vbOK Then Adodc1.Recordset.Update Else Text1 = "" Text2 = "" Text3 = "" End If End Sub 学生档案管理代码: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst ' 第一条 Case 1 Adodc1.Recordset.MovePrevious ' 上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext ' 下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast ' 最终一条 Case 4 Dim mno As String mno = InputBox("请输入学号", "查找窗") ' 将输入值存到变量内 Adodc1.Recordset.MoveFirst ' 移动统计指针到第一条统计上 Adodc1.Recordset.Find ("sno='" & mno & "'") '用.Find方法查找指定科目 If Adodc1.Recordset.EOF Then MsgBox "无此学号!" & Adodc1.Recordset.AbsolutePosition, , "提醒" End Select End Sub Private Sub Command2_Click() Dim abcd As String Dim find1 a: If Option1.Value = Option2.Value Then MsgBox "请选择查询条件!" Exit Sub End If If Text6.Text = "" Then MsgBox "请输入查询条件" Text1.SetFocus Exit Sub End If If Option1.Value = True Then Adodc1.Recordset.Find ("sno='" & Text6 & " '") If Adodc1.Recordset.EOF Then MsgBox "没有该学生" ElseIf Option2.Value = True Then Adodc1.Recordset.Find ("sname='" & Text6 & " '") If Adodc1.Recordset.EOF Then MsgBox "没有该学生" End If End Sub Private Sub Command3_Click() If Option3.Value = True Then Adodc1.Recordset.Update Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Else Adodc1.Recordset.Delete Adodc1.Recordset.Update End If End Sub Private Sub Option1_Click() Text6 = "" Adodc1.Recordset.MoveFirst End Sub Private Sub Option2_Click() Text6 = "" Adodc1.Recordset.MoveFirst End Sub Private Sub Option3_Click() Command3.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False End Sub Private Sub Option4_Click() Command3.Enabled = True End Sub- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库技术 学生 成绩管理系统 程序设计 样本
咨信网温馨提示:
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【a199****6536】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【a199****6536】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【a199****6536】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【a199****6536】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。
关于本文