1、.售樓管理系統設計 -論文設計者：鄧正雍 一、內容提要：房地產業的不斷發展，利用電腦的先進管理手段，把售樓人員從一大堆合同中解放出來，將樓盤的銷售推向“無紙化”已經成了解決當前房地產售樓管理的當務之急。本論文介紹的售樓管理系統就是為了實現這一目標而設計的。管理人員通過該系統可以及時了解樓盤的動態銷售情況，還能夠充分利用電腦的可檢索性，方便、快速的了解有關銷售的其他各種詳細資料，以便即使做出正確決策。二、開發售樓管理系統所需基于的軟件和硬件要求： 軟件：1、用Visual Basic 6.0 作售樓管理系統前臺開發工具。 2、用Access 2000 作售樓管理系統的后臺數據庫。 3、基于Win

2、dows 2000 操作系統硬件：1、cpu 賽揚 1.7G 2、內存 128M 3、硬盤 40 G三、售樓管理系統說明：（一）、系統組成的主要模塊：房產管理、客戶管理、收費管理、售樓管理。（二）、系統設計的主體結構：售樓管理系統房產管理客戶管理收費管理售樓管理系統維護系統管理樓盤登記售樓人員登記售樓合同管理收款管理售樓人員查詢售樓合同查詢數據庫備份數據庫恢復添加用戶退出系統收款情況查詢收費查詢收費登記客戶資料查詢客戶資料登記戶型登記樓盤查詢戶型查詢 （三）、數據庫設計：根據此系統的功能分析，系統數據庫應該滿足戶型資料、客戶資料、合同資料、收費資料、收款登記、售樓人員、收款登記、系統維護和系統

3、管理9個功能的需求。所以需要利用Access建立一個House數據庫，主要有包括如下8個表。表一：系統管理表，用于登錄系統人員管理。字段名數據類型說明Czyh文本操作員號Mm文本操作員密碼Qx文本權限表二：戶型資料表，用于存放戶型資料。字段名數據類型說明Hst_ID文本戶型編號字段Hst_buildarea數字建筑面積Hst_usearea數字套內面積Hst_type文本房型Hst_memo文本簡介Hst_picture文本保存圖片表三：樓盤資料表，用于存放樓盤資料。字段名數據類型說明hos_id文本樓盤編號hos_hstid文本戶型hos_price貨幣報價表四：合同資料表，用于存放合同資料

4、。字段名數據類型說明Pct_ID數字合同編號Pct_houseID文本樓盤編號pct_buyerid文本購買人身份證Pct_salesID文本銷售人員編號Pct_housequote貨幣樓盤單價Pct_discountrate數字折扣率Pct_discountcash貨幣折扣金額pct_carplaceid文本車位號Pct_carplace貨幣車位價格pct_basementid文本地下室編號Pct_basement貨幣地下室價格Pct_paykind文本付款方式Pct_bank文本貸款銀行Pct_bookdate日期/時間認購日期Pct_pactdate日期/時間簽定日期pct_state數

5、字標記是否交款表五：客戶資料表，用于存放客戶資料。字段名數據類型說明Hon_ID文本身份證號Hon_name文本姓名Hon_sex文本性別Hon_tel文本電話Hon_handset文本手機Hon_job文本職業Hon_birthday日期/時間出生日期Hon_email文本電子郵件Hon_carcode文本車牌號Hon_zipcode文本郵編Hon_addr文本地址Hon_memo文本備注表六：收費信息表，用于保存收費信息。字段名數據類型說明fee_ID貨幣收費編號fee_houseID貨幣樓盤編號Fee_date貨幣收費時間fee_tv貨幣有線電視費Fee_tel貨幣電話調試費Fee_ga

