大作业软件技术实验报告

《大作业软件技术实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、西北工业大学软件技术专用软件技术实验报告实验序号大作业名称酒店管理程序的开发班级9391学号2009302316姓名范英实验内容及完成情况：综合已经学过的VB编程以及数据库知识，编写一个酒店前台入住、结帐的小型应用程序。要求：1）建立一个酒店管理所需的数据库，根据实际需要设置若干基本表，并且打入相关数据。2）分别采用Data控件、ADO控件、ADO对象连接数据库中的不同的记录集对象。3）客人入住登记时由程序自动产生按入住客人入住的房型和收取入住押金额。4）实施入住监控，当入住者超过预定入住期限，应产生报警信息，并采取相应提示追加入住押金的措施5）可根据时段予以入住折扣，在

2、结帐时，自动产生应缴纳入住金额并予以结帐找零（即退回剩余押金）的操作。完成情况：我的酒店管理程序主要包括：操作员登录，前台，住宿登记，退房结账，查询，提醒服务，管理员密码设置。7西北工业大学软件技术专用实验中遇到的问题及解决方法：在这次大作业中，我发现自己综合运用知识的能力还是有待提高的。在运用ADO控件时，连接总会出问题，通过向老师请教，我对路径进行了重新修改，终于解决了，在老师布置任务的基础上，我有很多新的想法，但大都因为代码不熟悉而无法实现最佳效果。另外，虽然数据库的一般基本操作比较顺利，但是其中相应的事件的语言编写是一个较大难题，对于这一问题，应当感谢夏老师的大力

3、帮助。实验中所涉及的知识及技术：分别采用Data控件、ADO控件、DAO对象、ADO对象连接数据库中的不同的记录集对象。以及菜单编辑器，Toolbar控件。学会不同窗体之间的转换与连接。实验中的创新及功能扩充：除了在达到老师要求基础上美化界面外，我还增加了修改密码这一创新功能，当然，其中很多代码的运用都要感谢老师的协助，其代码如下：PrivateSubCommand1_Click()Data1.RecordSource="select*fromqxszwhere操作员='"&Text1.Text&"'"Data1.RefreshIfText1.Text<>""AndTex

4、t2.Text<>""AndText2.Text=Data1.Recordset.Fields("密码")ThenIfText3.Text<>""ThenData1.Recordset.EditData1.Recordset.Fields("密码")=Text3.TextMsgBox("密码修改成功,退出操作员密码修改!")Data1.Recordset.Updateform1.Enabled=True7西北工业大学软件技术专用UnloadMeElseMsgBox("请输入新密码!!")EndIfElseIfText1.Text=""ThenMsgBox("请输入操作员!

5、")Text1.SetFocusElseIfText1.Text<>Data1.Recordset.Fields("操作员")ThenText1.SetFocusText1.Text=""MsgBox("无此操作员,请重新输入!")EndIfEndIfIfText2.Text=""ThenMsgBox("请输入操作员原密码!")Text2.SetFocusElseIfText2.Text<>Data1.Recordset.Fields("密码")ThenMsgBox("原密码错误,请重新输入原密码!")Text2.SetFocusEndIfEndIfEndIfEndSub

6、PrivateSubCommand2_Click()7西北工业大学软件技术专用form1.Enabled=TrueUnloadMeEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&"kfgl.MDB"'自动识别数据库路径EndSubPrivateSubForm_Activate()Text1.SetFocus'text1获得焦点EndSubPrivateSubForm_Unload(CancelAsInteger)form1.Enabled=TrueEndSub备注：运行结果如下当点击运行后，会出现以下页面进入

7、饭店管理页面7西北工业大学软件技术专用这是登记住宿页面7西北工业大学软件技术专用这是退宿结帐页面这是提醒页面7西北工业大学软件技术专用这是退出页面7