VB课程设计实例.doc

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

a13355589 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档