VB课程设计实例.docx

六、参考文献
1、龚沛曾，陆慰民，杨志强.VisualBasic程序设计教程（6.0版）.北京：高等教育出版社，2001

2、龚沛曾，陆慰民，杨志强.VisualBasic实验指导与测试（第三版）.北京：高等教育出版社，2007

3、罗朝盛.VisualBasic6.0程序设计教程（第二版）.北京：人民邮电出版社，2005

4、罗朝盛.VisualBasic6.0程序设计基础教程.北京：人民邮电出版社，2005

5、罗朝盛.VisualBasic6.0程序设计实验指导.北京：科学出版社，2006

6、罗朝盛.VisualBasic6.0程序设计实用教程（第二版）.北京：清华大学出版社，2008

7、罗朝盛，胡同森.VisualBasic学习与实践指导.杭州：浙江科学技术出版社，2008

8、王栋.VisualBasic程序设计实用教程（第二版）.北京：清华大学出版社，2006

电信计费管理系统
一、开发简介
（一）背景
本学期系统学习了VB程序设计课程，按照惯例，在学期结束时进行VB程序设计课程软件的开发，也就是本次课程设计。
（二）课题名称
这次课程设计的课题为电信计费管理系统
（三）开发工具及开发环境
开发工具：MicrosoftVisualBasic6.0
开发环境：Windows2000Server
二、开发流程
本次数据库课程设计采用一般数据库开发的流程：

资料查找
需求分析
软件设计

其中软件设计部分采用的流程：

界面设计
功能设计
运行调试

三、需求分析
通过本电信计费管理系统用户能随时查询自己的通话记录，如日话费、本月总话费、当前电话计费标准等，并能生成日报表和月报表。本系统既面向普通用户，也面向系统管理员，系统管理员拥有比普通用户更大的权限，能查看所有用户的通话记录，而普通用户只能查看自己的通话记录。
四、数据库结构设计
本次课程设计的数据库由老师提供，数据库格式为.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数据库进行连接的方法，只好放弃。
软件特色：
本软件具有管理员和普通用户互相切换的功能，便于管理员及时发现系统中的问题，以便进行维护工作。这是本系统的一大特色！
（二）具体设计
下面我就从软件的使用流程来具体介绍软件的功能和实现原理：
首先，软件启动时会出现登录选项：

附：本窗体代码
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
adminlogin.Show
Else:userlogin.Show
EndIf
EndSub

PrivateSubCommand2_Click()
UnloadMe
EndSub
2.登录窗口
使用者必需选择相应的身份类别才能进入本系统。系统内置的管理员帐户和密码为admin，普通用户帐户和密码为user。下面是分别选择不同身份类别时出现的登录窗口：

附：本窗体代码
PrivateSubCommand1_Click()
IfText1.Text="admin"Then
IfText2.Text="admin"Then
admin.Show
UnloadMe
Unloadmain
Else
MsgBox"密码错误!请重新输入！",vbOKOnly,"登录失败"
Text2.Text=""
EndIf
Else
MsgBox"用户名错误！请重新输入！",vbOKOnly,"登录失败"
Text1.Text=""
Text2.Text=""
EndIf
EndSub

PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub

PrivateSubForm_Load()
WithText2
.PasswordChar="*"
EndWith
EndSub

附：本窗体代码
PrivateSubCommand1_Click()
IfText1.Text="user"Then
IfText2.Text="user"Then