【正文】 數(shù)據(jù)庫管理系統(tǒng)是信息安全的核心之一。開發(fā)一個系統(tǒng)并不是一帆風(fēng)順的事情，既要邊實(shí)驗，邊學(xué)習(xí)，又要解決許多新問題。 End Sub 所有售樓合同信息代碼： Private Sub cmdfh_Click() 管理售樓合同信息 .Show Unload Me End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No50 50 總結(jié) 在研究售樓信息系統(tǒng)發(fā)展現(xiàn)狀的基礎(chǔ)上，本文設(shè)計了售樓信息管理系統(tǒng)，利用 VB 進(jìn)行實(shí)現(xiàn)。后移 ]按鈕有效 = True 39。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 / amp。 讓 [后移 ]按鈕有效 = True 39。 End Sub 所有收款合同信息代碼： Private Sub cmdfh_Click() 管理收款合同信息 .Show Unload Me End Sub （ 5）管理售樓合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True 沈陽理工大學(xué)課程設(shè)計專用紙 No47 47 End Sub Private Sub cmdbg_Click() 所有售樓合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) 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。后移 ]按鈕有效 = True 39。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 / amp。 讓 [后移 ]按鈕有效 = True 39。 End Sub 所有收款信息代碼： Private Sub cmdfh_Click() 管理收款信息 .Show Unload Me End Sub （ 4）管理收款合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有收款合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub Private Sub cmdesc_Click() = True = True = False = False 沈陽理工大學(xué)課程設(shè)計專用紙 No45 45 End Sub Private Sub cmdfh_Click() 主窗體 .Show Unload Me End Sub Private Sub cmdfirst_Click() 39。后移 ]按鈕有效 = True 39。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 / amp。 讓 [后移 ]按鈕有效 = True 39。 End Sub 所有合同信息代碼： Private Sub cmdfh_Click() 管理合同信息 .Show Unload Me End Sub （ 3）管理收款信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有收款信息 .Show End Sub Private Sub cmddel_Click() 沈陽理工大學(xué)課程設(shè)計專用紙 No42 42 x = MsgBox(確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) 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。后移 ]按鈕有效 = True 39。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 / amp。 讓 [后移 ]按鈕有效 = True 39。 End Sub 所有樓盤信息代碼： 沈陽理工大學(xué)課程設(shè)計專用紙 No39 39 Private Sub cmdfh_Click() 管理樓盤信息 .Show Unload Me End Sub （ 2）管理合同信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有合同信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) 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 沈陽理工大學(xué)課程設(shè)計專用紙 No40 40 Private Sub cmdfirst_Click() 39。后移 ]按鈕有效 = True 39。 / amp。記錄指針移到前一條記錄 = True = True If Then 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 / amp。 / amp。 讓 [后移 ]按鈕有效 = True 39。 （ 1）管理合同信息： 當(dāng)顯示管理信息頁面時，點(diǎn)擊按鈕可 以查詢每條信息記錄，并對其進(jìn)行新增與刪除，如下圖所示 圖 新增一條合同記錄頁面 對象屬性值表： 表 1— 9 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄： 文本框 DataSource Adodc1 DataField 合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄： 沈陽理工大學(xué)課程設(shè)計專用紙 No35 35 Text 空，其他默認(rèn) 命 令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （ 2）管理樓盤信息： 對象屬性值表： 表 1— 10 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （ 3）管理收款信息： 對象屬性值表： 表 1— 11 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 收 款編號，交款日期，收款金額，交款人，收款人，記錄： 文本框 DataSource Adodc1 DataField 收款編號，交款日期，收款金額，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （ 4）管理收款合同信息： 對象屬性值表： 表 1— 12 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號，收款編號，交款人，收款人，記錄： 文本框 DataSource Adodc1 沈陽理工大學(xué)課程設(shè)計專用紙 No36 36 DataField 合同編號，收款編號，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄 ，前一個，后一個，末記錄，表格顯示 （ 5）管理售樓合同信息： 對象屬性值表： 表 1— 13 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號，合同編號，身份證號，合同簽訂日期 ，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號，合同編號，身份證號，合同簽訂日期 ，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 各管理模塊詳細(xì)設(shè)計代碼 （ 1）管理樓盤信息代碼 Private Sub cmdadd_Click() = False = False = True = True End Sub Private Sub cmdbg_Click() 所有樓盤信息 .Show End Sub Private Sub cmddel_Click() x = MsgBox(確實(shí)要刪除當(dāng)前記錄嗎？ , vbYesNo +