6、s貨幣煤氣初裝費Fee_member貨幣公用設施費Fee_other貨幣其他費用Fee_deposit貨幣押金fee_skr文本收款人fee_jkr文本交款人表七：預計付款表，用于存放預計付款表信息。字段名數據類型說明Add_pactid數字預計付款序號Add_date日期/時間預計付款日期Add_money貨幣付款錢數shifoufukuan文本是否已付款標記表八：收款登記表，用于存放收款登記表信息字段名數據類型說明Icm_ID數字收款單號icm_hetonghao數字合同編號icm_houseID文本樓盤編號Icm_date日期/時間收款日期icm_money貨幣收款金額icm_payki

7、nd文本付款方式icm_skr文本收款人icm_jkr文本交款人編號表九：售樓人員表，用于存售樓人員表信息字段名數據類型說明Sal_ID文本人員編號Sal_sfz文本身份證號Sal_name文本姓名Sal_sex文本性別sal_birthday日期/時間出生日期Sal_tel文本電話Sal_handset文本手機Sal_email文本電子郵件Sal_zipcode文本郵編Sal_addr文本地址（四）、系統功能模塊設計。1、創建售樓管理系統登錄窗體。 在正式進入系統之前，需要對用戶的身份進行確認，這是通過用戶登錄來實現的，所以系統中的第一個窗體也就應該是登錄窗體。A.界面設計：控件名稱屬性屬性

8、值說明frmloginbackcolor&h00c0ffff&設置窗體背景顏色borderstyleFixed single設置窗體邊框樣式caption“登錄”設置窗體標題iconSystem.ico設置窗體圖標startupposition屏幕中心設置窗體初始位置Lable1caption“用戶名”設置標題backcolor&h00c0ffff&設置背景顏色forecolor&h00c000c0&設置前景顏色Lable2caption“用戶名”設置標題backcolor&h00c0ffff&設置背景顏色forecolor&am

9、p;h00c000c0&設置前景顏色cmbnametext“ ”設置文本框為空txtpwdtext“ ”設置文本框為空cmdokcaption“確定”設置命令按鈕標題cmdcancelcaption“取消”設置命令按鈕標題B窗體設計狀態效果如下：C.工作流程： 此系統開啟的第一個界面就是上述窗體，用戶名中包括system模式和guset模式的兩種形式。如果登錄用戶是system用戶，他屬于特權用戶，具有對系統的完全管理權限。如果登錄用戶是guset用戶，他屬于一般用戶，對系統中的某些功能無法進行管理。 當用戶名和密碼錄入都正確時，點（確定）按鈕就會進入主窗體，如果用戶名或密碼錄入錯誤，

10、系統將作出提示而重新錄入。當點（取消）按鈕時將退出整個系統。D模塊原代碼： Option ExplicitDim cnt As Integer '記錄輸入次數Dim sql As StringDim rs_login As New ADODB.RecordsetPrivate Sub cmdcancel_Click() conn.Close '關閉數據庫連接 Set conn = Nothing Unload MeEnd SubPrivate Sub cmdok_Click() Dim userID As String If Trim(cmbName.Text) = "

11、;" Then '判斷輸入的用戶名是否為空 MsgBox "沒有這個用戶", vbOKOnly + vbExclamation cmbName.SetFocus Else '判斷用戶名和密碼是否正確 sql = "select * from 系統管理表 where czyh='" & cmbName.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True

12、 Then MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, "" cmbName.SetFocus Else '檢驗密碼是否正確 If Trim(rs_login.Fields(1) = Trim(txtPwd.Text) Then userID = cmbName.Text username = rs_login.Fields(2) '記錄登錄用戶的類型，以便權限設置 Unload Me frmmain.Show rs_login.Close Exit Sub Else MsgBox "密

13、碼不正確", vbOKOnly + vbExclamation, "" txtPwd.SetFocus End If End If rs_login.Close End If cnt = cnt + 1 '輸入次數加1 If cnt = 3 Then MsgBox "您輸入密碼錯誤次數太多！", vbExclamation, "" Unload Me End If End SubPrivate Sub Form_Load() Dim connectionstring As String '定義連接字符串 co

