【導(dǎo)讀】本文還簡單介紹了軟件的界面及操作方法。簡要介紹了窗體的。制作過程，程序的編寫，添加，最后的編譯過程。并且敘述了作者在軟件。開發(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è)計 其中售樓合同管理窗體運(yùn)行效果圖如下 : 其中新合同按鈕的源碼如下 : 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。認(rèn)購日期 (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。認(rèn)購日期 (14) = 39。合同簽訂日期 sql = select * from 預(yù)計付款 where 預(yù)計付款 .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 預(yù)計付款 where 預(yù)計付款 .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ù)維護(hù)模塊的設(shè)計 因該模塊不涉及到窗體的設(shè)計 ,故不在此描述 ,到此系統(tǒng)的主體部分設(shè)計完成 . 36 第七章 主菜單的設(shè)計與系統(tǒng)的編譯發(fā)行 在實(shí)際的系統(tǒng)設(shè)計中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一般有一個主菜單 ,其中包括若干個選擇項(xiàng) .主菜單單的每一項(xiàng)又可下拉出下一級子菜單 .這樣用一個個的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點(diǎn)描述一個典型的數(shù)據(jù)庫應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項(xiàng)和報表打印等組成。在設(shè)計應(yīng)用程序時，應(yīng)仔細(xì)考慮每個組件提供的功能以及與其他組件之間的關(guān)系。設(shè)計好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認(rèn)無誤后 ,單擊文件菜單下的生成工程得到一個 .EXE 的可執(zhí)行程序 .到此一個完整的系統(tǒng)設(shè)計完成 . 37 結(jié) 論 在剛剛開始學(xué)習(xí)數(shù)據(jù)庫的時候，對很多細(xì)節(jié)很沒有概念。特別是對窗體的作用還有過程的概念的掌握，理解不準(zhǔn)確。通過老師的幫助才慢慢的有了一點(diǎn)體會。對書本的學(xué)習(xí)完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。表單制作完成后就是對控件編程，其中要注意程序編寫時的細(xì)節(jié)，格式，命 令的拼寫，運(yùn)用的合理性等等都要進(jìn)行分析。 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。 致 謝 在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西，取人之長，補(bǔ)已之短。指導(dǎo)老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都是一種巨大的幫助和財富 ,忠心感謝指導(dǎo)老師 38 的耐心的輔導(dǎo)。在此我向他們至以最高的敬意 . 參考文獻(xiàn) [1] 《 Visual Basic 中文版高級應(yīng)用與開發(fā)指南》 張紅軍 王虹 等 人民郵電出版社 [2] 《 VB 課程設(shè)計與系統(tǒng)開發(fā)案例》伍俊良 主編 清華大學(xué)出版社 [3] 《 Visual Basic 教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 林陳雷 郭安源 等 人民郵電出版社 [4] 《 Visual Basic