《数据库原理》课程设计论文

1/10《数据库原理》课程设计论文客房管理系统的设计姓名成绩评定完成日期：2006年9月15日目录一、设计目的二、设计内容1、题目简介2、需求分析3、系统结构图4、系统流程图5、数据库设计6、E—R图设计7、程序源代码及说明三、课程设计总结四、参考文献一、设计目的随着市场经济的迅速发展和人们生活水平的不段提高，宾馆酒店业的竞争愈来愈激烈。要想在竞争中取得优势,必须在经营管理、产品服务等方面提高服务管理意识。而对客房的经营起决定作用的是客房的管理。为提高客房的管理水平，做到最细微让顾客体会到客房服务的高标准，高质量。面对信息时代的挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。矚慫润厲钐瘗睞枥庑赖。二、设计内容1、题目简介本系统利用信息技术提高宾馆酒店旅馆管理水平，主要是管理其日常业务。使用本系统能够可大幅度提高业务部门的工作效率。聞創沟燴鐺險爱氇谴净。2、需求分析某宾馆（酒店、旅馆）设有：豪华套间、标准间、普间等各种设施。随着社会的进步和科学技术的不段发展，随着宾馆酒店业的竞争激励加剧，该宾馆（酒店、旅馆）的管理人员已意识到使用计算机网络和管理系统的重要性，决定着现在客房管理上采用计算机管理。残骛楼諍锩瀨濟溆塹籟。本系统利用信息技术提高其管理水平，主要管理宾馆的日常业务。希望通过本系统的开发，对宾馆的客房、客人及各种收费进行系统管理。客房管理要实现客房登记、追加押金、客人调放、房态设置等功能。客人管理要实现宿费提醒（提示前台要求客人补交押金）、客人挂帐、客人结帐等功能，满足多种需求。使用本系统可大幅度提高业务部门的工作效率。酽锕极額閉镇桧猪訣锥。根据其具体情况，系统重要功能包括：（1）住宿管理：包括住宿登记、调房登记、追加押金、退房结帐。（2）客房管理：包括客房设置、客房查询、房态查询。2/10（3）挂帐管理：包括挂帐查询、客户结款。（4）查询统计：包括住宿查询、退宿查询、宿费提醒。（5）日结：包括登记预收报表、客房销售报表、客房销售统计。（6）系统设置：包括操作员设置、密码设置、初始化、权限设置。3、系统结构图彈贸摄尔霁毙攬砖卤庑。图—1、客房管理系统结构图4、系统流程图客房管理挂帐管理查询统计日结系统设置客房设置客房查询房态查询退宿查询宿费提醒登记预收报表客户结款客房销售统计密码设置挂帐查询住宿查询操作员设置客房销售报表客房管理系统住宿管理住宿登记追加押金调房登记退宿结帐初始化权限设置挂帐应付款追加押金续住调房房态查询3/10图—2客房管理系统流程图5、数据库设计本系统数据库名为KFGL，包括以下8个表：住宿登记表（djb）、登记预收表（djys）、挂帐明细表（gzmx）、客房类型表（kf）、权限表（qxsz）、退房单表（tfd）、密码表（ma）。謀荞抟箧飆鐸怼类蒋薔。1、住宿登记表字段名称数据类型字段大小凭证号码文本20姓名文本50证件名称文本20证件号码文本20详细地址文本50出差事由文本50房间号文本20房间类型文本10联系电话文本20客房价格货币8住宿日期日期8住宿时间日期8住宿天数时间8宿费文本8应收宿费文本8折扣文本8预收金额文本8提醒日期日期8退宿日期日期8备注文本50日期日期8时间时间8退宿时间8提醒时间时间8手牌入住结帐客户住宿登记报表退宿宿费提醒4/10客房客房类型编号是否被定摘要文本30BZ文本20标志文本8结款方式文本102、密码表字段名称数据类型字段大小操作员文本20密码文本8备注：由于空间等问题，其他数据表不在此一一列出，望谅解！！！！6、E—R图设计需求1：旅客登记的e-r图姓名旅客编号定房日期定房时间类型编号房间类型类型数量房间号码使用天数顾客迁入单价类型类型编号需求2：客房查询的e-r图：类型房间类型类型编号类型单价数量查询操作员客房名称密码需求3：交易查询的e-r图操作员查询密码名称厦礴恳蹒骈時盡继價骚。房间号码7、程序源代码及说明（1）主界面下的源代码：PrivateSubForm_Load()Data1.DatabaseName=App.Path&\Kfgl.MDB'自动识别数据库路径茕桢广鳓鯡选块网羈泪。5/10EndSubPrivateSubForm_Activate()'设置操作员权限WithData1.RecordsetIf.BOF=FalseThen.MoveFirst.FindFirst操作员like+Chr(34)+StatusBar1.Panels(4).Text+Chr(34)+鹅娅尽損鹌惨歷茏鴛賴。PrivateSublabel1_Click()'调入住宿登记zsdj_ClickEndSubPrivateSublabel2_Click()'调入退宿结帐tf_ClickEndSubPrivateSubLabel3_Click()'调入住宿查询zscx_ClickEndSubPrivateSubLabel4_Click()'调入客房销售报表xsbb_ClickEndSubPrivateSubLabel5_Click()'调入宿费提醒sftx_ClickEndSubPrivateSublabel6_Click()EndEndSubPrivateSubkfyd_Click()'调入客房预定main_kfyd.ShowEndSubPrivateSubTimer1_Timer()Label7.Left=Label7.Left-15IfLabel7.Left0ThenLabel7.Left=Label7.Left+12000籟丛妈羥为贍偾蛏练淨。EndSubPrivateSubzsdj_Click()'调入住宿登记main_kfdj.Showmain.Enabled=FalseEndSubPrivateSubzjyj_Click()'调入追加押金Loadmain_zjyjmain_zjyj.Showmain.Enabled=FalseEndSubPrivateSubtfdj_Click()'调入调房登记main_tfdj.Showmain.Enabled=FalseEndSub6/10PrivateSubtf_Click()'调入退宿结帐main_tf.Showmain.Enabled=FalseEndSubPrivateSubkfsz_Click()'调入客房管理main_kfsz.Showmain.Enabled=FalseEndSubPrivateSubkfcx_Click()'调入客房查询main_kfcx.Showmain.Enabled=FalseEndSubPrivateSubftck_Click()'调入房态查看main_ftcx.Showmain.Enabled=FalseEndSubPrivateSubgzcx_Click()'调入挂帐查询Loadmain_gzcxmain_gzcx.Showmain.Enabled=FalseEndSubPrivateSubkhjk_Click()'调入客户结款Loadmain_khjkmain_khjk.Showmain.Enabled=FalseEndSubPrivateSubydfcx_Click()'调入预定房查询main_kfydcx.Showmain.Enabled=FalseEndSubPrivateSubzscx_Click()'调入住宿查询Loadmain_zscxmain_zscx.Showmain.Enabled=FalseEndSubPrivateSubtfcx_Click()'调入退宿查询Loadmain_tfcxmain_tfcx.Showmain.Enabled=FalseEndSubPrivateSubsftx_Click()'调入宿费提醒Loadmain_xftxmain_xftx.Showmain.Enabled=False7/10EndSubPrivateSubysbb_Click()'调入登记预收报表main_ysbb.Showmain.Enabled=FalseEndSubPrivateSubxsbb_Click()'调入客房销售报表main_xsbb.Showmain.Enabled=FalseEndSubPrivateSubxstj_Click()'调入客房销售统计main_xstj.Showmain.Enabled=FalseEndSubPrivateSubczysz_Click()'调入操作员设置Loadmain_czyszmain_czysz.Showmain.Enabled=FalseEndSubPrivateSubma_Click()'调入密码设置main_mmsz.Showmain.Enabled=FalseEndSubPrivateSubcsh_Click()'调入初始化main_csh.Showmain.Enabled=FalseEndSubPrivateSubqxsz_Click()'调入权限设置main_qxsz.Showmain.Enabled=FalseEndSubPrivateSubtc_Click()EndEndSub（2）操作员登陆界面下的源代码PrivateSubForm_Load()'自动识别数据库路径Data1.DatabaseName=App.Path&\KFGL.mdbData2.DatabaseName=App.Path&\KFGL.mdbEndSubPrivateSubForm_Activate()'当记录为零时，进入系统具有所有权限IfData1.Recordset.RecordCount=0ThenMsgBox(请先设置操作员密码和权限！)Loadmain8/10main.ShowUnloadMeElseText1.SetFocusEndIfEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)預頌圣鉉儐歲龈讶骅籴。IfKeyCode=vbKeyReturnThenText2.SetFocus'按回车键，text2获得焦点渗釤呛俨匀谔鱉调硯錦。EndSubPrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)铙誅卧泻噦圣骋贶頂廡。IfKeyCode=vbKeyReturnThenCmd1.SetFocus'按回车键cmd1获得焦点擁締凤袜备訊顎轮烂蔷。IfKeyCode=vbKeyUpThenText1.SetFocusIfKeyCode=vbKeyDownThenCmd1.SetFocusEndSubPrivateSubcmd1_Click()main.StatusBar1.Panels(4).Text=Text1.Text'赋值给main.StatusBar1.Panels(4).Text贓熱俣阃歲匱阊邺镓騷。'验证操作员及密码IfData2.Recordset.BOF=FalseThenData2.Recordset.MoveFirst坛摶乡囂忏蒌鍥铃氈淚。Data2.Recordset.FindFirst操作员like+Chr(34)+Text1.BoundText+Chr(34)+蜡變黲癟報伥铉锚鈰赘。IfData2.Recordset.NoMatchThenMsgBox(操作员输入错误!)ElseData1.RecordSource=select*fromqxszwhere操作员='&Text1.BoundText&'買鲷鴯譖昙膚遙闫撷凄。Data1.RefreshIfText1.BoundTextAndText2.TextAndText2.Text=Data1.Recordset.Fields(密码)Then綾镝鯛駕櫬鹕踪韦辚糴。Loadmainmain.ShowUnloadMeElseIfTIM=3Then'密码输错3次，退出系统myval=MsgBox(密码输入错误,请向系统管理员查询!,0,)Ifmyval=vbOKThenEndEndIfIfTex