14、nnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source= " & App.Path & "House.mdb" conn.Open connectionstring '打開數據庫 sql = "select * from 系統管理表 " '檢索系統管理表 rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic '打開記錄集 If

15、 rs_login.EOF = False Then '有記錄時逐一添加到cmbName組合框 Do While rs_login.EOF = False cmbName.AddItem (rs_login.Fields(0) rs_login.MoveNext Loop cmbName.ListIndex = 0 '默認顯示第一個子項 End If rs_login.Close cnt = 0 '初始化輸入次數End Sub2建立主窗體。 此窗體為主界面，它具有菜單功能和按鈕功能項，通過它的兩項功能才能調用其他的工作窗體。A.界面設計。屬性屬性值說明caption“售

16、樓管理系統”設置窗體標題iconSystem.ico設置窗體圖標pictureDesktop.bmp設置窗體背景圖案startupposition2-Centerscreen設置窗體默認位置windowstate2-maximized設置窗體默認狀態名稱frmmain設置窗體名稱 菜單屬性設置：標題名稱房產管理Housemanage戶型登記Housestylelogin樓盤登記buildinglogin戶型查詢housestylefind樓盤查詢buildingfind客戶管理customermanage客戶資料登記Customerlogin客戶資料查詢customerdatefind收費管理

17、chargemanage收費登記chargelogin收費查詢chargefind售摟管理buildingsalemanage銷售人員登記salemanlogin售摟合同管理buildingsalebargain收款管理gatheringmanage銷售人員查詢salemanfind售摟合同查詢buildingsaledfind收款情況查詢gatheringfind系統維護syetemmaintenance數據備份databasebak數據恢復datebaserecovery系統管理sysmanage添加用戶adduser退出系統exitsysB窗體設計狀態效果如下： 菜單設計狀態效果如下：C

18、.工作流程： 通過登錄窗體成功后就進入了主窗體，當選擇菜單中的某一項的下列選項時就會彈出相應功能的模塊程序，也可以使用快捷的按鈕方式。這些功能方便，簡單，易操作和理解。D模塊原代碼：Option ExplicitPrivate Sub adduser_Click()Frmadduser.ShowEnd SubPrivate Sub buildingfind_Click()Frmbuildingfind.ShowEnd SubPrivate Sub buildinglogin_Click()frmBuildingLogin.ShowEnd SubPrivate Sub buildingsale_

19、Click()frmHetongLogin.ShowEnd SubPrivate Sub buildingsalebargain_Click()frmHetongFind.ShowEnd SubPrivate Sub chargefind_Click()frmShoufeiFind.ShowEnd SubPrivate Sub chargelogin_Click()Frmshoufeilogin.ShowEnd SubPrivate Sub customerdatafind_Click()Frmkehufind.ShowEnd SubPrivate Sub customerlogin_Clic

20、k()Frmkehulogin.ShowEnd SubPrivate Sub databasebak_Click()Dim fsofileIf conn.State <> 0 Then conn.Close Set conn = Nothing Set fsofile = CreateObject("scripting.filesystemobject") CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb" CommonDialog1.CancelError = True On Error GoTo mye

21、rr CommonDialog1.ShowSave fsofile.copyfile App.Path & "House.mdb", CommonDialog1.FileTitle Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=" & App.Path & "House.mdb" conn.Open connectionstr

22、ing Exit Submyerr:End SubPrivate Sub databaserecovery_Click() Dim fsofile If conn.State <> 0 Then conn.Close Set conn = Nothing Set fsofile = CreateObject("scripting.filesystemobject") CommonDialog1.Filter = "mdb文件(*.mdb)|*.mdb" CommonDialog1.CancelError = True On Error GoT

