罗俊轩 0811050018Word下载.docx

1、3.1.1系统的总体设计 83.1.2 系统的详细设计 8服务器版本界面及代码（此分由李烁丽同学完成） 9调换主机界面及其代码（此分由李烁丽同学完成） 9收费界面及其代码（此分由李烁丽同学完成） 9消费列表界面及其代码 9消息对话框界面与代码 14锁定系统界面及其代码 15中断控制室界面及代码 214.1结论 244.1.1系统测试 244.1.2测试结果 251.1概述1.1.1开发背景随着网吧行业竞争日趋激烈，这就需要一个现代化的管理模式，而数据库系统的管理的改革在其中具有重要的意义！传统的数据库管理只局限于其本身的数据库的管理，无法与其他管理同步，并不能达到理想的管理状态，对网吧行业来说

2、将浪费更多的人力、物力、财力，而且并不能达到一种理想的效果，所以，网吧行业迫切需要一个集成管理模式对其进行系统的管理。网吧数据库系统的管理特点是从管理角度出发，用集成的数据库将几乎所有的管理统一管理起来，形成集成的信息源，友好的用户介面，强有力的报表生成工具，分析工具和信息共享使得管理人员得以摆脱繁重工作，集中精力从网吧行业战略的角度考虑网吧的管理规划及其政策。1.1.2组织结构分析登陆实现，打开客户机，通过无盘终端网，自动进行网络启动连接服务器，当服务器检测到以连接上将出现登陆信息框，否则将不能进行下一步操作，实现管理根据的管理。它由web服务器加载的客户端的GUI图形界面，用户通过Web登

3、录系统需要经过身份认证，不同的权限对应不同级别的会话操作。当输入正确信息后，服务器计费管理系统自动录入连接后台数据库中，登陆使用的会员信息，时间消费金额将自动同步录入后台服务器数据库里，计费系统根据会员情况统计数据信息也将存入数据库中。其工作流程图如下： 拥有相应权限的工作人员登陆计费系统，直接可为会员进行开卡服务，开卡信息同步录入数据库中，并生成数据库文件，同样实现管理工具的管理结账信息管理也是一样，登陆计费系统进入相应的的结账下机模块，从计费系统中可显示相应的上机与下机情况，每一步操作，其控件连接相应的后台数据操作，后台将生成相应的数据库文件记录，一般网吧管理者对网吧有效的管理提供依据。1

4、.2系统需求分析1.2.1系统完整性的要求本着为网吧计费软件系统要为连锁大型网吧计费提供一套比较完整的服务，这使网吧计费便于管理，在各个环节中发挥作用，方便沟通。1.2.2系统安全性的要求系统不仅是方便操作人员的考虑，也是出于安全策略，在各个子系统中。用户管理只有相关管理人员被允许进行操作，各子系统完成相应的功能外，不应有其他的特权，使系统稳定安全。1.2.3数据库为核心各子系统可录入，查询，更改相应的数据库信息，以及对其他子系统数据信息的调用和查询，数据库起到了各方面，数据以及查询各方面信息的重大作用，因而构建数据库以及如何合理有效的对数据库进行操作乃是本系统的核心。1.2.4系统目标与要求

5、要求对某一网吧建立一个计费管理系统，完成软件的开发，测试及试运行。要求本系统具有完善的功能，极高的可靠性，安全性和易维护性，具有较高的伸缩性和可移植性。系统具体要求如下：（1）系统的功能要求：准确计费（2）系的性能要求：a） 功能齐全，安全稳定，可靠性高；b） 操作简便，运用灵活，实时性强，准确性高；c） 系统能及时的处理往来数据。（3）系统的输入输出要求：a） 输入数据要有复查要求，但在确定输入之后不可随意修改，只有在经过有关部门或有关人员批准之后方可进入修改；B）输出的数据格式要提供符合标准要求，输出操作简洁快速；（4）数据的管理能力要求：系统要求能够迅速完成数据的输入和输出。（5）故障的

6、处理要求：要求系统在出现故障时能尽可能给出较为明确的出错提示及解决办法，系统应具有必 的错误保护机制。（6）系统的运行环境要求：要求系统运行于Windows环境下，具有友好的运行界面1.2.5对良好的交互性要求为了便于各部门操作人员使用本系统，以及更太容易掌握本系统的各项公能，使人善于并乐于使用本系统，应使系统界面设计友好，各子功能设计合理并人性化。模块是数据说明，可执行语句等程序对象的集合，它是单独命名而且可通过名字来访问，模块化就是把程序划分成若干个模块，每个模块完成一个子功能，把这些模块，集合起来组成一个整体，完成指定的功能满足问题的要求。采用模块化原理可以使软件结构清晰，不仅容易设计也

