1、 设计题目 网吧管理系统设计技术参数1 题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。2 数据库：采用关系数据库 ACCESS2003/SQLSERVER2000。3 所使用的语言、工具:VB6.0+ACCESS2003+WINDOWSXP。4 所采用的技术、系统结构:ADO 数据库联接技术,系统结构为 C/S 结构。设计要求1 上机前预先把所有的源程序编写好。2 上机时不得迟到，不得缺席，爱护设备，认真调试程序。3 仔细查阅相关资料，认真完成思考题。4 按要求书写设计任务书，并按要求按版打印，不得雷同。工作量 一周工作计划周一听取教师布置设计的任务及要求。周二学生查阅相
2、关资料，进行数据库设计。周三至周五：详细设计与界面设计。周一至周四程序设计与上机，调试源程序。周五书写课程设计任务书。参考资料数据库系统概论数据库系统概论实验指导书自编数据库系统概论课程设计大纲等自编指导教师评语该生在数据库系统概论课程设计期间：上机时不迟到，不缺席，爱护设备，认真调试程序。仔细查阅相关资料，认真完成作业。听从指导教师安排。在设计与实现过程中，能使设计的系统达到预期设计要求，功能合理，流程清楚，语句条理通顺。按要求书写设计任务书，其论文格式规范，图表清晰合理，资料详实。系统界面友好，程序运行基本正常，功能完备。说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2
3、008 年 7 月 4辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 1 页目录第一章 概述 .2第二章 问 题定义 .2第三章 需求分析 .4第四章 数据库设计 .7第五章 界面设计 .9第六章 代码 .11辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 2 页第一章 概述随着上个世纪九十年代计算机网络的高速发展，人类进入到了网络化、信息化的时代。而网络的发展带动了一种新兴产业网吧行业。从上世纪九十年代至今，网吧经历了前所未有的发展。从小规模到大规模，从单一经营到连锁经营，从简单提供上网服务演变到休息、娱乐场所。这就带来了新
4、的问题网吧管理。目前，网吧的人工管理已经不能适应网吧的高速发展，成为阻碍网吧发展的桎梏。因此开发一套完善的网吧管理系统成为网吧发展的首要任务。本系统主要负责服务器子系统的设计。采用功能强大的 Visual Basic6.0 作为开发工具，Microsoft Access 作为数据库平台。本系统采用 C/S 结构。它将一个应用系统分成两大部分，由多台计算机分别执行，协同完成整个系统的应用，从而达到系统中软、硬件资源最大限度的利用。因此，对于一个相对专用、独立的系统，它是个较好的系统建立方法。因此，本设计采用这一模式。本系统从操作简便、界面友好、灵活、实用、安全的要求出发，实现较为简单。本系统设计
5、功能较为齐全，适合于中小型网吧的管理。辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 3 页第二章 问题定义网吧管理人员：系统的录入人员，主要指管理各种档案的工作人员，需要通过密码才能进入。他们拥有对系统数据的录入、修改、查询、删除等操作权限。但不可以更改系统密码。上机人员：权限最低的登入人员，当上网时间到了之后就会被提示。辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 4 页第三章 需求分析一、主要功能： 完成网吧管理人员对上机人员的调整，对机器的分配，以及纪录用户的上机时间，并对整个网吧的系统进行管理。因此，本系统应该主要
6、完成和实现如下功能：初始化系统数据；录入登陆人员的基本信息数据；上机时间，下机时间的基本设定；查询机器的剩余时间；计算上机的费用；人员信息： 在该项内容中将包括的数据库项有用户名，用户密码，密码确认，开户时间，开户金额，开户总机时，剩余时间，上机次数，备注。会员信息：用户名，用户密码，密码确认，开户时间，开户金额，折扣，总时间，上机次数，备注。机器编号：ID,IP。辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 5 页二、数据流图（DFD）：三、数据字典（DD） :ClientIP=ID+IPHistory=ID+用户名+机器号+开始时间+结束时间+应付费Me
7、mber=用户名+ 用户密码+ 密码确认+开户时间+开户金额+折扣+总时间+上机次数 +备注四、程序流程图：系统主界面调用系统菜单退出系统系统设置时间设置时间类型限时 不限时辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 6 页五、功能结构图：网吧管理系统模块时间设定模块时间的基本设定上机时间总时间下机时间网吧管理系统登陆人员信息上机时间设定费用汇总下机时间查询退出辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 7 页第四章 数据库设计二、逻辑设计：下面列出几个主要的数据库表设计：4.1 ClientIP 表：序号 中文名 字
8、段名 类型 备注0 ID 3 字符型 主键1 IP 10 文本archar4.2history 表：序号 中文名 字段名 类型 备注0 ID 2 字符型 主键1 userID （10，2） 文本型 2 pcid 2 数字3 starttime 日期时间4 endtime 日期时间5 pay 2 货币4.3member 表：序号 中文名 字段名 类型 备注0 userID 10 文本符型 主键1 Pwd 10 文本符型2 ChkPwd 10 文本类型3 DataTime 日期时间4 Balance 2 数字5 Discount 2 数字6 Totaltime 2 数字7 CountNum 2 数
9、字辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 8 页9 Memo 备注4.3member1 表：序号 中文名 字段名 类型 备注0 userID 10 文本符型 主键1 Pwd 10 文本符型2 ChkPwd 10 文本类型3 DataTime 日期时间4 Balance 2 数字5 Discount 2 数字6 Totaltime 2 数字7 CountNum 2 数字9 Memo 备注4.4online 表：序号 中文名 字段名 类型 备注0 ID 10 字符型 主键1 ClientID （10，2） 字符型archar2 LoginTime 时间日期
10、3 TimeOut 10 字符型4.4online 表：序号 中文名 字段名 类型 备注0 ID 10 字符型 主键1 Mstate （是，否） 判断2 Jstate 文本3 stime 日期4 Endtime 日期5 Time 10 数字6 Money 货币7 Ltime 10 数字辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 9 页8 Userid 文本9 uprice 货币三、物理设计写索引是如何设计的：写索引是如何设计的：镞索引是行的物理顺序和索引的顺序是一致的。页级，低层等索引的各个级别上都包含实际的数据页。一个表只能是有一个镞索引。由于 upda
11、te,delete语句要求相对多一些的读操作，因此镞索引常常能加速这样的操作。在至少有一个索引的表中，你应该有一个镞索引第五章 界面设计一、主界面单击主界面上的各个按钮，可以进入相应的界面中。二、系统设置对参数进行设置辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 10 页功能介绍，相关控件；三、查询上机时间等信息功能介绍，相关控件；辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 11 页第六章 代码与注释一、窗体 1 代码Option ExplicitPrivate Sub cmdexit_Click()Unload MeE
12、nd SubPrivate Sub cmdcounter_Click()Dim cn As ADODB.ConnectionDim i As IntegerDim rst As ADODB.RecordsetDim strsql As StringSet cn = New ConnectionSet rst = New ADODB.Recordsetcn.Open concn history frmManager.Adodc1.Recordset!endtime = Now()txtmoney.Text = frmManager.Adodc1.Recordset!Time * frmManag
13、er.Adodc1.Recordset!uprice#strsql = “insert into history (pcid,starttime,endtime,pay) values (“ Data Source=“ Persist Security Info=False“datPrimaryRS.CommandType = adCmdTabledatPrimaryRS.RecordSource = “admi“datPrimaryRS.RefreshEnd SubPrivate Sub Form_Resize()On Error Resume NextgrdDataGrid.Width =
14、 Me.ScaleWidthgrdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.HeightEnd SubPrivate Sub Form_Unload(Cancel As Integer)Screen.MousePointer = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Lon
15、g, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)MsgBox “Data error event hit err:“ & DescriptionEnd SubPrivate Sub cmdAdd_Click()On Error GoTo AddErrdatPrimaryRS.Recordset.AddNewExit SubAddErr:MsgBox Err.DescriptionEnd Sub辽 宁 工 业 大 学 课 程 设 计
16、说 明 （ 计 算 ）书共 25 页 第 23 页Private Sub cmdDelete_Click()On Error GoTo DeleteErrWith datPrimaryRS.Recordset.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click()On Error GoTo UpdateErrdatPrimaryRS.Recordset.UpdateBatch adAffectAllExit
17、SubUpdateErr:MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub六、窗体 6 代码Private Sub CmdEnter1_Click()frmMember.Show vbModalEnd SubPrivate Sub CmdEnter2_Click()frmSetpwd.Show vbModalEnd SubPrivate Sub CmdOnline_Click()frmOnline.Show vbModalEnd SubPrivate Sub Command1_Click()frm
18、setprice.Show vbModalEnd SubPrivate Sub Command2_Click()frmHistory.Show vbModalEnd Sub辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书共 25 页 第 24 页Private Sub Command3_Click()frmClientIP.Show vbModalEnd Sub七、窗体 7 代码Option ExplicitPrivate Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub cmdok_Click()Dim cn As ADODB.ConnectionDim rst As ADODB.RecordsetSet cn = New ConnectionSet rst = New ADODB.Recordsetcn.Open concnfrmManager.Adodc1.Recordset!mstate = 1frmManager.Adodc1.Recordset!stime = Now()frmManager.Adodc1.Recordset!jstate = “frmManager.Adodc1.Recordset.SaveUnload MeEnd Sub
