《毕业设计（论文）KTV管理信息系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）KTV管理信息系统的设计与实现.doc（31页珍藏版）》请在三一办公上搜索。
1、KTV管理信息系统的设计与实现1绪论1.1开发的背景和意义随着社会的发展和人民生活水平的提高，人们对精神文化生活的需求也在不断地增加。KTV的出现和发展在一定程度上满足了人们的这种需求，所以KTV行业迅速崛起并且占据了重要的市场。同时，在这个信息经济飞速发展的时代，计算机管理软件已经成为各个行业主要的管理工具，通过计算机管理软件的管理，可以大大提高管理的效率、安全性和准确性。当然，在KTV行业的日常管理中，它的管理人员也同样希望通过信息化的管理来提高工作效率、降低运营成本、规范经营模式，大大提高自身的服务档次，提升了企业的管理水平，从而增强企业的竞争力，达到管理的系统化、规范化和自动化。1.2
2、开发工具的选择（1）SQL Server 简介SQL Server 是一个关系数据库管理系统。它最初是由Microsoft Sybase 和Ashton-Tate两家公司共同开发，于1988 年推出了第一个OS/2 版本。在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了。Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNIX 操作系统上的应用。SQL Server 2000， 是Micros
3、oft 公司推出的SQL Server 数据库管理系统的新版本。该版本继承了SQL Server 7.0 版本的优点，同时又比它增加了许多更先进的功能，具有使用方便、可伸缩性好、与相关软件集成程度高等优点。可跨越从运行Microsoft Windows 98 的膝上型电脑，到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。SQL Server 2000 的常见版本有企业版、标准版、个人版和开发者版。其主要用于程序员开发应用程序时，需要SQL Server 2000 作为数据存储设备。数据管理技术的发展，与硬件（主要是外存）、软件、计算机应用的范围有密切的
4、联系。数据管理技术的发展经过三个阶段：人工管理阶段、文件系统阶段和数据库阶段。人工管理阶段和文件系统阶段都有着相当多的缺陷，诸如数据冗余性 ，数据不一致性以及数据联系弱等等。也正是由于这些原因，促使人们研究新的数据管理技术，从而产生了数据库技术。当今数据库处理在信息系统的研究中一直是非常重要的主题，尤其是近年来，随着计算机管理系统的迅速发展，使得数据库技术之时成为最热门技术之一。数据库的设计和开发既包括艺术又包括工程。理解用户的需求，然后，把它们转变为有效的数据库设计是一个艺术过程。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用，是一个工程过程。在数据库技术中，我们用模型的
5、概念描述数据库的结构与语义，对现实世界进行抽象，表示实体类型及实体间联系的模型称为“数据模型” 。目前广泛使用的数据模型分为两种类型：一种是独立于计算机系统的模型，完全不涉及信息在系统中的表示，只是用来描述某个特定组织所关心的信息结构，这类模型称为“概念数据模型” 。概念模型用于建立信息世界的数据模型，强调其语义表达功能，应该概念简单、清晰，易于用户理解，它是现实世界的第一层抽象，是用户和数据库设计人员之间进行交流的工具。其中使用广泛的模型是“实体联系模型” 。另一种数据模型是直接面向数据库的逻辑结构，它是现实世界的第二层抽象。这类模型涉及到计算机系统和数据库管理系统，又称为“结构数据模型”
6、。本系统采用了关系模型，关系模型主要是用二维表格结构表达实体集，利用主键和外键的连接进行表与表之间的连接。关系模型是由若干个关系模式组成的集合。关系模式相当于记录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单、用户易懂。用户对数据库的使用，是通过数据库管理系统提供的语言来实现的。关系数据库管理系统几乎都提供关系数据库标准语言SQL。SQL 的全称是Structured Query Language，即结构化查询语言。SQL语句可以从关系数据库中获得数据，也可以建立数据库、添加数据、修改数据。1986年ANSI采用
7、SQL语言作为关系数据库系统的标准语言，后被国际化标准组织（ISO）采纳为国际标准。SQL语言使用方便、功能丰富、简洁易学，因此得到广泛地应用。例如关系数据库产品DB2、ORACLE等都实现了SQL语言。这时，其它数据库产品厂家也纷纷推出各自的支持SQL的软件或者与SQL的接口软件。这样SQL语言很快被整个计算机界所认可。SQL语言是一种非过程化语言，它一次处理一个记录集合，对数据提供自动导航。SQL语言允许用户在高层的数据结构上工作，而不对单个记录进行操作。SQL语言不要求用户指定数据的存取方法，而是使用查询优化器，由系统决定对指定数据存取的最快速手段。当设计者在关系表上定义了索引时，系统会
8、自动利用索引进行快速检索，用户不需知道表上是否有索引或者有什么类型的索引等细节。（2）Visual Basic 简介Visual Basic是一种由微软公司推出的可视化开发工具，是Windows环境下最受欢迎的程序设计工具之一。Visual Basic不仅继承了早期Basic所具有的简单易用的特点，而且其编程系统采用了面向对象和时间驱动的编程机制，用一种巧妙的方法把Windows的编程复杂性封装起来，提供了一种所见即所得的可视化界面设计方法。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可
9、以轻松的使用VB提供的组件快速建立一个应用程序。ADO（ActiveX Data Object，ActiveX数据对象）是一个基于OLE DB之上的对象模型，包含了所有可以被OLE DB标准接口描述的数据类型，通过ADO内部的属性和方法提供统一的数据访问接口方法。ADO对象模型具有可扩展性，当把数据库上层应用程序移植到不同的数据库平台上时，只需更换连接数据库的驱动程序，而不需要对上层应用程序作任何修改。ADO向Visual Basic程序员提供了许多好处，包括易于使用、熟悉的界面、高速度以及较低的内存占用时综上我采用SQL Server 2000数据库和Visual Basic来实现该KTV管
10、理信息系统。2.需求分析和开发环境2.1 用户需求分析通过调查，根据用户的需要，系统应该具有以下功能：l 对KTV管理信息系统的登陆用户进行分类以及权限设置。l 展示KTV管理信息系统的主要界面。l 可以对房间信息进行查看功能，并且可以对其房间进行添加、修改、删除等操作。l 提供对会员信息进行查看功能，并且可以对其房间进行添加、修改、删除等操作。l 提供开房、预定、维修、打扫和结帐功能。l 提供预定单明细表、开房单明细表、维修单明细表。l 提供帐单、房间和会员查询功能。l 提供用户权限设置功能。l 提供用户管理功能。l 提供密码修改功能。l 提供用户查询功能。l 系统退出。2.2 可行性分析该
11、系统适用于中小型KTV的日常管理。界面简洁直观、功能齐全、操作方便。通过该软件可以对房间、会员、用户进行基本管理，同时可以很方便的对房间的基本业务进行操作，如开房、预定、结帐、打扫和维修。同时通过对不同用户进行权限设置，增加了数据的安全性。2.3 开发环境（1）硬件平台：q CPU：P41.8GHz 内存：256MB以上（2）软件平台：q 操作系统：Windows XP/Windows 2000q 数据库：SQL Server 20003.总体设计3.1 功能模块划分KTV管理信息系统是一个典型的数据库和VB综合的开发应用程序，该系统包括五个功能模块：基本信息功能模块、基本业务功能模块、查询统
12、计功能模块、系统设置功能模块和退出系统功能模块。如图3-1所示：基本信息KTV管理信息系统基本业务查询统计系统设置退出系统房间信息会员信息预定开房结帐维修打扫房间管理查询预订单明细表开房单明细表维修单明细表基本信息查询帐单查询房间查询房间状态查询房间类型查询会员查询用户权限设置用户管理密码设置用户查询图3-1 KTV管理信息系统的功能模块3.2逻辑结构设计3.2.1数据库表详细信息本系统涉及到的表分别是结帐单信息表(CheckInfo)、会员信息表（MemberInfo）、预定单信息表（DestineInfo）、维修单历史表（RepairHistroy）、维修单信息表（RepairInfo）、
13、开房单历史表（OpenRoomHistroy）、房间信息表（RoomInfo）、用户登陆信息表（UserInfo）和房间消费信息表（RoomConsumed）。各个表的详细信息如下：表1 结帐单信息表CheckInfo字段名字段说明数据类型字段长度必填字段主键CheckID结帐单编号Char4是是RoomID房间编号Char2是否RoomType房间类型Varchar10否否RoomPrice房间价格Float8否否ClientName客户名称Varchar10否否Agio折扣Int4否否OpenRoomTime开房时间Datetime8是否EndTime结帐时间Datetime8是否Prep
14、ay预付金额Float8否否PayMade付款方式Varchar10否否RoomMoney消费金额Float8是否OpenDate开房日期Datetime8是否MemberID会员编号Char3否否表2 会员信息表MemberInfo字段名字段说明数据类型字段长度必填字段主键MemberID会员编号Char3是是MemberName会员姓名Varchar8否否Tel1固定电话Varchar20否否Tel2手机Varchar20否否Address地址Varchar30否否SignCheck签单额度Int4是否ConsumedTime消费次数Int4是否ConsumedIntegal消费积分Flo
15、at8是否Remake备注Varchar50否否表3 预定单信息表DestineInfo字段名字段说明数据类型字段长度必填字段主键DestineID预定单编号Char4是是ClientName客户名称Varchar10否否RoomID房间编号Char2是否RoomType房间类型Varchar8否否RoomPrice房间价格Float8否否ClientTel客户电话Varchar20否否ClientCount人数Int4否否OpenRoomDate开房日期Datetime8是否OpenRoomTime开房时间Datetime8是否Waitor操作员Varchar10否否Prepay预付金额Fl
16、oat8否否Remake备注Varchar50否否DestineDate预定日期Datetime8是否MemberID会员编号char3否否表4 维修单历史表RepairHistroy字段名字段说明数据类型字段长度必填字段主键RepairHisID维修单编号Char3是是RoomID房间编号Char2是否Remake维修缘由Varchar50否否RemakeAfter维修结果varchar50否否表5 维修单信息表RepairInfo字段名字段说明数据类型字段长度必填字段主键RepairID维修单编号Char3是是RoomID房间编号Char2是否Remake维修缘由Varchar50否否表6
17、 开房单历史表OpenRoomHistroy字段名字段说明数据类型字段长度必填字段主键ORHistroyID结帐单编号Char4是是RoomID房间编号Char2是否RoomType房间类型Varchar10否否RoomPrice房间价格Float8否否ClientName客户名称Varchar10否否Agio折扣Int4否否OpenRoomTime开房时间Datetime8是否EndTime结帐时间Datetime8是否PayMade付款方式Varchar10否否RoomMoney消费金额Float8是否OpenDate开房日期Datetime8是否MemberID会员编号Char3否否表7
18、 房间信息表RoomInfo字段名字段说明数据类型字段长度必填字段主键RoomID房间编号Char2是是RoomName房间名称Varchar20否否RoomType房间类型Varchar10否否RoomPrice价格Float8是否RoomState房间状态char6否否表8 用户登陆信息表UserInfo字段名字段说明数据类型字段长度必填字段主键UserID用户IDChar2是是UserName用户姓名Varchar8否否UserPwd用户密码Varchar10是否UserType用户权限代码int4否否Remake用户类型varchar8否否表9 房间消费信息表RoomConsumed字
19、段名字段说明数据类型字段长度必填字段主键RoomConsumedID开房单编号Char4是是RoomID房间编号Char2是否RoomType房间类型Varchar10否否RoomPrice房间价格Float8否否ClientCount人数Int4否否ClientName客户名称Varchar10否否OpenTime开房时间Datetime8是否ClientTel客户电话Varchar20否否Prepay预付金额Float8否否Agio折扣Int4否否PayMade付款方式Varchar10否否OpenDate开房日期Datetime8是否Remake备注Varchar50否否MemberID
20、会员编号Char3否否3.2.2数据库总体结构本系统采用了SQL Server 2000作为后台数据库的开发工具，本系统数据库名称为“KTVDB”， 其中共包含9张表。各个表之间的关系如图3-2。 图3-2 数据库KTVDB联系3.2.3系统中数据库的连接在本系统中，都是通过ADO控件来与后台数据库进行连接的。下面是系统中的登陆界面中所涉及到连接数据库的代码：连接数据库SqlStr=provide=SQLOLEDB.1;Persist ecurity Info=False;&UserID=sa;InitialCatalog=KTVDB;Data Source=(local) Set g_DBC
21、onn = New ADODB.Connection 建立无源数据库连接g_DBConn.ConnectionString=driver=sqlserver;server=(local);userid=sa;pwd=;Database=KTVDBg_DBConn.Open在该连接代码中，数据库连接的服务器名称为local，数据库名称为KTVDB，当系统中使用到了相应的表时，再通过代码与该表进行连接，再通过SQL语句对数据库进行相应的操作。4.系统的设计与实现4.1 系统的功能模块介绍该系统主要包括以下功能模块：l 用户登录：实现对用户的登录验证，并且根据用户的权限来判断功能按钮的显示与否。l
22、基本信息：其中包括用户信息和会员信息，并且对相应的信息进行添加、删除、修改等操作。l 基本业务：包括预定、开房、维修和打扫功能。同时当用户选定某个房间时，通过鼠标右击可以调出相应的弹出菜单，这样就使操作更加方便快捷了。l 房间管理：在房间管理中，用户可以通过查看预定单明细表来了解当前的预定信息、通过查看开房单明细表来了解正处于开房状态的房间信息和通过查看维修单明细表来了解正在处于维修状态的房间的详细信息。l 查询统计：在查询统计中可以对帐单、房间和会员通过关键字进行具体的查询。l 系统设置：在系统设置中包括用户权限设置、用户管理、密码设置和用户查询等功能。l 退出系统：关闭所有界面，退出系统。
23、4.2系统的各个功能界面设计与实现在对KTV管理信息系统的功能进行简单介绍以后，下面就根据系统主界面菜单栏的顺序来分别介绍每个功能界面的设计与实现。4.2.1登录界面在进入系统主界面之前，首先要进入登陆界面，如图4-1。图4-1 系统登录界面在该系统中设计了三种用户，即管理员（1）、高级用户（2）和普通用户（0）。其中管理员具有最高权限，能够执行所有操作；高级用户不可以进行用户信息的修改；普通用户除不可以进行用户信息的修改外，还不可以对房间信息和会员信息进行任何修改。在登陆界面中通过SQL语句与数据库建立连接以后，在用户输入用户ID和用户密码后，系统将接收到的数据与数据库中UserInfo表中
24、的记录进行比较，从而确定是否登陆成功。并将记录用户的权限（g_LoginedUser.Type），以便交给主界面、会员信息窗体和房间信息窗来判断用户对各种功能的使用权限。4.2.2系统主界面菜单栏当用户信息的用户ID和密码与数据库UserInfo中的信息想匹配时，则进入系统的主界面，如图4-2：各个房间以相应的状态图标显示显示各种房间状态的房间个数图4-2 系统主界面在系统主界面中，我们可以看到在最上方是菜单栏，用户可以通过菜单栏中的各个选项来选择相应的操作。在主界面中，所有的房间都以自己的状态图标的形式显示出来。在主界面的下方可以看到处于各种房间状态的房间个数。主界面中最主要的是将所有房间显
25、示在界面中和将处于各种状态的房间个数在主界面的下方显示出来。将所有房间以房间状态的图标显示出来是通过ShowRoomStatus函数来实现的。函数在数据库RoomInfo中读取房间编号、房间状态和房间名称的信息，通过房间编号来判定在MSFlexGrid控件中显示的位置，然后通过房间状态来确定所显示的图片文件。ShowRoomStatus函数的代码如下：Function ShowRoomStatus() Dim strRoomName As String Dim strRoomState As String Dim iRoomID As Integer Dim dr As New ADODB.R
26、ecordset 定义新的ADO对象 Dim Str As String Dim iRecord As Integer Dim i As Integer 清空房间图标准备重新显示 MSFlexGrid1.Clear 在数据库中读取房间信息，确定房间编号、房间状态和房间名称。Str = select RoomID,RoomName,RoomState from RoomInfo dr.Open Str, g_DBConn, adOpenStatic, adLockOptimistic iRecord = dr.RecordCount dr.MoveFirst For i = 0 To iReco
27、rd If dr.EOF Then Exit Function End If iRoomID = dr(RoomID).Value strRoomName = Trim(dr(RoomName).Value) strRoomState = Trim(dr(RoomState).Value) 通过房间编号来确定显示的位置If (iRoomID Mod 10) 0 Then Me.MSFlexGrid1.Row = Int(iRoomID / 10) Me.MSFlexGrid1.Col = (iRoomID Mod 10) - 1) ElseIf (iRoomID Mod 10) = 0 The
28、n Me.MSFlexGrid1.Row = Int(iRoomID / 10) - 1 Me.MSFlexGrid1.Col = 9 End If 根据房间状态读取所要显示的图片文件Select Case strRoomState Case 空房 如果房间状态为空房 MSFlexGrid1.CellPictureAlignment = flexAlignCenterTop Set Me.MSFlexGrid1.CellPicture = LoadResPicture(KONGFANG, vbResBitmap) MSFlexGrid1.Text = strRoomName Case 占用 M
29、SFlexGrid1.CellPictureAlignment = flexAlignCenterTop Set Me.MSFlexGrid1.CellPicture = LoadResPicture(ZHANYONG, vbResBitmap) MSFlexGrid1.Text = strRoomName Case 维修 MSFlexGrid1.CellPictureAlignment = flexAlignCenterTop Set Me.MSFlexGrid1.CellPicture = LoadResPicture(WEIXIU, vbResBitmap) MSFlexGrid1.Te
30、xt = strRoomName Case 预定 MSFlexGrid1.CellPictureAlignment = flexAlignCenterTop Set Me.MSFlexGrid1.CellPicture = LoadResPicture(YUDING, vbResBitmap) MSFlexGrid1.Text = strRoomName Case 打扫 MSFlexGrid1.CellPictureAlignment = flexAlignCenterTop Set Me.MSFlexGrid1.CellPicture = LoadResPicture(DASAO, vbRe
31、sBitmap) MSFlexGrid1.Text = strRoomName End Select dr.MoveNext Next i dr.CloseEnd Functio 定义函数结束在主界面的下方显示处于各种房间状态的房间个数是通过ShowRoomCount函数来实现的。代码如下：Function ShowRoomCount() 定义函数 Dim RSCount As New Recordset 定义新的记录集对象 Dim Str As String Str = select RoomID from RoomInfo where & RoomState=空房查找空房 RSCount.
32、Open Str, g_DBConn, adOpenStatic, adLockOptimistic在标签中显示空房“” 间，其中多少间是通过RSCount的RecordCount方法来计算的Me.LabelKFCount.Caption = 空房: & RSCount.RecordCount & 间 RSCount.Close Str = select RoomID from RoomInfo where & RoomState=占用 RSCount.Open Str, g_DBConn, adOpenStatic, adLockOptimistic Me.LabelZYCount.Capt
33、ion = 占用: & RSCount.RecordCount & 间 RSCount.Close Str = select RoomID from RoomInfo where & RoomState=预定 RSCount.Open Str, g_DBConn, adOpenStatic, adLockOptimistic Me.LabelYDCount.Caption = 预订: & RSCount.RecordCount & 间 RSCount.Close Str = select RoomID from RoomInfo where & RoomState=维修 RSCount.Ope
34、n Str, g_DBConn, adOpenStatic, adLockOptimistic Me.LabelWXCount.Caption = 维修: & RSCount.RecordCount & 间 RSCount.Close Str = select RoomID from RoomInfo where & RoomState=打扫 RSCount.Open Str, g_DBConn, adOpenStatic, adLockOptimistic Me.LabelDSCount.Caption = 打扫: & RSCount.RecordCount & 间 RSCount.Clos
35、eEnd Function同时在主界面中，我使用了Time控件，它的功能是在一段时间内更新一次ShowRoomStatus和ShowRoomCount()函数，以随时显示最新的房间信息，在这里我设置了五秒更新一次。4.2.3房间信息管理界面在基本信息的下拉菜单中有房间信息选项，单击它就可以查看各个房间的详细信息，如图4-3所示：图4-3 房间信息界面房间信息界面将所有房间的信息都详细的显示在DateGrid控件中，用户可以对房间进行添加、删除和修改操作。在这里要注意，当删除房间时，只能删除没有过任何使用记录的房间，因为其它表中有其相关的记录，如果要删除，必须先将所有相关记录删除。窗体中的添加、
36、修改和删除只对管理员和高级用户有效。对于普通用户，只能显示房间信息，无法实现添加、修改和删除操作，这三个按钮都变成灰色无法使用。这是因为在房间信息窗体的设计过程中，通过Login窗体中记录的g_LoginedUser.Type信息已经知道该用户的权限，在该窗体Form的Load事件中，已经设置普通用户是不能进行添加、删除和修改操作的。房间信息窗体的Load事件的代码：Private Sub Form_Load() Me.Top = (Screen.Height - Me.Height) / 2 垂直方向居中 Me.Left = (Screen.Width - Me.Height) / 2 水平
37、方向居中 If g_LoginedUser.Type = 0 Then 如果用户的权限为0，即普通用户时，添加、删除和修改三个按钮显示为灰。Me.Command1.Enabled = False Me.Command2.Enabled = False Me.Command3.Enabled = False End If 设置Adodc连接字符串 Adodc1.ConnectionString = g_DBConn Adodc1.CommandType = adCmdTable Adodc1.RecordSource = RoomInfo 连接的数据库 设置Grid 与 Adodc1关联，使其显
38、示当前的房间信息 Set DataGrid1.DataSource = Adodc1End Sub4.2.4会员信息管理界面在基本信息中，选择下拉菜单中的会员信息就可以查看所有会员的基本信息。如图4-4所示。图6 会员信息界面会员信息窗体能显示会员的详细信息，并有添加会员、修改会员信息、删除会员的功能。窗体中的添加、修改和删除功能也同样只针对管理员和高级用户有效。其实现和房间信息的实现技术相同，连接的表是MemberInfo。4.2.5预定、开房、结帐、维修和打扫界面在该系统中，所涉及到的房间业务包括预定、开房、结帐、维修和打扫。下面将分别介绍其功能的实现。（1）预定用户可以通过预定单在预定单
39、明细表（DestineInfo）中添加新的预定信息。在预定单中，通过选择会员单选框来从会员信息表中读取会员信息，并且自动生成可选的会员编号，并且通过选择的会员编号显示会员姓名、客户电话。同理，如果选择了房间编号，则系统自动填充房间类型和房间价格。预定单界面如图4-5，当选择会员单选框时的预定单界面如图4-6：图4-5 预定单界面图 图4-6 有会员信息的预定界面自动生成下拉列表框中的代码如下：Private Sub Form_Load() Dim DBStr As String Dim AddDestineID As New ADODB.Recordset 建立新的ADO对象 Dim i As
40、 Integer Dim sDestinedID As String界面显示位置 Me.Top = (Screen.Height - Me.Height) / 2 垂直方向居中 Me.Left = (Screen.Width - Me.Height) / 2 水平方向居中 隐藏会员信息和预订单编号信息 Me.Label1.Visible = False Me.CombMemID.Visible = False Me.Label2.Visible = False 当前日期 Me.LabelDate.Caption = Date 自动生成预定单编号 DBStr = select DestineID
41、 from DestineInfo AddDestineID.CursorType = adOpenStatic AddDestineID.CursorLocation = adUseClient AddDestineID.Open DBStr, g_DBConn, adOpenForwardOnly, adLockOptimistic If AddDestineID.EOF Then sDestinedID = 0001 Me.TextDestineID.Text = sDestinedID Else AddDestineID.MoveLast i = AddDestineID.Fields(DestineID).Value + 1 If i = 10 & i 0 Then adoRs.MoveFirst Do While Not adoRs.EOF CombRoomID.AddItem