7、容易阅读和理解，因为程序错误通常局限在有关模块及他们的借口中，所以模块化更容易测试和调试，因而有助于提高软件的可靠性，因为变动往往只涉及到少数几个模块，所以软件的模块化能够提高软件的可修改性，模块化也有助于软件开发工程的组织管理，一个复杂的大型程序可以由许多程序员分工编写不同的模块，并且可以进一步分配技术熟练的程序员编写苦难的模块。2.1 可行性研究 任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。下面从四方面来讨论：

8、 2.1.1 经济可行性 主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此 ，在经济上是可行的。 时间可行性 主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可长期使用。 技术可行性 利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的Delphi 普及性好，操作简单，用户可以很快掌握使用方法，因

9、此，在技术上是完全可行的。 社会可行性 人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。 系统的设计3.1.1系统的总体设计这个管理系统从6月10日开始着手设计开发,经过一段时间的分析，并根据对网吧管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：上机换机操作；第二部分：远程控制；第三部分：会员管理； 第四部分：参数设置。3.1.2 系统的详细设计计费管理自动化系统设计大概可以分为五个阶段，各阶段工作如下：第一阶段，系统调

10、查分析阶段。此阶段主要任务与用户联系，通过走访，询问，查阅原始的图标与数据，获取原始资料，了解网吧计费管理系统的功能，作用，用户的需求以及网吧计费管理系统应该包括的服务内容等。第二阶段，数据库与表的建立阶段，这一阶段主要是根据网吧的计费管理系统，调查分析阶段的结果建立与网吧计费管理系统相关的数据库与表，并且进行数据规范化。（此部分由李烁丽同学完成）第三阶段，表单生成阶段，这一阶段主要任务是在用户参与的情况下创建网吧管理计费系统的用户界面，主要使用Visual Basic作为开发工具，选用相关控件，设置控件属性，设计程序窗口布局，初始化界面等，其结果是建立一套友好的网吧计费管理系统用户界面，方便

11、使用者操作网吧计费管理系统。服务器版本界面及代码（此分由李烁丽同学完成）主界面及其代码（此分由李烁丽同学完成）调换主机界面及其代码（此分由李烁丽同学完成）收费界面及其代码（此分由李烁丽同学完成）消费列表界面及其代码 4-6 消费列表代码：Grid1.ClearGrid1.Cols = 6Grid1.FormatString = . | 物品名称 | 单价 | 数量 | 金额 | 状态 Grid1.ColWidth（0） = 710Grid1.ColWidth（1） = 1600Grid1.ColWidth（2） = 800Grid1.ColWidth（3） = 800Grid1.ColWidt

12、h（4） = 1070Grid1.ColWidth（5） = 880Dim GridColor As LongDim DB As Database, Ef As Recordset, HH As Integer, DelNo As LongDim shiftStr As String, shiftStrL As String, shiftStrR As String, shiftNum As Integer, ili As Integer, TempStr As String, sureStr As String, Qy As Integer Set DB = OpenDatabase（Con

13、Data, False, False, ConStr） Set DB = OpenConnection（ConData, dbDriverNoPrompt, False, ConStr） Set Ef = DB.OpenRecordset（Customer, dbOpenTable） DelNo = Ef.RecordCount Grid1.Rows = Ef.RecordCount + 2Select * From Customer Where 房号= & sJH & , dbOpenDynaset） HH = 1 Do While Not Ef.EOF（） 已送与未送区别 If Not I

14、sNull（Ef.Fields（7）.Value） Then If Ef.Fields（7）.Value = 已送 Then GridColor = &H8000& ElseH80FF& End If Grid1.Row = HH Grid1.Col = 0 Grid1.CellAlignment = 4 Grid1.CellForeColor = GridColor If Not IsNull（Ef.Fields（0）.Value） Then Grid1.Text = Ef.Fields（0）.Value Grid1.Col = 1 Grid1.CellAlignment = 1 If No

15、t IsNull（Ef.Fields（1）.Value） Then Grid1.Text = Ef.Fields（1）.Value Grid1.Col = 2 If Not IsNull（Ef.Fields（3）.Value） Then Grid1.Text = Ef.Fields（3）.Value Grid1.Col = 3 If Not IsNull（Ef.Fields（4）.Value） Then Grid1.Text = Ef.Fields（4）.Value Dim zT As String Grid1.Col = 5 Grid1.Text = Ef.Fields（7）.Value z

