畢業(yè)設(shè)計(jì)-賓館管理信息系統(tǒng)-計(jì)算機(jī)論文-文庫(kù)吧資料
2024-08-19 12:13本頁(yè)面
【正文】 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 SubEnd SubPri If IsDate(txtItem(4)) Then txtItem(4)=Format(txtItem(4),”yyyymmdd”) Else MsgBox “入庫(kù)時(shí)間應(yīng)輸入日期（yyyymmyy）!”,vbOKOnly+vbExclamation,“警告” txtItem(4).SetFocus Exit Sub End If txtSQl=”select *from booking where bookno=’”amp?！盿nd putup”’y’” flagSedit=True End If End SubPrivate Sub From_Load()‘添加訂房信息，載入窗體時(shí)把所有未預(yù)定的客房信息加入其中 Dim sSql As String Dim intCount As Integer =True Else MsgBox “沒(méi)有訂房信息!”,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp?！薄? End If End If If Trim(sQSql)=”” Then MsgBox “請(qǐng)?jiān)O(shè)置查詢條件!”,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。Trim(Combo1(1)amp。””)=””Then sQSql=sQSqlamp。”’” ElseIf Trim(Combo1(1)amp。Trim(Combo1(2)amp?！薄?””Then sQSql=sQSqlamp?！薄? ElseIf Trim(Combo1(1)amp。Trim(Combo1(2)amp?！薄?amp?！盿ndroomprice=’”amp?！薄?””And Trim(Combo1(2)amp?！薄?amp?！薄?””Then sQSql=”roomprice=’”amp?！薄? ElseIf Trim(Combo1(1)amp。Trim(Combo1(2)amp。””)=””And Trim(Combo1(2)amp。Trim(Combo1(2)amp?！薄?amp?！薄?””Then sQSql=”roomprice=’”amp?！薄?=”” Then If Trim(Combo1(1)amp?！薄?amp。查詢訂房庫(kù)信息具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時(shí)，程序?qū)⒆詣?dòng)加入客房種類和客房單價(jià) 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 SubPrivate Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp。修改訂房信息查詢剩余客房信息”’” End If End If If Trim(sQSql)=”” Then MsgBox “請(qǐng)?jiān)O(shè)置查詢條件！”,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。Trim(Combo1amp?！薄? Else sQSql=sQSqlamp。Trim(Combo1amp?！薄? End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。Trim(txtItem(0)amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作 Unload frmRoom =”select*from rooms” End If End If 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‘判斷客房信息列表內(nèi)容是否為空 If MsgBox(“真的要?jiǎng)h除這條文件記錄么？”,vbOKCancel+vbExclamation,“警告”)=vbOK Then intCount=‘記載當(dāng)前記錄位置 txtSQL=”delete from rooms where roomNO=‘”amp。Trim((intCount,1))amp。””)=”” Then (intCount+1)=Null Else (intCount+1)=Trim(txtItem(intCount)) End If Next intCount (4)=”” (5)=Trim(txtItem(3)) If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=”” Next intCount mblChange=False If flagRedit Then Unload frmRoom =”select*from rooms”‘重新顯示數(shù)據(jù) End If ElseIf gintRmode=2 Then Unload Me If flagRedit Then Unload frmRoom End If =”select*from rooms” End If End SubTrim(txtItem(0))amp。Trim(txtItem(0))amp?！薄?=”” Then Select Case intCount Case 0 sMeg=“客房編號(hào)” Case 1 sMeg=“客房位置” End Select sMeg=sMegamp?！疤砑印? 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‘顯示記錄內(nèi)容 Else MsgBox “請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設(shè)置SQL語(yǔ)句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷內(nèi)容是否為空 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“請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub End If
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1