VB作业模拟成绩标准管理系统.doc

VB程序设计模拟成绩管理系统学院：汽车学院专业：（交通运输）汽车利用工程班级：姓名学号： VB程序设计作业要求1. 做一个成绩管理系统。2. 系统中包含部分学生个人信息，如学号，姓名，性别，出生年月日，班级，籍贯，家庭住址，家庭电话，备注等，及若干（不少于8门）课程成绩和课程学分；输入不少于10条统计；3. 需计算总评成绩（即学分加权平均成绩），并计算排名，且反应在字段中；4. 程序需含有功效：统计浏览，添加，修改，删除，查询（按姓名或学号查询）5. 提议不要用ADO控件6. 作业提交：（1） 电子版。a. 该版本应该是在你或老师电脑上全部能运行，和数据库路径无关，提交以前请在其它同学电脑上运行一下，确保程序运行和电脑无关；b. 把全部文件放在同一个文件夹中，压缩文件名：VB-班级-学号-姓名，如：VB-汽运1班-xxxxxxxx-张三.zip；c. 提交邮箱随即公布；（2） 纸质版。纸质版应包含：a. 封面，作业要求；b. 关键界面；c. 关键代码，附程序功效注释及关键语句注释。d. 附必需说明。系统运行界面查询功效检索框内输入学号或姓名，点击查询，即可在右方显示基础信息，并显示总评成绩。点击清空按钮后，可继续输入。比如:输入学号“09”后，显示界面以下图假如没有找到纪录，则发出警告，以下图 将统计指针指向第一个纪录未找到匹配纪录，则显示提醒查找显示输入学号时使加权成绩小数点后最多显示两位关键代码：查询按钮: Private Sub Command1_Click() Me.Data1.Recordset.Movefirst If Me.Combo1.Text Then Me.Data1.Recordset.FindFirst name= & Combo1.Text & If Me.Data1.Recordset.NoMatch Then MsgBox 请重新输入！, 48, 注意 Combo1.Clear Combo2.Clear Else Me.Data1.Recordset.FindFirst name= & Combo1.Text & Combo2.Text = Data1.Recordset(number) End If End If If Me.Combo2.Text Then Me.Data1.Recordset.FindFirst number= & Combo2.Text & If Me.Data1.Recordset.NoMatch Then MsgBox 请重新输入！, 48, 注意 Combo1.Clear Combo2.Clear Else Me.Data1.Recordset.FindFirst number= & Combo2.Text & Combo1.Text = Data1.Recordset(name) End IfEnd IfPrivate grade As String * 5 grade = (Val(Text8.Text) * Val(Me.Text17.Text) + Val(Text9.Text) * 计算加权成绩显示窗口二4Val(Me.Text18.Text) + Val(Text10.Text) * Val(Me.Text20.Text) + Val(Text11.Text) * Val(Me.Text21.Text) + Val(Text12.Text) * Val(Me.Text22.Text) + Val(Text13.Text) * Val(Me.Text23.Text) + Val(Text14.Text) * Val(Me.Text24.Text) + Val(Text15.Text) * Val(Me.Text25.Text) + Val(Text16.Text) * Val(Me.Text26.Text) / (Val(Me.Text17.Text) + Val(Me.Text18.Text) + Val(Me.Text20.Text) + Val(Me.Text21.Text) + Val(Me.Text22.Text) + Val(Me.Text23.Text) + Val(Me.Text24.Text) + Val(Me.Text25.Text) + Val(Me.Text26.Text) Me.Text19.Text = gradeEnd Sub添加功效点击“添加”按钮后，弹出新窗口，输入完整信息后，点击更新，假如信息不完整，系统会提醒“请输入完整数据！”。输入完成后，点击更新，数据便录入数据表中，并返回初始界面，可继续输入。点击“取消”按钮后，退出窗口2，返回窗口一，继续进行其它操作。关键代码：添加按钮Private Sub Command3_Click() inNum = 1 Form2.Show 1 End Sub窗口二代码Private Sub Command1_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Or Text9.Text = 提醒输入完整数据将数据写入data1Or Text10.Text = Or Text11.Text = Or Text12.Text = Or Text13.Text = Or Text14.Text = Or Text15.Text = Or Text16.Text = Or Text17.Text = Or Text18.Text = Or Text20.Text = Or Text21.Text = Or Text22.Text = Or Text23.Text = Or Text24.Text = Or Text25.Text = Or Text26.Text = Then b = MsgBox(请输入完整数据！, 4 + 48, 注意) Text1.SetFocus Exit Sub End If With Data1 .Recordset.AddNew .Recordset(number) = Text1.Text .Recordset(name) = Text2.Text .Recordset(sex) = Text3.Text .Recordset(birthday(year) = Text4.Text .Recordset.Update End With Text1.Text = : Text2.Text = : Text3.Text = : Text4.Text = : Text5.Text = : Text6.Text = : Text7.Text = : Text8.Text = : Text9.Text = : Text10.Text = : Text11.Text = : Text12.Text = : Text13.Text = : Text14.Text = : Text15.Text = : Text16.Text = : Text17.Text = : Text18.Text = : Text20.Text = : Text21.Text = : Text22.Text = : Text23.Text = : Text24.Text = : Text25.Text = : Text26.Text = : Text1.SetFocus点击取消按钮时窗口二和data1数据表连接End SubPrivate Sub Command2_Click() Unload Me Form1.Show End SubPrivate Sub Form_Load() Me.Data1.DatabaseName = App.Path + 2301-吕天翔.mdb Me.Data1.RecordSource = grade management End Sub修改功效点击“修改”按钮后，按钮消失，保留按钮出现，同时课程学分部分显现，可一并修改，修改完成后，点击保留，显示警告“目前统计将被修改，确定修改？”点击确定，完成修改，并回到初始界面。调整 课程学分部分 可见性调整按钮可见性6关键代码：点击修改按钮Private Sub Command4_Click() Me.Text17.Visible = True Me.Text18.Visible = True Me.Text20.Visible = True Me.Text21.Visible = True Me.Text22.Visible = True Me.Text23.Visible = True Me.Text24.Visible = True Me.Text25.Visible = True Me.Text26.Visible = True Label8(2).Visible = True Me.Command3.Visible = False Me.Command4.Visible = False Me.Command5.Visible = False显示提醒选择“否”时选择退出不然进入 写入 状态依次写入 Me.Command6.Visible = False Me.Command10.Visible = TrueEnd Sub点击保留按钮Private Sub Command10_Click() a = MsgBox(目前统计将被修改，确定修改？, 4 + 48, 警告 ) If a = vbNo Then Exit Sub Me.Data1.Recordset.Edit With Data1 .Recordset(number) = Text1 .Recordset(name) = Text2 .Recordset(sex) = Text3 .Recordset(transportation-xuefen) = Me.Text24 .Recordset(automobile-xuefen) = Me.Text25 .Recordset(engine-xuefen) = Me.Text26 End With Data1.Refresh Combo1.Clear Combo2.Clear End Sub删除功效点击“删除”按钮后将弹出“目前统计将被删除，确定删除？”对话框，点击“是”按钮后，将目前统计从data1中删除，并更新data1；若点击“否”，则退出，返回初始界面。显示提醒进行删除操作更新data1关键代码：Private Sub Command5_Click() a = MsgBox(目前统计将被删除，确定删除？, 4 + 48, 警告 ) If a = vbNo Then Exit Sub Me.Data1.Recordset.Delete Me.Data1.Refresh Combo1.Clear Combo2.ClearEnd Sub总评成绩计算算法介绍用课程学分部分数据和考试成绩计算总评成绩，课程学分部分通常隐藏在窗体中。情况一 浏览时即显示总评成绩点击data控件按钮浏览数据同时，该数据总评成绩也同时显示。关键代码:Private Sub Data1_Validate(Action As Integer, Save As Integer)假如目前界面没有显示数据为预防浏览时犯错总评成绩计算8 If Me.Data1.Recordset.EOF = True Then Me.Data1.Recordset.Movefirst Else grade = (Val(Text8.Text) * Val(Me.Text17.Text) + Val(Text9.Text) * Val(Me.Text18.Text) + Val(Text10.Text) * Val(Me.Text20.Text) + Val(Text11.Text) * Val(Me.Text21.Text) + Val(Text12.Text) * Val(Me.Text22.Text) + Val(Text13.Text) * Val(Me.Text23.Text) + Val(Text14.Text) * Val(Me.Text24.Text) + Val(Text15.Text) * Val(Me.Text25.Text) + Val(Text16.Text) * Val(Me.Text26.Text) / (Val(Me.Text17.Text) + Val(Me.Text18.Text) + Val(Me.Text20.Text) + Val(Me.Text21.Text) + Val(Me.Text22.Text) + Val(Me.Text23.Text) + Val(Me.Text24.Text) + Val(Me.Text25.Text) + Val(Me.Text26.Text) Me.Text19.Text = grade End IfEnd Sub情况二：查询时即显示其总评成绩计算方法相同，此处不再赘述。排名功效点击“排名”按钮后，依据总评成绩大小，在list控件中显示目前数据排名情况，能够同时显示“名次”“姓名”“总评成绩”；同时在删除或添加部分数据后，能重新计算排名，此处经过动态数组实现显示个数随数据个数同时改变。算法介绍：添加一个text控件，用来存放目前窗口总评成绩。使用data1控件movefirst,movenext,eof 等属性完成数据库“数据个数计算”“全部数据姓名和成绩提取和匹配”，使用动态数组完成数据存放；利用循环完成赋值及大小比较，最终经过list显示出来。用h存放数据库数据个数关键代码：Private Sub Command8_Click() Do Until Me.Data1.Recordset.EOF = True Me.Data1.Recordset.Movenext h = h + 1 Loop Me.Data1.Recordset.Movefirst定义和数据个数相同行数二位动态数组Text27中存放目前数据成绩把姓名和成绩赋值给数组对数组中成绩进行比较并重新排序输出排序10 Dim t As String Dim w As StringReDim a(h, 2) As String * 5 Do Until Me.Data1.Recordset.EOF = True Me.Text27.Text = (Val(Text8.Text) * Val(Me.Text17.Text) + Val(Text9.Text) * Val(Me.Text18.Text) + Val(Text10.Text) * Val(Me.Text20.Text) + Val(Text11.Text) * Val(Me.Text21.Text) + Val(Text12.Text) * Val(Me.Text22.Text) + Val(Text13.Text) * Val(Me.Text23.Text) + Val(Text14.Text) * Val(Me.Text24.Text) + Val(Text15.Text) * Val(Me.Text25.Text) + Val(Text16.Text) * Val(Me.Text26.Text) / (Val(Me.Text17.Text) + Val(Me.Text18.Text) + Val(Me.Text20.Text) + Val(Me.Text21.Text) + Val(Me.Text22.Text) + Val(Me.Text23.Text) + Val(Me.Text24.Text) + Val(Me.Text25.Text) + Val(Me.Text26.Text) a(i, 1) = Text2.Text a(i, 2) = Text27.Text i = i + 1 Me.Data1.Recordset.Movenext Loop For i = 1 To h For j = i + 1 To h If a(i, 2) a(j, 2) Then t = a(i, 1) w = a(i, 2) a(i, 1) = a(j, 1) a(i, 2) = a(j, 2) a(j, 1) = t a(j, 2) = w End If Next Next p = 第 & k & 名 & a(1, 1) & a(1, 2) List1.AddItem p List1.AddItem For i = 2 To h k = k + 1 p = 第 & k & 名 & a(i, 1) & a(i, 2) List1.AddItem p List1.AddItem Next Text19.Text = End Sub课程学分显示及修改功效经过点击 课程学分显示 按钮，课程学分部分变为可见，并可经过点击修改按钮进行修改，点击 返回 按钮后，该部分继续隐藏。浏览功效经过点击data1控件按钮进行浏览。