16、T = Grid1.Text Grid1.Col = 4 Grid1.CellAlignment = 7 If Not IsNull（Ef.Fields（5）.Value） Then Grid1.Text = Ef.Fields（5）.Value If zT = sJE = sJE + Val（Grid1.Text） Ef.MoveNext HH = HH + 1 Loop Ef.Close DB.Close Grid1.Row = 1 Grid1.ColSel = 5 Grid1.Visible = True Exit SubErr_grid: MsgBox 网格 配置错误! vbCrLf

17、& Err.Description, vbCriticalEnd SubPrivate Sub cmdDel_Click（） On Error GoTo Err_del If Grid1.Text = txtDW = txtDJ = cmbPM.SetFocusMsgBox 请选定要删除的物品！, vbInformation If MsgBox（真的要删除 Grid1.Text & 吗（Y/N）？, vbYesNo + vbCritical） = vbYes Then DelRecord Grid1.TextMatrix（Grid1.Row, 0）, ID, sJE = sJE - Val（G

18、rid1.TextMatrix（Grid1.Row, 4） 金额下调 Grid1.RemoveItem Grid1.Row cmbPM.SetFocus Err_del:删除记录错误! Err.Description, vbCritical Private Sub cmdPast_Click（） On Error GoTo Err_ Or Grid1.TextMatrix（Grid1.Row, 5） = 请选定已点而未送的物品！消息对话框界面与代码 图4-7 消息对话框 Private Sub cmdClose_Click（） Unload Me Private Sub cmdReplay_C

19、lick（） On Error GoTo Err_Replay SM_TEXT = sendJH &MESAGE txtSend 发送命令 frmServer.cmdSendData.Value = True 选定发送的内容 txtSend = txtSend.SetFocusErr_Replay:回复错误!Private Sub lblJH_Click（）Private Sub Picture1_Click（）Private Sub txtInfo_Change（）Private Sub txtSend_Change（） If txtSend cmdReplay.Enabled = True

20、 cmdReplay.Enabled = False锁定系统界面及其代码图4 -8锁定系统界面Private Declare Function FindWindow Lib user32 Alias FindWindowA （ByVal lpClassName As String, ByVal lpWindowName As String） As LongPrivate Declare Function PostMessage Lib PostMessageA （ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lPar

21、am As Any） As LongConst WM_CLOSE = &H10&Dim opt1 As StringDim opt2 As StringDim opt3 As StringDim opt4 As StringDim locked As IntegerPrivate Declare Function SystemParametersInfo Lib SystemParametersInfoA （ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long） As LongP

22、rivate Const SPI_SCREENSAVERRUNNING = 97Public privatecode As StringDim hintlabel As StringDim code As StringFunction CloseApplication（ByVal sAppCaption As String） As BooleanDim lHwnd As LongDim lRetVal As LonglHwnd = FindWindow（vbNullString, sAppCaption）If lHwnd 10 Then code = hinthintS.SetFocusPri

23、vate Sub EightKey_Click（）8Private Sub Form_Load（） FL = True On Error GoTo Err_Load Dim L As Long, T As Long L = Val（GetSetting（App.EXEName, OptionLock_L, 2000） T = Val（GetSetting（App.EXEName, Lock_T Me.left = L Me.tOp = T 设定系统路径 Dim sFileBuffer As String * 250, retVal As Long, sSystemInI As String r

24、etVal = GetSystemDirectory（sFileBuffer, 251） If retVal = 0 Then sSystemInI = C:WindowsSystemSysLock.InI sSystemInI = left（sFileBuffer, InStr（1, sFileBuffer, Chr（0）, vbBinaryCompare） - 1） sSystemInI = sSystemInI &SysLock.InIfrmLock.KeyPreview = TrueOn Error GoTo 1000 第一次运行，文件不存在时Open sSystemInI For I

25、nput As 1Input #1, privatecodeClose 1GoTo 10101000 Open sSystemInI For Output As 1Print #1, 88888888privatecode = hintlabel = 必须输入密码： 初始为 888888881010 On Error GoTo 0Err_Load:表单加载错误!Private Sub SixKey_Click（）6 hinthintS.SetFocus Private Sub Form_Click（）Lock_switch.Caption = 解锁（&U）locked = 1Call LockitPublic Sub cClipCursor（）On Error GoTo Err_mouseDim client As RECTDim upperleft