【正文】 他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都是一種巨大的幫助和財(cái)富 ,忠心感謝指導(dǎo)老師 38 的耐心的輔導(dǎo)。 致 謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西，取人之長(zhǎng)，補(bǔ)已之短。表單制作完成后就是對(duì)控件編程，其中要注意程序編寫時(shí)的細(xì)節(jié)，格式，命 令的拼寫，運(yùn)用的合理性等等都要進(jìn)行分析。在對(duì)表單的制作過程中，對(duì)窗體的尺寸的把握，對(duì)各個(gè)控件尺寸的把握是比較困難的，各個(gè)控件在表單中的布局也非常重要。通過老師的幫助才慢慢的有了一點(diǎn)體會(huì)。設(shè)計(jì)好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認(rèn)無誤后 ,單擊文件菜單下的生成工程得到一個(gè) .EXE 的可執(zhí)行程序 .到此一個(gè)完整的系統(tǒng)設(shè)計(jì)完成 . 37 結(jié) 論 在剛剛開始學(xué)習(xí)數(shù)據(jù)庫的時(shí)候，對(duì)很多細(xì)節(jié)很沒有概念。 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è)計(jì) 因該模塊不涉及到窗體的設(shè)計(jì) ,故不在此描述 ,到此系統(tǒng)的主體部分設(shè)計(jì)完成 . 36 第七章 主菜單的設(shè)計(jì)與系統(tǒng)的編譯發(fā)行 在實(shí)際的系統(tǒng)設(shè)計(jì)中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一般有一個(gè)主菜單 ,其中包括若干個(gè)選擇項(xiàng) .主菜單單的每一項(xiàng)又可下拉出下一級(jí)子菜單 .這樣用一個(gè)個(gè)的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步驟如下 : 1) 選取要建立菜單的窗體 2) 從 “ 工具 ” 菜單中 ,選取 “ 菜單編輯器 ” 建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點(diǎn)描述一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項(xiàng)和報(bào)表打印等組成。 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。合同簽訂日期 sql = select * from 預(yù)計(jì)付款 where 預(yù)計(jì)付款 .Add_pactid = amp。貸款銀行 (13) = 39。地下室價(jià)款 (11) = 39。樓盤價(jià)款 (9) = 39。現(xiàn)金折扣 (7) = 39。銷售人員編號(hào) If Then (5) = CSng() 39。樓盤編號(hào) (2) = 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 購買人身份證號(hào)不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 銷售人員編號(hào)不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If sql = select * from 合同 where 合同 .Pct_ID = amp。貸款銀行 (13) = 39。地下室價(jià)款 End If (11) = 39。車位價(jià)款 End If (9) = 39?，F(xiàn)金折扣 32 (7) = 39。銷售人員編號(hào) If Then (5) = CSng() 39。樓盤編號(hào) (2) = 39。合同狀態(tài) (0) = 39。 _ and 樓盤 .hos_hstid = 戶型 .Hst_ID = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (4) = (2) 39。 39。 amp。 39。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 amp。按照手機(jī)號(hào)查詢 If = True Then sql = select * from 客戶資料 where Hon_handset = 39。 39。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 amp。 \ connectionstring t = 0 End Sub 房屋管理模塊的設(shè)計(jì) (因?yàn)樵撓到y(tǒng)所設(shè)計(jì)的窗體比較多 ,故我們 將每一人模塊 選取有代表性 的一個(gè) 窗體進(jìn)行重點(diǎn)描述 .: 1. 戶型登記 分析按鈕源碼如下 : 增加按鈕的源碼為 Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 24 If Trim() = Then MsgBox 戶型編號(hào)不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 請(qǐng)選擇戶型編號(hào)！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 建筑面積不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 套內(nèi)面積不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Not IsNumeric() Then 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 Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 戶型編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ 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 = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = End With = 增加 Else = 保存 = = = = = False = False End If Exit Sub adderror: MsgBox End Sub 修改按鈕的源碼為 : Private Sub cmdmodify_Click() On Error GoTo modifyerror = False If Trim() = Then MsgBox 房型不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If 26 Dim i As Integer For i = 0 To 1 If (0) = Then (1) = CSng() (2) = CSng() (3) = (4) = (5) = MsgBox 修改成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .Row = getrow .Col = 0 .Text = .Col = 1 .Text = .C