- 1、本文档共15页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
六、参考文献
1、龚沛曾,陆慰民,杨志强.Visual Basic程序设计教程(6.0版).北京:高等教育出版社,2001
2、龚沛曾,陆慰民,杨志强. Visual Basic实验指导与测试(第三版).北京:高等教育出版社,2007
3、罗朝盛. Visual Basic6.0程序设计教程(第二版). 北京:人民邮电出版社,2005
4、 罗朝盛. Visual Basic6.0程序设计基础教程. 北京:人民邮电出版社,2005
5、罗朝盛. Visual Basic6.0程序设计实验指导. 北京:科学出版社,2006
6、罗朝盛. Visual Basic6.0程序设计实用教程(第二版). 北京:清华大学出版社,2008
7、罗朝盛,胡同森.Visual Basic学习与实践指导.杭州:浙江科学技术出版社,2008
8、王栋. 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数据库进行连接的方法,只好放弃。
软件特色:
本软件具有管理员和普通用户互相切换的功能,便于管理员及时发现系统中的问题,以便进行维护工作。这是本系统的一大特色!
(二)具体设计
下面我就从软件的使用流程来具体介绍软件的功能和实现原理:
首先,软件启动时会出现登录选项:
附:本窗体代码
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.登录窗口
使用者必需选择相应的身份类别才能进入本系统。系统内置的管理员帐户和密码为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 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()
With
文档评论(0)