VB课程设计_图文

《VB课程设计_图文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、沈阳航空航天大学课程设计学号班级姓名指导教师徐啥2012年3月9E)沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：04060106学号：2010040601231题目：教师上课随机点名一、课程设计时间2012年3刀5口~91_

2、（第1周），共计1周。二、课程设计内容教师在每次上课时，需要对学生随机点名，学生信息保存到文木文件或Access数据库中，学生信息至少应包括：学号、姓名、点名次数（初始值为0）。所谓点名，是指将某位同学的姓名和学号显示到屏幕上，则表示该同学被点名1次，并累加点

3、名次数，注意点名的随机性（可使用随机函数）。用户界而中的菜单至少应包插“编辑学生数据”、“开始点名”、“查询学生点名時况”、“退出”4项。三、课程设计要求程序质量：◊贯彻事件驱动的程序设计思想。◊用户界面友好，功能明确，操作方便；对以增加其它功能或修饰。◊代码应适当缩进，并给出必要的注禅，以增强程序的可读性。课程设计说明书：◊课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：学生签名：五、成绩六、教师评语目录一、需求分析4二、设计分析4三、技术要点5四、总结10

4、五、完整的源程序10五、参考文献14—、需求分析教师在每次上课时，需要对学生随机点名，学生信息保存到文本文件或Access数据库中，学生信息至少应包括：学号、姓名、点名次数(初始值为0)。所谓点名，是指将某位同学的姓名和学号显示到屏幕上，则表示该同学被点名1次，并累加点名次数，注意点名的随机性(可使用随机函数)。用户界面中的菜单至少应包括“编辑学生数据”、“开始点名”、“查询学生点名情况”、“退出”4项。二、设计分析(1)基本原理：连接多个窗体，建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。(

5、2)总体设计:(3)详细设计：图2详细设计三、技术要点(1)建立4个窗体，由窗体1连接其他三个窗体。代码如PrivateSubCommand5_Click()Forml.HideForm2.ShowEndSubPrivateSubCommand6_Click()Forml.HideForm3.ShowEndSubPrivateSubCommand7_Click()Forml.HideFormd.ShowEndSubPrivatcSubCommand8_Click()EndEndSub(2)窗体2代码连接数据源并绑定：姓

6、名班级査找••新增首记录上一条学号下一条尾记录更新返回退出PrivatcSubCommand1_Click(IndexAsIntcger)SelectCaseIndexCase0Adodcl.Recordset.MovcFirst，第一条Case1Adodcl.Recordset.MovePrevious'上一条IfAdodcl.Recordset.BOFThenAdodcl.Recordset.MoveFirstCase2Adodcl.Recordset.MoveNext'K一条IfAdodcl.Recordset.

7、EOFThenAdodcl.Recordset.MoveLastCase3Adodcl.Recordset.MoveLast'最后一条Case4DimmnoAsStringmno二InputBoxC请输入学号〃，〃查找窗〃）’将输入值存到变量内Adodcl.Recordset.Find〃学号二'〃&mno&〃‘〃，，，1'用Find方法查找指定科口TfAdodcl.Recordset.EOFThenMsgBox〃无此学号！〃，，〃提示〃EndSclectEndSubPrivateSubCommand2_Click（In

8、dexAsInteger）DimaskAsIntegerSclectCaseIndexCase0Adodcl.Recordset.AddNew'调用AddNew方法Case1ask二MsgBox（〃删除否？〃，vbYesNo）'MsgBox对话框出现Yes^no按钮Ifask=6Then'选择了MsgBox对话框中Yes按钮Adodcl.Recordset.Delete'调用Delete方法Adodcl.Recordset.MoveNext移动记录指针刷新显示屏IfAdodcl.Recordset.EOFThenAdo

9、dcl.Recordset.MoveLastEndTfCase2Adodcl.Recordset.Update'调用Update方法Case3Form2.HideForml.ShowCase4EndEndSelectEndSub（3）窗体3代码连接数据源并绑定：PrivateSubCommand1Click()DimaAsLong