【正文】 and 樓盤資料表 .hos_id = 39。 。 amp。 _ 戶型資料表 .Hst_ID,戶型資料表 .Hst_buildarea,戶型資料表 .Hst_usearea,戶 ４３ 型資料表 .Hst_type, amp。在查詢條件部分選擇某一種查詢方式，然后輸入查詢的關(guān)鍵字，再單擊?查詢?按鈕，開始執(zhí)行查詢，查詢的結(jié)果將在表格中顯示出來。 界面 設(shè)計(jì) 在工程中添加一個(gè)窗體，將其命名為 frmBuildingFind。 39。 CInt(Trim()) = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If If = True Then 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If If = True Then 39。選擇戶型編號(hào)作為查詢條件 sql = select * from 戶型資料表 where Hst_ID = 39。 （ 1）雙擊?查詢?按鈕，添加代碼以實(shí)現(xiàn)查詢的功能。設(shè)置完成以后的窗體如圖 7 所示。修改后，單擊?保存?按鈕，進(jìn)行數(shù)據(jù)的更新。 單擊?增加?按鈕時(shí)，所有的文本框?yàn)榭捎脿顟B(tài)，并且設(shè)置為空，?增加?按鈕變?yōu)?保存?按鈕。按鈕標(biāo)題變?yōu)?保 存? End If Exit Sub adderror: MsgBox End Sub 建立樓盤登記窗體（ frmBuildingLogin） 這個(gè)窗體主要用來對樓盤資料進(jìn)行登記，包括添加、修改、刪除等各種操作。成功保存后標(biāo)題變?yōu)?增 加? Else 39。數(shù)值轉(zhuǎn)換為字符串 ３３ (2) = CSng() (3) = Trim() (4) = Trim() (5) = Trim() 39。添加完畢后使用 Update方法更新數(shù)據(jù)庫。 39。 首先應(yīng)當(dāng)判斷各項(xiàng)內(nèi)容是否已經(jīng)正確輸入，如果沒有正確輸入則給出提示，并退出過程。此時(shí)清空所有的文本框的內(nèi)容，同時(shí)將?修改?和?刪除?按鈕設(shè)置為不可用。 （ 6）雙擊 cmdAdd 控件，在 cmdAdd_Click 事件中處理對該按鈕的響應(yīng)。 pic amp。取的當(dāng)前行 ３０ 的第一列 = (getrow, 1) = (getrow, 2) = (getrow, 3) = (getrow, 5) Dim pic As String If (getrow, 4) Then 39。調(diào)用 displaymingxi 過程將記錄的詳細(xì)信息顯示出來 End If griderror: If 0 Then MsgBox End Sub （ 5） diaplaymingxi 過程依次將數(shù)據(jù)內(nèi)容添加到各個(gè)文本框中。在 grdHuxing_Click 事件中添加代碼實(shí)現(xiàn)這一功能。調(diào)用 setgrid 過程設(shè)置表格格式 setgridhead 39。設(shè)置表頭格式 On Error GoTo setheaderror = 0 39。 FixedCols 屬性的作用是凍結(jié)某列，也就是說，如果表格的列數(shù)過多從而使表格帶有水平滾動(dòng)條時(shí)，被設(shè)置為凍結(jié)的列不會(huì)隨著滾動(dòng)條的滾動(dòng)而變化。 Public Sub setgrid() 39。此時(shí)修改和刪除不可用 = False Exit Sub loaderror: MsgBox End Sub （ 3）窗體加載時(shí)需要顯示所有記錄信息。檢索戶型資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic displaygrid 39。修改后，單擊?保存?按鈕，進(jìn)行數(shù)據(jù)的更新。 單擊?增加?按鈕時(shí)，所有的文本框?yàn)榭捎脿顟B(tài)，并且設(shè)置為空，?增加?按鈕變?yōu)?保存?按鈕。 該窗體下半部分用來顯示當(dāng)前選定的戶型資料，或者用來接收輸入的新戶型資料。 ２４ 表 11 frmHuxingLogin 窗體屬性 屬性 屬性值 說明 名稱 FrmHuxingLogin 設(shè)置窗體名稱 Caption “戶型登記 ” 設(shè)置窗體標(biāo)題 StartUpPosition 2CenterScreen 設(shè)置窗體默認(rèn)位置 WindowState 2Maximized 設(shè)置窗體默認(rèn)狀態(tài) 該窗體主要分為兩個(gè)部分。銷售合同管理不可用 = False 39。 ２３ Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case 39。單擊?系統(tǒng)管理? ?退出系統(tǒng)?菜單，關(guān)閉系統(tǒng)的代碼如下： private Sub exitsys_click( ) ?關(guān)閉數(shù)據(jù)庫連接 set conn=Nothing End End sub 由于主窗體中用到了工具欄。輸入次數(shù)加 1 If t = 3 Then MsgBox 您輸入密碼錯(cuò)誤次數(shù)太多！ , vbExclamation, Unload Me End If End Sub （ 4） ?取消?按鈕代碼 Private Sub cmdcancel_Click() 39。 39。判斷輸入的用戶名是否為空 MsgBox 沒有這個(gè)用戶 , vbOKOnly + vbExclamation Else 39。打開記錄集 If = False Then 39。 amp。 １９ 圖 3 frmLogin 窗體設(shè)計(jì)效果 添加代碼 （ 1） 定義模塊代碼 Option Explicit Public conn As New Public Const keyenter=13 Public username as string （ 2） frmLogin 窗體加載事件代碼 Private Sub Form_Load() 39。H00C0FFFFamp。H00C0FFFFamp。設(shè)置 frmLogin 窗體及其中控件屬性，如表 9 所示。所以系統(tǒng)中的第一個(gè)窗體也就應(yīng)該是登錄窗體。 在菜單欄中依次單擊?工程? ?工程 1 屬性?菜單項(xiàng)，出現(xiàn)如圖2 所示的?工程 1 工程屬性?對話框。 ? ?戶型資料?表：用于存放戶型資料； ? ?樓盤資料?表：用于存放樓盤資料； ? ?合同資料?表：用于存放合同資料； ? ?客戶資料?表：用于存放客戶資料； ? ?收費(fèi)信息?表：用于存放收費(fèi)信息； ? ?收款登記?表：用于存放收款登記信息； ? ?售樓人員?表：用于存放售樓 人員信息； ? ?預(yù)計(jì)付款?表：用于存放預(yù)計(jì)付款信息。設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的需求。 系統(tǒng)功能模塊設(shè)計(jì) 通過對用戶需求的具體調(diào)研和分析，確定本系統(tǒng)應(yīng)具備的功能包括房產(chǎn)管理、客戶管理、收款管理、售樓管理、系統(tǒng)維護(hù)和退出系統(tǒng)。 （ 5）售樓合同查詢：售樓合同查詢部分包括按照合同編號(hào)查詢、按照樓盤編號(hào)查詢、按照客戶身份證號(hào)查詢和按照簽訂時(shí)間表范圍查詢等。其中，售樓合同資料包括合同編號(hào)、合同狀態(tài)、認(rèn)購日期、合同簽訂日期、購買樓盤編號(hào)、購買人身份證號(hào)、銷售人員編號(hào)、合同單價(jià)、折扣率、現(xiàn)金折扣、車 位編號(hào)、車位價(jià)款、地下室編號(hào)、地下室價(jià)款、付款方式、貸款銀行以及計(jì)劃的分期付款等。 ? 售樓管理部分 售樓管理部分包括售樓人員登記、售樓合同管理、收款 管理、售樓人員查詢、售樓合同查詢、收費(fèi)情況查詢等，其功能是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查詢等操作。 ? 收費(fèi)管理部分 收費(fèi)管理部分包括收費(fèi)登記和收費(fèi)查詢管理，其功能是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加、刪除、查詢等操作。 ? 客戶管理部分 客戶管理部分包括客戶資料登記管理和客戶資料查詢管理，其功能是實(shí)現(xiàn)對各客戶部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查詢等操作。其中，樓盤信息包括樓盤編號(hào)、戶型編號(hào)以及單價(jià)等。 具體主要實(shí)現(xiàn)如下功能： ? 房產(chǎn)管理部分 房產(chǎn)管理部分包括戶型登記、樓盤登記、戶型查詢和樓盤查詢，其功能是實(shí)現(xiàn)對樓盤各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除和查詢等操作?？蛻艄芾砉δ芤軌?qū)崿F(xiàn)對客戶各種數(shù)據(jù)的管理，包括客戶和購買動(dòng)向等。 第二章 系統(tǒng)功能分析與 設(shè)計(jì) 系統(tǒng)需求分析 售樓管理職能主要分為 房產(chǎn)管理，客戶管理，收費(fèi)管理，售樓管 ７ 理。 ? 系統(tǒng)開發(fā)方法的選擇和開發(fā)計(jì)劃的制定 ： 針對己經(jīng)確定的開發(fā)策略選定相應(yīng)的開發(fā)方法，是結(jié)構(gòu)化系統(tǒng)分析和設(shè)計(jì)方法，還是選擇原型法或面向?qū)ο蟮姆椒?。通過對企業(yè)狀況的初步調(diào)研得出現(xiàn)狀分析的結(jié)果，然后提出可行性方案并進(jìn)行論證。 系統(tǒng)開發(fā)的一般方法 管理信息系統(tǒng)的開發(fā)是 一個(gè)復(fù)雜的系統(tǒng)工程，它涉及到計(jì)算機(jī)處理技術(shù)、系統(tǒng)理論、組織結(jié)構(gòu)、管理功能、管理知識(shí)等各方面的問題，至今沒有一種統(tǒng)一完備的開發(fā)方法。例如，錄入學(xué)生成績時(shí)，我們可以對其范圍進(jìn)行限定，使用戶無法輸入 0～ 100 以外的數(shù)據(jù)；錄入學(xué)生年齡時(shí)，不妨根據(jù)實(shí)際情況將范圍限制在 15～ 20 之間 。實(shí)踐證明，用戶干預(yù)愈少， MIS 系統(tǒng)的滿意程度愈高 。例如，人事管理系統(tǒng)中的“ 文化程度 ”是 相對固定的數(shù)據(jù)，其值一般取 “ 小學(xué) ” 、 “ 初中 ” 、 “ 高中 ” 、 “ 大專 ” 、“ 大本 ” 、 “ 碩研 ” 、 “ 博研 ” 等。 ５ 4． 界面必須能夠提供幫助 一個(gè)優(yōu)秀的 MIS 軟件應(yīng)該提供在線求助功能，甚至提供使用向?qū)?，這 將 給用戶帶來極大的方便。 3． 界面必須使用戶隨時(shí)掌握任務(wù)的進(jìn)展情況 人機(jī)界面應(yīng)該能夠告訴用戶軟件運(yùn)行的進(jìn)度。計(jì)算與打印分開設(shè)計(jì)， 雖然消耗時(shí)間，但易于整個(gè) MIS 系統(tǒng)的維護(hù)。另外，不要把內(nèi)部的處理、加工與人機(jī)界面混在一起（人機(jī)界 面程序只是通信），以免互相干擾，影響速度 。試想要計(jì)算一臺(tái)機(jī)床的成本，需要按時(shí)輸入每個(gè)部件、每個(gè) 零件以及每個(gè)螺釘螺帽的費(fèi)用，涉及企業(yè)的生產(chǎn)車間、采購、庫房、工藝設(shè)計(jì)和財(cái)務(wù)等多個(gè)部門，必須有一整套管理制度做保證。在這些技術(shù)中，軟件開發(fā)是 MIS開發(fā)的重點(diǎn)。 管理信息系統(tǒng)的特點(diǎn) 管理信息系統(tǒng)的組成 管 理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個(gè)要素，這就是人、計(jì)算機(jī)和數(shù)據(jù)。 ? 為企業(yè)將來的整體信息化提供必要的支持。 [目標(biāo) ]大豐市教育房產(chǎn)售樓管理系統(tǒng)，要為企業(yè)提供全面的樓盤管理解決方案，提供一個(gè)以人為中心，管理人員與樓盤之間互動(dòng)的資源管理平臺(tái)。 Visual Basic ，它是由美國微軟公司推出的小型數(shù)據(jù)庫開發(fā)語言，由于其使用方便，硬件要求不 高，易學(xué)等特點(diǎn)，它還提供強(qiáng)有力的應(yīng)用程序開發(fā)工具，為將來的維護(hù)提供必要的基礎(chǔ)?？蛻艄芾砉δ芤獙?shí)現(xiàn)對客戶各種數(shù)據(jù)的管理，包括客戶和購買動(dòng)向等。售樓管理系統(tǒng) 【摘要】 房地產(chǎn)業(yè)的不斷發(fā)展，利用電腦的先進(jìn)管理手段，把售樓人員從一大堆合同中解放出來，將樓盤的銷售推向?無紙化?已經(jīng)成了解決當(dāng)前房地產(chǎn)售樓管理的當(dāng)務(wù)之急。此外，方便的查詢功能可以使客戶迅速地找到自己所需的房 產(chǎn)信息；客戶管理，擁有完善的客戶管理功能，才能更加迅速地了解客戶的需求動(dòng)態(tài)。 本系統(tǒng)以中文版 Visual Basic 為前臺(tái)開發(fā)工具，用中文版Access 2021 作為后臺(tái)數(shù)據(jù)庫。使用計(jì)算機(jī)對樓盤進(jìn)行管理，具有檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、成本低等特點(diǎn)，能夠極大地提高樓盤資源管理的效率，也是企業(yè)科學(xué)化、正規(guī)化管理的重要條件。 ? 滿足企業(yè)戰(zhàn)略層、管理層、業(yè)務(wù)操作層和企 業(yè)全體員工的不同層次和不同方面的需要。在這些學(xué)科的基礎(chǔ)上，形成信息收集和加工的方法，從而形成一個(gè)縱