【正文】 32 32 圖 管理收款合同信息頁面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有收款合同信息頁面 圖 顯示所有收款合同信息表 （ 5）管理售樓合同信息頁面 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No33 33 圖 管理收款合同信息頁面 點(diǎn)擊 ’表格顯示 ’進(jìn)入所有售樓合同信息頁面 圖 顯示所有售樓合同信息表 各管理模塊 功能 該窗體以文本框顯示當(dāng)前記錄，用按鈕 [首記錄 ]、 [末記錄 ]、 [前一個(gè) ]、 [后一個(gè) ]，控制記錄指針的移動(dòng)；用 一個(gè)標(biāo)簽 Label 顯示：當(dāng)前記錄號(hào) /記錄總數(shù)；單擊 [表格顯示 ]按鈕，顯示 DataGrid 控件 (Visible=True),以表格形式顯示商品信息表，單擊 [返回 ]按鈕， 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No34 34 可以關(guān)閉本窗體，返回主窗體?？梢詫?duì)記錄進(jìn)行新增、確認(rèn)、刪除、取消操作。 Command是對(duì)數(shù)據(jù)的查看以及管理，根據(jù)按鈕的顯示可以對(duì)數(shù)據(jù)進(jìn)行添加、刪除等操作， 旁邊的主要是與數(shù)據(jù)源相連，以實(shí)現(xiàn)對(duì)數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行管理，管理窗口主要實(shí)現(xiàn)數(shù)據(jù)的管理功能，輸出框與 相連之后可以實(shí)現(xiàn)對(duì)數(shù)據(jù)管理的輸出。 （ 1）管理合同信息： 當(dāng)顯示管理信息頁面時(shí)，點(diǎn)擊按鈕可 以查詢每條信息記錄，并對(duì)其進(jìn)行新增與刪除，如下圖所示 圖 新增一條合同記錄頁面 對(duì)象屬性值表： 表 1— 9 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行，記錄： 文本框 DataSource Adodc1 DataField 合同編號(hào)，合同簽訂日期，購買人姓名，身份證號(hào)，售樓人員姓名，合同單價(jià)，付款方式，貸款銀行，記錄： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No35 35 Text 空，其他默認(rèn) 命 令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （ 2）管理樓盤信息： 對(duì)象屬性值表： 表 1— 10 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號(hào)，樓號(hào)，單元號(hào)，樓層，房號(hào)，戶型，面積，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （ 3）管理收款信息： 對(duì)象屬性值表： 表 1— 11 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 收 款編號(hào)，交款日期，收款金額，交款人，收款人，記錄： 文本框 DataSource Adodc1 DataField 收款編號(hào)，交款日期，收款金額，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 （ 4）管理收款合同信息： 對(duì)象屬性值表： 表 1— 12 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 合同編號(hào)，收款編號(hào)，交款人，收款人，記錄： 文本框 DataSource Adodc1 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No36 36 DataField 合同編號(hào)，收款編號(hào)，交款人，收款人，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄 ，前一個(gè)，后一個(gè)，末記錄，表格顯示 （ 5）管理售樓合同信息： 對(duì)象屬性值表： 表 1— 13 控件名 屬性 設(shè)置值 標(biāo)簽控件 Name Label1 Label19 Caption 樓盤編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期 ，記錄： 文本框 DataSource Adodc1 DataField 樓盤編號(hào)，合同編號(hào)，身份證號(hào)，合同簽訂日期 ，記錄： Text 空，其他默認(rèn) 命令按鈕 Name cmdadd， cmdok,， CmdDel， CmdEsc， cmdfh， Cmdfirst， Cmdpre，CmdNext， CmdLast， Cmdbg Caption 新增，確認(rèn)，刪除，取消，返回，首記錄，前一個(gè)，后一個(gè)，末記錄，表格顯示 各管理模塊詳細(xì)設(shè)計(jì)代碼 （ 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í)要?jiǎng)h除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No37 37 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。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label8 上顯示當(dāng)前記錄號(hào) /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdlast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdnext_Click() 39。記錄指針移到下一條記錄 = True = True 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No38 38 If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 如果記錄指針移到首記錄 之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。后移 ]按鈕有效 = True 39。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 amp。 / amp。 End Sub 所有樓盤信息代碼： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 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í)要?jiǎng)h除當(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è)計(jì)專用紙 No40 40 Private Sub cmdfirst_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯 示當(dāng)前記錄號(hào) /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdlast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdnext_Click() 39。記錄指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub cmdok_Click() = True = True = False = False End Sub Private Sub Cmdpre_Click() 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No41 41 39。記錄指針移到前一條記錄 = True = True If Then 39。 如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。后移 ]按鈕有效 = True 39。[末記錄 ]按鈕有效 = False = False = True = True = 記錄： amp。 amp。 / amp。 End Sub 所有合同信息代碼： Private Sub cmdfh_Click() 管理合同信息 .Show Unload Me End Sub （ 3）管理收款信息代碼 Private Sub cmdadd_Click()