软件设计基础VB课程设计报告电话查询系统设计与实验.doc

《软件设计基础VB课程设计报告电话查询系统设计与实验.doc》由会员分享，可在线阅读，更多相关《软件设计基础VB课程设计报告电话查询系统设计与实验.doc（17页珍藏版）》请在三一办公上搜索。

1、河北联合大学 软件设计基础（VB）课程设计报告设计名称： 电话查询系统设计与实验 姓 名： 学 号：专业班级： 10水一 学 院： 建筑工程学院 设计时间： 2011年5月10日至2011年7月10日 设计地点： 河北联合大学 成绩：指导教师评语： 指导教师签字： 年 月 日软件设计基础（VB）课程设计报告 第 17 页，共 17 页目 录1.课程设计目的2.课程设计任务与要求3.课程设计说明书4.课程设计成果5.程序调试过程6.设计问题的不足和改进方案7.课程设计心得8.附录9.参考文献1课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课

2、程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书

3、、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：将自己选择题目的任务要求简单填写在此处。1.目的：培养学生综合利用Visual Basic语言进行程序设计的能力，主要是培养学生利用系统提供的基本控件、标准函数及选择或循环等程序结构进行创新性设计。2.基本要求：要求用Visual Basic对象的思想来完成程序的设计。在设计程序的过程中，要求会使用按钮(commandbutton)、组合列表框(combo)，文本框(text)、标签(label)、框架(frame)、“通用对话框”控件等基本控件的属性、方法和相关事件，。欲完成此设计题目，要求会在模块声明全局变量、自定义类型必须熟练使

4、用和掌握组合列表框(combo)控件的属性和方法（如AddItem、 RemoveItem等），要求在设计的程序中要求数据信息存储在文件中，在处理过程中要求熟悉文件内容的读取处理，及数组的创建和使用。要求在程序中能够运用结构化程序设计的选择和循环结构，并熟练使用相关的语句（如IfThenElse 、forNext、WhileWend等）。程序界面美观，使用简便，能够完成号码信息的文件导入功能和电话号码的简单查询。3.创新要求：在基本要求达到后，进行创新设计，如增加修改和添加电话信息，以及模糊查询功能3课程设计说明书功能描述（1）实现电话号码查询的功能，按单位以及单位和部门查询；（2）显示查询条

5、件和查询结果；（3）对文件进行编辑来修改电话号码；概要设计根据问题描述，可以将问题解决分为四步：（1）首先要建立一个TXT文件存储单位、部门及其电话号码信息、确定存储的格式；（2）在系统运行时首先导入电话信息，因此，此系统可以解决同结构存储的不同团体的电话号码。（3）确定查询的条件和显示的内容；（4）确定系统界面，使用窗体、常用控件以及对话框。主要写模块说明，模块结构图，系统流程图（例N-S流程图）（五号，宋体）模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。电话查询系统 查询电话簿按条件查询查询结果浏览电话簿利用Fr

6、am显示使用代码与文本文档建立联系使用代码最终显示查询条件以及结果使用代码进行查找首先点击浏览简易文件系统功能框图 详细设计 结果和条件一起显示点击查询选择查询方式点击浏览总体流程图：结果存储到文本中输入信息点击保存点击添加各功能模块流程图：按学号查询查寻电话薄按姓名查询输入学号保存添加号码输入姓名 输入号码代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1form10详细如下：form1、首页作用：“进入应用程序”。所用控件：5个标签，4个时钟。设计思路：用时钟控制label1、2,3,4的运动。单击label1,2,5和命令选择器可

7、进入后面窗体，label3.无链接窗体，无label4 。 Form1 首页作用：实现电话簿的浏览，电话的查询，进入添加电话程序。所用控件：三个文本框，四个命令按扭，两个标签，一个框架，两个单选框。设计思路：用命令按扭控制文本框的内容，添加按扭进入添加程序，退出按扭结束程序。 Form2 第二页 作用：实现将所需要添加的号码添加存储到记事本中。所用控件：四个标签，三个文本框，两个命令按扭。设计思路：用命令按扭通过代码将文本框中1.2.3的内容保存到记事本中详细内容：属性较特殊的需要说明。代码如下：1. 通过记事本建立一个文件格式存储数据2. 主要代码Dim a(100, 3) “ 定义a为二维

