【文章內(nèi)容簡介】 e Security=SSPI?！?amp。 _ “Persist Security Info=False。Initial Catalog=樓盤銷售系統(tǒng) ” End Function Public Function OpenConn(ByRef Conn As ADODB Connection) As Boolean ?打開數(shù)據(jù)庫連接，連接成功返回 True,出錯時返回 False Set Conn = New ADODB. Connection ?出錯處理 On Error GoTo ErrorHangle ?出錯處理 ConnStr ?打開數(shù)據(jù)庫連接 OpenConn = True ErrorHangle： ?如果出錯，進(jìn)行錯誤處理 MsgBox “連接數(shù)據(jù)庫失?。≌堉匦逻B接！” OpenConn = False Exit Function End Function Public Sub ExecuteSQL(ByVal SQLStr As String, ByRef msg As String) ?執(zhí)行 SQL 語句 Dim Conn As ADODB. Connection Dim sTokens() As String ?出錯處理 On Error GoTo ErrorHandle ?判斷 SQL 語句 sTokens = Split (SQLStr) ?調(diào)用 Split函數(shù)拆分 SQL語句 If InStr(“INSERT,DELETE,UPDATE”,Ucase((sTokens(0)))) Then ?打開數(shù)據(jù)庫連接 If OpenConn(Conn) Then ?如果打開連接成功，執(zhí)行 SQL 語句 SQLStr msg = sTokens(0) amp。 “操作執(zhí)行成功！” End If Else msg = “SQL 語句有誤： ” amp。 SQLStr End If Finally_Exit: ?程序結(jié)束的時候進(jìn)行對象銷毀工作 Set rst = Nothing Set Conn = Nothing 12 Exit Sub ErrorHangle: msg = “執(zhí)行錯誤： ” amp。 Resume Finally_Exit End Sub Public Function SelectSQL(ByVal SQLStr _ As String, ByRef msg As String) As ?執(zhí)行 SQL 語句，返回 Dim Conn As ADODB. Connection ?連接字符串 Dim ret As ADODB. Recordset ?記錄集 Dim sTokens() As String ?出錯處理 On Error GoTo ErrorHandle ?出錯處理 ?判斷 SQL 語句 sTokens = Split (SQLStr) ?調(diào)用 Split函數(shù)拆分 SQL語句 If InStr(“SELECT”,Ucase((sTokens(0)))) Then ?打開數(shù)據(jù)庫連接 If OpenConn(Conn) Then ?如果打開連接成功，執(zhí)行 SQL 語句 Set rst = New = adUseClient Trim$( SQLStr), Conn, adOpenDynamic, adLockOptimistic Set SelectSQL = rst Msg = “查詢到 ” amp。 amp。 “ 條記錄 ! ” End If Else msg = “SQL 語句有誤： ” amp。 SQLStr End If Finally_Exit: ?程序結(jié)束的時候進(jìn)行對象銷毀工作 Set rst = Nothing Set Conn = Nothing Exit Function ErrorHangle: ?若語句執(zhí)行出錯，提示出錯信息并轉(zhuǎn)到 Finally_Exit MsgString = “查詢錯誤： ” amp。 _ Resum Finally_Exit End Function 6 房屋信息管理 建立好主窗體后，開始對兩個 管理模塊的建立進(jìn)行闡述。首先是房屋信息管理模塊，它主要實現(xiàn)樓房管理、房間管理和信息查詢等功能。樓房管理建立樓房信息，并對樓房信息進(jìn)行維護； 房間管理設(shè)置房間信息，并對房間信息進(jìn)行維護；信息查詢提供房間信息查詢功能。 13 樓房管理 樓房管理主要用于建立樓房信息，包括樓房號、樓名、所處位置、占地面積、總投資、層數(shù)、房間數(shù)、簡介等，并對樓房信息進(jìn)行添加、修改、刪除等操作。 用戶登錄系統(tǒng)后，單擊 【房屋信息】｜【樓房管理】命令，彈出【樓房管理】界面，用戶可以添加、修改、刪除樓房信息。單擊【保存】按鈕，保存操作信息；單擊【取消】按鈕，取消操作。 【樓房管理】窗體主要控件的屬性如表 6 所示。 表 6 【樓房管理】窗體主要控件屬性 控件 屬性 屬性值 A樓房管理（ Form） Name frmbuilding Caption 樓房管理 txtBuildingId (TextBox 樓房號 ) MaxLength 4 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancel Caption 取消 CmdExit Caption 退出 txtNotes (TextBox 簡介 ) MultiLine True ScrollBars 2 具體代碼如下： （ 1） 運行窗體時將觸發(fā) Load事件，調(diào)用 LoadData過程初始化樓房 ListView,設(shè)置控件的 可用屬性，調(diào)用 ShowData 過程顯示數(shù)據(jù)，其代碼如下所示。 Option Explicit Dim rs As ADODB. Recordset Dim SQLStr As String ?查詢字符串 Dim msg As String ?查詢結(jié)果判斷 Dim flag As String ?判斷是新增記錄還是修改記錄 Private Sub Form_Load() Call LoadData ?裝載數(shù)據(jù) Call ShowData ?顯示數(shù)據(jù) End Sub 調(diào)用 LoadData 過程，裝載數(shù)據(jù)，其代碼如下所示。 Private Sub LoadDate( ) ‘裝載數(shù)據(jù) Dim list As ListItem Dim key As String ‘ ListView 空間關(guān)鍵字 Set rs = Nothing SQLStr = “SELECT * FROM 樓房信息表 ORDER BY buildingID” Ste rs = SelectSQL(SQLStr,msg) ?查詢樓房信息 14 ListView1. 清空 ListView 控件 If = 0 Then ?若不存在樓房信息，添加按扭可用，其他按扭不可用 =True:=False:=False =False:=False Else ‘如果存在樓房信息，初始化 ListView 控件 Do Until Key = (“buildingID”) amp。 (“bdname”) Set list = (, , key, 1) Loop ?編輯控件可用性 =True:= True:= True ==False ?返回到第一條記錄 End If ‘設(shè)置控件 Enabled 值 Call Ctr Enabled(False) End Sub 調(diào)用 CtrEnable 過程設(shè)置控件的可用屬性，其代碼如下所示。 Private Sub CtrEnable(flag As Boolean) ?設(shè)置控件 Enabled 值 = flag txtName. Enabled = flag txtArea. Enabled = flag txtInvest. Enabled = flag txtFloors. Enabled = flag txtRooms. Enabled = flag txtPosition. Enabled = flag txtNotes. Enabled = flag End Sub 調(diào)用 ShowDate 過程，在控件中顯示字段的相應(yīng)數(shù)據(jù)，其代碼如下所示。 Private Sub ShowDate（） ‘在控件中顯示數(shù)據(jù) If 0 Then ?如果存在記錄 ?為控件賦值 = (“buildingID)” = (“bdname”) = (“area”) 15 txtInvest. Text = (“investment”)\ txtFloors. Text = (“l(fā)ayers”) txtRooms. Text = (“roomN”) txtPosition. Text = (“bdposition”) txtNotes. Text = (“bdintroduction”) End If End sub (2) 當(dāng)用戶單擊 ListView 控件中的樓房圖標(biāo)時，將觸發(fā) ListView1Click 事件，在控件中顯示樓房信息，其代碼如下所示。 Private Sub ListView1Click（） ‘在控件中顯示樓房信息 Dim key As String ?ListView 控件關(guān)鍵字 If 0 Then Key = Trim() SQLStr = “SELECT * FROM 樓房信息表 WHERE buildingID=? “ amp。 Left(key, 4) amp。 “ ? “ Set rs = SelectSQL(SQLStr,msg) Call ShowDate ?重新顯示數(shù)據(jù) End If End Sub (3) 當(dāng)用戶單擊 【保存】按鈕時，將觸發(fā) CmdSave_Click事件。在保存數(shù)據(jù)之前，要對數(shù)據(jù)進(jìn)行合法性檢查，需要調(diào)用 CheckData函數(shù)，返回 True 時表示數(shù)據(jù)合法，返回 False時表示數(shù)據(jù)非法。同時需要調(diào)用 setData過程來設(shè)置數(shù)據(jù)，其代碼如下所示。 Private Sub CmdSave_Click() ‘ 保存操作 ‘錯誤處理 On Error GoTo ErrMsg If Not CheckDate 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 ElsaIf f