VB网络计时管理系统

第一章  系统概述
1.1 网络发展概述
1.1.1 Internet 的普及和应用
随着21世纪的到来，网络已成为人与人，计算机与计算机构通的虚拟世界，每个现代人几乎都要和网络打交道。
21世纪已经到来，世界已进入信息时代，信息成为非常宝贵的资源，因此，信息产业成为当今最有发展前景的新兴行业，面信息的采集、存储、处理加工日益与计算机技术和通信技术发展紧密结合在一起。计算机网络就是计算机技术和通信技术结合的产物。当前它已广泛应用于政府机关和企业的办公自动化、工厂管理、军事指挥系统和其它的科学实验系统中，并引起了社会的广泛关注和极大兴趣。计算机网络技术的研究已成为目前非常活跃的领域。作为计算机网络的代表，Internet在世界范围的广泛普及，把人类推向了一个崭新的信息时代。
随着Internet的爆炸式发展，在Internet上的商业应用和多媒体等服务也得以迅猛推广。要享受Internet上的各种服务，用户必须以某种方式接入网络。为了实现用户接入网的数字化、宽带化，提高用户上网速度，光纤到户（FTTH）是用户网今后发展的必然方向，但由于光纤用户网的成本过高，在今后的十几年甚至几十年内大多数用户网仍将继续使用现有的铜线环路，于是近年来人们提出了多项过渡性的宽带接入网技术，包括N-ISDN、Cable Modem、ADSL等等，其中ADSL（非对称数字用户环路）是最具前景及竞争力的一种,将在未来十几年甚至几十年内占主导地位。

内容来自think58

[资料来源：www.THINK58.com]

[资料来源：www.THINK58.com]

