【正文】 b Private Sub cmddel_Click() x = MsgBox(確實要刪除當前記錄嗎？ , vbYesNo + vbQuestion, 確認 ) If x = vbYes Then If Then End If Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False 沈陽理工大學課程設計專用紙 No45 45 End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 End Sub 所有收款合同信息代碼： Private Sub cmdfh_Click() 管理收款合同信息 .Show Unload Me End Sub （ 5）管理售樓合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True 沈陽理工大學課程設計專用紙 No47 47 End Sub Private Sub cmdbg_Click() 所有售樓合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實要刪除當前記錄嗎？ , vbYesNo + vbQuestion, 確認 ) If x = vbYes Then If Then End If Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。 / amp。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 End Sub 所有售樓合同信息代碼： Private Sub cmdfh_Click() 管理售樓合同信息 .Show Unload Me End Sub 沈陽理工大學課程設計專用紙 No50 50 總結(jié) 在研究售樓信息系統(tǒng)發(fā)展現(xiàn)狀的基礎(chǔ)上，本文設計了售樓信息管理系統(tǒng)，利用 VB 進行實現(xiàn)。數(shù)據(jù)庫管理系統(tǒng)是信息安全的核心之一。開發(fā)一個系統(tǒng)并不是一帆風順的事情，既要邊實驗，邊學習，又要解決許多新問題。后移 ]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = True If Then 39。 / amp。 讓 [后移 ]按鈕有效 = True 39。后移 ]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = True If Then 39。 / amp。 讓 [后移 ]按鈕有效 = True 39。后移 ]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = True If Then 39。 / amp。 讓 [后移 ]按鈕有效 = True 39。后移 ]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = True If Then 39。 / amp。 讓 [后移 ]按鈕有效 = True 39。后移 ]按鈕有效 = True 39。記錄指針移到前一條記錄 = True = True If 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 If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private 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 If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 沈陽理工大學課程設計專用紙 No24 24 樓盤編號 樓號 單元號 樓層 房號 戶型 面積 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 String sqlstr = Select * From 密碼表 Where 用戶名 = 39。 （ 3）合同信息： 包括 合同信息 的添加 、 刪除 和查詢。 具體主要實現(xiàn)如下功能： 售樓信息 管理部分包括樓盤 信息管理 、 合同信息管理、收款信息管理、售樓合同信息管理與收款合同信息管理， 其功能是 分別 實現(xiàn)對樓盤 信息、合同信息、收款信息和售樓合同信息和收款合同信息的各部分 數(shù)據(jù)內(nèi)容的添加 、 刪除等操作。 第二周：管理功能設計，設計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。 撰寫課程設計報告，驗收與答辯。 售樓信息查詢部分包括 樓盤 信息查詢 、 合同信息查詢、收款信息查詢、售樓合同信息查詢與收款合同信息 查詢，其功能是分別 實現(xià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 If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private 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 If End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub Form_Load() 樓盤編號 合同編號 身份證號 合同簽訂日期 End Sub 數(shù)據(jù)管理模塊的詳細設計 利用 VB工程實現(xiàn)，頁面的設計如下圖： 各管理頁面 （ 1）管理樓盤信息頁面 沈陽理工大學課程設計專用紙 No29 29 圖 管理樓盤信息頁面 點擊 ’表格顯示 ’進入所有樓盤信息頁面 圖 顯示所有樓盤信息表 （ 2）管理合同信息頁面 沈陽理工大學課程設計專用紙 No30 30 圖 管理合同信息頁面 點擊 ’表格顯示 ’進入所有合同信息頁面 圖 顯示所有合同信息表 （ 3）管理收款信息頁面 沈陽理工大學課程設計專用紙 No31 31 圖 管理收款信息頁面 點擊 ’表格顯示 ’進入所有收款信息頁面 圖 顯示所有收款信息表 （ 4）管理收款合同信息頁面 沈陽理工大學課程設計專用紙 No32 32 圖 管理收款合同信息頁面 點擊 ’表格顯示 ’進入所有收款合同信息頁面 圖 顯示所有收款合同信息表 （ 5）管理售樓合同信息頁面 沈陽理工大學課程設計專用紙 No33 33 圖 管理收款合同信息頁面 點擊 ’表格顯示 ’進入所有售樓合同信息頁面 圖 顯示所有售樓合同信息表 各管理模塊 功能 該窗體以文本框顯示當前記錄，用按鈕 [首記錄 ]、 [末記錄 ]、 [前一個 ]、 [后一個 ]，控制記錄指針的移動；用 一個標簽 Label 顯示：當前記錄號 /記錄總數(shù)；單擊 [表格顯示 ]按鈕，顯示 DataGrid 控件 (Visible=True),以表格形式顯示商品信息表，單擊 [返回 ]按鈕， 沈陽理工大學課程設計專用紙 No34 34 可以關(guān)閉本窗體，返回主窗體。 讓 [末記錄 ]按鈕有效 39。 End Sub Private Sub cmdnext_Click() 39。 如果記錄指針移到首記錄 之前 , 39。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 讓 [末記錄 ]按鈕有效 39。 End Sub Private Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前 , 39。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 讓 [末記錄 ]按鈕有效 39。 沈陽理工大學課程設計專用紙 No43 43 End Sub Private Sub cmdnext_Click() 39。 如果記錄指針移到首記錄之前 , 39。[末記錄 ]按鈕有效 = False 沈陽理工大學課程設計專用紙 No44 44 = False