罗俊轩 0811050018Word下载.docx
《罗俊轩 0811050018Word下载.docx》由会员分享，可在线阅读，更多相关《罗俊轩 0811050018Word下载.docx（23页珍藏版）》请在冰豆网上搜索。
3.1.1系统的总体设计8
3.1.2系统的详细设计8
服务器版本界面及代码（此分由李烁丽同学完成）9
调换主机界面及其代码（此分由李烁丽同学完成）9
收费界面及其代码（此分由李烁丽同学完成）9
消费列表界面及其代码9
消息对话框界面与代码14
锁定系统界面及其代码15
中断控制室界面及代码21
4.1结论24
4.1.1系统测试24
4.1.2测试结果25
1.1概述
1.1.1开发背景
随着网吧行业竞争日趋激烈，这就需要一个现代化的管理模式，而数据库系统的管理的改革在其中具有重要的意义！
传统的数据库管理只局限于其本身的数据库的管理，无法与其他管理同步，并不能达到理想的管理状态，对网吧行业来说将浪费更多的人力、物力、财力，而且并不能达到一种理想的效果，所以，网吧行业迫切需要一个集成管理模式对其进行系统的管理。
网吧数据库系统的管理特点是从管理角度出发，用集成的数据库将几乎所有的管理统一管理起来，形成集成的信息源，友好的用户介面，强有力的报表生成工具，分析工具和信息共享使得管理人员得以摆脱繁重工作，集中精力从网吧行业战略的角度考虑网吧的管理规划及其政策。
1.1.2组织结构分析
登陆实现，打开客户机，通过无盘终端网，自动进行网络启动连接服务器，当服务器检测到以连接上将出现登陆信息框，否则将不能进行下一步操作，实现管理根据的管理。
它由web服务器加载的客户端的GUI图形界面，用户通过Web登录系统需要经过身份认证，不同的权限对应不同级别的会话操作。
当输入正确信息后，服务器计费管理系统自动录入连接后台数据库中，登陆使用的会员信息，时间消费金额将自动同步录入后台服务器数据库里，计费系统根据会员情况统计数据信息也将存入数据库中。
其工作流程图如下：
拥有相应权限的工作人员登陆计费系统，直接可为会员进行开卡服务，开卡信息同步录入数据库中，并生成数据库文件，同样实现管理工具的管理
结账信息管理也是一样，登陆计费系统进入相应的的结账下机模块，从计费系统中可显示相应的上机与下机情况，每一步操作，其控件连接相应的后台数据操作，后台将生成相应的数据库文件记录，一般网吧管理者对网吧有效的管理提供依据。
1.2系统需求分析
1.2.1系统完整性的要求
本着为网吧计费软件系统要为连锁大型网吧计费提供一套比较完整的服务，这使网吧计费便于管理，在各个环节中发挥作用，方便沟通。
1.2.2系统安全性的要求
系统不仅是方便操作人员的考虑，也是出于安全策略，在各个子系统中。
用户管理只有相关管理人员被允许进行操作，各子系统完成相应的功能外，不应有其他的特权，使系统稳定安全。
1.2.3数据库为核心
各子系统可录入，查询，更改相应的数据库信息，以及对其他子系统数据信息的调用和查询，数据库起到了各方面，数据以及查询各方面信息的重大作用，因而构建数据库以及如何合理有效的对数据库进行操作乃是本系统的核心。
1.2.4系统目标与要求
要求对某一网吧建立一个计费管理系统，完成软件的开发，测试及试运行。
要求本系统具有完善的功能，极高的可靠性，安全性和易维护性，具有较高的伸缩性和可移植性。
系统具体要求如下：
（1）系统的功能要求：
准确计费
（2）系的性能要求：
a）功能齐全，安全稳定，可靠性高；
b）操作简便，运用灵活，实时性强，准确性高；
c）系统能及时的处理往来数据。
（3）系统的输入输出要求：
a）输入数据要有复查要求，但在确定输入之后不可随意修改，只有在经过有关部门或有关人员批准之后方可进入修改；
B）输出的数据格式要提供符合标准要求，输出操作简洁快速；
（4）数据的管理能力要求：
系统要求能够迅速完成数据的输入和输出。
（5）故障的处理要求：
要求系统在出现故障时能尽可能给出较为明确的出错提示及解决办法，系统应具有必的错误保护机制。
（6）系统的运行环境要求：
要求系统运行于Windows环境下，具有友好的运行界面
1.2.5对良好的交互性要求
为了便于各部门操作人员使用本系统，以及更太容易掌握本系统的各项公能，使人善于并乐于使用本系统，应使系统界面设计友好，各子功能设计合理并人性化。
模块是数据说明，可执行语句等程序对象的集合，它是单独命名而且可通过名字来访问，模块化就是把程序划分成若干个模块，每个模块完成一个子功能，把这些模块，集合起来组成一个整体，完成指定的功能满足问题的要求。
采用模块化原理可以使软件结构清晰，不仅容易设计也容易阅读和理解，因为程序错误通常局限在有关模块及他们的借口中，所以模块化更容易测试和调试，因而有助于提高软件的可靠性，因为变动往往只涉及到少数几个模块，所以软件的模块化能够提高软件的可修改性，模块化也有助于软件开发工程的组织管理，一个复杂的大型程序可以由许多程序员分工编写不同的模块，并且可以进一步分配技术熟练的程序员编写苦难的模块。
2.1可行性研究
任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。
可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。
下面从四方面来讨论：
2.1.1
经济可行性
主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。
本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此，在经济上是可行的。
时间可行性
主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及这些变化对社会或人的因素所产生的影响。
本系统对人事的管理比较全面，可长期使用。
技术可行性
利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。
关系型数据库的高速发展使管理信息系统具备了良好的开发环境。
本系统使用的Delphi普及性好，操作简单，用户可以很快掌握使用方法，因此，在技术上是完全可行的。
社会可行性
人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。
开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。
系统的设计
3.1.1系统的总体设计
这个管理系统从6月10日开始着手设计开发,经过一段时间的分析，并根据对网吧管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：
第一部分：
上机换机操作；
第二部分：
远程控制；
第三部分：
会员管理；
第四部分：
参数设置。
3.1.2系统的详细设计
计费管理自动化系统设计大概可以分为五个阶段，各阶段工作如下：
第一阶段，系统调查分析阶段。
此阶段主要任务与用户联系，通过走访，询问，查阅原始的图标与数据，获取原始资料，了解网吧计费管理系统的功能，作用，用户的需求以及网吧计费管理系统应该包括的服务内容等。
第二阶段，数据库与表的建立阶段，这一阶段主要是根据网吧的计费管理系统，调查分析阶段的结果建立与网吧计费管理系统相关的数据库与表，并且进行数据规范化。
（此部分由李烁丽同学完成）
第三阶段，表单生成阶段，这一阶段主要任务是在用户参与的情况下创建网吧管理计费系统的用户界面，主要使用VisualBasic作为开发工具，选用相关控件，设置控件属性，设计程序窗口布局，初始化界面等，其结果是建立一套友好的网吧计费管理系统用户界面，方便使用者操作网吧计费管理系统。
服务器版本界面及代码（此分由李烁丽同学完成）
主界面及其代码（此分由李烁丽同学完成）
调换主机界面及其代码（此分由李烁丽同学完成）
收费界面及其代码（此分由李烁丽同学完成）
消费列表界面及其代码
4-6消费列表
代码：
Grid1.Clear
Grid1.Cols=6
Grid1.FormatString="
^..|^物品名称|^单价|^数量|^金额|状态"
Grid1.ColWidth（0）=710
Grid1.ColWidth
（1）=1600
Grid1.ColWidth
（2）=800
Grid1.ColWidth（3）=800
Grid1.ColWidth（4）=1070
Grid1.ColWidth（5）=880
DimGridColorAsLong
DimDBAsDatabase,EfAsRecordset,HHAsInteger,DelNoAsLong
DimshiftStrAsString,shiftStrLAsString,shiftStrRAsString,shiftNumAsInteger,iliAsInteger,TempStrAsString,sureStrAsString,QyAsInteger
SetDB=OpenDatabase（ConData,False,False,ConStr）
'
SetDB=OpenConnection（ConData,dbDriverNoPrompt,False,ConStr）
SetEf=DB.OpenRecordset（"
Customer"
dbOpenTable）
DelNo=Ef.RecordCount
Grid1.Rows=Ef.RecordCount+2
Select*FromCustomerWhere房号='
"
&
sJH&
"
'
dbOpenDynaset）
HH=1
DoWhileNotEf.EOF（）
已送与未送区别
IfNotIsNull（Ef.Fields（7）.Value）Then
IfEf.Fields（7）.Value="
已送"
Then
GridColor=&
H8000&
Else
H80FF&
EndIf
Grid1.Row=HH
Grid1.Col=0
Grid1.CellAlignment=4
Grid1.CellForeColor=GridColor
IfNotIsNull（Ef.Fields（0）.Value）Then
Grid1.Text=Ef.Fields（0）.Value
Grid1.Col=1
Grid1.CellAlignment=1
IfNotIsNull（Ef.Fields
（1）.Value）Then
Grid1.Text=Ef.Fields
（1）.Value
Grid1.Col=2
IfNotIsNull（Ef.Fields（3）.Value）Then
Grid1.Text=Ef.Fields（3）.Value
Grid1.Col=3
IfNotIsNull（Ef.Fields（4）.Value）Then
Grid1.Text=Ef.Fields（4）.Value
DimzTAsString
Grid1.Col=5
Grid1.Text=Ef.Fields（7）.Value
zT=Grid1.Text
Grid1.Col=4
Grid1.CellAlignment=7
IfNotIsNull（Ef.Fields（5）.Value）Then
Grid1.Text=Ef.Fields（5）.Value
IfzT="
sJE=sJE+Val（Grid1.Text）
Ef.MoveNext
HH=HH+1
Loop
Ef.Close
DB.Close
Grid1.Row=1
Grid1.ColSel=5
Grid1.Visible=True
ExitSub
Err_grid:
MsgBox"
网格配置错误!
vbCrLf&
Err.Description,vbCritical
EndSub
PrivateSubcmdDel_Click（）
OnErrorGoToErr_del
IfGrid1.Text="
txtDW="
txtDJ="
cmbPM.SetFocus
MsgBox"
请选定要删除的物品！
vbInformation
IfMsgBox（"
真的要删除["
Grid1.Text&
]吗（Y/N）？
vbYesNo+vbCritical）=vbYesThen
DelRecordGrid1.TextMatrix（Grid1.Row,0）,"
ID"
"
sJE=sJE-Val（Grid1.TextMatrix（Grid1.Row,4））'
金额下调
Grid1.RemoveItemGrid1.Row
cmbPM.SetFocus
Err_del:
删除记录错误!
Err.Description,vbCritical
PrivateSubcmdPast_Click（）
OnErrorGoToErr_
OrGrid1.TextMatrix（Grid1.Row,5）="
请选定已点而未送的物品！
消息对话框界面与代码
图4-7消息对话框
PrivateSubcmdClose_Click（）
UnloadMe
PrivateSubcmdReplay_Click（）
OnErrorGoToErr_Replay
SM_TEXT=sendJH&
MESAGE"
txtSend
发送命令
frmServer.cmdSendData.Value=True
选定发送的内容
txtSend="
txtSend.SetFocus
Err_Replay:
回复错误!
PrivateSublblJH_Click（）
PrivateSubPicture1_Click（）
PrivateSubtxtInfo_Change（）
PrivateSubtxtSend_Change（）
IftxtSend<
>
cmdReplay.Enabled=True
cmdReplay.Enabled=False
锁定系统界面及其代码
图4-8锁定系统界面
PrivateDeclareFunctionFindWindowLib"
user32"
Alias"
FindWindowA"
（ByVallpClassNameAsString,ByVallpWindowNameAsString）AsLong
PrivateDeclareFunctionPostMessageLib"
PostMessageA"
（ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny）AsLong
ConstWM_CLOSE=&
H10&
Dimopt1AsString
Dimopt2AsString
Dimopt3AsString
Dimopt4AsString
DimlockedAsInteger
PrivateDeclareFunctionSystemParametersInfoLib"
SystemParametersInfoA"
（ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong）AsLong
PrivateConstSPI_SCREENSAVERRUNNING=97
PublicprivatecodeAsString
DimhintlabelAsString
DimcodeAsString
FunctionCloseApplication（ByValsAppCaptionAsString）AsBoolean
DimlHwndAsLong
DimlRetValAsLong
lHwnd=FindWindow（vbNullString,sAppCaption）
IflHwnd<
0Then
lRetVal=PostMessage（lHwnd,WM_CLOSE,0&
0&
）
EndIf
PrivateSubSevenKey_Click（）
code=code+"
7"
IfLen（code）>
10Then
code="
hinthintS.SetFocus
PrivateSubEightKey_Click（）
8"
PrivateSubForm_Load（）
FL=True
OnErrorGoToErr_Load
DimLAsLong,TAsLong
L=Val（GetSetting（App.EXEName,"
Option"
Lock_L"
2000））
T=Val（GetSetting（App.EXEName,"
Lock_T"
Me.left=L
Me.tOp=T
设定系统路径
DimsFileBufferAsString*250,retValAsLong,sSystemInIAsString
retVal=GetSystemDirectory（sFileBuffer,251）
IfretVal=0Then
sSystemInI="
C:
\Windows\System\SysLock.InI"
sSystemInI=left（sFileBuffer,InStr（1,sFileBuffer,Chr（0）,vbBinaryCompare）-1）
sSystemInI=sSystemInI&
\SysLock.InI"
frmLock.KeyPreview=True
OnErrorGoTo1000'
第一次运行，文件不存在时
OpensSystemInIForInputAs1
Input#1,privatecode
Close1
GoTo1010
1000'
OpensSystemInIForOutputAs1
Print#1,"
88888888"
privatecode="
hintlabel="
必须输入密码：
初始为88888888"
1010'
OnErrorGoTo0
Err_Load:
表单加载错误!
PrivateSubSixKey_Click（）
6"
hinthintS.SetFocus
PrivateSubForm_Click（）
Lock_switch.Caption="
解锁（&
U）"
locked=1
CallLockit
PublicSubcClipCursor（）
OnErrorGoToErr_mouse
DimclientAsRECT
Dimupperleft
升级会员 