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

　　

【正文】 owSizing = False .Columns(1).Caption = 客人姓名 .Columns(1).Width = 600 .Columns(1).AllowSizing = False .Columns(2).Caption = 身份證號碼 .Columns(2).Width = 1500 .Columns(2).AllowSizing = False .Columns(3).Caption = 房間號 .Columns(3).Width = 600 .Columns(3).AllowSizing = False .Columns(4).Caption = 登記日期 .Columns(4).Width = 1000 .Columns(4).AllowSizing = False .Columns(5).Caption = 性別 .Columns(5).Width = 500 .Columns(5).AllowSizing = False .Columns(6).Caption = 籍貫 .Columns(6).Width = 2021 .Columns(6).AllowSizing = False End With End SubPrivate Sub Command1_Click() If optroomno Then opentable , select * from guest where (((guest.房間號 ) like 39。 amp。 Trim() amp。 % 39。)) ElseIf optname Then opentable , select * from guest where (((guest.姓名 ) like 39。 amp。 Trim() amp。 % 39。)) 39。 ElseIf optbookno Then opentable , select * from guest where (((guest.登記號 ) like 39。 amp。 Trim() amp。 %39。)) End If dtgqueryrefresh End Sub 24 Private Sub Form_Load() = ( ) / 2 = ( ) / 2 opentable , select * from guest order by 登記號 dtgqueryrefresh End Sub Private Sub optname_Click() = = True = 按姓名查 詢 = True SendKeys {TAB} End Sub Private Sub optroomno_click() = = True = 按房間號查詢 = True SendKeys {TAB} End Sub Private Sub optbookno_click() = 39。 = True = True = 按登記號查詢 = True SendKeys {TAB} End Sub 3． 9 查詢客房信息 客房查詢窗體主要功能是實(shí)現(xiàn)客房信息查詢顯示，查詢方式可以按房間號，客房等級，客房類型查詢，工作界面如圖： 25 圖 程序代碼如下： Private Sub dtgroomqueryinforefresh() With dtgroomqueryinfo Set .DataSource = .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 房間號 .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客房等級 .Columns(1).Width = 800 .Columns(1).AllowSizing = False .Columns(2).Caption = 客房類型 .Columns(2).Width = 800 .Columns(2).AllowSizing = False .Columns(3).Caption = 客房價格 .Columns(3).Width = 800 .Columns(3).AllowSizing = False .Columns(4).Caption = 客房狀態(tài) .Columns(4).Width = 800 26 .Columns(4).AllowSizing = False .Columns(5).Caption = 客房備注信息 .Columns(5).Width = 1200 .Columns(5).AllowSizing = False End With End Sub Private Sub Command1_Click() If optroom Then opentable , select * from room where (((room.房間號 ) like 39。 amp。 Trim() amp。 % 39。)) ElseIf optgrade Then opentable , select * from room where (((room.客房等級 ) like 39。 amp。 Trim() amp。 39。)) 39。 ElseIf opttype Then opentable , select * from room where (((room.客房類型 ) like 39。 amp。 Trim() amp。 39。)) End If dtgroomqueryinforefresh End Sub Private Sub Form_Load() = ( ) / 2 = ( ) / 2 opentable , select * from room order by 房間號 dtgroomqueryinforefresh End Sub Private Sub optroom_Click() = = True = 按房間號查詢 = True SendKeys {TAB} End Sub 27 Private Sub optgrade_click() = = True = 按客房等級查詢 = True SendKeys {TAB} End Sub Private Sub opttype_click() = = True = 按客房類型查詢 = True SendKeys {TAB} End Sub 第 4 章 心得體會 ： 了解了甚多的知識，比如： VB連接數(shù)據(jù)庫，數(shù)據(jù)庫的應(yīng)用，程序的簡單設(shè)計，以及一些開發(fā)的程序的步驟，大致的知道一些 VB的開發(fā)過程， 但本程序有一點(diǎn)不足之處是安全性能很不理想，完全沒有涉及到對特殊字符的過濾，很有可能導(dǎo)致整個程序崩潰，所有努力將付之東流。 還有就是數(shù)據(jù)庫的安全性不是很理想，建議用 Oracle 10i，這版本的數(shù)據(jù)庫在我看來性能是相對的高 的 ， 也是很理想的。 還有對于程序中的數(shù)據(jù)庫中的路徑要相對復(fù)雜點(diǎn)，那樣防止非授權(quán)用下載數(shù)據(jù)庫很有很大的幫助。也就是說安全性能會得到很大的提高的。 破解登錄口令： ‘ or’ =’ or’ （ or） =(or) Or)=(or 等等經(jīng)常能導(dǎo)致程序執(zhí)行混亂。 我分析了一對于授權(quán)用戶的登錄窗體，結(jié)果很令人糟糕。 一句話完全可以讓本程序崩潰，因?yàn)樵诒磉_(dá)式中有 or 或者字符“ ’ ” ,””” ,” ” ,” ” 等等特殊字符。有可能繞過身份驗(yàn)證的函數(shù)，從而把安全性降到最小，我設(shè)計的本程序在開始的時候添加了特殊字符的過濾，這只是很簡單的過濾，要真正的達(dá)到過濾目 的，要具體分析。 28 29 30 31 32 33 34 35 36