宾馆管理信息系统—免费计算机毕业设计论文

宾馆管理信息系统—免费计算机毕业设计论文内容摘要：

If 1 Then‘判断客房信息列表内容是否为空 gintRmode=2‘设置为修改状态 intCount=‘纪录当前记录位置 =”select*from rooms where roomNO=’”amp。 Trim((intCount,1))amp。 ”’” Else Call menuAddroom_Click‘添加记录 End If Else =” select*from rooms” End If End Sub 删除客房信息 Private Sub menuDeleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then If 1 Then‘判断客房信息列表内容是否为空 If MsgBox(“ 真的要删除这条文件记录么。 ”,vbOKCancel+vbExclamation, “警告 ”)=vbOK Then intCount=‘记载当前记录位置 txtSQL=”delete from rooms where roomNO=‘ ”amp。 Trim((intCount,1)amp。 ”’” Set mrc=ExecuteSQL(txtSQL,MsgText)‘执行删除操作 Unload frmRoom =”select*from rooms” End If End If End If End Sub 查询客房信息 Private Sub From_Load()‘载入窗体时，将自动加入所有记录的入库时间 Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select DISTINCT typename from roomtype” ‘初始化客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Trim((0)) Loop =0 Else MsgBox “请先进行客房标准设置 !”,vbOKOnly+vbExclamation, ”警告 ” Exit Sub End If End Sub Private Sub cmdOK_Click()‘设置完查询内容和方式后，单击 cmdOk 按钮查询 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomNO=’”amp。 Trim(txtItem(0)amp。 ””)amp。 ”’” End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。 ””)=”” Then sQSql=”roomtype=’”amp。 Trim(Combo1amp。 ””)amp。 ”’” Else sQSql=sQSqlamp。 ”and roomtype=’”amp。 Trim(Combo1amp。 ””)amp。 ”’” End If End If If Trim(sQSql)=”” Then MsgBox “请设置查询条件。 ” ,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。 sQSql End If End Sub ⑹订房信息管理模块的创建 订房信息管理模块主要实现如下功能： 查询剩余客房信息 添加订房信息 修改订房信息 删除订房信息 查询订房库信息 具体实现代码如下： Private Sub From_Load()‘载入窗体时，程序将自动加入客房种类和客房单价 Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select distinct typename from roomtype” ‘选择所有客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(0).AddItem (0) Loop End If txtSQL=”select distinct price from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(1).AddItem (0) Combo1(2).AddItem (0) Loop End If End Sub Private Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp。 Trim(Combo1(0)amp。 ””)amp。 ”’” End if If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。 ””)=”” Then If Trim(Combo1(1)amp。 ””)””And Trim(Combo1(2)amp。 ””)”” Then sQSql=”roomprice=’”amp。 Trim(Combo1(1)amp。 ””)amp。 And roomprice =’”amp。 Trim(Combo1(2)amp。 ””)”’” ElseIf Trim(Combo1(1)amp。 ””)=””And Trim(Combo1(2 )amp。 ””)””Then sQSql=”roomprice =’”amp。 Trim(Combo1(2)amp。 ””)amp。 ”’” ElseIf Trim(Combo1(1)amp。 ””)””And Trim(Combo1(2)amp。 ””=””Then sQSql=”roomprice=’”amp。 Trim(Combo1(1)amp。 ””)amp。 ”’” End If Else If Trim(Combo1(1)amp。 ””) ””And Trim(Combo1(2)amp。 ””)””Then sQSql=sQSqlamp。 ”androomprice=’”amp。 Trim(Combo1(1)amp。 ””)amp。 ”’and roomprice =’”amp。 Trim(Combo1(2)amp。 ””)amp。 ”’” ElseIf Trim(Combo1(1)amp。 ””)=””And Trim(Combo1(2)amp。 ””)””Then sQSql=sQSqlamp。 ”and roomprice =’”amp。 Tri m(Combo1(2)amp。 ””)amp。 ”’” ElseIf Trim(Combo1(1)amp。 ””)””And Trim(Combo1(2)amp。 ””)=””Then sQSql=sQSqlamp。 ”and roomprice=’”amp。 Trim(Combo1(1)amp。 ””)amp。 ”’” End If End If If Trim(sQSql)=”” Then MsgBox “请设置查询条件 !” ,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。 sQSqlamp。 ”and putup”’y’” flagSedit=True End If End Sub Private Sub From_Load()‘添加订房信息，载入窗体时把所有未预定的客房信息加入其中 Dim sSql As String Dim intCount As Integer =True Else MsgBox “没有订房信息 !” ,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp。 Trim(cboItem(0))amp。 ”’” ‘显示相关顾客信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not Then txtNO=mrcc!bookno txtItem(0)=mrcc!customname txtItem(1)=mrcc!customID txtItem(2)=mrcc!indate txtItem(3)=mrcc!discount txtItem(5)=mrcc!inmemo For intCount =0 To 3 txtItem(intCount).Enabled=False Next intCount End If End If End If Exit Sub End Sub Pri If IsDate(txtItem(4)) Then txtItem(4)=Format(txtItem(4),”yyyy mmdd”) Else MsgBox “入库时间应输入日期（ yyyymmyy） !”,vbOKOnly+vbExclamation,“警告 ” txtItem(4).SetFocus Exit Sub End If txtSQl=”select *from booking where bookno=’”amp。 Trim(txtNo)amp。 ”’” ‘加入新记录 Set mrcc=ExecuteSQL(txtSQL,MsgText) (6)=txtItem(5) (7)=txtItem(4) bYear=DatePart(“yyyy”,txtItem(2)) ‘获得入住日期和结算日期年代 eYear=DatePart(“yyyy”,txtItem(4)) bDays=DatePart(“y”,txtItem(2)) ‘获得入住日期和结算日期天数 eDays=DatePart(“y”,txtItem(4)) If bYear=eYear Then aDays=eDaysbDays Else aDays=(eY。