第一篇:vb成绩判断程序
Private Sub Form_Click()
score = Val(InputBox(“请输入成绩:”))If score >= 60 Then
If score >= 90 Then
Level = “优”
Else
If score >= 80 Then
Level = “良”
Else
If score >= 70 Then
Level = “中”
Else
Level = “及格”
End If
End If
End If
Else
Level = “不及格”
End If
Print Level
End Sub
第二篇:学生成绩管理系统VB程序
登陆
登陆
Private Sub cmdLogin_Click()If txtUser.Text = “" Then
MsgBox(”请输入用户名!“)
txtUser.SetFocus Else Call openconn sql = ”select * from login where username='“ & Trim(txtUser.Text)& ”' and password='“ & Trim(txtPwd.Text)& ”'“ rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then
MsgBox ”用户不存在!“
Else
Unload Me
frmMain.Show End If End If End Sub
退出
Private Sub cmdRegister_Click()Unload Me End Sub
功能选择
选课管理
Private Sub cmdChoice_Click()frmChoice.Show Unload Me End Sub 退出
Private Sub cmdExit_Click()End End Sub 查询
Private Sub cmdFind_Click()frmFind.Show Unload Me End Sub 成绩管理
Private Sub cmdGrade_Click()frmGrade.Show Unload Me End Sub 学生管理
Private Sub cmdStu_Click()frmStu.Show Unload Me End Sub
学生管理
添加
Private Sub cmdAdd_Click()frmAddStu.Show Unload Me End Sub 删除
Private Sub cmdDel_Click()rs.Delete MsgBox(”删除成功!“)End Sub 编辑
Private Sub cmdEdit_Click()frmEditStu.Show Unload Me End Sub 查找
Private Sub cmdFind_Click()'查询功能 If cboFind.Text = ”学号“ Then
If txtInput.Text = ”“ Then
MsgBox(”学号输入不能为空!“)
txtInput.SetFocus
Else
Dim sql1 As String
Set rs1 = New ADODB.Recordset
sql1 = ”select * from stuInfo where ID='“ & txtInput.Text & ”'“
rs1.CursorLocation = adUseClient
rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText
If rs.EOF Then
MsgBox(”查不到相关信息“)
txtInput.SetFocus
Else
Set DataGrid1.DataSource = rs1
DataGrid1.Refresh
End If
End If Else
If txtInput.Text = ”“ Then
MsgBox(”姓名输入不能为空!“)
txtInput.SetFocus
Else
Dim sql2 As String
Set rs2 = New ADODB.Recordset
sql2 = ”select * from stuInfo where name='“ & txtInput.Text & ”'“
rs2.CursorLocation = adUseClient
rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText
If rs.EOF Then
MsgBox(”查不到相关信息“)
txtInput.SetFocus
Else
Set DataGrid1.DataSource = rs2
DataGrid1.Refresh
End If
End If End If End Sub 返回
Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 输出窗口
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
' txtInput.Text = DataGrid1.Columns.Item(4)''获取选中行的第5列数据
End Sub 窗体
Private Sub Form_Load()
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Call openconn
sql = ”select * from stuInfo“
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rs 'datagrid绑定数据源 End Sub
成绩查询
返回 Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 确定
Private Sub Command1_Click()
lblGrade.Caption = Trim(cboCourse.Text)+ ”课程成绩“
Dim sql1 As String
Set rs1 = New ADODB.Recordset
sql1 = ”select score.ID,score.Num,score.score from score, course where name='“ & cboCourse.Text & ”' and score.Num=course.Num“
'sql1 = ”select * from course“
rs1.CursorLocation = adUseClient
rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rs1 End Sub 窗体
Private Sub Form_Load()
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Call openconn
sql = ”select * from course“
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
cboCourse.AddItem rs(”name“)
rs.MoveNext
Loop End Sub
选课管理
返回
Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 提交
Private Sub cmdSubmit_Click()If txtID = ”“ Then
MsgBox(”请输入学号!“)
txtID.SetFocus ElseIf lstCourse.Text = ”“ Then
MsgBox(”请选择课程!“)Else
Dim sql1 As String
Dim sql2, name As String
Set rs2 = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
sql1 = ”select score.ID, score.Num from score , course where ID='“ & txtID.Text & ”' and name='“ & lstCourse.Text & ”' and score.Num=course.Num“
name = lstCourse.Text
sql2 = ”select Num from course where name='“ & name & ” '“
rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic
rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic
If rs1.EOF Then
rs1.AddNew
rs1(”ID“)= txtID.Text
rs1(”Num“)= rs2(”Num“)
rs1.Update
MsgBox(”选课成功!“)
rs1.Close
Else
MsgBox(”已选过该课!“)
End If End If End Sub 窗体
Private Sub Form_Load()
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
sql = ”select * from course“
Call openconn
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF 'listbox控件利用循环读取课程表中的课程名
lstCourse.AddItem rs(”name“)
rs.MoveNext
Loop End Sub
查询
确定
Private Sub cmdOK_Click()If txtID = ”“ Then
MsgBox(”学号不能为空!“)
txtID.SetFocus Else
Dim sql As String
Dim sum1, sum2 As Single
Dim n As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Call openconn
sql = ”select course.name , score.score , course.credit from score , course where score.ID='“ & txtID.Text & ”' and score.Num=course.Num“
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rs
sum1 = 0
sum2 = 0
n = 0
Do While Not rs.EOF
sum1 = sum1 + Val(rs(”score“))
sum2 = sum2 + Val(rs(”credit“))
n = n + 1
rs.MoveNext
Loop
lblAvg.Caption = Format(sum1 / n, ”0.0“)
lblCredit.Caption = sum2 End If End Sub 返回
Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub
修改学生信息
返回
Private Sub cmdReturn_Click()frmStu.Show Unload Me End Sub 提交
Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then
MsgBox(”学号不能为空!“)
txtID.SetFocus ElseIf txtName.Text = ”“ Then
MsgBox(”姓名不能为空!“)
txtName.SetFocus ElseIf txtSex.Text = ”“ Then
MsgBox(”学分不能为空!“)
txtSex.SetFocus ElseIf txtAge.Text = ”“ Then
MsgBox(”年龄不能为空!“)
txtAge.SetFocus Else
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Call openconn
sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
'判断学号是否存在 rs(”name“)= txtName.Text
rs(”sex“)= txtSex.Text
rs(”age“)= txtAge.Text
rs(”pro“)= cboPro.Text
rs.Update
MsgBox(”修改成功!“)
Else
MsgBox(”学号不存在!“)
End If End If End Sub 窗体
Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“)cboPro.Text = rs(”pro“)End Sub
添加学生
返回
Private Sub cmdReset_Click()frmStu.Show Unload Me End Sub 提交
Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then
MsgBox(”学号不能为空!“)
txtID.SetFocus ElseIf txtName.Text = ”“ Then
MsgBox(”请输入姓名!“)
txtName.SetFocus ElseIf txtSex.Text = ”“ Then
MsgBox(”请输入性别!“)
txtSex.SetFocus ElseIf txtAge.Text = ”“ Then
MsgBox(”年龄不能为空!“)
txtAge.SetFocus Else
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Call openconn
sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
'判断学号是否存在 rs.AddNew
rs(”ID“)= txtID.Text
rs(”name“)= txtName.Text
rs(”sex“)= txtSex.Text
rs(”age“)= txtAge.Text
rs(”pro“)= cboPro.Text
rs.Update
MsgBox(”添加成功!“)
frmStu.Show
Unload Me
Else
MsgBox(”学号已存在!")
End If End If End Sub
第三篇:论文VB程序
《教务信息管理系统VB程序设计》的教学思路(2010年高职单招计算机专业技能测试题)
福安市民族职业中学———冯建锋
摘要:针对2010年高职单招计算机专业技能测试题,结合我省高职单招VB程序设计教学考纲要求进行分析。针对我校学生实际情况写出《教务信息管理系统VB程序设计》的教学思路(要求)
关键词:信息管理系统,VB程序设计,教学思路 程序思路,需要完成一个教务信息管理系统。
1:完成页面的设计。首先创建一个工程,工程中自动生成一个Form,也就是我们常说的页面,并给这个页面的名称设置成Form1,用以区分系统中其他的页面。通过编辑栏中的,Label工具,在页面中间插入一段文字,为“教务管理系统”。因为完成一个教务管理系统,需要完成的内容有学生信息的录入,学生信息的修改,学生信息删除以及学生信息的查询。于是在该页面使用Button工具,放置四个按钮并将四个按钮的Caption分别设置成“学生录入”,“学生修改”,“学生删除”和“信息统计”。且名称分别设置成Command1,Command2,Command3,Command4。依据程序要求我们可以知道,需要完成学生录入,学生修改,学生删除,和信息统计的各个功能,就必须存在有四个排版各不相同的页面,来满足各个功能的需求,于是在工程的树形菜单下选择窗体,再选择新建窗体。重复操作四次,成功建立了四个Form。分别命名为Form2,Form3,Form4,Form5用来区分和其他的Form。上面提到过的设置了四个按钮,作为按钮则是拿来点击的,而按照我们的思路,四个按钮分别代表了要完成的四项功能,那么可以得出每点击一个按钮,就应该要弹出相对应的页面来提供给用户恰当的服务。于是双击按钮,将自动生成代码如下: Private Sub Command1_Click()····· End Sub 其中Command1是代表按钮的名称整个函数就是代表了某一个按钮被点击之后应该执行的内容。End表示此函数结束。那么就应该写入对应的内容。完成之后的代码如下: Private Sub Command1_Click()
Form2.Show End Sub Private Sub Command2_Click()
Form4.Show End Sub Private Sub Command3_Click()
Form3.Show End Sub Private Sub Command4_Click()Form5.Show End Sub 分别代表了不同的按钮点击之后不同的执行的位置。其中Form.Show则代表对于某一个页面进行显示的功能。以上第一段表示了点击按钮1显示页面2。其他意思同上就不赘述。这样就完成了主页面:
我们可以知道的是还需要完成四个功能,学生录入,学生修改,学生删除和信息统计。完成学生录入的设计:使用工具栏中的Label,Text,和button以及Adodc进行页面的设计。即可。完成页面如下:。
其中Adodc原本工具栏中并没有,需要添加控件。按ctrl+T或者在菜单“工程”-“组件”里选择
Microsoft ADO Data Control 6.0(SP6)(OLEDB)选中之后,就可以在工具栏中选择该控件进行拖拽。其中Adodc中基本连接方法: Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=” + App.Path + “hkmdckdb1.mdb”//字符串的连接。Adodc直接双击,可以在栏目中选定数据库的路径也就是Access文件的路径。就会自动生成ConnectionString。本页面的程序代码如下:
Private Sub Command1_Click()//点击按钮触发函数。
If Trim(Text1.Text)<> “" And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then
Adodc1.RecordSource = ”select * from stuInfo“
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)
Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)
Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)
Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)
Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)
Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Adodc1.Refresh
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“
MsgBox ”添加成功“, vbOKOnly, ”系统提示“ Else: MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“ End If End Sub
对于以上解析如下:对于这个页面在业务上我们可以知道,需要点击录入按钮,那么就将各个Text中的内容写入数据库中,那么在数据库中就会生成一条记录,也就是某一个学生的信息情况,那么就完成了学生信息的录入。首先文件进行了一个IF判断:
If Trim(Text1.Text)<> ”“ And Trim(Text2.Text)<> ”“ And Trim(Text3.Text)<> ”“ And Trim(Text4.Text)<> ”“ And Trim(Text5.Text)<> ”“ And Trim(Text6.Text)<> ”“ Then “中间内容先省略”
Else: MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“ End If End Sub
如果Text1至Text6的内容不等于(<>代表不等于)空字符串。也就是各个内容都输入了的。就执行省略的了中间内容。如果有一个为空,也就是信息未填写全。就执行Else:中的内容 也就是MsgBox ”信息未填写完整“, vbOKOnly, ”系统提示“。这个代表了弹出一个对话框,其中文字写了“信息未填写完整”,按钮上面显示 vbOKOnly。之后结束IF语句,并退出函数。现在对于省略部分的函数进行解析: Adodc1.RecordSource = ”select * from stuInfo“//从stuInfo表格中做一个查询
Adodc1.Refresh
Adodc1.Recordset.AddNew//新增信息
//表格也就是提供的Access的数据库中提供给了stuNo,stuName等字段名,以下就是在记录集中将Text1中的字段写入到stuNo的记录集里,并以此类推,完成该记录集的填充。
Adodc1.Recordset.Fields(”stuNo“)= Trim(Text1.Text)
Adodc1.Recordset.Fields(”stuName“)= Trim(Text2.Text)
Adodc1.Recordset.Fields(”sex“)= Trim(Text6.Text)
Adodc1.Recordset.Fields(”age“)= Trim(Text3.Text)
Adodc1.Recordset.Fields(”tel“)= Trim(Text4.Text)
Adodc1.Recordset.Fields(”score“)= Val(Trim(Text5.Text))
//到这里就成功的完成了记录集的填写
Adodc1.Recordset.Update//将字段更新到数据库中
Adodc1.Recordset.Requery Adodc1.Refresh //将页面中的Text的内容填写为空
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“ MsgBox ”添加成功“, vbOKOnly, ”系统提示“ //弹出方框,表示数据填写成功。
到此数据全部填写完成。并写入数据库。也完成了这个页面的功能。之后的几个页面的内容类似。其中重点在于DataGrid和Adodc的绑定。对于DataGrid和Adodc的绑定在这里举一个小小的例子如下: 1.ADODC1是数据库连接部件
2.Datagrid1是显示数据表中内容的表格
ADODC1需要设置它连接的是哪个数据表.(Adodc1.RecordSource = ”select * from 表名“)Datagrid1需要设置的是它的数据源来自ADODC1.(Set DataGrid1.DataSource = Adodc1)然后2个部件都要刷新!Refresh
Adodc1.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ & App.Path & ”1.mdb;Persist Security Info=False“ Adodc1.CommandType = adCmdText Adodc1.RecordSource = ”select * from table“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh
这个之后,Datagrid1就可以显示1.mdb中table表的内容。
以下是本程序中修改页面的代码如下: Private Sub Command2_Click()
Dim str As String//定义str
Dim stuNo As String
Dim sql As String
stuNo = Text1.Text//获得学号
If stuNo <> ”“ Then
Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“//通过学号机型查询
str = Adodc1.Recordset.Fields(”sex“)
If str <> ”男“ Then//如果查询出来的sex不等于男
Adodc1.Recordset.Fields(”sex“)= ”男“
Adodc1.Recordset.Update//将sex字段设置为男,并进行更新
Else
Adodc1.Recordset.Fields(”sex“)= ”女“
Adodc1.Recordset.Update//否则就将字段设置为女,并进行更新
End If
Else:
MsgBox ”学号未输入“, vbOKOnly, ”系统信息“
End If
Adodc1.Recordset.Update//结束IF之后,更新一下Adodc
DataGrid1.Refresh//因为Adodc更新了,而DataGrid和Adodc进行了一次绑定,所以也需要对其进行更新。
End Sub
Private Sub Form_Load()//这个函数是页面载入的时候执行的函数,因为页面载入的时候本身就需要对表格的内容进行填充,将表格的内容填充为数据库中的内容。所以进行页面载入的时候,首先对DataGrid进行更新。
DataGrid1.Refresh End Sub
删除的代码和修改的代码类似,其中的区别在于逻辑判断的区别了最终执行的区别,一个是update一个则是delete。代码如下: Private Sub Command2_Click()
Dim str As String
Dim stuNo As String
Dim sql As String
stuNo = Text1.Text
If stuNo <> ”“ Then//如果学号不为空,也就是该学生信息存在,也只有存在才可以删除
Adodc1.Recordset.Filter = ”stuNo = '“ + stuNo + ”'“
Adodc1.Recordset.Delete//删除操作
Else:
MsgBox ”学号未输入“, vbOKOnly, ”系统信息“
End If
Adodc1.Recordset.Update//同更新类似不做赘述
DataGrid1.Refresh End Sub Private Sub Form_Load()DataGrid1.Refresh End Sub
最后是查询的页面,这个页面稍稍有一点麻烦,因为对于其他页面逻辑较为复杂。代码如下: Private Sub Command1_Click()//点击按钮,执行一下函数
//对字符串进行定义
Dim stuNo As String
Dim StuName As String
Dim ScoreLow As Double
Dim ScoreHigh As Double
Dim sql As String
stuNo = Text1.Text
StuName = Text2.Text //因为查询信息,是根据多个条件进行查询的,在这里进行了一个定义,查询条件主要有一下几项,既是学生学号,学生姓名,学生成绩,学生年龄,以及学生性别。
If stuNo <> ”“ Then//如果学号不为空,就将SQL语句变成之下的语句,用于查询学生学号。
sql = ”select * from stuInfo where stuNo = '“ + Trim(stuNo)+ ”'“
End If
If StuName <> ”“ Then//如果姓名不为空,就将SQL语句变成之下的语句,用于查询学生姓名。
sql = ”select * from stuInfo where stuName = '“ + Trim(StuName)+ ”'“
Text1.Text = ”“
End If
If Text3.Text <> ”“ And Text4.Text <> ”“ Then//这里是分数
ScoreLow = Text3.Text
ScoreHigh = Text4.Text
sql = ”select * from stuInfo where score >= “ + Trim$(ScoreLow)+ ” and score <= “ + Trim$(ScoreHigh)
Text1.Text = ”“
Text2.Text = ”“
End If
If Text5.Text <> ”“ And Text6.Text <> ”“ Then//年龄
sql = ”select * from stuInfo where age >= “ + Trim$(Text5.Text)+ ” and age <= “ + Trim$(Text6.Text)
End If
If Text7.Text <> ”“ Then//性别
sql = ”select * from stuInfo where sex = '“ + Trim$(Text7.Text)+ ”'“
End If
Adodc1.RecordSource = sql
Adodc1.Refresh//更新数据集
Label7.Caption = ”满足条件的一共有 “ + Trim$(Adodc1.Recordset.RecordCount)+ ” 人"
DataGrid1.Refresh//更新显示信息
End Sub
典型案例:2010届我校计算机专业36名考生参加高职单招,80分以上达27人。其中罗幼凤同学得满分100分。被福建师大本科计算机网络专业录取。
心得体会:
请按以上要求补充审改。而后发表。
第四篇:VB学生成绩管理系统任务书
河北联合大学
《软件设计基础-VB》课程设计任务书
学院班级设计人成绩
一、题目:学生成绩管理系统
二、目的与要求:
1.目的:
培养学生综合利用VisualBasic6.0语言进行程序设计的能力,主要培养学生使用ACCESS数据库和ADO控件设计信息管理类软件。
2.基本要求:
① 要求用ACCESS搭建数据库。
② 使用ADO控件实现与数据库的连接。
③ 使用MSChart图表控件绘制各种类型的图表;使用MSFlexGrid表格控件显示数据信息。④ 程序界面美观,运行无差错
3.创新要求:
在基本要求达到后,进行创新设计:
(1)允许更改密码。
(2)增加排名次的功能。
(3)可以按院系、专业和年级计算平均成绩并绘制图表。
(4)用户可以添加新的院系和专业名称。
三、设计方法和基本原理:
1.功能要求:
设计一个“学生成绩管理系统”程序,实现对学生成绩的添加、修改、删除、查询和图表绘制,具体如下:
(1)运行程序先进入“登录”界面,要求输入数据库密码,如果密码错误,给出提示。
(2)经过密码检验后,显示主界面,以表格形式显示数据库中所有学生的成绩信息。
(3)“添加”:其中院系、专业和年级使用组合框进行选择。
(4)“修改”:只允许修改学生成绩,不允许修改姓名、院系、专业和年级。
(5)“删除”:可以删除学生信息,删除前进行确认。
(6)“查询”:可以根据院系、专业和年级进行查询。
(7)“图表绘制”:分别以二维条形图、二维圆饼图和三维条形图的形式显示学生成绩中优、良、中、及格和不及格的分布情况。
2.问题的解决方案:
40-1
根据问题描述,可以将问题解决分为以下几个方面:
① 进行需求分析确定数据库的结构,建立相应的数据表。
② 利用ADO控件与数据库连接。
③ 设计主界面,要求有菜单、工具栏和状态栏,具体内容按功能要求自行设计。
④ 其他界面自行设计,满足基本功能要求即可。
四、难点与提示:
(1)本题目中数据库文件的设计是关键,可按如下方法:
创建一个数据库文件scores.mdb,包含三个数据表:院系、专业和成绩。“院系”表中保存院系代号和名称;“专业”表中保存专业代号和名称,以及所属院系的代号;“成绩”表中保存学生姓名、院系代号、专业代号、年级和各科成绩。
(2)ADO控件和数据库的连接代码:
provider = “provider=Microsoft.jet.oledb.4.0”
datasource = “data source=” & App.Path & “scores.mdb”
With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & “;” & datasource
.CommandType = adCmdTable
.RecordSource = “yx”
.Refresh
End With
五、课程设计时间:2012年5月10日至2012年7月1日
六、课程设计进行地点:学校机房
七、书写设计报告的要求:
设计报告中包含以下几个方面:
1.设计题目
2.设计思路
①划分功能模块
②确定各模块的算法
3.用图示的方式给出过程或函数之间的调用关系
4.列出程序清单,并加以必要的注释
5.对该设计题目有何更完善的方案
6.通过本次设计,有何收获及心得体会
八、课程设计的考核方式及评分方法
40-2
1.考核方式
课程设计结束时,学生要提交课程设计报告(A4纸打印),并将电子文档和源程序上传至课程设计服务器中:
ftp://210.31.197.23
找到自已指导教师的文件夹后,进入班级文件夹,再找到自己的文件夹,然后将文档复制到该文件夹中即可。
2.评分方法
(1)出勤率
(2)课程设计准备工作
(3)课程设计期间纪律
(4)课程设计运行结果
(5)课程设计报告
(6)答辩情况
指导教师: 系主任签字:日期:40-3 年月日
第五篇:Vb课程设计-期末成绩处理
期末成绩处理课程设计报告(VB)编号:28
期末成绩处理设计报告
一、设计思路
1.要达到的目的
①培养学生综合利用VB语言进行程序设计的能力,主要是通过使用VB的标准控件,加深对控件的多个属性的认识及如何使用属性进行程序设计
2.关键问题的解决
① 设计一个具有两个窗口的期末成绩统计的小程序 ②其中第一个窗口完成:
学生人数和4门课成绩的录入,4门课的名称及学生人数由用户输入。每录入完一个学生成绩后,将各门课成绩写入Excel表格中。
打开Excel表格查看写入的数据是否
② 第二个窗口用来绘制描述各科目平均成绩的柱形图,界面中还应包含坐标系、图表名称、各科成绩的平均分值、课程名称及色块
③ 对窗口1的4个文本框要求:在输入成绩之前,焦点要在第一个文本框中,且文本为可编辑状态;当第一个文本框中输入2位数据后,焦点自动移入下一个文本框中,且文本状态和第一个相同 文本框中只允许输入数字0、1、2、3、4、5、6、7、8、9及小数点“.”;文本框中文本的位数最大为2位 输入学生成绩时窗口上要提示输入的是第几个学生成绩,并要求输入最后一个学生成绩后“写入数组”控件隐藏
④ 全部学生成绩输入完成后,单击“写入Excel文件”控件,把学生成绩全部放在Excel表格中,要求有字段名内容。
⑤ 单击“打开Excel文件”控件,将打开刚刚生成的Excel表。
⑥ 单击“绘制柱形图”控件,打开第二个窗口,并显示以课程平均分为依据的柱状图。
⑦ 要想结束程序,应单击“退出”按钮。
三、部分程序关键源代码及注释
Private Sub Command2_Click()'★创建EXCEL对象
Set XlApp = CreateObject(“Excel.Application”)'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & “book.xls”)'★设置EXCEL对象可见(或不可见)'XlApp.Visible = True '★设置活动工作表, sheet1表示表名,可以使用字符型变量代替。Set XlSheet = XlBook.Worksheets(“Sheet1”)XlSheet.Range(“A1:IV65536”).Clear '★给EXCEL对象中的表的单元格附值? '★保存 EXCEL 文件 XlBook.Save '★另存为
'XlBook.SaveAs(“文件名”)
期末成绩处理课程设计报告(VB)编号:28
'★关闭工作簿
XlBook.Close(True)'★结束 EXCEL 对象 'xlExcel.Quit '★释放xlApp对象 Set XlApp = Nothing MsgBox “写入Excle成功” End Sub Private Sub Command3_Click()'★创建EXCEL对象
Set XlApp = CreateObject(“Excel.Application”)'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & “book.xls”)'★设置EXCEL对象可见(或不可见)XlApp.Visible = True End Sub
四、设计方案的完善及目前存在的问题
1.设计方案要完善的地方 ① 操作有点繁琐 2.目前存在的问题
① 开始时出现错误,但不影响使用
五、本次设计的收获及心得体会
加强了对VB的理解,让我更加明白VB的实际作用。
六、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
不要单个输入,应该直接输入多个同学的成绩。2.对本次设计的意见和建议 难度应该降低点。