vb班级管理源码（VB编程基础篇）
本文目录一览：
- 1、谁有VB+access学生信息管理系统的源码
- 2、急求VB+ACCESS学生信息管理系统源码(一定要可以运行的哦)
- 3、VB学生成绩管理系统
- 4、求VB学生成绩管理系统（VB+ACCESS）结合的源码，有能增加 删除 查询 修改的功能。。
谁有VB+access学生信息管理系统的源码
给你上传了学生户籍信息管理系统，自编的，可用。
源码已发到你的邮箱，主 题：学生户籍管理系统_LJL88900,请查收！
急求VB+ACCESS学生信息管理系统源码(一定要可以运行的哦)
学生档案管理系统 vb
——————————————附录程序清单及注释
程序清单6.1
Option Explicit
Dim Fi
leName As String '文件名，用于打开、保存文件
Dim UndoString As String '用于 Undo 操作
Dim UndoNew As String '用于 Undo 操作
Private Sub ImgUndoDisable()
'禁用“Undo”按钮
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
End Sub
Private Sub ImgUndoEnable()
'有效“Undo”按钮
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub
Private Sub Check_ImgPaste()
'设置粘贴按钮
If Len(Clipboard.GetText) 0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages("Paste").Picture
End If
End Sub
Private Sub Check_ImgCutCopy()
'设置剪切、复制按钮
If Text1.SelLength 0 Then
ImgCut.Enabled = True
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
ImgCopy.Enabled = True
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
Else
ImgCut.Enabled = False
ImgCut.Picture = ImageDisable.ListImages("Cut").Picture
ImgCopy.Enabled = False
ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture
End If
End Sub
Private Sub BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Box_Click()
'显停工具栏
If Box.Checked Then
'将停显工具栏
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True[NextPage]
End If
Form_Resize '重新调整控件位置
End Sub
Private Sub Close_Click()
Dim FileNum As Integer
If Len(FileName) 0 Then
'有输入文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
End If
Text1.Text = ""
FileName = ""
End Sub
Private Sub ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub
Private Sub ComboFont_Click()
Text1.FontName = ComboFont.Text
End Sub
Private Sub Copy_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
End Sub
Private Sub Cut_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
Text1.SelText = "" '清选择的文本
End Sub
Private Sub DataTime_Click()
Text1.SelText = Now
End Sub
Private Sub Delete_Click()
Text1.SelText = "" '清选择的文本
End Sub
Private Sub Edit_Click()
'当程序显示“编辑”子菜单前，触发该程序
If Text1.SelLength 0 Then
'文本框中有选中的文本
Cut.Enabled = True
Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copy.Enabled = False
Delete.Enabled = False
End If
If Len(Clipboard.GetText()) 0 Then
'剪裁板中有文本数据
Paste.Enabled = True
Else
'没有可粘贴的文本
Paste.Enabled = False
End If
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long
If KeyAscii = 13 Then
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
If BeginPos 0 Then
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
End If
End If
End Sub
Private Sub Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Form_Load()
Dim i As Integer
'加载图像
ImgNew.Picture = ImageUp.ListImages("New").Picture
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
ImgSave.Picture = ImageUp.ListImages("Save").Picture
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
Check_ImgPaste
Check_ImgCutCopy
'加载系统字体
For i = 0 To Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Next i
End Sub
Private Sub Form_Resize()
Dim TextTop As Long
'修改工具条大小
CoolBar1.Top = Me.ScaleTop
Me.ScaleLeft
Text1.Width = Me.ScaleWidth
If Me.ScaleHeight CoolBar1.Height Then
Text1.Height = Me.ScaleHeight - TextTop
Else
Text1.Height = 0
End If
End Sub
Private Sub ImgCopy_Click()
Copy_Click '复制
Check_ImgPaste
Check_ImgCutCopy
End Sub
Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
'“按下”按钮
If Button = 1 Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "将选择的文本复制到剪裁板"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture[NextPage]
ElseIf Button = 1 Then
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCut_Click()
'If Text1.SelLength 0 Then
Cut_Click '剪切
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub
Private Sub ImgCut_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "剪切选择的文字到剪裁板"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
ElseIf Button = 1 Then
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgNew_Click()
New_Click
End Sub
Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgNew.Picture = ImageDown.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "创建新文件" '修改提示信息
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgNew.Picture = ImageDown.ListImages("New").Picture
ElseIf Button = 1 Then
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseUp(Button As Integer, Shift As Int
eger, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgOpen_Click()
Open_Click
End Sub
Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
'“按下”按钮
If Button = 1 Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "选择文件名并打开文件"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
ElseIf Button = 1 Then
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgPaste_Click()
Paste_Click '粘贴
End Sub
Private Sub ImgPaste_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture[NextPage]
End If
End Sub
Private Sub ImgPaste_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Label1 = "粘贴文本到当前光标位置"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture
ElseIf Button = 1 Then
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
End If
End Sub
Private Sub ImgPaste_MouseUp(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
eName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
ImgUndoDisable
Else
MsgBox "不能保存无名文件" + Chr(13) + Chr(10) + "请选择“文件”菜单
的“保存”项", , "警告"
End If
End Sub
Private Sub ImgSave_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
End If
End Sub
Private Sub ImgSave_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "保存当前文件"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
ElseIf Button = 1 Then
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
Private Sub ImgUndo_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "取消当前操作"
'判断鼠标位置,显示不同图像
If Button = 1 And (X 0 And X ImgNew.Width And Y 0 And Y
ImgNew.Height) Then
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
ElseIf Button = 1 Then
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub ImgUndo_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub New_Click()
FileName = ""
Text1 = ""
ImgUndoDisable
End Sub
Private Sub Open_Click()
Dim FileNum As Integer
Dim buffer As String
Dim buffer1 As String
Dim FileSize As Long
Dim MaxLen As Long
MaxLen = 32768 '文件最大长度
CommonDialog1.ShowOpen '显示"打开文件"对话框
If Len(CommonDialog1.FileName) 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileSize = FileLen(FileName) '获得文件长度
If FileSize MaxLen Then[NextPage]
'文件超长
MsgBox "该文件过大，只能显示部分文本", , "警告"
Exit Sub
End If
Screen.MousePointer = 11 '设置鼠标为沙漏
FileNum = FreeFile() '获得可用文件号
Open FileName For Input As FileNum '以顺序输入方式打开文件
Do While Not EOF(FileNum) And Len(buffer) MaxLen '读必须文本小于
32K
Line Input #FileNum, buffer1 '读一行文字
buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回车换行符
Loop '循环体
Close FileNum '关闭文件
ImgUndoDisable '取消 Undo 功能
Text1.Text = buffer '显示文本
UndoNew = buffer '保存文本
buffer = "" '释放内存
buffer1 = ""
Screen.MousePointer = 0 '恢复鼠标指针
Me.Caption = "记事本 - " + FileName '修改标题显示
End If
End Sub
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Label1 = "工具栏"
End Sub
Private Sub Picture1_Resize()
If Picture1.Width Label1.Left Then
Label1.Width = Picture1.ScaleWidth - Label1.Left
End If
End Sub
Private Sub Save_Click()
Dim FileNum As Integer '文件句柄号
CommonDialog1.ShowSave '显示保存对话框
If Len(CommonDialog1.FileName) 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
Me.Caption = "记事本 - " + FileName '修改标题显示
ImgUndoDisable
End If
End Sub
Private Sub Text1_Change()
If Not ImgUndo.Enabled Then
'使“Undo”按钮可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub
Private Sub Text1_Click()
Check_ImgCutCopy
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub
End Sub
Private Sub ImgSave_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
End Sub
Private Sub ImgUndo_Click()
Text1.Text = UndoString
End Sub
Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
End If
End Sub
VB学生成绩管理系统
【摘要】
本论文叙述了我校学成绩管理的现状以及Visual basic6.0语言的概况。重点介绍了学生成绩管理系统的实现过程：包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、 系统物理配置方案、 系统实现、 系统测试和调试。本系统主要功能有用户管理、学生注册、班级信息录入、学生信息录入、班级课程录入、学校专业信息录入、课程信息录入、学生成绩录入、教师信息录入、数据。。。。。。。。。。。包括功能需求描述、数据库设计等内容。第四章介绍了本系统的具体实现。第五章关于本系统开发过程中的结论及体会。
【关键词】学生成绩管理系统，功能，特点，论文内容。
【Abstract】
This thesis describes my school the present condition of the score management and the general situation of the Visual basic6.0 languages .The point introduced the student the result management system carries out the process 。。。。。。。。。 such as function request description and the database design...etc. .A concrete realization that introduced this system .Chapter 5 concerning conclusion within this system development process and realize.
【KeyWords】
the Student result management system, function, characteristics, thesis contents
目 录
摘要
．前言
第一章 引言
1．1 开发背景
1．2开发目标
1．3 项目提出的意义
1. 4 系统开发所用的技术准备
第二章 系统分析
2.1系统需求分析
2.1.1系统调查
2.1.2组织机构设置
2.1.3用户需求
2.1.4系统业务流程图
2.1.5系统设计思想
2.1.6系统设计分析
2.1.7系统功能分析
2.2新系统逻辑方案
2.2.1数据流图（简称为DFD）
2.2.2数据字典
2.2.3新系统逻辑模型的提出
2.2.4系统边界
第三章 系统设计
3.1学生成绩查询系统功能需求简介
3.2功能需求描述
3.3系统目标要求
3.4系统平台选择
3.5数据库设计
3.5.1数据库需求分析
3.5.2数据库概念结构设计
3.5.3、逻辑结构设计（E－R图向关系模型的转换）
第四章 系统实施
4.1各子系统模块程序设计举例
4.2 软件测试的目的和原则
4.3 子系统测试
4.4 软件运行与转换
第五章 结 论
致 谢
参考文献
第一章 引 言
1.1 项目开发背景
几年前，各个学校的学生成绩管理基本上都是靠手工进行，随着各个学校的规模增大，有关学生成绩管理工作所涉及的数据量越来越大，有的学校不得不靠增加人力、物力来进行学生成绩管理。但手工管理具有效率底、 。。。。。。。所以我想借本次毕业设计之际，开发一个不仅适用本校各系而且适用于其它各校的通用高校学生成绩管理系统。
我选择母校来设计这个系统主要有两个原因：
一是：。。。。。。。报。
1.2 项目开发的目标
建立学生成绩管理系统，采用计算机对学生成绩进行管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生成绩信息管理工作流程的系统化、规范化和自动化
1.3 项目提出的意义
现在我国的大中专院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。
1.4 系统开发所用的技术准备
1.4. 1数据库技术的现状与发展
数据库是60年代末出现的一门计算机软件技术，到现在虽然只有三十多年的历史，但在理论和时间。。。。。。。。。。。。。。。。。。。。。。。。。。。。
2、信息查询流图
使用人员
成绩数据表
班级数据表
课程数据表
学生数据表
查询条件
查询结果
学生信息录入
成绩信息录入
班级信息录入
课程信息录入
图2-4 学生信息查询流图
3.1学生成绩查询系统功能需求简介
学生成绩查询系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。
3.2功能需求描述
1、用户管理功能
用户分为管理员、教师用户、学生用户三类。不论是管理员或教师用户，还是学生用户都需要通过用户名和口令进行登录。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
按学生角度管理教师可以看到学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。当教师用鼠标双击某一学生信息时，可以自动显示出该课程的这个学生所有课程的学习成绩，并同时自动计算出这个学生的总分和平均分。在成绩信息中，教师可以对学习成绩进行增加、修改和删除。并能够打印报表。
3、学生对成绩的查看功能
学生用户登录后，学生可以看到自己的学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。成绩信息包括这个学生的所有课程的成绩信息。。。。。。。。。。。。。。。。。。。。。。。。。。
Private Sub CmdOk_Click()
Dim Conn As New ADODB.Connection
Dim mlink As String
mlink = "provider=microsoft.jet.oledb.3.51;data source=score.mdb;"
Conn.Open mlink
‘当用户名密码为空时给出提示
If Text1.Text = "" Then
MsgBox "请。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
在frmlogin窗体中如果用户登录成功，将会出现如图4-3所示的MDI主窗体。
4-3系统主窗体
若是学生用户，则有些菜单项不可用，只能运行本系统的部分功能（即重新登录和信息查询功能可用）。如图4-4
Option Explicit
‘‘‘当改变记录集时，需要刷新整个网格控件
Sub RefreshGrid()
grdScan.DataMember = ""
grdScan.Refresh
If DataEnv.rssqlStudent.State adStateClosed Then DataEnv.rssqlStudent.Close
DataEnv.rssqlStudent.Open
grdScan.DataMember = "sqlStudent"
grdScan.Ref...【摘要】
本论文叙述了我校学成绩管理的现状以及Visual basic6.0语言的概况。重点介绍了学生成绩管理系统的实现过程：包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、 系统物理配置方案、 系统实现、 系统测试和调试。本系统主要功能有用户管理、学生注册、班级信息录入、学生信息录入、班级课程录入、学校专业信息录入、课程信息录入、学生成绩录入、教师信息录入、数据。。。。。。。。。。。包括功能需求描述、数据库设计等内容。第四章介绍了本系统的具体实现。第五章关于本系统开发过程中的结论及体会。
【关键词】学生成绩管理系统，功能，特点，论文内容。
【Abstract】
This thesis describes my school the present condition of the score management and the general situation of the Visual basic6.0 languages .The point introduced the student the result management system carries out the process 。。。。。。。。。 such as function request description and the database design...etc. .A concrete realization that introduced this system .Chapter 5 concerning conclusion within this system development process and realize.
【KeyWords】
the Student result management system, function, characteristics, thesis contents
目 录
摘要
．前言
第一章 引言
1．1 开发背景
1．2开发目标
1．3 项目提出的意义
1. 4 系统开发所用的技术准备
第二章 系统分析
2.1系统需求分析
2.1.1系统调查
2.1.2组织机构设置
2.1.3用户需求
2.1.4系统业务流程图
2.1.5系统设计思想
2.1.6系统设计分析
2.1.7系统功能分析
2.2新系统逻辑方案
2.2.1数据流图（简称为DFD）
2.2.2数据字典
2.2.3新系统逻辑模型的提出
2.2.4系统边界
第三章 系统设计
3.1学生成绩查询系统功能需求简介
3.2功能需求描述
3.3系统目标要求
3.4系统平台选择
3.5数据库设计
3.5.1数据库需求分析
3.5.2数据库概念结构设计
3.5.3、逻辑结构设计（E－R图向关系模型的转换）
第四章 系统实施
4.1各子系统模块程序设计举例
4.2 软件测试的目的和原则
4.3 子系统测试
4.4 软件运行与转换
第五章 结 论
致 谢
参考文献
第一章 引 言
1.1 项目开发背景
几年前，各个学校的学生成绩管理基本上都是靠手工进行，随着各个学校的规模增大，有关学生成绩管理工作所涉及的数据量越来越大，有的学校不得不靠增加人力、物力来进行学生成绩管理。但手工管理具有效率底、 。。。。。。。所以我想借本次毕业设计之际，开发一个不仅适用本校各系而且适用于其它各校的通用高校学生成绩管理系统。
我选择母校来设计这个系统主要有两个原因：
一是：。。。。。。。报。
1.2 项目开发的目标
建立学生成绩管理系统，采用计算机对学生成绩进行管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生成绩信息管理工作流程的系统化、规范化和自动化。
1.3 项目提出的意义
现在我国的大中专院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。
1.4 系统开发所用的技术准备
1.4. 1数据库技术的现状与发展
数据库是60年代末出现的一门计算机软件技术，到现在虽然只有三十多年的历史，但在理论和时间。。。。。。。。。。。。。。。。。。。。。。。。。。。。
2、信息查询流图
使用人员
成绩数据表
班级数据表
课程数据表
学生数据表
查询条件
查询结果
学生信息录入
成绩信息录入
班级信息录入
课程信息录入
图2-4 学生信息查询流图
3.1学生成绩查询系统功能需求简介
学生成绩查询系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。
3.2功能需求描述
1、用户管理功能
用户分为管理员、教师用户、学生用户三类。不论是管理员或教师用户，还是学生用户都需要通过用户名和口令进行登录。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
按学生角度管理教师可以看到学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。当教师用鼠标双击某一学生信息时，可以自动显示出该课程的这个学生所有课程的学习成绩，并同时自动计算出这个学生的总分和平均分。在成绩信息中，教师可以对学习成绩进行增加、修改和删除。并能够打印报表。
3、学生对成绩的查看功能
学生用户登录后，学生可以看到自己的学生信息和成绩信息。学生信息包括学号、姓名、班级、生日、性别、地址、电话和简历。成绩信息包括这个学生的所有课程的成绩信息。。。。。。。。。。。。。。。。。。。。。。。。。。
Private Sub CmdOk_Click()
Dim Conn As New ADODB.Connection
Dim mlink As String
mlink = "provider=microsoft.jet.oledb.3.51;data source=score.mdb;"
Conn.Open mlink
‘当用户名密码为空时给出提示
If Text1.Text = "" Then
MsgBox "请。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
在frmlogin窗体中如果用户登录成功，将会出现如图4-3所示的MDI主窗体。
4-3系统主窗体
若是学生用户，则有些菜单项不可用，只能运行本系统的部分功能（即重新登录和信息查询功能可用）。如图4-4
Option Explicit
‘‘‘当改变记录集时，需要刷新整个网格控件
Sub RefreshGrid()
grdScan.DataMember = ""
grdScan.Refresh
If DataEnv.rssqlStudent.State adStateClosed Then DataEnv.rssqlStudent.Close
DataEnv.rssqlStudent.Open
grdScan.DataMember = "sqlStudent"
grdScan.Ref...
求采纳为满意回答。
求VB学生成绩管理系统（VB+ACCESS）结合的源码，有能增加 删除 查询 修改的功能。。
增加
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" App.Path "\1.mdb"
sql = "Insert Into VbMemo (Title,MemoTime,MemoBody)values('" Text1.Text "','" Text2.Text "','" Text3.Text "')"
conn.Execute sql
conn.Close
删除
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" App.Path "\1.mdb"
l = ListView1.ListItems.Item(ListView1.SelectedItem.Index)
sql = "delete from VbMemo where Id=" l
conn.Execute sql
查询
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" App.Path "\1.mdb"
rds.Open "Select * From VbMemo", conn, 1, 3
给你范本