1.1.2 ADSL特点和优势
所谓ADSL（Asymmetric Digital Subscriber Line），就是不对称数字用户传输线。ADSL接入服务能做到较高的性能价格比这一点，与ADSL接入技术较其它接入技术具有其独特的技术优势是分不开的。下面看看ADSL与其它接入服务的比较：
(1) ADSL与Cable Modem的比较：
与Cable Mode相比，ADSL技术具有相当大的优势。Cable Modem的HFC接入方案采用分层树型结构，其优势是带宽比较高（10M），但这种技术本身是一个较粗糙的总线型网络，这就意味者用户要和邻近用户分享有限的带宽，当一条线路上用户激增时，其速度将会减慢。再者，有关资料表明，大部分情况下，HFC方案必需兼顾现有的有线电视节目，而占用了部分带宽，只剩余了一部分可供传送其它数据信号，所以Cable Modem的理论传输速率只能达到一小半。国外公司实验表明，其速率减为 1M-2Mbps，更常见的是 400K-500Kbps。综合来看，即使在理想状态下，HFC只相当于一个10Mbps的共享式总线型以太网，而ADSL接入方案在网络拓扑结构上较为先进，因为每个用户都有单独的一条线路与ADSL局端相连，它的结构可以看作是星型结构，它的数据传输带宽是由每一用户独享的。
(2) ADSL与普通拨号Modem及N-ISDN的比较：
A) 比起普通拨号 Modem的最高56K速率，以及N-ISDN 128K的速率，ADSL的速率优势是不言而喻的。 think58好，好think58 [资料来源：http://think58.com]
B) 与普通拨号 Modem 或ISDN相比， ADSL更为吸引人的地方是：它在同一铜线上分别传送数据和语音信号，数据信号并不通过电话交换机设备，减轻了电话交换机的负载，并且不需要拨号，一直在线，属于专线上网方式。这意味着使用ADSL上网并不需要缴付另外的电话费。
ADSL技术作为一种宽带接入方式，可以为用户提供多种业务：
1．高速的数据接入。用户可以通过ADSL宽带接入方式快速地浏览各种互连网上的信息进行网上交谈、收发电子邮件、获得所需要的信息。
2．视频点播。由于ADSL技术传输的非对称性，特别适合用户对音乐、影视和交互式游戏的点播，可以根据用户自己的需要，任意地对上述业务进行随意控制，而不必象有线电视节目一样受电视台的控制。
3．网络互连业务。ADSL宽带接入方式可以将不同地点的企业网或局域网连接起来，避免了企业分散所带来的麻烦，同时又不影响各用户对互连网的浏览。
4．家庭办公。随着经济的发展，通信的飞跃发展已经越来越影响着人们的生活工作方式，部分企业的工作人员因为某种原因需要在家里履行自己的工作职责，他将通过高速的接入方式从自己企业信息库中提取所需要的信息，甚至面对面地和同事进行交谈，完成工作任务。
    5．远程教学、远程医疗等。随着人们生活水平的提高，人们在家里接受教育和在教育以及得到必要的医疗保证将成为一种时尚，通过宽带的接入方式，你可以获得图文并茂的多媒体信息，或者和老师或医生进行随意交谈。 本文来自think58 [资料来源：http://THINK58.com]
总之，由于ADSL的高带宽，用户可以通过这种接入方式得到所需要的各种信息，不会受到因为带宽不够而带来的困扰，也不会为因为无休止的停留在网上所付出的附加话费而担忧。使用户享受到了高速冲浪的欢跃。 copyright think58 [资料来源：http://THINK58.com]

1.2 网络计时管理系统的概述
1.2.1 网络计时管理系统的功能
　  本系统为一款网络计时管理的软件，能帮助用户有效的掌握上网时间，安排工作计划。
具体实现以下功能:
⑴  上网的计时功能，包括本月上网时间，本日上网时间，本次上网时间
⑵  提供多种上网管理计划，帮助用户准确进行上网控制
⑶  用户可自行定制每月上网时间，超出规定的时间进行声音提醒，超出时间按多少钱收费等
⑷  针对上网情况用统计图进行分析，让用户的上网行为一目了然，如每个用户的上网时间统计，本月上网用时统计。
⑸  添加、删除、编辑，拨号记录
⑹  以及开机自动拨号上网，定时关机，定时拨号，定时挂断连接
⑺  自动进行声音提示
⑻  网页收藏功能，可以保存用户喜爱的网站链接，并实现自动以链接
⑼  可以导出上网记录保存为文本文件，使用户可以留用存档
⑽  为安全起见 ，登录时设置密码，使每个用户可以独立设置上网设置，使各用户互不干扰
⑾  个人通讯录功能，使用户方便查看，添加，删除客户、朋友的联络信息
⑿  事务日志功能，用户可以提前安排当日工作计划，本系统可以提供定时提示，使用户不遗漏工作安排 think58.com [资料来源：http://www.THINK58.com]
⒀  闹钟功能，到时自动铃声提示 think58.com

[资料来源：http://THINK58.com]

1.2.2 系统的特点
本系统操作简单，界面友好，易学易用，并且采用强大的Microsoft Access 2000数据库支持，可永久保留无限多信息，方便查询、维护、管理。系统的报表输出功能可随时打印所需的信息，便于传阅，方便快捷。

本文来自think58 [资料来源：http://THINK58.com]

[资料来源：http://think58.com]

第二章 系统分析
2.1 网络计时系统分析
2.1.1 课题背景
随着网络时代的到来，Internet已经走进每个家庭，成为人与人，计算机与计算机构通的虚拟世界，每个现代人几乎都要和网络打交道。网络给每个家庭带来的无比的欢乐。作为家庭接入宽带网络的手段之一，ADSL以其独特的优势成为首先方式。当家家都装上宽带之后，与此同时，也产生了一系列的问题。
每个上过网的人可能都会有这样感觉，每当坐在电脑前上网的时候，时间仿佛都过得飞快。不知不觉间时间已经从我们身边流失。有时还为此耽误了学习和工作。对上网用时的忽视，会使上网费用无限增加，使用户经济支出加大，造成了不必要的浪费。
另外，一些家长朋友们，也常常因为孩子们长时间沉迷于网络而苦恼。家长们总是想出各种办法控制孩子们的上网时间，但由于小孩子的克制力有限，很难做到自我约束，把握好上网时间。于是家长们只得人为的给孩子规定时间，然后给孩子充当临时闹钟，到了时间再人为强迫孩子断开网络。高科技的网络，在给孩子带来知识和快乐的同时，无形中给家长带来了麻烦。所以家长们迫切一种帮助他们解决此问题的系统。
在办公室工作的人们，每天都要有大量的工作需要按时完成，如：上午9点会见某客户，10点会议室开会，11点给经理做报告等等。人的记忆总是有限度的，尤其是在高度紧张的工作中，难免会忘记某事。正因为这一疏忽，可能会给公司和个人带来重大损失。所以他们需要一款可以按时提醒他们工作计划的系统，来帮助他们更好的完成工作，提高工作效率。

本文来自think58 [资料来源：www.THINK58.com]

综合以上人们生活中遇到的实际问题，可知人们迫切需要一套可以解决以上问题的系统。 think58.com

2.1.2  系统建立的原则
依据人们在使用网络时对上网用时监控的需求，以及和种实际功能的需要，本人在了解各功能的初步要求后，确定了系统的总体结构和各个模块的功能，并将进行逐步细化，最终满足实际应用的需求。 copyright think58 [来源：http://think58.com]

2.1.3  系统定义
网络计时管理系统是一款功能完善，操作简单，实用的网络计时软件。包括：上网计时，网络管理，附件，系统设置，帮助信息等五大功能模块和若干小的功能模块。实现了普通家庭用户和企事业单位，上网计时和对上网记录的全面自动管理，是对网络计时管理的理想选择。
本系统也适用于使用普通调制解调器上网的用户，小区网的用户。 think58好，好think58

[资料来源：http://think58.com]

2.2 系统可行性分析
可行性研究的目的不是解决问题，而是用最少的代价在尽可能短的时间内确定系统是否可行，系统的方案在经济上、技术上和操作上是否可以接受。
下面从以下三点对本系统的可行性进行分析研究。 think58

[资料来源：http://THINK58.com]

2.2.1  技术可行性
技术上的可行性分析就是要考虑使用现有的技术，其中包括硬件和软件两方面，是否能够实现此系统，来满足用户的需要。
从硬件的角度来讲，本系统所需硬件设备包括，计算机，上网设备等。
从软件技术上来讲，操作平台使用 Windows 98 系统，数据库管理系统采用Microsoft Access 2000 ，开发工具采用 Microsoft Visual Basic 6.0可以满足本系统功能的要求。因此，本系统从技术方面考虑是可行的。

[资料来源：http://think58.com]

2.2.2  经济可行性
经济可行性分析主要是对项目的经济效益进行评价，评估本系统带来的经济效益是否能超过它的开发成本。
对于使用限时服务ADSL的用户来说，控制好上网时间是非常重要的，因为ADSL限时服务，每月提供给用户规定的上网时间，在规定的时间内，网络使用费相对便宜。但如果用户忽视对上网用时的管理，超出了规定的时间，超出的时间会使用户付出高额的费用。同样对于使用Modem的用户来说，每分每秒都需要支出费用，时间控制就更为重要。
本人所设计的网络计时管理系统可以，使用户方便查询上网时间，防止用户无意识的超出上网时间的现象，从而节省了不必要的上网开支。因此，整个系统在经济上是可行的。 内容来自think58 [资料来源：THINK58.com]

2.2.3  操作可行性
操作可行性主要评估在用户组织内是否行的通。
本系统采用人机交互方式，本着界面统一，简洁，易用的风格进行开发，并且带有详细的帮助信息供使用者查看。只需用户进行简单的学习，便可使用操作，界面中还大量使用了图形按钮，使用户方便使用。所以，本系统在操作方便是完全可行的。 think58

参考文献
[1]  周霭如 官士鸿，Visual Basic 程序设计教程，北京：清华大学出版社，2003
[2]  段兴  吴德胜，Visual Basic 6.0数据库实用程序设计，北京：人民邮电出版社，2002
[3]  王诚君，中文ACCESS 2000培训教程，北京：清华大学出版社，2001
[4]  胡或，VB 程序设计，北京：电子工业出，2003
[5]  赵斯思，Visual Basic数据库编程技术与实例，北京：人民邮电出版社，2004
[6]  杨克玉，VB6.0程序设计实训教程，北京：机械工业出版社，2005
[7]  刘炳文，精通Visual Basic 6.0中文版, 北京：电子工业出版社，2002
[8]  罗朝盛，Visual Basic 程序设计基础教程, 北京：人民邮电出版社，2005 think58好，好think58

附  录
用户登录窗口 login.frm
Dim i
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
  Dim txtSQL As String
  Dim conn As New ADODB.Connection
  Set conn = New ADODB.Connection
  Dim mrc As New ADODB.Recordset
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False" If Trim(txtName.Text = "" Or txtPassword.Text = "") ThenMsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
   txtName.SetFocus
    Else
     txtSQL = "select * from userlist where 用户名称='" & txtName.Text & "'and 密码='" & txtPassword.Text & "'"
       Set mrc = conn.Execute(txtSQL)
        If mrc.EOF = True Or mrc.BOF = True Then  '查找用户信息
        MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告" 本文来自think58 [来源：http://www.think58.com]
        txtName.Text = ""
        txtPassword.Text = ""
        txtName.SetFocus
        Else
            sumtime = mrc.Fields("上网类型")
            subtime = mrc.Fields("上网用时")
            money = mrc.Fields("上网费用")
            booktime = mrc.Fields("定时提示")
            mrc.Close
            Me.Hide
            LoginName = Trim(txtName.Text)
            adsl.Show  '用户计时窗口
        End If think58.com [来源：http://www.think58.com]
    End If
  i = i + 1
 If i = 3 Then
    Me.Hide
    MsgBox "用户名和密码三次输入不正确，" & vbCrLf & "系统将自行退出！"Unload Me
    End If
End Sub
Private Sub Command1_Click()
adduser.Show '调用用户注册窗口
 Unload Login
End Sub
Private Sub Form_Load()
i = 0
End Sub [版权所有：http://think58.com]