8、数组”Dim txt, iPrivate Sub cmd1_Click()Dim line, ji = 0Text1.Text = & 学号 & & 姓 名 & & 电话cmd2.Enabled = True以读的方式打开文件 Open 1.txt For Input As #1 While Not EOF(1) Line Input #1, txt a(i, 1) = Left(txt, 3) a(i, 2) = Mid(txt, 5, 3) a(i, 3) = Right(txt, 11) i = i + 1 Wend Close #1 “ 关闭文件”For j = 0 To I “显示信

9、息在文本框中” Text1.Text = Text1.Text & vbCrLf & Space(3) & a(j, 1) & Space(3) & a(j, 2) & Space(3) & a(j, 3)NextEnd Sub“实现按学号或按姓名查询”Private Sub cmd2_Click() Dim j, tem If opt1.Value = True Then For j = 0 To i If Text3.Text = a(j, 2) Then tem = a(j, 1) & a(j, 2) & a(j, 3) End If Next If tem = Then MsgBox

10、(无查询结果！) Else Text2.Text = tem End If ElseIf opt2.Value = True Then For j = 0 To i If Text3.Text = a(j, 1) Then tem = a(j, 1) & a(j, 2) & a(j, 3) End If Next If tem = Then MsgBox (无查询结果！) Else Text2.Text = tem End If End If End SubPrivate Sub Command1_Click() If Text1.Text And Text2.Text And Text3.T

11、ext Then Open 1.txt For Append As #1 “以追加的方式打开文件” Print #1, Text1.Text; Text2.Text; Text3.Text “写入文件” MsgBox 添加成功！, vbOKOnly + vbInformation Close #1 “关闭文件” Else MsgBox 学号，姓名，号码都不能为空 End IfEnd Sub3.组合框、文本框、命令控件的互动处理来实现查询4课程设计成果运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)1.点击浏览电话薄2按姓名，学号查询。3.添加过程，点击保存4保存不成功5.程序调试过程写

12、出程序调试步骤，及遇到的问题。1. 调试浏览电话簿命令按扭时：出现编辑错误，找不到命令打开的文件2. 调试查询电话簿命令按扭时：出现逻辑错误，不管是否输入正确姓名或学号都是出现“无查询结果！”提示3. 调试保存命令按扭时：在记事本中所保存的数据没有另起下一行，而是接着原来行显示。6.设计问题的不足和改进方案1. 没要添加删除.修改.插入电话号码的功能2. 程序过于简单3. 不够创新4. 界面不够美观7.课程设计心得通过程序的设计，是我从很多方面受益： 一，以前从来没有接触过VB，经过听老师的授课和这次程序设计，我学到了很多关于VB的知识。拓宽了我的知识面，为我积累了宝贵的财富； 二，这次程序不

13、仅仅完全是我自己完成的，还有同学以及老师的帮助。更过的是，阅读书籍。用过认真的研究、分析、讨论，最终将设计完成。 8.附录有些需要说明的部分。如添加ActiveX等非不标准部件，或使用文件操作时对路径有特殊要求等。若没有特殊要求，此处为“无”。1、 无9.参考文献1、 陈明锐.Visual Basic程序设计及应用教程.北京:高等教育出版社,2008.12、 张春英. Visual Basic程序设计及实例教程.北京邮电大学出版社，3、 刘凤春. Visual Basic程序设计及课程设计，北京邮电大学出版社。ut2ApOdfXXc02GyBKsKCWw97MrqqWhoj5TL15Zt6jI

14、PYytYCummtARp3v1N5luizi3xh3BhWYreKO8d9g7nmZQoWPJeTLDrw08gVS8DsDQQYGC3cE7moO2tLF0Jf1gK74IUXyBmtIVR97CkrfVqULT5fn2t6MpJR6rbzVPSortZvIj5NB5ndVvSr4iWr1TwLFKgLSPzuhRjQ3CmZU98eUOuijdLSZqPmvrw9zKupxf8WFUG9l2G9277g2rTipa1YpCZEuqxpKBhtVDCooQOzxUz3vJrZmOcijyM62zchmeooTYes8EBMm932tbz2Yo09RtsZEYS8Zrd2Yktj8l6jEA

