VB课程设计报告格式.docx
《VB课程设计报告格式.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告格式.docx（20页珍藏版）》请在冰豆网上搜索。
VB课程设计报告格式
《VisualBASIC课程设计》报告
——银行存款日记账管理系统
班级：
工商1041
学号：
1009421111
姓名：
刘甜
指导老师：
刘向东
设计时间：
2011年6月20日—6月29日
目录
一、课程设计目的、意义-2-
二、课程设计软硬件环境-3-
三、系统总体设计思想及功能-3-
1、银行存款日记账：
-3-
2、数据库结构：
-3-
（1）E-R模型：
-3-
（2）银行存款日记账（编号、凭证号、日期、业务内容、借方、贷方、余额）-3-
3、功能模块图：
-4-
4、应用技术（ADO技术应用）：
-4-
四、详细设计-4-
1、系统主模块-4-
（1）设计用户登录模块，来检验用户名和密码，实现“银行存款日记账管理系统”的登录。
-4-
（2）设计主窗体，系统的进入、操作和退出都以此为界面。
-5-
（3）在主窗体中设计主菜单，实现各模块的调用。
-5-
2、信息管理系统模块-6-
（1）信息浏览子模块-6-
（2）信息查询子模块-6-
（3）信息修改子模块-7-
（4）账款核算子模块-8-
（5）显示报表子模块-8-
五、程序清单-10-
1、用户登录-10-
2、银行存款日记账管理系统-11-
3、信息浏览-12-
4、信息查询-13-
5、信息修改-15-
6、账款核算-15-
7、显示报表-16-
六、课程设计总结-17-
七、教师评语-18-
一、课程设计目的、意义
每个学生在老师的指导下，通过VisualBasic课程设计，完成一定的设计任务，使学生对VisualBasic有一个综合全面的认识，主要锻炼以下4个方面的能力。
（1）培养学生综合运用VB知识的能力。
（2）培养学生进行应用系统分析设计和计算研究的能力。
（3）提高查阅文献资料的能力。
（4）提高学生编写、调试程序的能力。
（5）提高学生进行设计总结和撰写祷告的能力。
二、课程设计软硬件环境
硬件环境：
联想AMD64微机，内存512M，CPU2.2G,硬盘80G。
软件环境：
WindowsXP,VB6.0,Office2003。
三、系统总体设计思想及功能
1、银行存款日记账：
包括界面登陆，银行存款信息的浏览、查询、添加、删除、修改，账款核算，显示报表的功能。
2、数据库结构：
（1）E-R模型：
（2）银行存款日记账（编号、凭证号、日期、业务内容、借方、贷方、余额）
字段名
类型
大小
说明
编号
文本
50
主键
凭证号
文本
50
日期
日期/时间
默认
业务内容
文本
50
借方
数字
双精度
贷方
数字
双精度
余额
数字
双精度
3、功能模块图：
4、应用技术（ADO技术应用）：
在VB环境下访问数据库，其中应用广泛的是使用ADO技术访问Access数据库。
它具有较强的功能、通用性好、效率高、占用内存空间小等特点。
使用ADO访问数据库主要有两种方式，一是使用ADO的data控件，通过对控件的绑定来访问数据库中的数据，即非编程访问方式；另一种是使用ADO对象模型，通过定义对象和编写代码来实现对数据的访问，即编程访问方式。
四、详细设计
1、系统主模块
（1）设计用户登录模块，来检验用户名和密码，实现“银行存款日记账管理系统”的登录。
（2）设计主窗体，系统的进入、操作和退出都以此为界面。
（3）在主窗体中设计主菜单，实现各模块的调用。
菜单项名称结构
菜单项标题
说明
g
信息管理
一级菜单项
a
信息浏览
二级菜单项
b
信息查询
二级菜单项
c
信息修改
二级菜单项
h
打印
二级菜单项
i
账款核算
一级菜单项
d
本月合计
二级菜单项
j
报表
一级菜单项
e
显示报表
二级菜单项
k
打印
二级菜单项
2、信息管理系统模块
（1）信息浏览子模块
访问数据库中的“银行存款日记账”，实现记录的排序、浏览。
（2）信息查询子模块
访问数据库中的“银行存款日记账”，实现数据的查询功能，可以采用编号、凭证号、日期、业务内容等不同条件查询。
（3）信息修改子模块
访问数据库中的“银行存款日记账”，实现记录的添加、删除、修改功能。
（4）账款核算子模块
访问数据库中的“银行存款日记账”，实现借方、贷方、余额的合计核算。
（5）显示报表子模块
利用报表设计器来制作报表，从“工程”中选择“添加DataReport”，将报表设计器加入到当前工程中。
报表中的数据来源需要利用数据环境设计器与数据库的连接。
步骤是从“工程”菜单中选择“添加DataEnvironment”,在连接中选择“db1”文件，完成与数据库的连接，然后用产生的Command对象链接“银行存款日记账”。
再将数据环境设计器中Command对象内的字段拖到数据报表设计器的细节区，利用标签在报表标头区插入报表名称，在页标头区设置顶部标题。
设置报表窗体的DataSoure属性和DataMember属性。
利用DataReport对象的Show方法预览报表。
五、程序清单
1、用户登录
PrivateSubCommand1_Click（）
IfText1.Text="刘甜"Then
IfText2.Text=1009421111Then
MsgBox"口令正确，欢迎登陆本系统"
Form7.Hide
Form1.Show
Else
Beep
MsgBox"口令错误，请重新登录！
"
EndIf
Else
Beep
MsgBox"用户名错误，请重新登录！
"
EndIf
EndSub
2、银行存款日记账管理系统
PrivateSuba_Click（）
Form1.Hide
Form4.Show
EndSub
PrivateSubb_Click（）
Form1.Hide
Form5.Show
EndSub
PrivateSubc_Click（）
Form1.Hide
Form3.Show
EndSub
PrivateSubd_Click（）
Form1.Hide
Form2.Show
EndSub
PrivateSube_Click（）
Form1.Hide
Form6.Show
EndSub
PrivateSubf_Click（）
End
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.Left+Label1.Width<0Then
Label1.Left=Form1.Width
Else
Label1.Left=Label1.Left-10
EndIf
EndSub
3、信息浏览
PrivateSubCommand1_Click（）
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.MoveLast
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOF=TrueThen
MsgBox"已到记录头"
EndIf
EndSub
PrivateSubCommand4_Click（）
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"已到记录尾"
EndIf
EndSub
PrivateSubCommand5_Click（）
Form4.Hide
Form1.Show
EndSub
PrivateSubOption1_Click（）
Adodc1.RecordSource="select*from银行存款日记账orderby编号"
Adodc1.Refresh
EndSub
PrivateSubOption2_Click（）
Adodc1.RecordSource="select*from银行存款日记账orderby编号desc"
Adodc1.Refresh
EndSub
4、信息查询
PrivateSubCommand1_Click（）
IfOption1.Value=TrueThen
Adodc1.RecordSource="select*from银行存款日记账where编号='"+Trim（Text8.Text）+"'"
Adodc1.Refresh
ElseIfOption2.Value=TrueThen
Adodc1.RecordSource="select*from银行存款日记账where凭证号='"+Trim（Text9.Text）+"'"
Adodc1.Refresh
ElseIfOption3.Value=TrueThen
Adodc1.RecordSource="select*from银行存款日记账wherecdate（日期）='"+Trim（Text10.Text）+"'orderby编号"
Adodc1.Refresh
ElseIfOption4.Value=TrueThen
Adodc1.RecordSource="select*from银行存款日记账where业务内容='"+Trim（Text11.Text）+"'orderby编号"
Adodc1.Refresh
EndIf
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"没有此记录"
EndIf
EndSub
PrivateSubCommand2_Click（）
Text8.Text=""
Text9.Text=""
Text10.Text=""
Text11.Text=""
Adodc1.RecordSource="select*from银行存款日记账"
Adodc1.Recordset.MoveFirst
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）
Form5.Hide
Form1.Show
EndSub
5、信息修改
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Update
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand4_Click（）
Form3.Hide
Form1.Show
EndSub
6、账款核算
PrivateSubCommand1_Click（）
Adodc1.RecordSource="selectsum（借方）as借方合计from银行存款日记账"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）
Adodc1.RecordSource="selectsum（贷方）as贷方合计from银行存款日记账"
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）
Adodc1.RecordSource="selectsum（余额）+sum（借方）-sum（贷方）as本月合计from银行存款日记账"
Adodc1.Refresh
EndSub
PrivateSubCommand4_Click（）
Form2.Hide
Form1.Show
EndSub
7、显示报表
PrivateSubCommand1_Click（）
DataReport1.Show
EndSub
PrivateSubCommand2_Click（）
Form6.Hide
Form1.Show
EndSub
六、课程设计总结
这次VB程序设计实习，使我收获很多，正所谓实践是检验真理的唯一标准，此次实习，提高了我理论联系实际的能力，使我逐渐了解了程序在VB6.0中调试并运行的方法。
在其过程中，遇到了很多困难和问题，发现在之前的学习中，所学的东西不能完全掌握。
这次实习，是我在学习上的一次考验，让我深深体会到了实训操作的重要性。
虽然此次实习时间不长，但意义重大。
它使我了解了自己的短处，让我知道要从什么方面进行补充，同时培养了我独立思考、求异思维的能力，认真对待事务的态度。
在两周的实习中，从程序的需求分析、可行性分析、设计到编写、调试、修改、完善到最后的实训报告，我们每个人都付出了时间和精力去完成自己的任务并努力去完善它。
在实际操作中程序编写复杂，工量较大，编写一定要认真，一个小小的失误都可能是程序出现大的漏洞。
所以在做项目的时候同学们不懂就相互请教团结协作。
可即使是这样，还是经常出现错误，导致调试时程序不能正常运行后经过老师的耐心指导和我们的细心调整，最终克服了困难。
在实习期间，我们精益求精，做出了简单方便的程序。
同时，加强了同学们和老师之间的交流，学会了很多简单实用的技巧。
最后，感谢老师对我们认真的负责，耐心的指导。
七、教师评语
评阅教师：
评阅日期：
2011年6月
升级会员 