23、o myerr CommonDialog1.ShowOpen fsofile.copyfile CommonDialog1.FileTitle, App.Path & "House.mdb" Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=" & App.Path & "House.mdb" conn.Open connecti

24、onstring Exit Submyerr:End SubPrivate Sub exitsys_Click()Unload MeEnd SubPrivate Sub Form_Load()If username = "guest" Then buildingsalebargain.Enabled = False databaserecovery.Enabled = False adduser.Enabled = False End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) If MsgBox("確實

25、要退出本系統嗎？", vbYesNo + vbQuestion, "提示") = vbNo Then Cancel = True '如果用戶不退出，則取消卸載 Else '如果確定退出，在卸載之前關閉數據庫 If conn.State <> 0 Then conn.Close '關閉數據庫連接 Set conn = Nothing End IfEnd SubPrivate Sub gatheringfind_Click()frmShoukuanFind.ShowEnd SubPrivate Sub gatheringmanage

26、_Click()Frmshoukuanlogin.ShowEnd SubPrivate Sub housestylefind_Click()Frmbuildingstylefind.ShowEnd SubPrivate Sub housestylelogin_Click() Frmhuxinglogin.ShowEnd SubPrivate Sub salemanfind_Click()frmSalemanFind.ShowEnd SubPrivate Sub salemanlogin_Click()frmSalemanLogin.ShowEnd SubPrivate Sub Toolbar1

27、_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key '按關鍵字選擇 Case "bt_loupan" '如果單擊按鈕關鍵字為bt_loupan則顯示樓盤查詢窗體 Frmbuildingfind.Show 1 Case "bt_kehu" Frmkehufind.Show 1 Case "bt_shoufei" frmShoufeiFind.Show 1 Case "bt_shoulou" frmHetongFi

28、nd.Show 1 Case "bt_shoukuan" Frmshoukuanlogin.Show 1 Case "bt_tuichu" Unload Me End SelectEnd Sub3、建立戶型登記窗體。主要用來對戶型資料進行登記，包括添加、修改、刪除等各種操作。A. 界面設計控件名稱屬性屬性值說明Command1Caption“增加”設置命令按鈕標題名稱cmdadd設置命令按鈕名稱Command2Caption“修改”設置命令按鈕標題名稱cmdmodify設置命令按鈕名稱Command3Captioncmddel設置命令按鈕標題名稱“刪除”

29、設置命令按鈕名稱Command4Captioncmdexit設置命令按鈕標題名稱“退出“設置命令按鈕名稱Frame1Captioncmdexit設置框架標題Label1Caption“戶型登記“設置標簽標題Label2Caption“戶型編號“設置標簽標題Label3Caption“建筑面積“設置標簽標題Label4Caption“平方米“設置標簽標題Label5Caption“套內面積“設置標簽標題Label6Caption“平方米“設置標簽標題Label7Caption“<ß-“設置標簽標題Label8Caption“簡介“設置標簽標題Label9Caption“圖片“設置

30、標簽標題Image1borderstyle0-none設置圖片邊框樣式Text1名稱“txthuxingnum “設置文本框名稱Text“ “設置文本框內容Text2名稱 “txtjianzhumianji “設置文本框名稱Text“ “設置文本框內容Text3名稱“ txttaomianji“設置文本框名稱Text“ “設置文本框內容Text4名稱“ txtfangxing “設置文本框名稱Text“ “設置文本框內容Text5名稱“ txtjianjie“設置文本框名稱Text“ “設置文本框內容Combo1Text選擇戶型設置組合框文本Mshglexgrid名稱“grdhuxing“設置

31、表格控件的名稱B窗體設計狀態效果如下：C.工作流程： 窗體加載是使用ADO進行數據庫的連接，同時在表格中顯示出數據。單擊“增加”按鈕時，所有的文本框為可用狀態，并且設置為空，“增加”按鈕變為“保存”按鈕。在輸入完信息后，單擊“保存”按鈕，判斷戶型編號是否重復，對于不重復的戶型保存如庫。D.原代碼：Option ExplicitDim rs_huxing As New ADODB.RecordsetDim gridclick As BooleanDim select_row As StringDim getrow As LongPrivate Sub cmdadd_Click() On Erro

32、r GoTo adderror If cmdAdd.Caption = "保 存" Then '下面對輸入的有效性進行驗證 If Trim(txtHuxingnum.Text) = "" Then MsgBox "戶型編號不能為空！", vbOKOnly + vbExclamation, "" txtHuxingnum.SetFocus Exit Sub End If If Trim(txtFangxing.Text) = "" Then MsgBox "請選擇房型！"

33、;, vbOKOnly + vbExclamation, " " Combo1.SetFocus Exit Sub End If If Trim(txtJianzhumianji.Text) = "" Then MsgBox "建筑面積不能為空！", vbOKOnly + vbExclamation, " " txtJianzhumianji.SetFocus Exit Sub End If If Trim(txtTaomianji.Text) = "" Then MsgBox "套內

34、面積不能為空！", vbOKOnly + vbExclamation, " " txtTaomianji.SetFocus Exit Sub End If If Not IsNumeric(txtJianzhumianji.Text) Then '面積必須是數值 MsgBox "建筑面積請輸入數字！", vbOKOnly + vbExclamation, "" txtJianzhumianji.SetFocus Exit Sub End If If Not IsNumeric(txtTaomianji.Text) T

35、hen MsgBox "套內面積請輸入數字！", vbOKOnly + vbExclamation, "" txtTaomianji.SetFocus Exit Sub End If rs_huxing.MoveFirst '輸入合法，開始插入 Dim i As Integer For i = 0 To rs_huxing.RecordCount - 1 '逐條檢查戶型編號是否已經存在 If Trim(rs_huxing.Fields(0) = Trim(txtHuxingnum.Text) Then MsgBox "戶型編號重

36、復！", vbOKOnly + vbExclamation, " " txtHuxingnum.SetFocus Exit Sub End If rs_huxing.MoveNext Next i rs_huxing.MoveLast '戶型編號不存在，在最后插入新紀錄 rs_huxing.AddNew rs_huxing.Fields(0) = Trim(txtHuxingnum.Text) '逐字段插入 rs_huxing.Fields(1) = CSng(txtJianzhumianji.Text) '數值轉換為字符串 rs_huxi

37、ng.Fields(2) = CSng(txtTaomianji.Text) rs_huxing.Fields(3) = Trim(txtFangxing.Text) rs_huxing.Fields(4) = Trim(txtJianjie.Text) rs_huxing.Fields(5) = Trim(txtHuxingnum.Text) rs_huxing.Update '將插入的記錄保存 MsgBox "添加成功！", vbOKOnly + vbExclamation, "" With grdHuxing '將表格最后一行數據更

38、新 .Rows = rs_huxing.RecordCount + 1 .Row = grdHuxing.Rows - 1 .Col = 0 .Text = Trim(txtHuxingnum.Text) .Col = 1 .Text = Trim(txtJianzhumianji.Text) .Col = 2 .Text = Trim(txtTaomianji.Text) .Col = 3 .Text = Trim(txtFangxing.Text) .Col = 4 .Text = Trim(txtFangxing.Text) .Col = 5 .Text = Trim(txtJianji

39、e.Text) End With cmdAdd.Caption = "增 加" '成功保存后標題變為“增 加” Else '按鈕標題為"增 加"時 txtHuxingnum.Text = "" '各個字段為空 txtJianzhumianji.Text = "" txtTaomianji.Text = "" txtJianjie.Text = "" cmdModify.Enabled = False '新增記錄時，不能修改和刪除記錄 cmdDe

40、l.Enabled = False cmdAdd.Caption = "保 存" '按鈕標題變為“保 存” End If Exit Subadderror: MsgBox Err.DescriptionEnd SubPrivate Sub cmddel_Click()Dim answer As String Dim delete_row As String On Error GoTo delerror answer = MsgBox("確定要刪除嗎？", vbYesNo + vbQuestion, "") If answer

41、= vbYes Then '確定刪除 rs_huxing.MoveFirst Dim i As Integer For i = 0 To rs_huxing.RecordCount - 1 '查找需要刪除的記錄 If rs_huxing.Fields(0) = txtHuxingnum.Text Then rs_huxing.Delete '刪除 rs_huxing.Update '保存 MsgBox "刪除成功！", vbOKOnly + vbExclamation, "" grdHuxing.RemoveItem ge

42、trow '從表格中刪除此行 Exit Sub End If rs_huxing.MoveNext Next i Else Exit Sub End If Exit Subdelerror: MsgBox Err.DescriptionEnd SubPrivate Sub cmdexit_Click() Unload MeEnd SubPublic Sub setgrid()Dim i As IntegerOn Error GoTo seterrorWith grdHuxing .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows =

43、 rs_huxing.RecordCount + 1 .Cols = 6 .SelectionMode = flexSelectionByRowFor i = 0 To .Rows - 1 .RowHeight(i) = 315Next iFor i = 0 To .Cols - 1 .ColWidth(i) = 1300Next iEnd WithExit Subseterror: MsgBox Err.Description End SubPublic Sub setgridhead() '設置表頭格式 On Error GoTo setheaderror grdHuxing.Ro

44、w = 0 '在第一行中逐列設置顯示文本，作為表頭 grdHuxing.Col = 0 grdHuxing.Text = "戶型編號" grdHuxing.Col = 1 grdHuxing.Text = "建筑面積" grdHuxing.Col = 2 grdHuxing.Text = "套內面積" grdHuxing.Col = 3 grdHuxing.Text = "戶型" grdHuxing.Col = 4 grdHuxing.Text = " 圖片文件" grdHuxing.C

45、ol = 5 grdHuxing.Text = "戶型簡介" Exit Subsetheaderror: MsgBox Err.DescriptionEnd SubPrivate Sub cmdmodify_Click() On Error GoTo modifyerror txtHuxingnum.Enabled = False '戶型不可更改 If Trim(txtFangxing.Text) = "" Then '修改后房型不能為空 MsgBox "房型不能為空！", vbOKOnly + vbExclamati

46、on, " " txtFangxing.SetFocus Exit Sub End If rs_huxing.MoveFirst Dim i As Integer For i = 0 To rs_huxing.RecordCount - 1 If Trim(rs_huxing.Fields(0) = Trim(txtHuxingnum.Text) Then '戶型相同，說明是同一條記錄，覆蓋 rs_huxing.Fields(1) = CSng(txtJianzhumianji.Text) rs_huxing.Fields(2) = CSng(txtTaomianj

47、i.Text) rs_huxing.Fields(3) = Trim(txtFangxing.Text) rs_huxing.Fields(4) = Trim(txtJianjie.Text) rs_huxing.Fields(5) = Trim(txtHuxingnum.Text) rs_huxing.Update '保存修改 MsgBox "修改成功！", vbOKOnly + vbExclamation, "" With grdHuxing '更新表格 .Row = getrow .Col = 0 .Text = Trim(txtH

48、uxingnum.Text) .Col = 1 .Text = Trim(txtJianzhumianji.Text) .Col = 2 .Text = Trim(txtTaomianji.Text) .Col = 3 .Text = Trim(txtFangxing.Text) .Col = 4 .Text = Trim(txtFangxing.Text) .Col = 5 .Text = Trim(txtJianjie.Text) End With Exit Sub End If rs_huxing.MoveNext Next imodifyerror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Load()Dim sql As String On Error GoTo loaderror sql = "select * from 戶型資料表" '檢索戶型資料表 rs_huxing.Cursor