15、zVAjnfbtryLvsm6oFbfToXVRFFn7OwIYgJlamkUNXJYbz5Rrb7r4VsuR9zpfZFMfsjhcfCA37lNW2VVLRKN7R8psz1BN6oRic5hU5Z6HCxAYqyNPOG8duYbAwqSl20CSg06Dh2sM8HLtgPkIcSkrgOPDpuHBj1LmPk7lYdvC6NNMwL3fwhZFTFVYAARY7lHSSxJ10V3pH3Y19BxYR77Ib7CpZSu2tijqe3hKqkKAu9KSkCpHKXUIKvvyJZpg2YijRkqfbGgOvyqKuxNWI9oMnJtt6QilZxtyrF7d20Fbmabc

16、fiixrQKUsVNXBPPFUXyQ1fJSKFSUbkgs2DUVQC9sz4JkbgN4Qqv66pyoARjurNFJ3TxyfclZiEePtwFJthphEipDFNqnR2HjQKV2DzWtMPDJQkBcXmovdsjqCTJagjMdLsKPgaD2s0H0vmZGAHt36gyUEZ7UmANk1ndREuBeqdgrx0venqGnsyIB2ilq3SIQrNL4m56t7Z8Y8da5K0KUpn5Nzg4JvjdtfFHyt82AoGQkXo4VBLmLEiy2P7HtHBho07rCfttxodYDPPdtQsO7wxD0J6fKKlGm4woDzplhtRr2

17、XgqN13hqy59zU1GegDyQniHNTaVSieueFQcYfUCJwd3vk5I7YKmhunDmIZ ut2ApOdfXXc02GyBKsKCWw97MrqqWhoj5TL15Zt6jIPYytYCummtARp3v1N5luizi3xh3BhWYreKO8d9g7nmZQoWPJeTLDrw08gVS8DsDQQYGC3cE7moO2tLF0Jf1gK74IUXyBmtIVR97CkrfVqULT5fn2t6MpJR6rbzVPSortZvIj5NB5ndVvSr4iWr1TwLFKgLSPzuhRjQ3CmZU98eUOuijdLSZqPmvrw9zKupxf8WFUG9l

18、2G9277g2rTipa1YpCZEuqxpKBhtVDCooQOzxUz3vJrZmOcijyM62zchmeooTYes8EBMm932tbz2Yo09RtsZEYS8Zrd2Yktj8l6jEAzVAjnfbtryLvsm6oFbfToXVRFFn7OwIYgJlamkUNXJYbz5Rrb7r4VsuR9zpfZFMfsjhcfCA37lNW2VVLRKN7R8psz1BN6oRic5hU5Z6HCxAYqyNPOG8duYbAwqSl20CSg06Dh2sM8HLtgPkIcSkrgOPDpuHBj1LmPk7lYdvC6NNMwL3fwhZFTFVYAARY7lHSSxJ10V3

19、pH3Y19BxYR77Ib7CpZSu2tijqe3hKqkKAu9KSkCpHKXUIKvvyJZpg2YijRkqfbGgOvyqKuxNWI9oMnJtt6QilZxtyrF7d20FbmabcfiixrQKUsVNXBPPFUXyQ1fJSKFSUbkgs2DUVQC9sz4JkbgN4Qqv66pyoARjurNFJ3TxyfclZiEePtwFJthphEipDFNqnR2HjQKV2DzWtMPDJQkBcXmovdsjqCTJagjMdLsKPgaD2s0H0vmZGAHt36gyUEZ7UmANk1ndREuBeqdgrx0venqGnsyIB2ilq3SIQrNL4m56t7Z8Y8da5K0KUpn5Nzg4JvjdtfFHyt82AoGQkXo4VBLmLEiy2P7HtHBho07rCfttxodYDPPdtQsO7wxD0J6fKKlGm4woDzplhtRr2XgqN13hqy59zU1GegDyQniHNTaVSieueFQcYfUCJwd3vk5I7YKmhunDmIZ