洗浴管理系统的设计与实现.doc

SQL 课程设计流程报告一、 周二完成任务（总体需求分析与设计）：数据需求分析：数据库数据要完整、同步、全面地反映企业洗浴系统的房间和衣柜使用信息，以及客人结帐信息等。功能需求分析：系统主要包括基本信息管理、前台信息管理、后台信息管理等管理功能模块，可以随时对信息进行添加、修改、删除、查询等操作，具有管理基本信息、收银结账、月营业分析等主要功能，并采用图形界面加数据的管理方式，让管理者可以动态地管理现有的信息。二、 周三完成任务（数据库设计）：1. 数据表的设计操作员管理表房间信息表房间类型表房间消费结账表衣柜信息表2. 数据的录入3. 创建视图建立视图v_fjxx如下： CREATE VIEW dbo.v_fjxx AS SELECT dbo.房间信息表.房间编号, dbo.房间信息表.房间类型, dbo.房间信息表.房间状态, dbo.房间类型表.房间价格 FROM dbo.房间信息表 INNER JOIN dbo.房间类型表 ON dbo.房间信息表.房间类型 = dbo.房间类型表.房间类型建立视图v_jz如下: CREATE VIEW dbo.v_jz AS SELECT dbo.房间消费结帐表.结帐单据号, dbo.房间消费结帐表.房间编号, dbo.房间类型表.房间价格, dbo.房间消费结帐表.进入时间, dbo.房间消费结帐表.结束时间, dbo.房间消费结帐表.消费时间, dbo.房间消费结帐表.消费金额, dbo.房间消费结帐表.结帐日期, dbo.房间信息表.房间状态 FROM dbo.房间消费结帐表 INNER JOIN dbo.房间信息表 ON dbo.房间消费结帐表.房间编号 = dbo.房间信息表.房间编号 INNER JOIN dbo.房间类型表 ON dbo.房间信息表.房间类型 = dbo.房间类型表.房间类型4. 创建规则房间信息表中属性建立规则 room_id_rule 房间编号：房间编号 like A-D1-100 room_type_rule 房间状态： 房间状态 in (使用,空闲)房间状态表中属性建立规则room_state_rule 房间类型： 房间类型 in (单人间,双人间,五人间,十人间)衣柜表中的属性建立规则 yg_state_rule 衣柜状态： 衣柜状态 in (使用,空闲) yg_id_rule 衣柜编号： 衣柜编号 between 01 and 100房间消费结账表中的属性建立规则 if_rule 是否结束： 是否结束 in (是,否)三、 周四完成任务(程序模块设计及PB语言实现):1. 在应用对象的open事件中添加脚本: SQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = ConnectString=DSN=xy;UID=;PWD=connect using sqlca;if sqlca.sqlcode 0 thenMessageBox (提示信息, 不能连接数据库： + sqlca.sqlerrtext)halt closereturnend if2. 登录窗口string czy99,pwd99,czy100,pwd100,pwd200czy99=trim(ddlb_1.text)pwd99=trim(sle_1.text)if czy99= then messagebox(,请选择操作员!)else if pwd99= then messagebox(,请输入密码!) sle_1.setfocus() else select 操作员密码 into :pwd100 from 操作员管理 where 操作员=:czy99; pwd200=trim(pwd100) if pwd200=pwd99 then czyvar=trim(czy99) open(w_main) close(parent) else messagebox(,密码有误!) sle_1.text= sle_1.setfocus() end if end ifend if3. 衣柜信息管理添加衣柜信息：g_RowNumber=dw_1.InsertRow(0)dw_1.SetFocus()dw_1.ScrollToRow(G_RowNumber)dw_1.SetColumn(1)删除衣柜信息：g_rownumber=dw_1.getrow()deleterow(dw_1,g_rownumber)保存衣柜信息：if update(dw_1,true,false)=1 thendw_1.resetupdate()commit;elserollback;messagebox(错误!,数据保存失败!)end if4. 房间信息管理在“添加房间信息”按钮的click事件中添加脚本：open(w_room_append)close(parent)在“删除房间信息”按钮的click事件中添加脚本：g_rownumber=dw_1.getrow()deleterow(dw_1,g_rownumber)在“保存房间信息”按钮的click事件中添加脚本：if update(dw_1,true,false)=1 thendw_1.resetupdate()commit;elserollback;messagebox(错误!,数据保存失败!)end if在“打印房间信息”按钮的click事件中添加脚本：dw_1.print()5. 衣柜服务管理open 事件dw_1.settransobject(sqlca)dw_1.retrieve()string ygbh/把不同的衣柜编号添加到组合框ddlb_1中declare cursor1 cursor for select distinct 衣柜编号 from 衣柜信息表;open cursor1;fetch cursor1 into :ygbh;do while sqlca.sqlcode=0 ddlb_1.additem(ygbh) fetch cursor1 into :ygbh;loopclose cursor1;查看指定衣柜信息的clicked事件：dw_1.settransobject(sqlca)string sqlsql=select 衣柜编号,衣柜状态 from + &+ 衣柜信息表 where 衣柜编号=+ddlb_1.text+/检索满足条件的信息dw_1.setsqlselect(sql)dw_1.retrieve()iii0=dw_1.getrow()if iii00 then dw_1.scrolltorow(iii0) ygbh0=dw_1.getitemstring(iii0,1) elseend if领取衣柜牌的clicked事件：string zt,zt1zt=使用/选择数据select 衣柜状态 into :zt1 from 衣柜信息表 where 衣柜编号=:ygbh0;if trim(zt1)=zt then messagebox(提示,该衣柜已在使用中,请选择其它衣柜!)else /修改记录 update 衣柜信息表 set 衣柜状态=:zt where 衣柜编号=:ygbh0;end ifdw_1.settransobject(sqlca)dw_1.retrieve()撤销衣柜牌的clicked事件：string ztzt=空闲update 衣柜信息表 set 衣柜状态=:zt where 衣柜编号=:ygbh0;dw_1.settransobject(sqlca)dw_1.retrieve()6. 房间服务管理open 事件：dw_2.settransobject(sqlca)dw_2.retrieve()string fjbh/把不同的房间编号添加到组合框ddlb_2中declare cursor2 cursor for select distinct 房间编号 from 房间信息表;open cursor2;fetch cursor2 into :fjbh;do while sqlca.sqlcode=0 ddlb_2.additem(fjbh) fetch cursor2 into :fjbh;loopclose cursor2;查看指定房间的clicked事件：dw_2.settransobject(sqlca)string sqlsql=select 房间编号,房间类型,房间状态 from + &+ 房间信息表 where 房间编号=+ddlb_2.text+/检索满足条件的信息dw_2.setsqlselect(sql)dw_2.retrieve()iii0=dw_2.getrow()if iii00 then dw_2.scrolltorow(iii0) ygbh0=dw_2.getitemstring(iii0,1) elseend if进入房间消费的clicked事件：string zt,zt1zt=使用/选择数据select 房间状态 into :zt1 from 房间信息表 where 房间编号=:fjh0;if trim(zt1)=zt then messagebox(提示,该房间正在使用中,请选择其它房间!)else /修改记录 update 房间信息表 set 房间状态=:zt where 房间编号=:fjh0; dw_2.settransobject(sqlca) dw_2.retrieve() open(w_jrfjxf) close(parent) end if结束房间消费的clicked事件：string zt,jssj,sfjszt=空闲jssj=string(today()+ +string(now()sfjs=是insert into 房间消费结帐表(结束时间,是否结束) values(:jssj,:sfjs); update 房间信息表 set 房间状态=:zt where 房间编号=:fjh0;dw_2.settransobject(sqlca)dw_2.retrieve()open(w_jz)这时打开结帐收银窗口结帐的clicked事件：string fjbhdatetime jrsj,jssjdecimal h1,m1,h2,m2,xfsjreal xfje,fjjgselect 房间编号,进入时间,结束时间,房间价格 into :fjbh,:jrsj,:jssj,:fjjg from 房间消费结帐表 where 房间编号=:fjh0;h1=hour(time(jrsj)m1=minute(time(jrsj)h2=hour(time(jrsj)m2=minute(time(jrsj)xfsj=h2+m2/60 - (h1+m1/60)xfje=xfsj*fjjginsert into 房间消费结帐表(消费金额) values(:xfje); messagebox(提示,消费金额为+string(xfje)7. 历史单据查询筛选结帐单据的clicked事件：string jzdjh,sql,qsrq,jsrq,jsrq1qsrq=string(trim(em_1.text)js