【導讀】本文還簡單介紹了軟件的界面及操作方法。簡要介紹了窗體的。制作過程，程序的編寫，添加，最后的編譯過程。并且敘述了作者在軟件。開發(fā)過程中的心得體會。

　　

【正文】 Next i 30 txtmoney(7).Text = CStr(fee) = ChineseFormat(fee) (0) = Label4 (1) = txtmoney(0).Text (2) = Date For i = 1 To 6 (i + 2) = txtmoney(i).Text Next i (9) = (10) = MsgBox 保存成功！ , vbOKOnly + vbExclamation, Exit Sub End Sub 售樓管理模塊的設(shè)計 其中售樓合同管理窗體運行效果圖如下 : 其中新合同按鈕的源碼如下 : Private Sub cmdadd_Click() On Error GoTo saveerror Dim sql As String Dim i As Integer If = 簽訂合同 Then If Trim() = Then MsgBox 樓盤編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ 31 Exit Sub End If If Trim() = Then MsgBox 購買人身份證號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 銷售人員編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If sql = select 合同 .* from 合同 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Do While Not If (1) = Trim() Then MsgBox 此房已售出！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If Loop sql = select 樓盤 .*,戶型 .* from 樓盤 ,戶型 where 樓盤 .hos_id = 39。 amp。 amp。 39。 amp。 _ and 樓盤 .hos_hstid = 戶型 .Hst_ID = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (4) = (2) 39。合同單價 = 已簽訂 39。合同狀態(tài) (0) = 39。合同編號 (1) = 39。樓盤編號 (2) = 39。購買人身份證號 (3) = 39。銷售人員編號 If Then (5) = CSng() 39。折扣率 Else (5) = Null End If (6) = CCur(Val() * 1000) 39?，F(xiàn)金折扣 32 (7) = 39。車位編號 If Then (8) = CCur() 39。車位價款 End If (9) = 39。地下室編號 If Then (10) = 39。地下室價款 End If (11) = 39。還款方式 (12) = 39。貸款銀行 (13) = 39。認購日期 (14) = 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。 Val() 34 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (1) = 39。樓盤編號 (2) = 39。購買人身份證號 (3) = 39。銷售人員編號 If Then (5) = CSng() 39。折扣率 Else (5) = Null End If (6) = CCur(Val() * 1000) 39?，F(xiàn)金折扣 (7) = 39。車位編號 (8) = CCur() 39。樓盤價款 (9) = 39。地下室編號 (10) = 39。地下室價款 (11) = 39。還款方式 (12) = 39。貸款銀行 (13) = 39。認購日期 (14) = 39。合同簽訂日期 sql = select * from 預計付款 where 預計付款 .Add_pactid = amp。 Val() = adUseClient sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To (0) = Val() = i = 0 (1) = = 1 (2) = CCur() = 2 (3) = Next i 39。 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。 Val() = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 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ù)維護模塊的設(shè)計 因該模塊不涉及到窗體的設(shè)計 ,故不在此描述 ,到此系統(tǒng)的主體部分設(shè)計完成 . 36 第七章 主菜單的設(shè)計與系統(tǒng)的編譯發(fā)行 在實際的系統(tǒng)設(shè)計中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一般有一個主菜單 ,其中包括若干個選擇項 .主菜單單的每一項又可下拉出下一級子菜單 .這樣用一個個的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點描述一個典型的數(shù)據(jù)庫應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項和報表打印等組成。在設(shè)計應(yīng)用程序時，應(yīng)仔細考慮每個組件提供的功能以及與其他組件之間的關(guān)系。設(shè)計好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認無誤后 ,單擊文件菜單下的生成工程得到一個 .EXE 的可執(zhí)行程序 .到此一個完整的系統(tǒng)設(shè)計完成 . 37 結(jié) 論 在剛剛開始學習數(shù)據(jù)庫的時候，對很多細節(jié)很沒有概念。特別是對窗體的作用還有過程的概念的掌握，理解不準確。通過老師的幫助才慢慢的有了一點體會。對書本的學習完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。表單制作完成后就是對控件編程，其中要注意程序編寫時的細節(jié)，格式，命 令的拼寫，運用的合理性等等都要進行分析。 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。 致 謝 在本次畢業(yè)設(shè)計中，我從指導老師身上學到了很多東西，取人之長，補已之短。指導老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都是一種巨大的幫助和財富 ,忠心感謝指導老師 38 的耐心的輔導。在此我向他們至以最高的敬意 . 參考文獻 [1] 《 Visual Basic 中文版高級應(yīng)用與開發(fā)指南》 張紅軍 王虹 等 人民郵電出版社 [2] 《 VB 課程設(shè)計與系統(tǒng)開發(fā)案例》伍俊良 主編 清華大學出版社 [3] 《 Visual Basic 教育信息化系統(tǒng)開發(fā)實例導航》 林陳雷 郭安源 等 人民郵電出版社 [4] 《 Visual Basic