毕业设计--《网吧收费系统》.doc

目录1.前言2. 需求分析2.1 用户定位分析2.2 功能需求分析2.3 性能需求分析3.系统分析3.1 环境平台分析3.2 程序功能设计3.3 程序流程设计4. 详细设计4.1 程序单元设计4.2 程序单元编码4.3 集成开发 前言根据自己的爱好和软件编程的能力,我选择用VB编写网吧收费系统的服务器端,只是编写出了基本的功能,比现实生活中使用的要粗略.但是这个系统只是自己的一次实践,我会在以后的学习中继续努力的 编写这个应用程序其意义在于锻炼了我的动手能力和逻辑思维能力,而且以前也从来没有尝试过编写这样综合性的程序,培养了对问题考虑的全面性. 为了编写有实用价值的东西,我还参阅了大量的资料,包括网络资料的选择,当然在程序完成只后,也不能只有编写者才会用,所以要写出对应的帮助文挡,一般的软件都会有,这是我们生活中的常识. 只是限于水平 ,只能编写部分功能,数据库安全方面也不可靠.一直在寻找解决办法,如果能够采用动态数据库,这些问题就能解决了. 科学这东西讲究的就是严谨的态度,建立数学模型有助于完成设计,在设计的时候避免出现思绪混乱, 在经过系统功能需求分析,在大脑中 已经有很清晰的的目标,可以画出要进行的流程图,比如先根据功能模块确定好选择数据库,然后根据实际编写数据库表,完成数据库表的关联,可以先保存后,等窗体确定完毕,再连接数据库. 经过代码调试,确定能正常运行.2. 需求分析2.1用户定位分析合理的工具设置:用户要求界面简洁 容易操作.于是可以使用工具条进行设置,把经常要使用的功能用工具条单独罗列出来,比直接在菜单中选择效率要高.2.安全要求:为了避免意外事件或者是人为原因导致数据库信息丢失,要做好数据库的保秘和数据库灾难性恢复.3.简单的操作方式:因为需要有的时候需要对客户机进行远程控制,这样管理起来就轻松起来 .4.提供全面的数据查询和统计:可以任意选择查询条件,而且为了方便可以设置统计报表功能.5.报表打印导出功能:要随时可以导出以报表格式存放,打印出来长期备份.6.会员卡管理:会员卡较之现金交易比较方便管理,7.商品管理:能够对商品进行销售统计,存储查询.8.网址限制:现在网络病毒流行,尤其要注意一些不良网页上隐藏病毒,所以要限制一些网站.2功能需求分析主要功能: 对网吧的人员，资源进行管理。公布网吧的通知公告等信息，发布网吧内外新闻动态，提供上网人员的意见、建议反馈场所，管理网吧内的计算机，对上机用户的情况进行统计，计时计费等。具体功能:被控制机有一个服务器，控制器集中在管理机上。可以控制登陆，并进行计时，这是两个基本功能；管理机还有上机，下机结帐，开机，关机，重新启动等功能。 网络管理、计费系统:本网站最重要和最复杂的功能。又分会员注册，登录，以及会员的审核系统，员工的管理，计时计费，计算机管理等小系统。资源管理：分为流行歌曲，影视频道，游戏推荐，动漫Flash,精彩图片几个模块。交流平台: 提供在线交流的平台,收集上网人员的相关的意见和建议,并及时处理，对有必要的问题进行回复。以上功能大部份为系统已实现的基本功能，在开发本系统时也为后继系统扩展开发留有接口，使系统更加方便地可以进行升级和扩展。.3性能需求分析强大的安全保障：网络通讯全面采用数字证书认证体系，具有与网上银行同等的安全级别；基于角色的权限管理允许灵活定制管理权限；具有完备的数据保密、备份、灾难恢复等机制，保证数据高度安全可靠。 严谨与高效的业务流程设计：网吧计费管理系统业务数据遵循财务准则设计，严谨、规范；众多独到的设计不仅方便顾客使用也大大减轻了服务员的工作强度。 易于使用与维护：网吧计费管理系统充分考虑了不同层次使用者的接受能力，服务员经过10分钟简单培训就能掌握，管理人员则拥有众多工具和方法用于简化管理与维护。此外，为了帮助用户尽快熟练掌握网吧计费管理系统的应用，相关软件公司还提供了多种方式的培训和技术支持。 集中管理能力：将配置、升级等任务集中到服务器处理，使管理工作大量减少，变得高效。 系统分析3.1系统平台分析系统的开发、运行、测试环境均选用 Windows 系列的操作系统，因为 Windows 系统是PC机上普及最广泛的操作系统，它的界面友好、有高效的计算环境、对硬件的支持程度高、支持OnNow设备、有良好的可移植性和可伸缩性、系统运行稳定、可靠性好、维护方便、容易安装；性能经过优化、安全性好、对网络的支持程度好、使网络应用更为方便快捷。本系统可运行于Windows 20000以上操作系统，在这些操作系统上都必须安装IIS，当然最好是在Windows 2000 Advanced Server 上运行，因为微软开发的Windows 2000 Advanced Server是专门用来提供网络服务器的，有微软这个强大的技术支持，并且系统运行稳定、维护方便、性能经过优化、对网络的支持程度好、使网络应用更为方便快捷。考虑到Windows XP Professional是我们平时用得最多的操作系统，比较熟悉，且足够支持开发软件VB和Microsoft SQL Server 2000。所以在此我选用了它作为开发环境、运行环境以及测试环境.在选择开发工具的时候,考虑到各种编程软件,我选择VB6.0主要 有其特点决定的,VB 6.0提供了各种丰富的通信接口,比较适合这种服务器-客户端. 在界面设置上,VB 提供可视化编程,可以避免大量的代码编写,需要什么样子的窗口布局,可以直接在工具箱里面选择,然后调整布局.采用的是事件驱动方式,代码执行的过程可以直接控制,很方便代码的调试和改写.比起传统的那些编程语言,代码从开始执行到代码结涑 3.2程序功能设计（） 系统功能设计：这一部分是整个系统最基本也是最重要的设置，其中系统设置至少包括以下几方面的内容：计算机设置:管理员设置数据备份数据还原系统设置（） 记费用功能设计：包括下面内容开始记费限定时间结帐调换计算机选购计算机客户机控制（） 界面设置功能：主要是对运行中的系统界面设置，不同的工作人员喜欢不同的背景或布局格式，对整个系统没有太大的影响（） 管理功能：包括商品资料管理，客户管理，会员卡管理（） 统计功能：日报表统计：商品统计和上机统计月报表统计：商品统计和上机统计3.3程序流程设计 数据库设计(采用无源数据库连接)无源数据库”连接也并不是说不需要数据源，如果没有数据源则连接是纸上谈兵，只是不需要配置ODBC数据源，利用ADO就可通过代码进行连接。1.1 ADO(ActiveX Data Object)在Visual Basic6.0中，数据访问接口有三种：ActiveX数据对象（ADO）、远程数据对象（RDO）和数据访问对象（DAO）。这三种接口的每一种都分别代表该技术的不同发展阶段，最新的是ADO，它比RDO和DAO更加简单，更加灵活。对于新工程，应使用ADO作为数据访问接口。ADO 是Microsoft 数据库应用程序开发的接口，是建立在OLE DB之上的高层数据库访问技术。它封装了OLE DB所提供的接口，比起OLE DB提供者，ADO的接口可以使程序员在更高级别上进行数据交互。ADO技术不仅可以应用于关系数据库，也可以应用于非关系数据库。可以用统一的方法对不同的文件系统进行访问，大大简化了程序编制，增加了程序的可移植性。1.2 建立无源数据库连接在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library这两个组件。运用ADO对象模型的主要元素：Connection（连接）中的ConnectionString属性进行连接, ConnectionString为可读写string类型，指定一个连接字符串，告诉ADO 如何连接数据库。实例：以建立登陆系统为例，介绍无源数据库连接。在Microsoft SQL Server 2000 中建立一个Student 的数据库，在Student数据库中建立login_user(name,password)的数据表，Microsoft SQL Server服务器的名为data_server。代码如下：Option ExplicitPublic LoginSucceeded As Boolean引用Microsoft ActiveX Data Objects 2.6 Library定义连接对象和记录集Dim conn As ADODB.ConnectionDim rs As ADODB.Recordset对取消按钮单击事件的响应Private Sub cmdCancel_Click()设置全局变量为 false不提示失败的登录LoginSucceeded = FalseMe.HideEnd Sub对登录按钮单击事件的响应Private Sub cmdOK_Click()Set conn = New ADODB.Connection Set rs = New ADODB.Recordset建立无源数据库连接conn.ConnectionString=driver=sql server;server=data_server;uid=sa;pwd=;Database=studentconn.ConnectionTimeout = 50conn.OpenDim str As String连接连接对象Set rs.ActiveConnection = conn设置游标类型rs.CursorType = adOpenDynamicIf Trim(txtUserName.Text = ) ThenMsgBox 用户名不能为空，请重新输入用户名！, vbOKOnly + vbExclamation, 警告txtUserName.SetFocusElse设置查询字符串str = select * from login_user where name = & Trim(txtUserName.Text) & rs.Open strIf rs.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告txtUserName.SetFocusElse登录成功，连接主窗口If (Trim(txtPassword.Text) = Trim(rs.Fields(password) ThenLoginSucceeded = TrueMe.Hidemain.ShowElseMsgBox 密码不正确，请重输入密码!, , 警告txtPassword.SetFocusSendKeys Home+EndEnd IfEnd IfEnd IfEnd Sub无源数据库连接则不用配置ODBC环境，可以省去手工设置DSN的麻烦，这种方法所编写的软件适应性广，又符合专业软件的要求。DO封装并且实现了Microsoft强大的数据访问接口OLE DB的所有功能，它具有通用性好，效率高的特点。通过ADO进行无源数据库连接，省去手工设置DSN的麻烦，使ADO对象模型获得更大的灵活性. 界面设置确定 应用程序的功能后,从最基本的界面布局设置,这一步的关键就是熟悉VB控件的基本功能,包括常用控件和其它需要从部件里面添加的控件.界面设置要合理,美观为好. 代码编辑VB 采用的是事件驱动方式,可以直接选择控件的事件和属性,在编写代码的时候会自动给予提示,这样当对一个事件进行代码编辑的时候如果没有给予格式提醒,这个时候要考虑是不是出错了,如果没有这种功能,这种错误只能到代码编译运行的时候才会发现,那个时候会浪费很多时间来修改错误代码. 模块建立模块一般是放全局公用的函数、过程、常数、自定义结构、全局变量等等东西的地方，也就是公用部分的集中场所。当然，模块中也可以定义private 的函数或者过程以便公用过程的内部调用。类模块是定义一个类，类模块中的所有public成员必须在创建了累的实例以后才能够调用，需要和标准模块区分开来。好的编程习惯是把不同种类的功用模块分类放在不同的标准模块中，便于查阅，所以很多程序中会有多个标准模块存在.类模块和标准模块的不同点在于存储数据方法的不同。标准模块的数据只有一个备份。这意味着标准模块中一个公共变量的值改变以后，在后面的程序中再读取该变量时，它将得到同一个值。 而类模块的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。 同样的，标准模块中的数据在程序作用域内存在，也就是说，它存在于程序的存活期中；而类实例中的数据只存在于对象的存活期，它随对象的创建而创建，随对象的撤消而消失。 最后，当变量在标准模块中声明为 Public 时，则它在工程中任何地方都是可见的；而类模块中的 Public 变量，只有当对象变量含有对某一类实例的引用时才能访问 运行调试1运行程序 运行程序，可用下列方法之一： (1)选择主窗口的“运行菜单的“启动”命令。 (2)按快捷键F5。 (3)选择工具栏上的启动按钮。 在程序运行过程中，标题栏显示： 工程1-Microsoft Visual Basic运行 表示进入运行状态。 2暂停运行 若程序有错误，可用以下任一种方式进入中断状态，对程序进行调试： (1)选择“运行菜单的“中断命令。 (2)按Ctrl+Break键。 (3)选择工具栏上的中断图标。 进人中断状态，标题栏显示： 工程1-Microsoft Visual Basicbreak 若要继续运行，可直接按F5键，或选取“运行”菜单的“继续命令。若要重新运行，按 Shift+F5键或选择“运行”菜单的“重新启动”命令。 3结束程序运行 结束程序运行返回设计状态的方法为： (1)选择“运行”菜单的“结束命令。 (2)选择工具栏上的结束图标。 (3)按程序的结束按钮或程序窗口的关闭按钮4. 详细设计4.1程序单元设计 登陆窗口设计：登陆系统窗口界面要简单为好，需要两个标签框用来标明用户名和密码，两个文本框用来输入用户名和密码，还有两个命令按扭用来实现登入和取消命令：根据需要添加ACTIVE XActiveX控件数据输入和函数功能执行都必须通过容器，因此ActiveX控件和容器都必须支持一些特定的接口协议。根据Microsoft 相应的规格标准，ActiveX控件应具备如下的性能机制。 属性和方法：ActiveX控件必须提供属性的名称、方法的名称及参数,通过这项机制容器可以存取和改变ActiveX控件的属性参数。 事件：ActiveX控件由这项机制通知容器在ActiveX控件中发生的事件，比如属性参数的改变，用户按下鼠标左键等。 存储：容器由这项机制通知ActiveX控件存储和提取有关信息数据等。 ActiveX控件只要在Windows的Registry数据库中注册后，就可以像其他Windows应用程序一样发挥各自的功能。 ActiveX控件是一个模块化的灵活对象,如果某个应用程序或网页需要增加一项特殊的功能，无须重写整个程序，只要灵活地插入一个具有此项功能的ActiveX控件即可实现。ActiveX的优势还在于它的动态可交互性，用户可以动态地在使用过程中，通过改变它的属性和参数，在应用程序中实现自己的特殊要求。 也许有的读者会问：目前在市面上可以找到各种各样现成的ActiveX控件，还有没有必要自己创建ActiveX控件呢？关于这个问题很容易解释，现有的控件种类是很多，功能也比较齐全，问题是有许多时候会遇到这种情况：使用现成的控件虽能完成任务，但自己需要的一些特性（属性、事件或方法）该控件却没有提供，还需要自己手工写代码来实现，而这些特 性偏偏在自己的应用系统中又经常会用到，为了避免大量的重复劳动，一劳永逸的办法就是在创建自己的ActiveX控件。 目前可以使用Visual Basic或其它开发工具创建 ActiveX控件。无论按照哪种标准，Visual Basic都是计算机历史上最为成功的（同时也是最流行的）编程语言，其中最令人兴奋的特性就是可以创建用户自己的控件并可以像其他控件一样应用于支持 ActiveX控件技术的应用程序中。下面通过一个具体实例来阐述如何在Visual Basic 6.0（中文企业版）下进行 ActiveX控件创建。 4.2.程序单元编码 登陆窗口代码：rivate Sub cmdOK_Click() 检查正确的密码 With frmMain.Data8.Recordset .MoveFirst For i = 1 To .RecordCount If Combo1.Text = .Fields(用户名称) And txtPassword = .Fields(用户密码) Then LoginSucceeded = True UserName = .Fields(用户名称) UserPass = .Fields(权限) Exit For End If .MoveNext Next i If LoginSucceeded Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 Unload Me Else MsgBox 无效的密码，请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If End WithEnd SubPrivate Sub Form_Load()On Error Resume NextWith frmMain.Data8.Recordset.MoveFirstFor i = 1 To .RecordCount Combo1.AddItem .Fields(用户名称) Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition .MoveNextNext iEnd With 管理员模块代码Dim aa As LongPrivate Sub Combo1_Click()Command4.Enabled = TrueEnd SubPrivate Sub Command1_Click()添加用户On Error Resume NextIf Command1.Caption = 添加用户 Then ListView1.Visible = False Frame1.Visible = True Text1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Combo1.List(0) Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Command1.Caption = 放弃添加 Else ListView1.Visible = True Frame1.Visible = False Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command1.Caption = 添加用户End IfEnd SubPrivate Sub Command2_Click()编辑用户On Error Resume NextWith frmMain.Data8.Recordset Text1.Text = .Fields(用户名称) Select Case .Fields(权限) Case A Combo1.Text = Combo1.List(0) Text2.PasswordChar = Text3.PasswordChar = Text4.PasswordChar = Text2.Text = .Fields(用户密码) Text3.Text = .Fields(用户密码) Text4.Text = .Fields(用户密码) Case B Combo1.Text = Combo1.List(1) Text2.PasswordChar = Text3.PasswordChar = Text4.PasswordChar = Text2.Text = .Fields(用户密码) Text3.Text = .Fields(用户密码) Text4.Text = .Fields(用户密码) Case C Combo1.Text = Combo1.List(2) Text2.PasswordChar = Text3.PasswordChar = Text4.PasswordChar = Text2.Text = .Fields(用户密码) Text3.Text = .Fields(用户密码) Text4.Text = .Fields(用户密码) Case D Text2.PasswordChar = * Text3.PasswordChar = * Text4.PasswordChar = * Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Combo1.List(3) End SelectEnd WithIf Command2.Caption = 修改用户 Then ListView1.Visible = False Frame1.Visible = True Command1.Enabled = False Command3.Enabled = False Command4.Enabled = False Command2.Caption = 放弃修改 Else ListView1.Visible = True Frame1.Visible = False Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False Command2.Caption = 修改用户End IfEnd SubPrivate Sub Command3_Click()删除用户On Error Resume NextWith frmMain.Data8.RecordsetIf MsgBox(确实要删除用户： & .Fields(用户名称) & 吗?, vbYesNo + vbQuestion) = vbYes ThenIf Err 0 Then Exit SubIf .Fields(权限) = D Then mm = InputBox(请输入密码：) If mm = .Fields(用户密码) And .Fields(用户名称) UserName Then .Delete ListView1.ListItems.Clear Form_Load Else MsgBox 不能删除用户！, vbCritical End If Else .Delete ListView1.ListItems.Clear Form_Load End IfEnd IfEnd WithEnd SubPrivate Sub Command4_Click()保存设置On Error Resume NextIf Trim(Text1.Text) = Then MsgBox 用户名错误！, vbCritical Text1.SetFocusExit SubEnd IfWith frmMain.Data8.RecordsetIf Text3.Text Text4.Text ThenMsgBox 前后密码设置不一至，请重新输入！, vbCriticalText3.Text = Text4.Text = Text3.SetFocusExit SubEnd Ifaa = .AbsolutePosition.MoveFirstFor i = 1 To .RecordCountIf .Fields(用户名称) = Text1.Text Then If .AbsolutePosition aa Then MsgBox 用户名已经存在了，请你再换一个！, vbExclamation .MoveFirst .Move aa Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub End IfEnd If.MoveNextNext i.MoveFirst.Move aaIf Command1.Caption = 放弃添加 Then .AddNew Else If Text2.Text .Fields(用户密码) Then MsgBox 密码错误，请重新输入！, vbCritical Text2.Text = Text3.Text = Text4.Text = Text2.SetFocus Exit Sub End If .EditEnd If .Fields(用户名称) = Text1.Text .Fields(用户密码) = Text3.Text .Fields(权限) = Left(Combo1.Text, 1) .UpdateEnd WithIf Err 0 Then MsgBox Error: Exit Sub ListView1.Visible = True Frame1.Visible = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command1.Caption = 添加用户 Command2.Caption = 修改用户 ListView1.ListItems.Clear Form_Load End SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error Resume NextWith frmMain.Data8.Recordsetaa = .AbsolutePosition.MoveFirstFor i = 1 To .RecordCount ListView1.ListItems.Add i, , .Fields(用户名称) ListView1.ListItems(i).SubItems(1) = .Fields(用户密码) ListView1.ListItems(i).SubItems(1) = * Select Case .Fields(权限) Case A ListView1.ListItems(i).SubItems(2) = A记费员 Case B ListView1.ListItems(i).SubItems(2) = B操作员 Case C ListView1.ListItems(i).SubItems(2) = C管理员 Case D ListView1.ListItems(i).SubItems(2) = D超级管理员 End Select.MoveNextNext i.MoveFirst.Move aaEnd WithEnd SubPrivate Sub Form_Resize()On Error Resume NextListView1.Move 30, 10, Me.Width - 150, Me.Height - 1200Picture1.Top = ListView1.Top + ListView1.Height + 100Picture1.Left = (Me.Width - Picture1.Width) / 2End SubPrivate Sub Label5_Click()End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)On Error Resume NextWith frmMain.Data8.Recordset .MoveFirst .Move Item.Index - 1End WithEnd SubPrivate Sub Text1_Change()Command4.Enabled = TrueEnd SubPrivate Sub Text2_Change()Command4.Enabled = TrueEnd SubPrivate Sub Text3_Change()Command4.Enabled = TrueEnd SubPrivate Sub Text4_Change()Command4.Enabled = TrueEnd Sub4.3集成开发窗体与代码都设置完毕，就可以运行调试了，当然有共同点的窗体可以借用模块来设计这里设置两个模块来节省代码执行时间，并不会影响到系统本身的功能：打开程序菜单下的工具模块，打开创建模块窗体，名字为，可以使用默认的名称模块其实也就是代码窗体，只不过这个窗体是功用的，涉及其它窗体的功能，这样在出现错误的时候代码改写很方便 模块代码:Public UserName As StringPublic UserPass As StringPublic Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As LongPublic Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Declare Function GetShortPathName Lib kernel32 Alias GetShortPathNameA (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As LongType Lwinsock Ip As String Index As Long JSJ As LongEnd TypePublic IndexSock() As LwinsockType lChatUser Name As String Sex As String Used As BooleanEnd TypePublic IChatUser() As lChatUserDeclare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As LongDeclare Function EnumWindows Lib user32 (ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongDeclare Function PostMessage Lib user32 Alias PostMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDeclare Function BringWindowToTop Lib user32 (ByVal hWnd As Long) As LongPublic Declare Function CopyFile Lib kernel32 Alias CopyFileA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongPublic Declare Function SetCursorPos Lib user32 (ByVal X As Long, ByVal Y As Long) As LongDeclare Function SystemParametersInfoByRef Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As LongDeclare Function SetWindowPos Lib user32 (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVa