《软件设计基础(vb)》课程设计报告书,缴费注册

《《软件设计基础(vb)》课程设计报告书,缴费注册》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、河北联合大学《软件设计基础（VB）》课程设计扌艮告设计名称：学生缴费注册管理系统姓名：学号：—专业班级：09机4学院:机械工程学院设计时间：2011-6-1-2011-6-20设计地点：学校机房指导教师评语：指导教师签字：年月日1・课程设计目的32.课程设计任务与要求33.课程设计说明书44.课程设计成果145•程序调试过程186.设计问题的不足和改进方案197•课程设计心得198•附录19209•参考文献1・课程设计目的《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。日的是通过课程设计的综合训练,培

2、养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式,帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2.课程设计任务与要求:基本要求：①该系统具有数据处理、数据浏览、数据查询的功能。②程序界面友好简洁，使用方便。创新要求：在基本要求达到后，进行创新设计，如：①在这个系统的基础上开发出其他院校的具体的缴费管理注册系统。②扩展这个系统，增加数据报表的功能2.课程设计说明书⑴功能描述：该系统主要实现对学生缴费信息的录入，浏览，查询，编辑，生成并打印报表的功能。⑵概要设计模块结构图：⑶详细设计总体流程图:各功能模块流程图:⑷代码实现详

3、细说明各功能模块的实现过程，所用到的算法、技巧等(附上代码)。如：本系统总共5个窗体：formPform5详细如下：forml＞首页作用：“进入应用程序”。所用控件：3个标签，一个时钟设计思路：用时钟控制1abell的运动。单击label2可进入后面窗体，单击label3退出系统。代码如下：Dimsnow(1000,2),amountyAsIntegerPrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Form1.Picture=

4、LoadPicture(App.Path+"1.JPG")Form1.ShowDoEventsRandomizeamounty=800Forj=1Toamountysnow(j,0)=Int(Rnd*Form1.Width)snow(j,1)=Int(Rnd*Form1.Height)snow(j,2)=10+(Rnd*20)NextjDoWhileNot(DoEvents=0)ForIs=1To10Fori=1Toamountysnow(i,1)=snow(i,1)+snow(i,2)Ifsnow(i,1)>Form1.HeightThensnow(i,1)=0:snow(i,2)=24-

5、(Rnd*30)snow(i,0)=Int(Rnd*Form1.Width)EndIfCircle(snow(i,0),snow(i,I)),15*Rnd,RGB(255,255,0)NextiForm1.CisNextIsLoopEndSubPrivateSubForm_Unload(CancelAsInteger)EndEndSubPrivateSubLabel2_Click()Form1.HideFonn2.ShowEndSubPrivateSubLabel3_Click()EndEndSubPrivateSubTimerl_Timer()IfLabel1.Left

6、hThenLabel1.Left=Label1.Left+100ElseLabel1.Left=-Label1.WidthEndIfEndSubForm2作用：进入各功能模块所用控件：4个命令按钮，1个日历控件，1个框架。设计思路：单击相应的命令按钮进入相应的功能模块，单击返回，返回到主窗体。代码如下：PrivateSubCommand1_Click()Form1.HideForm2.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand3_Click()Form5.Sh

7、owForm2.HideEndSubPrivateSubCommand4_Click()Form2.HideFonnl.ShowEndSubPrivateSubTimerl_Timer()EndSubPrivateSubForm_Load()Calendarl.Day=Day(Date)Calendarl.Month=Monlh(Date)Calendar!.Year=Year(Date)EndS