VB课程设计实例[1]

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