VB课程设计实例.doc
六、参考文献1、龚沛曾，陆慰民，杨志强.Visual Basic程序设计教程（6.0版）.北京：高等教育出版社，20012、龚沛曾，陆慰民，杨志强. Visual Basic实验指导与测试（第三版）.北京：高等教育出版社，20073、罗朝盛. Visual Basic6.0程序设计教程（第二版）. 北京：人民邮电出版社，20054、 罗朝盛. Visual Basic6.0程序设计基础教程. 北京：人民邮电出版社，20055、罗朝盛. Visual Basic6.0程序设计实验指导. 北京：科学出版社，20066、罗朝盛. Visual Basic6.0程序设计实用教程（第二版）. 北京：清华大学出版社，20087、罗朝盛，胡同森.Visual Basic学习与实践指导.杭州：浙江科学技术出版社，20088、王栋. Visual Basic程序设计实用教程（第二版）. 北京：清华大学出版社，2006电信计费管理系统一、开发简介（一）背景本学期系统学习了VB程序设计课程，按照惯例，在学期结束时进行VB程序设计课程软件的开发，也就是本次课程设计。（二）课题名称这次课程设计的课题为电信计费管理系统 （三）开发工具及开发环境 开发工具：Microsoft Visual Basic 6.0 开发环境：Windows 2000 Server二、开发流程本次数据库课程设计采用一般数据库开发的流程：资料查找需求分析软件设计其中软件设计部分采用的流程：界面设计功能设计运行调试三、需求分析 通过本电信计费管理系统用户能随时查询自己的通话记录，如日话费、本月总话费、当前电话计费标准等，并能生成日报表和月报表。本系统既面向普通用户，也面向系统管理员，系统管理员拥有比普通用户更大的权限，能查看所有用户的通话记录，而普通用户只能查看自己的通话记录。四、数据库结构设计 本次课程设计的数据库由老师提供，数据库格式为.dbf，而非常见的.mdb格式。具体表的结构如下：字段名称数据类型字符宽度说明Today字符6客户打电话日期Start_time字符11通话开始时间End_time字符11通话结束时间Total_time字符11通话总时间Fl字符11费率Money数字10通话费用Master字符16主叫号码Second字符10被叫号码l五软件设计（一）解决方案和软件特色解决方案：由于本人有两年多的网页制作经验，并从事过商业公司网站的制作，在网页制作中经常接触到VBScript语言，其与VB语法甚为接近，故本次课程设计采用VB作为开发工具。刚开始本人也想用asp来实现这个课题，但由于asp中没有与.dbf数据库进行连接的方法，只好放弃。软件特色：本软件具有管理员和普通用户互相切换的功能，便于管理员及时发现系统中的问题，以便进行维护工作。这是本系统的一大特色！（二）具体设计下面我就从软件的使用流程来具体介绍软件的功能和实现原理：1 首先，软件启动时会出现登录选项：附：本窗体代码Private Sub Command1_Click()If Option1.Value = True Thenadminlogin.ShowElse: userlogin.ShowEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 2.登录窗口使用者必需选择相应的身份类别才能进入本系统。系统内置的管理员帐户和密码为admin，普通用户帐户和密码为user。下面是分别选择不同身份类别时出现的登录窗口：附：本窗体代码Private Sub Command1_Click()If Text1.Text = "admin" Then If Text2.Text = "admin" Then admin.Show Unload Me Unload main Else MsgBox "密码错误!请重新输入！", vbOKOnly, "登录失败" Text2.Text = "" End IfElseMsgBox "用户名错误！请重新输入！", vbOKOnly, "登录失败"Text1.Text = ""Text2.Text = ""End IfEnd Sub待添加的隐藏文字内容1Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()With Text2.PasswordChar = "*"End WithEnd Sub附：本窗体代码Private Sub Command1_Click()If Text1.Text = "user" Then If Text2.Text = "user" Then user.Show Unload Me Unload main Else MsgBox "密码错误!请重新输入！", vbOKOnly, "登录失败" Text2.Text = "" End IfElseMsgBox "用户名错误！请重新输入！", vbOKOnly, "登录失败"Text1.Text = ""Text2.Text = ""End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()With Text2.PasswordChar = "*"End WithEnd Sub由于管理员帐户与普通用户大部分的操作均相同，故下面先用普通用户的身份进行演示，不同之处另外加以说明。在上图的普通用户登录框中输入用户名和密码进入系统。3.普通用户管理模块在该模块中，有日报表、月报表、本月话费、计费标准等选项。在日报表选项卡中用户可以输入自己的电话号码进行查询，还可以指定查询的开始日期和结束日期。这里我以电话号码13607047160为例进行演示。按上图输入数据后，点击“查询”按钮，将显示与该电话号码对应的记录。为了方便用户，本系统提供了打印报表的功能，点击“打印预览”按钮后即可在打印之前预览该报表，如下图：月报表模块与日报表模块大体相似，不过这里默认查找的是一个月的记录，故不需输入开始时间和结束时间，只需输入需要查询的电话号码即可。在这里输入电话号码13607047160将得到与上面相同的结果，这是因为上面输入的开始日期为0201，结束日期为0228，也就是说，上面查找的就是二月份的通话记录。由于此时报表与上面的完全一样，故没用给出效果图。本月话费模块可以查询用户本月的电话费用，先在“请输入你要查询的电话号码”后面的文本框中输入要查询的电话号码，这里以13607047160为例。输入电话号码后，点击“查询”按钮，在“您本月的电话费用为”后面的文本框中将显示对应此电话号码的电话费用，如下图。计费标准选项显示当前的计费标准：4.“系统选项”菜单 通过“系统选项”菜单，可以方便地进行管理员和普通用户身份地切换，有“管理员登录”、“普通用户登录”、“退出系统”三个子菜单。下图显示的是“系统选项”的子菜单。下图为在“系统选项”菜单中选择“管理员登录”子菜单后的效果图。下图为在“系统选项”菜单中选择“普通用户登录”子菜单后的效果图。5.“关于”菜单 “关于”菜单提供本系统有关的信息，如帮助以及软件的相关信息等。下图显示的是“关于”菜单项的子菜单下图为在“关于”菜单中选择“帮助”子菜单后的效果图。下图为在“关于”菜单中选择“关于本软件”子菜单后的效果图。6.管理员管理模块该模块与普通用户模块大体相似，也有日报表、月报表、本月话费、计费标准等选项。在日报表选项卡中不仅可以输入特定的电话号码进行查询，还可以按日期查询。而月报表除了可以按电话号码查找以外，还可以查找所有的通话记录。日报表模块除了可以实现与普通用户管理模块相同的查询操作以外，还可以按指定的日期查询。比如要查询2月14日的所有通话记录，在下面的窗口中“请输入你要查询的日期”后面的文本框里输入“0214”即可。下图是点击“查询”按钮后所查到的该日期内的通话记录:下图是点击“打印预览”按钮后出现的打印预览窗口：月报表模块同样可以实现与普通用户管理中月报表模块中相同的操作，即查找特定电话号码的通话记录，还可以查询本月所有电话的通话记录。因为前面已经演示查找特定电话号码的通话记录，故这里只演示查询本月所有电话的通话记录这一操作。下图是点击“本月所有电话号码通话清单”按钮后所出现的打印预览窗口：
