【正文】 分為以下幾個表 .合同表 .戶型表 .客戶資料表 .樓盤表 .收費表 .收款登記表 .銷售人員表 .系統(tǒng)管理表以及預計付款表等幾個表 .各表的具體設計結構如下 : 合同表 房屋銷售 管理系統(tǒng) 房屋管理 客戶管理 收費管理 售樓管理 系統(tǒng)管理 戶型登記 樓盤登記 樓盤查詢 客戶資料登記 客戶資料查詢 收費登記 收費查詢 售樓人員登記 售樓合同管理 收款管理 銷售人員查詢 售樓合同查詢 收款情況查詢 退出系統(tǒng) 19 戶型表 : 客戶資料表 : 樓盤表 : 收費表 : 20 收費登記表 售樓人員表 : 系統(tǒng)管理表 : 預計付款表 21 其系統(tǒng)主界面設計運行效果圖如下 : 登錄窗體的設計 其運行效果圖如下 : 22 其具體的設計如下 : 新建一個窗體 .在窗體上放上二個 label 控件 ,二個 TextBox 控件 ,二個CommandButton 控件 .其屬性的設置比較簡單 ,請參照上面的窗體中的文字顯視 .我們具體分析一下確定按鈕的源碼 ,如下 : Private Sub cmdok_Click() Dim sql As String Dim rs_login As New If Trim() = Then 39。 39。 _ data source= amp。 amp。 amp。按照手機號查詢 If = True Then sql = select * from 客戶資料 where Hon_handset = 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 39。 39。合同狀態(tài) (0) = 39。銷售人員編號 If Then (5) = CSng() 39。車位價款 End If (9) = 39。貸款銀行 (13) = 39。樓盤編號 (2) = 39。現(xiàn)金折扣 (7) = 39。地下室價款 (11) = 39。合同簽訂日期 sql = select * from 預計付款 where 預計付款 .Add_pactid = amp。 Val() = adUseClient sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To Next i MsgBox 刪除成功！ , vbOKOnly + vbExclamation, () Exit Sub Else Exit Sub End If Exit Sub delerror: MsgBox End Sub 數(shù)據(jù)維護模塊的設計 因該模塊不涉及到窗體的設計 ,故不在此描述 ,到此系統(tǒng)的主體部分設計完成 . 36 第七章 主菜單的設計與系統(tǒng)的編譯發(fā)行 在實際的系統(tǒng)設計中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一般有一個主菜單 ,其中包括若干個選擇項 .主菜單單的每一項又可下拉出下一級子菜單 .這樣用一個個的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點描述一個典型的數(shù)據(jù)庫應用程序由數(shù)據(jù)結構，操作界面，查詢選項和報表打印等組成。通過老師的幫助才慢慢的有了一點體會。表單制作完成后就是對控件編程，其中要注意程序編寫時的細節(jié)，格式，命 令的拼寫，運用的合理性等等都要進行分析。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都是一種巨大的幫助和財富 ,忠心感謝指導老師 38 的耐心的輔導。 致 謝 在本次畢業(yè)設計中，我從指導老師身上學到了很多東西，取人之長，補已之短。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。設計好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認無誤后 ,單擊文件菜單下的生成工程得到一個 .EXE 的可執(zhí)行程序 .到此一個完整的系統(tǒng)設計完成 . 37 結 論 在剛剛開始學習數(shù)據(jù)庫的時候，對很多細節(jié)很沒有概念。 MsgBox 修改成功！ , vbOKOnly + vbExclamation, Exit Sub modifyerror: MsgBox 35 End Sub 合同作廢的源碼如下 : Private Sub cmddel_Click() Dim answer As String Dim i As Integer Dim sql As String On Error GoTo delerror answer = MsgBox(確定要作廢嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 合同 where 合同 .Pct_ID = amp。貸款銀行 (13) = 39。樓盤價款 (9) = 39。銷售人員編號 If Then (5) = CSng() 39。合同簽訂日期 savegrid MsgBox 簽訂成功！ , vbOKOnly + vbExclamation, = False = 新合同 = True = True Else = 簽訂合同 = 未簽訂 sql = select * from 合同 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = CStr((0) + 1) = False = False = = = = = = = = = = = = 33 = = = = = With gridhetong .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = 5 .Cols = 2 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 .ColWidth(i) = 1300 Next i End With = 0 = 0 = 日期 = 1 = 金額 End If Exit Sub saveerror: MsgBox End Sub 修改合同的源碼如下 : Private Sub cmdmodify_Click() On Error GoTo modifyerror Dim sql As String Dim i As Integer If Trim() = Then MsgBox 購買人身份證號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 銷售人員編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If sql = select * from 合同 where 合同 .Pct_ID = amp。地下室價款 End If (11) = 39?，F(xiàn)金折扣 32 (7) = 39。樓盤編號 (2) = 39。 _ and 樓盤 .hos_hstid = 戶型 .Hst_ID = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (4) = (2) 39。 amp。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 \ connectionstring t = 0 End Sub 房屋管理模塊的設計 (因為該系統(tǒng)所設計的窗體比較多 ,故我們 將每一人模塊 選取有代表性 的一個 窗體進行重點描述 .: 1. 戶型登記 分析按鈕源碼如下 : 增加按鈕的源碼為 Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 24 If Trim() = Then MsgBox 戶型編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 請選擇戶型編號！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 建筑面積不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 套內(nèi)面積不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Not IsNumeric() Then MsgBox 建筑面積請輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 套內(nèi)面積請輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 戶型編號重復！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If Next i (0) = (1) = CSng() (2) = CSng() 25 (3) = (4) = (5) = MsgBox 添加成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .Rows = + 1 .Row = 1 .Col = 0 .Text =