售樓管理系統1—計算機(論文)(編輯修改稿)

　

【文章內容簡介】 lse Then 39。有記錄時逐一添加到 cmbName 組合框 Do While = False ((0)) Loop = 0 39。默認顯示第一個子項 End If t = 0 39。初始化輸入次數 End Sub （ 3） ?確定?按鈕代碼 Private Sub cmdok_Click() If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation Else 39。判斷用戶名和密碼 是否正確 sql = select * from 系統管理表 where czyh=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。檢驗密碼是否正確 If Trim((1)) = Trim() Then userID = username = (2) 39。記錄登錄用戶的類型，以便權限設置 Unload Me Exit Sub Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 39。輸入次數加 1 If t = 3 Then MsgBox 您輸入密碼錯誤次數太多！ , vbExclamation, Unload Me End If End Sub （ 4） ?取消?按鈕代碼 Private Sub cmdcancel_Click() 39。關閉數據庫連接 Set conn = Nothing Unload Me End Sub 建立主窗體（ frmMain） 創建主窗體 在 Visual 的工程資源管理器中單擊鼠標右鍵，彈出的快捷菜單中依次選擇?添加? ?添加窗體?菜單項，彈出?添加窗體?對話框，單擊?打開?按鈕，即可在售樓管理系統工程中添加一個窗體 Form1，此窗體的各個屬性設置如表 10 所示。 表 10 系統主窗體屬性 屬性 屬性值 說明 名稱 frmMain 設置窗體名稱 Caption “售樓管理系統 ” 設置窗體標題 Icon 設置窗體圖標 Pictrue 設置窗體背景圖案 StartUpPosition 2CenterScreen 設置窗體默認位置 Windowstate 2Maximized 設置窗體默認狀態 主窗體的設置效果如圖 4 所示。 圖 4 主窗體設計效果圖 添加代碼 主窗體中的代碼不多，基本上都是實現單擊某個菜單選項即彈出相應窗體的語句，這些語句將分別在各個窗體中介紹。單擊?系統管理? ?退出系統?菜單，關閉系統的代碼如下： private Sub exitsys_click( ) ?關閉數據庫連接 set conn=Nothing End End sub 由于主窗體中用到了工具欄。因此需要對工具欄內的按鈕響應進行設置。 雙擊 Toolbar 控件，在該控件的 ButtonClick 事件中設定各個按鈕響應后的操作。這里使用? Select…… Case”語句來分辨當前單擊的是哪個按鈕。 Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case 39。按關鍵字選擇 Case bt_loupan 39。如果單擊按鈕關鍵字為 bt_loupan則顯示樓盤查詢窗體 1 Case bt_kehu 1 Case bt_shoufei 1 Case bt_shoulou 1 Case bt_shoukuan 1 Case bt_tuichu Unload Me End Select End Sub 另外，為了維護系統的安全，當用戶以 guest 身份登錄時，部分功能是不可用的。在窗體的加載事件中輸入如下代碼： Private Sub Form_Load() If username = guest Then = False 39。銷售合同管理不可用 = False 39。數據庫恢復不可用 End If End Sub 實現房產管理功能 打開?房產管理?菜單，下有?戶型登記?、?樓盤登記?、?戶型查詢?和?樓盤查詢? 4 個子菜單。 建立戶型登記窗體（ frmHuxingLogin） 主要用來對戶型資料進行登記，包括添加、修改、刪除等各種操作。 界面設計 在工程中添加一個窗體，設置窗體的屬性，如表 11 所示。 表 11 frmHuxingLogin 窗體屬性 屬性 屬性值 說明 名稱 FrmHuxingLogin 設置窗體名稱 Caption “戶型登記 ” 設置窗體標題 StartUpPosition 2CenterScreen 設置窗體默認位置 WindowState 2Maximized 設置窗體默認狀態 該窗體主要分為兩個部分。上半部分用一表 格控件顯示當前所有的戶型資料，這里用到 MSHFlexgrid 控件。此控件不是標準控件，需要用戶自行添加。按照前述方法打開工程的?部件?對話框，勾選? Microsoft Hierachical Flexgrid ?項即可將其加入到工具箱中。 該窗體下半部分用來顯示當前選定的戶型資料，或者用來接收輸入的新戶型資料。首先添加一個 Frame 控件，然后在該控件上添加 9個 Label 控件、 5 個 Text 控件、 4 個 CommandButton 控件、 1 個ComboBox 控件和 1 個 Image 控件。添加完控件的窗 體效果如圖 5 所示。 圖 5 ?戶型登記?窗體效果圖 工作流程 窗體加載時使用 ADO 進行數據庫的連接，同時在表格中顯示出數據。 單擊?增加?按鈕時，所有的文本框為可用狀態，并且設置為空，?增加?按鈕變為?保存?按鈕。在輸入完信息后，單擊?保存?按鈕，判斷戶型編號是否重復，對于不重復的戶型保存入庫。 單擊?刪除?按鈕時，詢問是否確定刪除該記錄，得到確認后根據戶型編號進行刪除。 單擊?修改?按鈕時，所有的文本框進入可編輯狀態，?修改?按鈕變為?保存?按鈕。修改后，單擊?保存?按鈕，進行數據的更新。 添加 代碼 （ 1）在主窗體的菜單中添加代碼，以便用戶單擊菜單時，彈出這個窗體。單擊?戶型登記?菜單，添加如下代碼： Private sub housestylogin_click( ) End sub （ 2）加載窗體時，需要在打開戶型資料表之后，調用 dispalygrid過程顯示記錄信息，然后將常用戶型名稱添加到 Combo1 組合框的子項中。在窗體加載事件中輸入如下代碼： Option Explicit Dim rs_huxing As New Dim gridclick As Boolean Dim getrow As Long Private Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = select * from 戶型資料表 39。檢索戶型資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic displaygrid 39。調用 displaygrid 過程，顯示信息 二室二廳 39。將戶型資料加入 Combo1控件子項中 一室二廳 一室二廳 復 式 三室二廳 gridclick = False 39。標識未 選擇記錄 = False 39。此時修改和刪除不可用 = False Exit Sub loaderror: MsgBox End Sub （ 3）窗體加載時需要顯示所有記錄信息。考慮到代碼的可重用性，定義 displaygrid 過程。單擊?工具?菜單，選擇?添加過程?子菜單，添加 displaygrid 過程。 顯示表格信息前應該對表格格式進行設置，如設置表格的行數和列 數等，添加一個 setgrid 過程。 Public Sub setgrid() 39。 設置表格格式 Dim i As Integer On Error GoTo seterror With grdHuxing .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = + 1 .Cols = 6 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 39。設置行高 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 39。設置列寬 .ColWidth(i) = 1300 Next i End With Exit Sub seterror: MsgBox End Sub 其中，使用 Rows 和 Cols 屬性設置總行數和列數。 FixedCols 屬性的作用是凍結某列，也就是說，如果表格的列數過多從而使表格帶有水平滾動條時，被設置為凍結的列不會隨著滾動條的滾動而變化。 表格表頭的格式是單獨設置的，以便區別于其他行。添加過程setgridhead 用來設置表頭。 Public Sub setgridhead() 39。設置表頭格式 On Error GoTo setheaderror = 0 39。在第一行中 逐列設置顯示文本，作為表頭 = 0 = 戶型編號 = 1 = 建筑面積 = 2 = 套內面積 = 3 = 戶型 = 4 = 圖片文件 = 5 = 戶型簡介 Exit Sub setheaderror: MsgBox End Sub 在 dispalygrid 過程中調用這兩個過程即可設置好表格的格式，然后逐行逐列地顯示數據。 Public Sub displaygrid() 39。顯示表格信息 Dim i As Integer On Error GoTo displayerror setgrid 39。調用 setgrid 過程設置表格格式 setgridhead 39。調用 setgridhead 過程設置表頭格式 = 0 If Not