數(shù)據(jù)庫(kù)課程設(shè)計(jì)-酒店管理信息系統(tǒng)(編輯修改稿)
2025-05-12 12:12 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 S NOT NULL, [roomno][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [indate][datetime] NULL, [discount][numeric](2,0) NULL, [inmemo][text] COLLATE Chinese_PRC_CI_AS NULL, [checkdate][datetime] NULL, [ammount][numeric](10,2) NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]⒍賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： 添加客房信息 修改客房信息 刪除客房信息 查詢客房信息 具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =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‘顯示記錄內(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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1