【正文】 sgBox 無(wú)相關(guān)紀(jì)錄 , vbOKOnly + vbExclamation, Else displaymingxi 39。 \ICON\ amp。 如果當(dāng)前的按鈕狀態(tài)為?增加?，則窗體各部分接受新的數(shù)據(jù)輸入。面積必須是數(shù)值 MsgBox 建 筑 面 積 請(qǐng) 輸 入 數(shù) 字 ！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 套 內(nèi) 面 積 請(qǐng) 輸 入 數(shù) 字 ！ , vbOKOnly + vbExclamation, Exit Sub End If 如果所有的數(shù)據(jù)都輸入無(wú)誤，則檢查是否有重復(fù)的戶型編號(hào)，如果有重復(fù)則給 出提示，并退出過(guò)程。逐字段插入 (1) = CSng() 39。新增 記錄時(shí)，不能修改和刪除記錄 = False = 保 存 39。 單擊?修改?按鈕時(shí)，所有的文本框進(jìn)入可編輯狀態(tài)，修改按鈕變?yōu)楸４姘粹o。 添加代碼 綁定菜單、加載窗體、顯示表格、卸載窗體等部分的代碼和戶型登記部分的都相似，下面主要介紹查詢功能的實(shí)現(xiàn)。 39。 Trim() amp。 圖 8 ?樓盤(pán)查詢?窗體效果圖 工作流程 窗體加載時(shí)在表格控件中顯示所有的數(shù)據(jù)。 amp。 _ 戶型資料表 .Hst_ID,戶型資料表 .Hst_buildarea,戶型資料表 .Hst_usearea,戶型資料表 .Hst_type, amp。 _ 戶型資料表 .Hst_memo,戶型資料表 .Hst_picture from 樓盤(pán)資料表 ,戶型資料表 where 樓盤(pán)資料表 .hos_hstid = 戶型資料表 .Hst_ID amp。在這個(gè)窗體中添加 1 個(gè) Frame 控件、 1 個(gè) Label 控件、 5 個(gè) Text 控件、 3 個(gè)CommandButton 控件、 1 個(gè) ComboBox 控件個(gè) 5 個(gè) Option 控件。選擇戶型結(jié)構(gòu)作為查詢條件 sql = select * from 戶型資料表 where Hst_type = 39。 amp。 圖 7 ?戶型查詢?窗體效果圖 工作流程 窗體加載時(shí)在表格中顯示所有的數(shù)據(jù)。在輸入完新信息后，單擊?保存?按鈕，判斷樓盤(pán)編號(hào)是否重復(fù)，對(duì)于不重復(fù)的樓盤(pán)進(jìn)行入庫(kù)保存。按鈕標(biāo)題為 增 加 時(shí) = 39。 39。 On Error GoTo adderror If = 保 存 Then 39。 這個(gè)按鈕有兩個(gè)狀態(tài)，分別是?增加?和?保存?。第五列不為空，說(shuō)明有圖片文件 pic = (getrow, 4) 39。 Private Sub grdHuxing_Click() On Error GoTo griderror gridclick = True = True = True getrow = 39。在第一行中 逐列設(shè)置顯示文本，作為表頭 = 0 = 戶型編號(hào) = 1 = 建筑面積 = 2 = 套內(nèi)面積 = 3 = 戶型 = 4 = 圖片文件 = 5 = 戶型簡(jiǎn)介 Exit Sub setheaderror: MsgBox End Sub 在 dispalygrid 過(guò)程中調(diào)用這兩個(gè)過(guò)程即可設(shè)置好表格的格式，然后逐行逐列地顯示數(shù)據(jù)。 設(shè)置表格格式 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。調(diào)用 displaygrid 過(guò)程，顯示信息 二室二廳 39。在輸入完信息后，單擊?保存?按鈕，判斷戶型編號(hào)是否重復(fù)，對(duì)于不重復(fù)的戶型保存入庫(kù)。上半部分用一表 格控件顯示當(dāng)前所有的戶型資料，這里用到 MSHFlexgrid 控件。按關(guān)鍵字選擇 Case bt_loupan 39。關(guān)閉數(shù)據(jù)庫(kù)連接 Set conn = Nothing Unload Me End Sub 建立主窗體（ frmMain） 創(chuàng)建主窗體 在 Visual 的工程資源管理器中單擊鼠標(biāo)右鍵，彈出的快捷菜單中依次選擇?添加? ?添加窗體?菜單項(xiàng)，彈出?添加窗體?對(duì)話框，單擊?打開(kāi)?按鈕，即可在售樓管理系統(tǒng)工程中添加一個(gè)窗體 Form1，此窗體的各個(gè)屬性設(shè)置如表 10 所示。判斷用戶名和密碼 是否正確 sql = select * from 系統(tǒng)管理表 where czyh=39。 \ connectionstring 39。 設(shè)置背景顏色 ForeColor amp。 表 9 frmLogin 窗體及其中控件屬 性列表 控件名稱 屬性 屬性值 說(shuō)明 frmLogin BackColor amp。 圖 2 ?工程 1— 工程屬性?對(duì)話框 在?工程名稱?文本框中輸入?售樓管理系統(tǒng)?，然后單擊?確定?按鈕。 對(duì)于數(shù)據(jù)庫(kù)應(yīng)用程序來(lái)說(shuō)，數(shù)據(jù)庫(kù)的設(shè)計(jì)與創(chuàng)建是進(jìn)行程序設(shè)計(jì)的基石，對(duì)于 Visual Foxpro 來(lái)說(shuō)，其數(shù)據(jù)庫(kù)的創(chuàng)建一般要包括數(shù)據(jù)庫(kù)的設(shè)計(jì)和數(shù)據(jù)庫(kù)的創(chuàng)建兩個(gè)步驟。 （ 6）收款情況查詢：收款情況查詢部分包括按照收費(fèi)單號(hào)查詢、按照樓盤(pán)編號(hào)查詢、按照交款人查詢和按照交費(fèi)時(shí)間范圍查詢等。 （ 1）售樓人員登記管理：包括售樓人員資料的添加、修改、刪除 3 部分功能。 （ 1）客戶資料登記管理：包括客戶資料的添加、修改、刪除 3部分功能。 （ 1） 戶型登記管理：包括戶型信息的添加、修改和刪除 3 部分功能。其中售樓管理是系統(tǒng)的核心，在系統(tǒng)開(kāi)發(fā)時(shí)應(yīng)考慮對(duì)以下職能的需求： ? 房產(chǎn)管理，能夠管理所有的房產(chǎn)信息、對(duì)房產(chǎn)數(shù)據(jù)進(jìn)行添加、 修改、刪除等操作。系統(tǒng)可行性的研究包括目標(biāo)和方案可行性、技術(shù)的可行性、經(jīng)濟(jì)方面的可行性和社會(huì)影響方面的考慮。 管理信息系統(tǒng)的 開(kāi)發(fā) 管理信息系統(tǒng)的開(kāi)發(fā)方式 管理信息系統(tǒng)的開(kāi)發(fā)方式主要有獨(dú)立開(kāi)發(fā)方式、委托開(kāi)發(fā)方式、合作開(kāi)發(fā)方式、購(gòu)買(mǎi)現(xiàn)成軟件方式等 4 種。錄入這類(lèi)數(shù)據(jù)之前， MIS 軟件應(yīng)在相應(yīng)位置彈出一個(gè)列表框，待用戶以鼠標(biāo)點(diǎn)擊，而不應(yīng)讓用戶每次都輸入這些漢字 。特別是在需要較長(zhǎng)時(shí)間的等待時(shí)，必須讓用戶了解工作進(jìn)展情況，如 可以設(shè)計(jì) 已經(jīng)完成了百分之幾 的任務(wù)進(jìn)度條 等。 設(shè)計(jì) MIS 時(shí)，針對(duì)每一個(gè)功能，都要按照 “ IPO” 的模 塊化思想，使輸入、處理與輸出 “ 涇渭分明 ” ，充分體現(xiàn)人機(jī)界面的通信功能。 第三個(gè)因素也不能忽視。 第一章 設(shè)計(jì) 基礎(chǔ) 管理信息系統(tǒng)就是我們常說(shuō)的 MIS（ Management Information System）， 在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它變得越來(lái)越普及。系統(tǒng)的操作對(duì)人員的素質(zhì)的要求不高，只需對(duì)他們稍加培訓(xùn)便能勝任。售樓管理系統(tǒng) 【摘要】 房地產(chǎn)業(yè)的不斷發(fā)展，利用電腦的先進(jìn)管理手段，把售樓人員從一大堆合同中解放出來(lái)，將樓盤(pán)的銷(xiāo)售推向?無(wú)紙化?已經(jīng)成了解決當(dāng)前房地產(chǎn)售樓管理的當(dāng)務(wù)之急。 Visual Basic ，它是由美國(guó)微軟公司推出的小型數(shù)據(jù)庫(kù)開(kāi)發(fā)語(yǔ)言，由于其使用方便，硬件要求不高，易學(xué)等特點(diǎn)，它還提供強(qiáng)有力的應(yīng)用程序開(kāi)發(fā)工具，為將來(lái)的維護(hù) 提供必要的基礎(chǔ)。 ? 為企業(yè)將來(lái)的整體信息化提供必要的支持。在這些技術(shù)中，軟件開(kāi)發(fā)是 MIS開(kāi)發(fā)的重點(diǎn)。另外，不要把內(nèi)部的處理、加工與人機(jī)界面混在一起（人機(jī)界面程序只是通信），以免互相干擾，影響速度 。 3． 界面必須使用戶隨時(shí)掌握任務(wù)的進(jìn)展情況 人機(jī)界面應(yīng)該能夠告訴用戶軟件運(yùn)行的進(jìn)度。例如，人事管理系統(tǒng)中的“ 文化程度 ”是 相對(duì)固定的數(shù)據(jù)，其值一般取 “ 小學(xué) ” 、 “ 初中 ” 、 “ 高中 ” 、 “ 大專(zhuān) ” 、“ 大本 ” 、 “ 碩研 ” 、 “ 博研 ” 等。例如，錄入學(xué)生成績(jī)時(shí)，我們可以對(duì)其范圍進(jìn)行限定，使用戶無(wú)法輸入 0～ 100 以外的數(shù)據(jù)；錄入學(xué)生年齡時(shí)，不妨根據(jù)實(shí)際情況將范圍限制在 15～ 20 之間 。通過(guò)對(duì)企業(yè)狀況的初步調(diào)研得出現(xiàn)狀分析的結(jié)果，然后提出可行性方案并進(jìn)行論證。 第二章 系統(tǒng)功能分析與 設(shè)計(jì) 系統(tǒng)需求分析 售樓管理職能主要分為 房產(chǎn)管理，客戶管理，收費(fèi)管理，售樓管理。 具體主要實(shí)現(xiàn)如下功能： ? 房產(chǎn)管理部分 房產(chǎn)管理部分包括戶型登記、樓盤(pán)登 記、戶型查詢和樓盤(pán)查詢，其功能是實(shí)現(xiàn)對(duì)樓盤(pán)各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除和查詢等操作。 ? 客戶管理部分 客戶管理部分包括客戶資料登記管理和客戶資料查詢管理，其功能是實(shí)現(xiàn)對(duì)各客戶部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查詢等操作。 ? 售樓管理部分 售樓管理部分包括售樓人員登記、售樓合同管理、收款管理、售樓人員查詢、售樓合同查詢、收費(fèi)情況查詢等，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加、修改、刪除、查 詢等操作。 （ 5）售樓合同查詢：售樓合同查詢部分包括按照合同編號(hào)查詢、按照樓盤(pán)編號(hào)查詢、按照客戶身份證號(hào)查詢和按照簽訂時(shí)間表范圍查詢等。設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。 在菜單欄中依次單擊?工程? ?工程 1 屬性?菜單項(xiàng)，出現(xiàn)如圖2 所示的?工程 1 工程屬性?對(duì)話框。設(shè)置 frmLogin 窗體及其中控件屬性，如表 9 所示。H00C0FFFFamp。 amp。判斷輸入的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation Else 39。輸入次數(shù)加 1 If t = 3 Then MsgBox 您輸入密碼錯(cuò)誤次數(shù)太多！ , vbExclamation, Unload Me End If End Sub （ 4） ?取消?按鈕代碼 Private Sub cmdcancel_Click() 39。 Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case 39。 表 11 frmHuxingLogin 窗體屬性 屬性 屬性值 說(shuō)明 名稱 FrmHuxingLogin 設(shè)置窗體名稱 Caption “戶型登記 ” 設(shè)置窗體標(biāo)題 StartUpPosition 2CenterScreen 設(shè)置窗體默認(rèn)位置 WindowState 2Maximized 設(shè)置窗體默認(rèn)狀態(tài) 該窗體主要分為兩個(gè)部分。 單擊?增加?按鈕時(shí)，所有的文本框?yàn)榭捎脿顟B(tài)，并且設(shè)置為空，?增加?按鈕變?yōu)?保存?按鈕。檢索戶型資料表 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic displaygrid 39。 Public Sub setgrid() 39。設(shè)置表頭格式 On Error GoTo setheaderror = 0 39。在 grdHuxing_Click 事件中添加代碼實(shí)現(xiàn)這一功能。取的當(dāng)前行的第一列 = (getrow, 1) = (getrow, 2) = (getrow, 3) = (getrow, 5) Dim pic As String If (getrow, 4) Then 39。 （ 6）雙擊 cmdAdd 控件，在 cmd