【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 rror Resume Next 39。Set db = New Set db = New Set rs = New = driver={SQL Server}。server=HONGDUTAN。database=賓館管理 。Persist Security Info=False。User ID=sa SELECT COUNT(姓名 ) AS Expr1 FROM 酒店登記 WHERE 姓名 =39。 amp。 amp。 39。, db, adOpenDynamic, adLockReadOnly x = (Expr1).Value 39。 SELECT COUNT(姓名 ) AS Expr1 FROM 酒店登記 where 姓名 =39。 amp。 amp。 39。, db, adOpenDynamic, adLockReadOnly 39。x = Trim((expr1).Value) If x 1 Then n = MsgBox(有重名！請(qǐng)輸入證件號(hào)碼！ , 48) = Else 39。 select DISTINCT 房間類型 from 增刪 房間 , db, adOpenStatic, adLockReadOnly select * from 酒店登記 where 姓名 =39。 amp。 amp。 39。 or 證件號(hào)碼 =39。 amp。 amp。 39。, db, adOpenDynamic, adLockReadOnly If Then n = MsgBox(無(wú)此人 !, vbInformation) = 賓館管理系統(tǒng)軟件設(shè)計(jì) 30 Else = (姓名 ).Value = (性別 ).Value = (住店時(shí)間 ).Value = (籍貫 ).Value = (房間類型 ).Value = (證件名稱 ).Value = (房間號(hào)碼 ).Value = (證件號(hào)碼 ).Value Set = rs 2）系統(tǒng)查詢程序 Public rs As Public db As Private Sub Command1_Click() On Error Resume Next Dim m As String select sum(總金額 ) AS Expr1 from 退房情況 where 住店時(shí)間 =39。 amp。 amp。 39。 = (Expr1).Value 39。End If select * from 退房情況 where 住店時(shí)間 =39。 amp。 amp。 39。 Set = rs End Sub Private Sub Command2_Click() select min(住店時(shí)間 ) as Expr1 from 退房情況 w = (expr1).Value 39。MsgBox w 39。 39。 select * from 酒店登記 where 住店時(shí)間 =39。 amp。 Trim(w) amp。 39。 delete from 退房情況 where 住店時(shí)間 =39。 amp。 Trim(w) amp。 39。 Set = rs 賓館管理系統(tǒng)軟件設(shè)計(jì) 31 = False 39。 = True End Sub Private Sub Command3_Click() Dim strname As String * 40, strs1 As String * 40 strs1 = 請(qǐng)輸入要查詢的省份 + Chr(13) + Chr(10) + 然后單擊確定 strname = InputBox$(strs1, 輸入框 , , 100, 100) select 住店時(shí)間 ,姓名 ,性別 ,住宿天數(shù) ,住宿人數(shù) ,籍貫 ,證件名稱 ,證件號(hào)碼 ,房間類型 ,總床位數(shù) ,房間號(hào)碼 ,床位 ,出生日期 ,地址 from 酒店登記 where 籍貫 =39。 amp。 Trim(strname) amp。 39。 Set = rs If Then 39。Else MsgBox 無(wú)此人 !, , 提示 End If End Sub Private Sub Command4_Click() On Error Resume Next Dim m As String select sum(總金額 ) AS Expr1 from 退房情況 where 住店時(shí)間 between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 = (Expr1).Value 39。End If select * from 退房情況 where 住店時(shí)間 between 39。 amp。 amp。 39。 and 39。 amp。 amp。 39。 Set = rs End Sub 3）系統(tǒng)修改程序 Public rs As Public db As Private Sub Combo1_Click() 賓館管理系統(tǒng)軟件設(shè)計(jì) 32 On Error Resume Next Dim ren1 As Integer Dim ren2 As Integer Set db = New Set rs = New = driver={SQL Server}。server=HONGDUTAN。database=賓館管理 。Persist Security Info=False。User ID=sa select DISTINCT 房 間 類 型 from 增 刪 房 間 , db, adOpenStatic, adLockReadOnly select sum(總床位數(shù) ) as exip1 from 增刪房間 where 房間類型 =39。 amp。 Trim() amp。 39。 ren1 = (exip1).Value = (exip1).Value select sum(住宿人數(shù) ) as exip2 from 酒店登記 where 房間類型 =39。 amp。 Trim() amp。 39。 ren2 = (exip2).Value = ren1 ren2 39。 = = select * from 酒店登記 where 房間類型 =39。 amp。 Trim() amp。 39。 39。, db, adOpenDynamic, adLockReadOnly Set = rs End Sub Private Sub Combo2_Click() Set db = New Set rs = New = driver={SQL Server}。server=HONGDUTAN。database=賓館管理 。Persist Security Info=False。User ID=sa select DISTINCT 房 間 類 型 from 增 刪 房 間 , db, adOpenStatic, adLockReadOnly 賓館管理系統(tǒng)軟件設(shè)計(jì) 33 39。 select * from 酒店登記 WHERE 房間類型 =39。 amp。 Trim() amp。 39。 and 性別 =39。 amp。 Trim() amp。 39。 and 房間號(hào)碼 =39。 amp。 Trim() amp。 39。 Set = rs End Sub Private Sub Combo3_Click() On Error Resume Next Dim ren1 As Integer Dim ren2 As Integer Set db = New Set rs = New = driver={SQL Server}。server=GANFENGQING。database=賓館管理 。Persist Security Info=False。User ID=sa select 房間 號(hào)碼 from 增刪房間 WHERE 房間類型 =39。 amp。 Trim() amp。 39。 and 性別 =39。 amp。 Trim() amp。 39。, db, adOpenStatic, adLockReadOnly Dim t As Integer Dim i As String For t = 0 To Val() 1 i = Trim((房間號(hào)碼 ).Value) i Next t 賓館管理系統(tǒng)軟件設(shè)計(jì) 34 附錄 2 系統(tǒng)重要窗口 附 圖 1 系統(tǒng)登錄界面 附 圖 2 系統(tǒng)主界面 附圖 3 費(fèi)用統(tǒng)計(jì)綜合界面 賓館管理系統(tǒng)軟件設(shè)計(jì) 35 參考文獻(xiàn) 1 潘錦平 等 , 軟件系統(tǒng)開(kāi)發(fā)技術(shù) ， 西安電子科技大學(xué)出版社 ， 1997，第 35— 48 頁(yè)。 2 薩師煊 等， 數(shù)據(jù)庫(kù)系統(tǒng)概論 ， 高等教育出版 ， 1991，第 66— 79 頁(yè)。 3 張青 等 ， 數(shù)據(jù)庫(kù)系統(tǒng)原理及應(yīng)用 ， 冶金工業(yè)出版社 ， 1999，第 10— 38 頁(yè)。 4 石磊 ， Visual 與數(shù)據(jù)庫(kù)開(kāi)發(fā) ， 人民郵電出版社 ， 2021，第 44— 60 頁(yè)。 5 阿惟 ， Visual ， 進(jìn)銷存程序設(shè)計(jì) ， 清華大學(xué)出版社 ， 2021，第 27— 3 9 頁(yè)。 6 劉韜 等 ， Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 ， 人民郵電出版社 ， 2021，第 4 8— 76 頁(yè)。 7 顧寶炎 ， 管理學(xué)導(dǎo)論 ， 上海知識(shí)出版社 ， 1999，第 26— 58 頁(yè)。 8 孫彤 ， 組織行為學(xué)教程 ， 北京高等教育出版社 ， 1996，第 67— 98 頁(yè)。 9 亨利 .法約爾 ， 科學(xué)管理原理 ， 北京中國(guó)社會(huì)科學(xué)出版社 ， 1998，第 102— 116 頁(yè)。 賓館管理系統(tǒng)軟件設(shè)計(jì) 36 致 謝 本次設(shè)計(jì)是在導(dǎo)師周修理老師苦口婆心的指導(dǎo)下完成的，他治學(xué)嚴(yán)謹(jǐn)、學(xué)識(shí)淵博、品德高尚、平易近人、做人誠(chéng)懇、樂(lè)于奉獻(xiàn)。在這次做論文期間，他不僅傳授了我做學(xué)問(wèn)的方法，還傳授了做人的準(zhǔn)則。所有這些都將使我終生受益。無(wú)論是在理論學(xué)習(xí)階段，還是在論文的選題、資料查詢、開(kāi)題、研究和撰寫的每一個(gè)環(huán)節(jié)，無(wú)不得到導(dǎo)師的悉心指導(dǎo)和幫助。我愿借此機(jī)會(huì)向?qū)煴硎局孕牡母兄x！ 回顧四年學(xué)習(xí)期間的一千多個(gè)日日夜夜，自己 能為有機(jī)會(huì)在學(xué)校踏實(shí)學(xué)習(xí)，靜心鉆研，潛心研 究，并取得良好成績(jī) 而感到欣慰。欣慰之余，我要向關(guān)心和幫助 我學(xué)習(xí) 及生活的所有老師和同學(xué) 們表示真摯的謝意！感謝他們對(duì)我的關(guān)心、關(guān)注 、幫助 和支持！ 在即將畢業(yè)離校之際，我 還 要感謝 我們的輔導(dǎo)員于興業(yè)老師在大學(xué)四年生活中給予我的幫助、 指導(dǎo) 及教誨； 同時(shí)也感謝所有在生活上給予我的關(guān)心和幫助以及學(xué)業(yè)上的切磋和指點(diǎn)的同學(xué)們、朋友們 ； 感謝計(jì)算機(jī)科學(xué)與技術(shù)系 五 班的全體同學(xué)的幫助和勉勵(lì)。同窗之誼和手足之情，我將終生難忘！ 路漫漫其修遠(yuǎn)兮，吾將上下而求索。我愿在未來(lái)的學(xué)習(xí)和工作過(guò)程中，以更加豐厚的成果來(lái)答謝曾經(jīng)關(guān)心、幫助和支持過(guò)我的所有領(lǐng)導(dǎo)、老師、同學(xué)和朋友。