VB课程设计汇本报告模板

《VB课程设计汇本报告模板》由会员分享，可在线阅读，更多相关《VB课程设计汇本报告模板（21页珍藏版）》请在金锄头文库上搜索。

1、Visual Basic课程设计报告题目1: 难度： 十题目2 :难度：指导教师：姓名: 学号: 专业: 班级: 学院: 日 期:目录1、题目简介12、 设计思路与总体方案32.1 窗体 frm142.2 窗体 form152.3 窗体 frmcssz62.4 窗体 frmlszIO2.5 窗体 frmcxtj122.6标准模块173、 设计过程遇到的主要问题及解决方法174、 设计存的缺乏分析185、心得体会186、参考文献191、题目简介（简要说明课程设计所设计的程序的主要功能。）此题目旨在设计与一个可对个人日常手入和消费帐目进展管理和查询统计的程序，通过此程序的设计，可以加深我们对上学期

2、的vb根底知识的印象，使理论升华为实际操作，同时也有助于我们培养理财意识，用电子记录的形式取代 从前的手写记录，使得信息更加精准，不易丧失。题目的难度系数相对不高，但牵涉到众多的知识点作为典型的多模块设计类 型的题目，本程序由五个窗体模块 frm1,form1,frmcssz,frmcxtj ，frmlsz 和一 个标准模块共同构成。此外根据课本121页要求，另有三个文本文件 和balance.txt 分别用于保存收入类型，支出类型 和收入支出帐目。本程序的密码按照题目要求保存在了Balance.pas中，并自行设计加密处理。我的笔记本打不开这个文件，即便翻开看到的也不再是密码本身。 这点尽管

3、在这个程序中用处不是太大，但为我们保存重要文件提供了一种思路。程序要现如下功能主要根据窗口由易到难的顺序来。如图1所示，frml是启动窗体。有密码的设定和破译，开场时必须先输入 密码。每次错误后会弹出对话框给予提示，连续累计三次那么程序自动退出初始密码为空，直接单击即可进入。图1.程序主界面2. 输入密码后那么进入主界面，它是连接所有窗口的平台。3. 单击“参数设置按钮进入“参数设置窗口。窗口的三个选项卡是通过SSTab或Tabstrip控件来制作。这些陌生的外部空间对于我通过安装了vb企业版方才得到详见课本6-7页两者比照，因为ssTab控件相对来说简单， 所以在这个程序的中我完全采用了 S

4、STab控件。4收入类别和支出类别的选项卡分别需要实现对两者的添加， 删除，修改, 返回操作，更为重要的是要保存在文件中，以备在流水帐和查询统计的bobox中使用。开场时，“添加和“返回按钮可用，而其余两个被置灰，而且文本框不可输入。因为此时列表框的条目未被选中，所以修改和删除已失去意义，不可用。“添加按钮比拟繁琐，其本身可以被“确定按钮替代功能。本程序中，按下 添加按钮，那么此时文本框被清空可编辑， 而比照来说，按下修改按钮文本框不清空且可编辑。图2.输入错误的密码时的提示5通过“密码修改选项卡修改密码，如果两次输入不一致或者输入有误（图 2和3）那么会提醒用户。此外，我把其设为了在保存时也

5、 会提醒，有助于我们 记忆。右上角的返回按钮可以随时返回主界面上。6.单击主界面上的“日常流水帐进入日常收支原始资料的主要输入窗口。 该窗口主要由“收入记账和“支出记账两大局部组成。 我设置了进入窗体时 列表框为空，以便于对刚输入的情况一目了然。这里面就涉及到了另一种新的控件， DTPicker控件的问题，这个控件使用 起来极为方便，单击即可弹出日期选择框，且默认当天时间，简明易懂。其中的 列表框中的工程为参数设置所得，只需从中选择即可。需要我们添加新的收支信息时，我设定了备注为可有可无的输入项但其他三 个空如果有一个未填那么会在单击保存后弹出msgbox提示，否那么那么会在底部的列表框中每行

6、显示一个完整项，并且把信息存储到bala nce.txt中用于接下来的步骤。单击取消按钮那么可以清空各个文本框中的容以便于重新输入。添加完毕后单击右上角的返回按钮那么回到主界面。7本程序的重点和难点原先粗步估计集中在查询统计这一窗体模块中，所以采用了由易到难的策略。该窗体由三个选项卡组成，既可以选择按类型查询从而 了解单独的情况，也可以采用时间段的模式，从而宏观大体的知道某个时间的情 况。设定这两种模式时需要通过单项选择框的改变来结合visible属性。实际并非没有想象中的困难，但是，因为框架控件的问题，我在这里还是绕了歧路最终 放弃了控件数组，原本代码可能会更简明些。收入支出比照一项用于显示

