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

　　

【正文】 nd If rst. MoveNext Loop End If End Sub 調(diào)用 CtrEnable 過程設(shè)置控件的可用屬性，其代碼如下所示。 Private Sub CtrEnable(flag As Boolean) ?設(shè)置按鈕的可用性 ‘設(shè)置控件的 Enabled 值 txtRoomId. Enabled = flag CobBuildingId. Enabled = flag txtArea. Enabled = flag CobType. Enabled = flag CobSale. Enabled = flag 21 txtSit. Enabled = flag txtNotes. Enabled = flag End Sub 調(diào)用 ShowData 過程，在控件中顯示字段的相應(yīng)數(shù)據(jù)，其代碼如下所示。 Private Sub ShowData（） ‘在控件中顯示數(shù)據(jù) Dim Index As Integer If rs. RecordCount 0 Then ?如果存在記錄 = rs. Fields(“roomID”) ?樓房 ComboBox控件 For Index = 0 To – 1 If Left(Trim(CobBuildingId. List(Index)), 4) = rs. Fields(“buildingID”) Then = Index Exit For End If Next Index = rs. Fields(“rmsize”) = Trim(rs. Fields(“type”)) = Trim(rs. Fields(“status”)) = rs. Fields(“rmposition”) txtNotes. Text = rs. Fields(“rmintroduction”) End If End Sub (2) 當(dāng)用戶單擊樹形結(jié)構(gòu)中的房間時(shí)，將觸發(fā) TreeView1_NodeClick 事件，得到當(dāng)前節(jié)點(diǎn)的關(guān)鍵字，其代碼如下所示。 Private Sub TreeView1_NodeClick（ ByVal Node As ） ?顯示房間的具體信息 Dim Key As String ?保存當(dāng)前節(jié)點(diǎn)的關(guān)鍵字 Key = Trim() ?查詢當(dāng)前節(jié)點(diǎn)的信息 SQLStr = “SELECT * FROM 房間信息表 where ” SQLStr = SQLStr amp。 “buildingID=? ” amp。 Left（ Trim(Key), 4） amp。 “ ? and roomID=? ” amp。 Mid(Trim(Key), 5） amp。 “ ? ” Set rs = SelectSQL(SQLStr. Msg) Call ShowData ?重新顯示數(shù)據(jù) End Sub (3) 當(dāng)用戶單擊 【保存】按鈕 時(shí)，將觸發(fā) CmdSave_Click事件。在保存數(shù)據(jù)之前，要對(duì)數(shù)據(jù)進(jìn)行合法性檢查，需要調(diào)用 CheckData函數(shù)，返回 True 時(shí)表示數(shù)據(jù)合法，返 22 回 False時(shí)表示數(shù)據(jù)非法，同時(shí)需要調(diào)用 setData過程來設(shè)置數(shù)據(jù)，其代碼如下所示。 Private Sub CmdSave_Click（） ?保存操作 On Error GoTo ErrMsg ?錯(cuò)誤處理 If Not CheckData Then Exit Sub ?如果數(shù)據(jù)不合法就退出 If flag = “Modify” Then ?如果是修改數(shù)據(jù) msg = MsgBox(“您確定要修改這條數(shù)據(jù)嗎？ ”, vbYesNo) If msg = vbYes Then Call setData ?設(shè)置數(shù)據(jù) Else Exit Sub End If ElseIf flag = “Add” Then ?如果是添加新數(shù)據(jù) Call setData ?設(shè)置數(shù)據(jù) End If ?更新數(shù)據(jù) ?設(shè)置控件的可用性 = True: CmdDelete. Enabled = True: CmdAdd. Enabled = True CmdSave. Enabled = False: CmdCancel. Enabled = False If flag = “Add” Then MsgBox (“成功添加數(shù)據(jù) !”) Else MsgBox (“成功更新數(shù)據(jù) !”) End If Call LoadData ?重新裝載數(shù)據(jù) Exit Sub ErrMsg: ?報(bào)告出錯(cuò)信息 MsgBox , vbExclamation, “出錯(cuò) ” End Sub 調(diào)用 CheckData 函數(shù)，返回 True時(shí)表示數(shù)據(jù)合法，返回 False 時(shí)表示數(shù)據(jù)非法，其代碼如下所示。 Private Function CheckData() As Boolean ?檢查數(shù)據(jù)的合法性 Dim rst As ?記錄集 Dim msgt As String msgt = “ ” ?檢查數(shù)據(jù) If Trim() = “ ” Then ?檢查房間號(hào)是否為空 msgt = “房間號(hào)為空 ” MsgBox （ msgt） 23 CheckData = False ?房間號(hào)為空，返回 False Exit Function End If CheckData = True ?數(shù)據(jù)合法，返回 True End Function 調(diào)用 setData 過程，給數(shù)據(jù)庫的字段賦值，其代碼如下所示。 Private Sub setData（） ?為字段設(shè)置數(shù)據(jù) (“roomID”) = (“buildingID”) = Left(, 4) (“rmsize”) = (“type”) = (“status”) = (“rmposition”) = (“rmintroduction”) = End Sub 信息查詢 信息查詢主要負(fù)責(zé)樓房信息和房間信息的查詢功能，提供模式匹配和多條件查詢功能。用戶登錄系統(tǒng)后，單擊【房間管理】｜【信息查詢】命令，彈出【信息查詢】界面，用戶可以根據(jù)多條件查詢房間信息。 【信息查詢】主要控件的屬性如表 8 所示。 表 8 【信息查詢】窗體主要控件屬性 控件 屬 性 屬性值 A信息查詢（ Form） Name frminfo Caption 信息查詢 DataGridl (DataGrid) Caption 查詢結(jié)果 CobSale（銷售狀態(tài)） Backcolor amp。H80000000amp。 ChkBuildingId Caption 樓房號(hào) ChkType Caption 適用戶型 ChkRoomArea Caption 房間大小 ChkSale Caption 銷售狀態(tài) 具體代碼如下所示。 （ 1）運(yùn)行窗體時(shí)將觸發(fā) Load 事件，初始化適用戶型 ComboBox 控件、樓房號(hào)ComboBox、銷售狀態(tài) ComboBox控件，其代碼如下所示。 Option Explicit Dim rs As 24 Dim SQLStr As String Din msg As String Private Sub Form_Load ( ) ?初始化適用戶型 ComboBox控件 (“居民用房 ”) (“商業(yè)用房 ”) = 0 ?初始化樓房號(hào) ComboBox控件 (“所有 ”) SQLStr = “SELECT buildingID,bdname FROM 樓房信息表 ORDER BY buildingID” Set rs = SelectSQL(SQLStr, msg) If rs. RecordCount = 0 Then ?如果沒有樓房信息 MsgBox “沒有樓房信息，請(qǐng)先建立樓房信息！ ” Exit Sub Else Do While Not ((“buildingID”) amp。 (“bdname”)) ?指向下一條記錄 Loop = 0 ?默認(rèn) ComboBox End If ?初始化銷售狀態(tài) ComboBox控件 (“未 銷售 ”) (“已銷售 ”) = 0 End Sub (2) 當(dāng)用戶單擊【樓房信息】按鈕時(shí)，將觸發(fā) CmdQuery_Click 事件，其代碼如下所示。 Private Sub CmdQuery_Click（） ?查詢房間信息，構(gòu)造 SQL 語句 SQLStr = “select * from 房間信息表 where 1=1 ” If = 1 Then ?分條件判斷 If Trim() “所有 ” Then SQLStr = SQLStr amp。 “and buildingID=? ” amp。 Left(Trim(), 4) amp。 “ ? ” End If End If If = 1 Then SQLStr = SQLStr amp。 “and type=? ” amp。 Trim() amp。 “ ? ” End If 25 If = 1 Then SQLStr = SQLStr amp。 “and rmsize between ” amp。 txtRoomAreal amp。 “ and ” amp。 txtRoomArea2 End If If = 1 Then SQLStr = SQLStr amp。 “and status=? ” amp。 Trim() amp。 “ ? ” End If Set rs = SelectSQL(SQLStr, msg) Set = rs End Sub 7 銷售信息管理 銷售信息管理 模塊主要實(shí)現(xiàn)客戶信息、房屋定價(jià)、房屋銷售和統(tǒng)計(jì)分析等功能。客戶信息提供客戶信息的添加、修改、刪除等功能； 房屋定價(jià)提供對(duì)房間的成本價(jià)、銷售價(jià)、折扣率統(tǒng)一設(shè)定功能；房屋銷售提供對(duì)房屋銷售信息記錄的功能；統(tǒng)計(jì)分析實(shí)現(xiàn)對(duì)銷售情況的各種分析和統(tǒng)計(jì)。 客戶信息 客戶信息功能主要用于維護(hù)客戶的各種信息，包括客戶編號(hào)、姓名、性別、出生日期、婚否、家庭成員數(shù)、職位、身份證號(hào)、經(jīng)濟(jì)收入、備注等，并對(duì)客戶信 息進(jìn)行添加、修改、刪除等操作。 用戶登錄系統(tǒng)后，單擊【銷售管理】｜【客戶信息】命令，彈出【客戶信息】界面，用戶可以添加、修改、刪除客戶信息。單擊【添加】按鈕，添加操作信息；單擊【保存】按鈕，保存操作信息；單擊【取消】按鈕，取消操作。 【客戶信息】窗體主要控件的屬性如表 9 所示。 表 9 【客戶信息】窗體主要控件屬性 控件 屬性 屬性值 B 客戶信息（ Form） Name frmcustomer Caption 客戶信息 txtCustomerId (TextBox 客戶編號(hào) ) MaxLength 4 txtCardId (TextBox 身份證號(hào) ) MaxLength 18 txtNotes (TextBox 備注 ) MultiLine True ScrollBars 2 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancel Caption 取消 CmdExit Caption 退出 26 具體代碼如下所示。 （ 1）運(yùn)行窗體時(shí)將觸發(fā) Load事件，調(diào)用 LoadData過