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

目录

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机上普及最广泛的操作系统，它的界面友好、有高效的计算环境、对硬件的支持程度高、支持On－Now设备、有良好的可移植性和可伸缩性、系统运行稳定、可靠性好、维护方便、容易安装；性能经过优化、安全性好、对网络的支持程度好、使网络使用更为方便快捷。本系统可运行于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 Explicit

Public LoginSucceeded As Boolean

'引用Microsoft ActiveX Data Objects 2.6 Library

'定义连接对象和记录集

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

'对取消按钮单击事件的响应

Private Sub cmdCancel_Click()

'设置全局变量为false

'不提示失败的登录

LoginSucceeded = False

Me.Hide

End 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=student"

conn.ConnectionTimeout = 50

conn.Open

Dim str As String

'连接连接对象

Set rs.ActiveConnection = conn

'设置游标类型

rs.CursorType = adOpenDynamic

If Trim(txtUserName.Text = "") Then

MsgBox "用户名不能为空，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

'设置查询字符串

str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'" rs.Open str

If rs.EOF = True Then

MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

'登录成功，连接主窗口

If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then LoginSucceeded = True

Me.Hide

main.Show

Else

MsgBox "密码不正确，请重输入密码!", , "警告"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

End If

End If

End 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 Basic[break]

若要继续运行，可直接按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 With

End Sub

Private Sub Form_Load()

On Error Resume Next

With frmMain.Data8.Recordset

.MoveFirst

For i = 1 To .RecordCount

Combo1.AddItem .Fields("用户名称")

Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition .MoveNext

Next i

End With

２．管理员模块代码

Dim aa As Long

Private Sub Combo1_Click()

Command4.Enabled = True

End Sub

Private Sub Command1_Click()

'添加用户

On Error Resume Next

If 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 If

End Sub

Private Sub Command2_Click()

'编辑用户

On Error Resume Next

With 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 Select

End With

If 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 If

End Sub

Private Sub Command3_Click()

'删除用户

On Error Resume Next

With frmMain.Data8.Recordset

If MsgBox("确实要删除用户：" & .Fields("用户名称") & " 吗?", vbYesNo + vbQuestion) = vbYes Then

If Err <> 0 Then Exit Sub

If .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 If

End If

End With

End Sub

Private Sub Command4_Click()

'保存设置

On Error Resume Next

If Trim(Text1.Text) = "" Then

MsgBox "用户名错误！", vbCritical

Text1.SetFocus

Exit Sub

End If

With frmMain.Data8.Recordset

If Text3.Text <> Text4.Text Then

MsgBox "前后密码设置不一至，请重新输入！", vbCritical

Text3.Text = ""

Text4.Text = ""

Text3.SetFocus

Exit Sub

End If

aa = .AbsolutePosition

.MoveFirst

For i = 1 To .RecordCount

If .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 If

End If

.MoveNext

Next i

.MoveFirst

.Move aa

If Command1.Caption = "放弃添加" Then

.AddNew

Else

If Text2.Text <> .Fields("用户密码") Then

MsgBox "密码错误，请重新输入！", vbCritical Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text2.SetFocus

Exit Sub

End If

.Edit

End If

.Fields("用户名称") = Text1.Text

.Fields("用户密码") = Text3.Text

.Fields("权限") = Left(Combo1.Text, 1)

.Update

End With

If 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 Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

On Error Resume Next

With frmMain.Data8.Recordset

aa = .AbsolutePosition

.MoveFirst

For 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

.MoveNext

Next i

.MoveFirst

.Move aa

End With

End Sub

Private Sub Form_Resize()

On Error Resume Next

ListView1.Move 30, 10, Me.Width - 150, Me.Height - 1200

Picture1.Top = ListView1.Top + ListView1.Height + 100

Picture1.Left = (Me.Width - Picture1.Width) / 2

End Sub

Private Sub Label5_Click()

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) '

On Error Resume Next

With frmMain.Data8.Recordset

.MoveFirst

.Move Item.Index - 1

End With

End Sub

Private Sub Text1_Change()

Command4.Enabled = True

End Sub

Private Sub Text2_Change()

Command4.Enabled = True

End Sub

Private Sub Text3_Change()

Command4.Enabled = True

End Sub

Private Sub Text4_Change()

Command4.Enabled = True

End Sub

4.3集成开发

窗体和代码都设置完毕，就可以运行调试了，当然有共同点的窗体可以借用模块来设计．这里设置两个模块来节省代码执行时间，并不会影响到系统本身的功能：

打开ＶＢ程序菜单下的工具→模块，打开创建模块窗体，名字为ＭＯＤＵＬＥ１，可以使用默认的名称．

模块其实也就是代码窗体，只不过这个窗体是功用的，涉及其它窗体的功能，这样在出现错误的时候代码改写很方便．

模块代码:

Public UserName As String

Public UserPass As String

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'Public 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 Long

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Type Lwinsock

Ip As String

Index As Long

JSJ As Long

End Type

Public IndexSock() As Lwinsock

Type lChatUser

Name As String

Sex As String

Used As Boolean

End Type

Public IChatUser() As lChatUser

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function BringWindowToTop Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Declare Function SystemParametersInfoByRef Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

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 Long

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Public IsupperMsg As Integer

Public Const LB_SETHORIZONTALEXTENT = &H194

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

As Long

Public Declare Function GetV olumeInformation Lib "kernel32" Alias

"GetV olumeInformationA" (ByVal lpRootPathName As String, ByVal

lpV olumeNameBuffer As String, ByVal nV olumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean

Dim s As String

s = String(80, 0)

Call GetWindowText(hWnd, s, 80)

s = Left(s, InStr(s, Chr(0)) - 1)

If Len(s) > 0 Then

If InStr(1, s, "网吧记费器——用户：") Then

BringWindowToTop hWnd

End If

End If

EnumWindowsProc = True

End Function

Function GetWeek(setDate As Date) As String

ww = Weekday(setDate, vbSunday)

Select Case ww

Case 1

GetWeek = "星期日"

Case 2

GetWeek = "星期一"

Case 3

GetWeek = "星期二"

Case 4

GetWeek = "星期三"

Case 5

GetWeek = "星期四"

Case 6

GetWeek = "星期五"

Case 7

GetWeek = "星期六"

End Select

End Function