7、某段时间总收入和总支出的量化比照，在输入时间段后按确定按钮即可显示。返回按钮同上述情况。8.程序中我设置了一个标准模块，主要用于自定义数据类型中的使用。借 用其配合，可使程序显得更简洁些。2、设计思路与总体方案（说明用到哪些控件并进展难点分析，说明所使用到的模块、过程、变量、 数组、自定义数据类型及其相互关系，必要时给出系统构造图等图表。对如下事项逐步进展必要的分析、说明:程序设计的主要思想，程序功能是如何实现的？设计了几个程序模块（有几个窗体模块、几个标准模块），各个功能模块 的作者及想到之间的关系（模块间是如何传递信息和数据的，采用什么 方式，为什么？）？程序中定义了哪些主要的变量（分别定

8、义了哪些过程级变量？模块级变 量和全局变量），这些变量起什么作用？是否全局变量？这里不需要给出大段的源程序，只需要给出关键的实现代码即可。）2.1 窗体 frml这是启动窗体，仅使用了两个标签和一个文本框及两个按钮，但是要考虑的 地方却有很多。下面我配合图和文字讲述下加密的过程，及对于输入字符时的对话框，还有累计三次时将自动退出的设置。此处只有三个通用过程，分别为 CmdCancel_Click ，Cmdok_Click ，txtpassword_KeyPress ，难点集中在后两 者上，其中txtpassword_KeyPress 在后面也会用到；Private Sub CmdCa ncel

9、_Click()Un load MeEnd SubPrivate Sub Cmdok_Click()自行设计的简易解密过程Dim int1 As Stri ngDim a As Long: Static b As In teger: Dim i As In tegerIf txtpassword.Text = The nForm1.Show使用静态变量三次来累计frm1.HideExit SubEnd Ifint1 = txtpassword.TextOpe n App.Path & bala nce.pas For In put As 1In put #1, aClose 1Do While

10、 i = 1a = a - Asc(Mid(CStr( np), i, 1)LoopIf a = inti The nForml.ShowUn load MeElsetxtpassword.Text =txtpassword.SetFocusb = b + 1If b = 3 The nMsgBox 三次密码输入不正确，请查实后再登录，!, 48,错误!Un load MeElseMsgBox 密码错误，请查实后再登录。, 48,错误!End IfEnd IfEnd SubPrivate Sub txtpassword_KeyPress(KeyAscii As Integer)If KeyAs

11、cii 57 The nKeyAscii = 0密码含非数字字符，那么显示错误MsgBox 密码应当为数字，请重新输入,提示End IfEnd Sub2.2 窗体 formi这是主界面，最没有难度的环节。但是我在此退出键上也设了一个对话框, 这就提供了返回的余地此处我设置了四个按钮控件，一个标签，和一个图像控 件。几段代码相似，仅有click过程Private Sub Cmdls 乙Click()Frmls z. ShowUn load MeEnd SubPrivate Sub CmdCxtj_Click()Frmcxtj.ShowUn load MeEnd SubPrivate Sub Cm

12、dEsc_Click()Dim i As In tegeri = MsgBox(Are you sure to exist?, 49, Warn)If i = 1 The nUn load MeElseForm1.ShowEnd IfEnd SubPrivate Sub Cmdcssz_Click()Load frmcsszfrmcss z. ShowUn load MeEnd SubPrivate Sub Cmdtjcx_Click() Load FrmcxtjFrmcxtj.ShowUn load MeEnd Sub2.3 窗体 frmcssz该窗体是以三个选项卡所构成的，了解到前两者具有

13、对称性，这就提供应了 我们思路，控件数组的使用可以简化两者的代码，从而提高程序的可读性。窗口 共出现了十五个按钮控件，我多将其设置成为了数组的模式，利用index属性的 转换，简化工作量。此外九个标签，四个文本框及两个列表框均是围绕着实现两 个框架承载的部构造所展开。下述一段是利用数组写文件的过程，仅使用两个变量循环着输出便得以实现AsPrivate Sub Form_QueryUnload(CancelAs Integer. UnioadModeIn teger)Dim i As In teger, j As In tegerOpen App.Path & InputType.txt For

14、 Output As 1Ope n App.Path & OutputType.txt For Output As 2用unioad的一个过程写文件For i = 0 T o 1For j = 1 To List1(i) .L istCou ntWrite #i + 1, List1(i) List(j - 1)Next jNext iCloseEnd Sub下述一段代码为读入列表框时所使用。仅有一字符串变量来实现Private Sub Form_Load()Dim str1 As Stri ngOpe n App.Path & OutputType.txt For In put As #2D

15、o While Not EOF(2)In put #2, str1List1(1).Addltem str1读文件进入列表框LoopOpe n App.Path & In putType.txt For In put As #1Do While Not EOF(1)Input #1, str1List1(0).AddItem str1LoopCloseEnd SubPrivate Sub Ca ncel_Click()n p.Text = : np2.Text =取消密码输入End SubPrivate Sub cmdfh_Click( In dex As In teger)返回按钮Uni oad frmcsszForm1.