【正文】 涉密論文按學(xué)校規(guī)定處理。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了謝意。開發(fā)一個系統(tǒng)并不是一帆風(fēng)順的事情，既要邊實(shí)驗(yàn)，邊學(xué)習(xí)，又要解決許多新問題。后移]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = TrueIf Then 39。 / amp。 讓[后移]按鈕有效 = True 39。后移]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = TrueIf Then 39。 / amp。 讓[后移]按鈕有效 = True 39。后移]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = TrueIf Then 39。 / amp。 讓[后移]按鈕有效 = True 39。后移]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = TrueIf Then 39。 / amp。 讓[后移]按鈕有效 = True 39。后移]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = TrueIf Then 39。 / amp。 讓[后移]按鈕有效 = True 39。 %39。 where like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 合同編號 合同簽定日期 購買人姓名 身份證號 售樓人員姓名 合同單價 付款方式 貸款銀行End Sub（3）查詢收款信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 樓盤編號 樓號 單元號 樓層 房號 戶型 面積End Sub（2）查詢合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where like39。 Trim() amp。 amp。用于記錄輸入密碼次數(shù)Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr = Select * From 密碼表 Where 用戶名= 39。（3）合同信息：包括合同信息的添加、刪除和查詢。具體主要實(shí)現(xiàn)如下功能：售樓信息管理部分包括樓盤信息管理、合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理，其功能是分別實(shí)現(xiàn)對樓盤信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分?jǐn)?shù)據(jù)內(nèi)容的添加、刪除等操作。第二周：管理功能設(shè)計，設(shè)計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。 撰寫課程設(shè)計報告，驗(yàn)收與答辯。售樓信息查詢部分包括樓盤信息查詢、合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息查詢，其功能是分別實(shí)現(xiàn)對樓盤信息、合同信息、收款信息、售樓合同信息和收款合同信息查詢的各部分?jǐn)?shù)據(jù)內(nèi)容的查詢操作。合同信息包括合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式和貸款銀行。 amp。 Text1 amp。 %39。 amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr ElseIf (5) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 收款編號 交款日期 收款金額 交款人 收款人End Sub（4）查詢收款合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 Trim() amp。 where like39。 %39。 amp。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 樓盤編號 合同編號 身份證號 合同簽訂日期End Sub 數(shù)據(jù)管理模塊的詳細(xì)設(shè)計利用VB工程實(shí)現(xiàn)，頁面的設(shè)計如下圖： 各管理頁面（1）管理樓盤信息頁面點(diǎn)擊’表格顯示’進(jìn)入所有樓盤信息頁面（2）管理合同信息頁面點(diǎn)擊’表格顯示’進(jìn)入所有合同信息頁面（3）管理收款信息頁面點(diǎn)擊’表格顯示’進(jìn)入所有收款信息頁面（4）管理收款合同信息頁面點(diǎn)擊’表格顯示’進(jìn)入所有收款合同信息頁面（5）管理售樓合同信息頁面點(diǎn)擊’表格顯示’進(jìn)入所有售樓合同信息頁面 各管理模塊功能該窗體以文本框顯示當(dāng)前記錄，用按鈕[首記錄]、[末記錄]、[前一個]、[后一個]，控制記錄指針的移動；用一個標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)；單擊[表格顯示]按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊[返回]按鈕，可以關(guān)閉本窗體，返回主窗體。 讓[末記錄]按鈕有效39。 End SubPrivate Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前, 39。[末記錄]按鈕有效 = False = False = True = True = 記錄： amp。 讓[末記錄]按鈕有效39。 End SubPrivate Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前, 39。[末記錄]按鈕有效 = False = False = True = True = 記錄： amp。 讓[末記錄]按鈕有效39。 End SubPrivate Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前, 39。[末記錄]按鈕有效 = False = False = True = True = 記錄： amp。 讓[末記錄]按鈕有效39。 End SubPrivate Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前, 39。[末記錄]按鈕有效 = False = False = True = True = 記錄： amp。 讓[末記錄]按鈕有效39。 End SubPrivate Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前, 39。[末記錄]按鈕有效 = False = False = True = True = 記錄： amp。在整個調(diào)試過程有許多環(huán)節(jié)是反復(fù)試驗(yàn)，多次更改才定型的。作 者 簽 名：　　 　 　　日　 期：　　 　 　　 指導(dǎo)教師簽名：　　 　 　　 日　　期：　　 　 　　 使用授權(quán)說明本人完全了解 大學(xué)關(guān)于收集、保存、使用畢業(yè)設(shè)計（論文）的規(guī)定，即：按照學(xué)校要求提交畢業(yè)設(shè)計（論文）的印刷本和電子版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)校可以采用影印、縮印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)?？梢怨颊撐牡牟糠只蛉績?nèi)容。作者簽名： 日期： 年 月 日導(dǎo)師簽名： 日期： 年 月 日注 意 事 項(xiàng)（論文）的內(nèi)容包括：1）封面（按教務(wù)處制定的標(biāo)準(zhǔn)封面格式制作）2）原創(chuàng)性聲明3）中文摘要（300字左右）、關(guān)鍵詞4）外文摘要、關(guān)鍵詞 5）目次頁（附件不統(tǒng)一編入）6）論文主體部分：引言（或緒論）、正文、結(jié)論7）參考文獻(xiàn)8）致謝9）附錄（對論文支持必要時）：理工類設(shè)計（論文）正文字?jǐn)?shù)不少于1萬字（不包括圖紙、程序清單等）。本人授權(quán)　　 　 　大學(xué)可以將本學(xué)位論文的全部或部分內(nèi)容編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，可以采用影印、縮印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。盡我所知，除文中特別加以標(biāo)注和致謝的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過的研究成果，也不包含我為獲得 及其它教育機(jī)構(gòu)的學(xué)位或?qū)W歷而使用過的材料。通過本次課程設(shè)計使我了解了開發(fā)一個項(xiàng)目的全部過程并掌握了一些知識。[前移]按鈕無效 = True 39。 End SubPrivate Sub cmdok_Click() = True = True = False = FalseEnd SubPrivate Sub Cmdpre_Click() 39。 amp。 讓[前移]按鈕無效 = True 39。[前移]按鈕無效 = Tr