大作业软件技术实验报告.docVIP

软件技术实验报告 实验序号 大作业 名称 酒店管理程序的开发 班级 9391 学号 2009302316 姓名 范英 实验内容及完成情况： 综合已经学过的VB编程以及数据库知识，编写一个酒店前台入住、结帐的小型应用程序。要求： 1）建立一个酒店管理所需的数据库，根据实际需要设置若干基本表，并且打入相关数据。 2）分别采用Data控件、ADO控件、ADO对象连接数据库中的不同的记录集对象。 3）客人入住登记时由程序自动产生按入住客人入住的房型和收取入住押金额。 4）实施入住监控，当入住者超过预定入住期限，应产生报警信息，并采取相应提示追加入住押金的措施 5）可根据时段予以入住折扣，在结帐时，自动产生应缴纳入住金额并予以结帐找零（即退回剩余押金）的操作。 完成情况： 我的酒店管理程序主要包括：操作员登录，前台，住宿登记，退房结账，查询，提醒服务，管理员密码设置。 实验中遇到的问题及解决方法： 在这次大作业中，我发现自己综合运用知识的能力还是有待提高的。在运用ADO控件时，连接总会出问题，通过向老师请教，我对路径进行了重新修改，终于解决了，在老师布置任务的基础上，我有很多新的想法，但大都因为代码不熟悉而无法实现最佳效果。另外，虽然数据库的一般基本操作比较顺利，但是其中相应的事件的语言编写是一个较大难题，对于这一问题，应当感谢夏老师的大力帮助。 实验中所涉及的知识及技术： 分别采用Data控件、ADO控件、DAO对象、ADO对象连接数据库中的不同的记录集对象。以及菜单编辑器，Toolbar控件。学会不同窗体之间的转换与连接。 实验中的创新及功能扩充： 除了在达到老师要求基础上美化界面外，我还增加了修改密码这一创新功能，当然，其中很多代码的运用都要感谢老师的协助，其代码如下： Private Sub Command1_Click() Data1.RecordSource = select * from qxsz where 操作员= Text1.Text Data1.Refresh If Text1.Text And Text2.Text And Text2.Text = Data1.Recordset.Fields(密码) Then If Text3.Text Then Data1.Recordset.Edit Data1.Recordset.Fields(密码) = Text3.Text MsgBox (密码修改成功,退出操作员密码修改!) Data1.Recordset.Update form1.Enabled = True Unload Me Else MsgBox (请输入新密码!!) End If Else If Text1.Text = Then MsgBox (请输入操作员!) Text1.SetFocus Else If Text1.Text Data1.Recordset.Fields(操作员) Then Text1.SetFocus Text1.Text = MsgBox (无此操作员,请重新输入!) End If End If If Text2.Text = Then MsgBox (请输入操作员原密码!) Text2.SetFocus Else If Text2.Text Data1.Recordset.Fields(密码) Then MsgBox (原密码错误,请重新输入原密码!) Text2.SetFocus End If End If End If End Sub Private Sub Command2_Click() form1.Enabled = True Unload Me End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path \kfgl.MDB 自动识别数据库路径 End Sub Private Sub Form_Activate() Text1.SetFocus text1获得焦点 End Sub Private Sub Form_Unload(Cancel As Int