宾馆管理信息系统论文

宾馆管理信息系统论文内容摘要：

t=4 .ColWidth(0)=300‘设置单元大小 .ColWidth(1)=1000 .ColWidth(2)=2020 .ColWidth(3)=2020 .ColWidth(4)=1000 .ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1 End With End Sub Private Sub ShowData()‘调用 showData 函数，显示记录列表 Dim i As Integer Set mrc=ExecuteSQL(txtSQL,MsgText)‘根据需要设置 SQL 语句，显示需要的记录 With msgList .Rows=1 Do While Not .Rows=Rows+1 For i=1 To Select Case (i1).Type Case adDBDate .TextMatrix(.Rows1,i)=Format((i1)amp。 ””,”yyyy mmdd”) Case Else .TextMatrix(.Rows1,i)=(i1)amp。 ”” End Select Next i Loop End With End Sub Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘选择记录，然后单击鼠标右键，触发MouseUp 事件 If Button=2 And Shift=0 Then PopupMenu End If End Sub Private Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then ‘ 判断是否打开记录窗体 If 1 Then fintTmode=2‘设置为修改状态 intCount=‘记下选择记录 =”select*from roomtype where typeid’”amp。 Trim((intCount,1))amp。 ”’” Else Call menuAddroomtype_Click End If Else =”select*from roomtype” End If End Sub Private Sub From_Resize()‘窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方 If vbMinimized And vbMinimized Then‘边界处理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End If End Sub ⑷删除客房标准 Private Sub menuDeleteroomtype_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 roomtype where typeid’”amp。 Trim(frmRoomt (intCount,1))amp。 ”’” Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘关闭记录窗体 =”select*from roomtype” ‘重新选择所有记录 End If End If End If End Sub ⑸客房信息管理模块的创建 客房信息管理模块主要实现如下功能： 添加客房信息 修改客房信息 删除客房信息 查询客房信息 具体实现代码如下： Private Sub From_Load()‘载入窗体时，自动添加客房信息种类 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判断是否处于添加状态 =amp。 “添加 ” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0‘显示记录内容 Else MsgBox “ 请先进行客房标准设置 !”,vbOKOnly+vbExclamation,“警告 ” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判断是否处于修改状态 Set mrcc=ExecuteSQL(txtSQL,MsgText)‘设置 SQL 语句显示当前选择记录 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判断内容是否为空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0 Else MsgBox “ 请 先 进 行 客 房 标 准 设置 !”,vbOKOnly+vbExclamation, “警告 ” =False Exit Sub End If End With End If =amp。 “修改 ” End If mblChange=False End Sub Private Sub cmdSave_Click()‘单击保存按钮触发事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim Msgtext As String For intCount=0 To 3 If Trim(TxtItem(intCount)amp。 ””)=”” Then Select Case intCount Case 0 sMeg=“客房编号” Case 1 sMeg=“客房位置” End Select sMeg=sMegamp。 “不能为空。 ” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode=1 Then‘判断是否有重复记录 txtSQL=”select * from rooms where roomNO=‘ ”amp。 Trim(txtItem(0))amp。 ” ’ ” Set mrc=ExecuteSQL(txtSQL,msgText) If =False Then MsgBox “已经存在此客房编号的记录。 ” ,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If End If If gintRmode=2 Then ‘判断是否处于修改状态 txtSQL=” delete from rooms where roomNO=‘ ”amp。 Trim(txtItem(0))amp。 ”’” Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms” ‘再加入新记录 Set mrc=ExecuteSQL(txtSQL,MsgText) ‘为数据库对象添加记录 (0)=Trim(txtItem(0)) (1)=Trim(txtItem(0)) For intCount=1 To 2 If Trim(txtItem(intCount)amp。 ””)=”” Then (intCount+1)=Null。