【正文】
bo].[user_Info1]( [user_ID][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [user_PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [user_Des] [char](10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建客房標準信息表格 roomtype CREATE TABLE [dbo].[roomtype]( [typeid][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [typename][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [area][numeric](5,0) NULL, [bednum][numeric](2,0) NULL, [haircondition][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelephone][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelevision][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htoilet][char](2) COLLATE Chinese_PRC_CI_AS NULL, [price][numeric](10,2)NULL ) ON [PRIMARY]創(chuàng)建客房信息表格 roomsCREATE TABLE [dbo].[rooms]( [roomNO][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [roomtype][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [roomposition][char](20) COLLATE Chinese_PRC_CI_AS NULL, [roomprice][numeric](10,2) NULL, [putup][char](2) COLLATE Chinese_PRC_CI_AS NOT NULL, [roommemo][text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]創(chuàng)建訂房信息表bookinCREATE TABLE [dbo].[bookin]( [bookno][char](14) COLLATE Chinese_PRC_CI_AS NOT NULL, [customname][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [customID][char](18) COLLATE Chinese_PRC_CI_AS 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)建 客房信息管理模塊主要實現(xiàn)如下功能: 修改客房信息 查詢客房信息 具體實現(xiàn)代碼如下:Private Sub From_Load()‘載入窗體時,自動添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp?!靶薷摹? End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim Msgtext As String For int