数据库课程设计网吧管理系统

设计题目网吧管理系统设计技术参数1．题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。2．数据库：采用关系数据库ACCESS2003/SQLSERVER2000。3．所使用的语言、工具:VB6.0+ACCESS2003+WINDOWSXP。4．所采用的技术、系统结构:ADO数据库联接技术,系统结构为C/S结构。设计要求1．上机前预先把所有的源程序编写好。2．上机时不得迟到，不得缺席，爱护设备，认真调试程序。3．仔细查阅相关资料，认真完成思考题。4．按要求书写设计任务书，并按要求按版打印，不得雷同。工作量一周工作计划周一听取教师布置设计的任务及要求。周二学生查阅相关资料，进行数据库设计。周三至周五：详细设计与界面设计。周一至周四程序设计与上机，调试源程序。周五书写课程设计任务书。参考资料《数据库系统概论》《数据库系统概论实验指导书》自编《数据库系统概论课程设计大纲》等自编指导教师评语该生在数据库系统概论课程设计期间：上机时不迟到，不缺席，爱护设备，认真调试程序。仔细查阅相关资料，认真完成作业。听从指导教师安排。在设计与实现过程中，能使设计的系统达到预期设计要求，功能合理，流程清楚，语句条理通顺。按要求书写设计任务书，其论文格式规范，图表清晰合理，资料详实。系统界面友好，程序运行基本正常，功能完备。说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2008年7月4目录第一章概述............................................................................................2第二章问题定义....................................................................................2第三章需求分析....................................................................................4第四章数据库设计................................................................................7第五章界面设计....................................................................................9第六章代码..........................................................................................11第一章概述随着上个世纪九十年代计算机网络的高速发展，人类进入到了网络化、信息化的时代。而网络的发展带动了一种新兴产业——网吧行业。从上世纪九十年代至今，网吧经历了前所未有的发展。从小规模到大规模，从单一经营到连锁经营，从简单提供上网服务演变到休息、娱乐场所。这就带来了新的问题——网吧管理。目前，网吧的人工管理已经不能适应网吧的高速发展，成为阻碍网吧发展的桎梏。因此开发一套完善的网吧管理系统成为网吧发展的首要任务。本系统主要负责服务器子系统的设计。采用功能强大的VisualBasic6.0作为开发工具，MicrosoftAccess作为数据库平台。本系统采用C/S结构。它将一个应用系统分成两大部分，由多台计算机分别执行，协同完成整个系统的应用，从而达到系统中软、硬件资源最大限度的利用。因此，对于一个相对专用、独立的系统，它是—个较好的系统建立方法。因此，本设计采用这一模式。本系统从操作简便、界面友好、灵活、实用、安全的要求出发，实现较为简单。本系统设计功能较为齐全，适合于中小型网吧的管理。第二章问题定义网吧管理人员：系统的录入人员，主要指管理各种档案的工作人员，需要通过密码才能进入。他们拥有对系统数据的录入、修改、查询、删除等操作权限。但不可以更改系统密码。上机人员：权限最低的登入人员，当上网时间到了之后就会被提示。第三章需求分析一、主要功能：完成网吧管理人员对上机人员的调整，对机器的分配，以及纪录用户的上机时间，并对整个网吧的系统进行管理。因此，本系统应该主要完成和实现如下功能：初始化系统数据；录入登陆人员的基本信息数据；上机时间，下机时间的基本设定；查询机器的剩余时间；计算上机的费用；人员信息：在该项内容中将包括的数据库项有用户名，用户密码，密码确认，开户时间，开户金额，开户总机时，剩余时间，上机次数，备注。会员信息：用户名，用户密码，密码确认，开户时间，开户金额，折扣，总时间，上机次数，备注。机器编号：ID,IP。二、数据流图（DFD）：三、数据字典（DD）:ClientIP=ID+IPHistory=ID+用户名+机器号+开始时间+结束时间+应付费Member=用户名+用户密码+密码确认+开户时间+开户金额+折扣+总时间+上机次数+备注四、程序流程图：系统主界面调用系统菜单退出系统系统设置时间设置时间类型限时不限时五、功能结构图：网吧管理系统模块时间设定模块时间的基本设定上机时间总时间下机时间网吧管理系统登陆人员信息上机时间设定费用汇总下机时间查询退出第四章数据库设计二、逻辑设计：下面列出几个主要的数据库表设计：4.1ClientIP表：序号中文名字段名类型备注0ID3字符型主键1IP10文本archar4.2history表：序号中文名字段名类型备注0ID2字符型主键1userID（10，2）文本型2pcid2数字3starttime日期时间4endtime日期时间5pay2货币4.3member表：序号中文名字段名类型备注0userID10文本符型主键1Pwd10文本符型2ChkPwd10文本类型3DataTime日期时间4Balance2数字5Discount2数字6Totaltime2数字7CountNum2数字9Memo备注4.3member1表：序号中文名字段名类型备注0userID10文本符型主键1Pwd10文本符型2ChkPwd10文本类型3DataTime日期时间4Balance2数字5Discount2数字6Totaltime2数字7CountNum2数字9Memo备注4.4online表：序号中文名字段名类型备注0ID10字符型主键1ClientID（10，2）字符型archar2LoginTime时间日期3TimeOut10字符型4.4online表：序号中文名字段名类型备注0ID10字符型主键1Mstate（是，否）判断2Jstate文本3stime日期4Endtime日期5Time10数字6Money货币7Ltime10数字8Userid文本9uprice货币三、物理设计写索引是如何设计的：写索引是如何设计的：镞索引是行的物理顺序和索引的顺序是一致的。页级，低层等索引的各个级别上都包含实际的数据页。一个表只能是有一个镞索引。由于update,delete语句要求相对多一些的读操作，因此镞索引常常能加速这样的操作。在至少有一个索引的表中，你应该有一个镞索引第五章界面设计一、主界面单击主界面上的各个按钮，可以进入相应的界面中。二、系统设置对参数进行设置功能介绍，相关控件；三、查询上机时间等信息功能介绍，相关控件；第六章代码与注释一、窗体1代码OptionExplicitPrivateSubcmdexit_Click()UnloadMeEndSubPrivateSubcmdcounter_Click()DimcnAsADODB.ConnectionDimiAsIntegerDimrstAsADODB.RecordsetDimstrsqlAsStringSetcn=NewConnectionSetrst=NewADODB.Recordsetcn.Openconcn'Íùhistory±íÖÐÌí¼Ó¼Ç¼frmManager.Adodc1.Recordset!endtime=Now()txtmoney.Text=frmManager.Adodc1.Recordset!Time*frmManager.Adodc1.Recordset!uprice'×¢Òâʱ¼ä×ֶεÄÌí¼Ó·½·¨£¬#strsql=insertintohistory(pcid,starttime,endtime,pay)values(&frmManager.Adodc1.Recordset!Mid&,#&frmManager.Adodc1.Recordset!stime&#,#&frmManager.Adodc1.Recordset!endtime&#,&txtmoney.Text&)Debug.Printstrsqlcn.Executestrsql'Êշѳɹ¦£¬Êý¾Ý³õʼ»¯WithfrmManager.Adodc1.Recordset!mstate=0.Recordset![stime]=0.Recordset![jstate]=δ¼Æ·Ñ.Recordset![Money]=0.Recordset![endtime]=0.Recordset![Time]=0.Recordset![lTime]=0.Recordset![userID]=OnErrorGoToerror_proc.Recordset.SaveEndWithfrmManager.Refresh'ʹÊý¾Ýͬ²½ÏÔʾMsgBoxÊշѳɹ¦UnloadMeExitSuberror_proc:MsgBoxErr.Description,vbCritical,ÖØÊÔUnloadMeEndSubPrivateSubcmdvipexit_Click()UnloadMeEndSubPrivateSubcmdvipcounter_Click()DimGdiscountAsDoubleDimcnAsADODB.ConnectionDimiAsIntegerDimrstAsADODB.RecordsetDimstrsqlAsStringDimupriceAsDoubleSetcn=NewConnectionSetrst=NewADODB.Recordsetcn.OpenconcnfrmManager.Adodc1.Recordset!endtime=Now()Gdiscount=frmMember.datPrimaryRS.Recordset![DISCOUNT]'»áÔ±µÄÕË»§ÉϵĽð¶îtxtvipmoney.Text=frmManager.Adodc1.Recordset!Time*frmManager.Adodc1.Recordset![uprice]*Gdiscountstrsql=insertintohistory(pcid,starttime,endtime,pay,userid)values(&frmManager.Adodc1.Recordset![Mid]&,#&frmManager.Adodc1.Recordset!stime&#,#&frmManager.Adodc1.Recordset!endtime&#,&txtvipmoney.Text&,&frmManager.Adodc1.Recordset!userID&)cn.Executestrsql'¸üÐÂMEMBER±ístrsql=updatemembersetcountNum=countNum+1,TOTALTIME=TOTALTIME+&frmManager.Adodc1.Recordset!Time&,balance=balance-&CSng(txtvipmoney.Text)&WHEREuserid=&frmManager.Adodc1.Recordset![userID]&cn.Executestrsql'²é³öÓû§Óà¶îs