【正文】 程設(shè)計專用紙 No5 5 （ 5）收款合同信息（ 收款編號，合同編號 ，收款人，交款人） 表結(jié)構(gòu)設(shè)計 （ 1）用戶信息表的建立與基本數(shù)據(jù) 圖 基本數(shù)據(jù)如下圖： 圖 （ 2）樓盤信息表的建立與基本數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計專用紙 No6 6 圖 基本數(shù)據(jù)如下圖： 圖 （ 3）合同信息表的建立與基本數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計專用紙 No7 7 圖 基本數(shù)據(jù)如下圖： 圖 （ 4）收款信息表的建立與基本數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計專用紙 No8 8 圖 基本數(shù)據(jù)如下圖： 圖 （ 5）售樓合同信息表的建立與基本數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計專用紙 No9 9 圖 基本數(shù)據(jù)如下圖： 圖 （ 6）收款合同信息表的建立與基本數(shù)據(jù) 沈陽理工大學(xué)課程設(shè)計專用紙 No10 10 圖 基本數(shù)據(jù)如下圖： 圖 第 3 章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計 主窗體模塊的詳細(xì)設(shè)計 利用 VB工程實現(xiàn)，頁面的設(shè)計如下圖： 主窗體頁面 沈陽理工大學(xué)課程設(shè)計專用紙 No11 11 圖 主窗體模塊 功能 （ 1）設(shè)計 為 MDI窗體，含有主菜單： [文件 ]、 [數(shù)據(jù)管理 ]、 [數(shù)據(jù)查詢 ]。用于記錄輸入密碼次數(shù) Private Sub CmdLand_Click() Dim sqlstr As String sqlstr = Select * From 密碼表 Where 用戶名 = 39。 Text1 amp。 = sqlstr If Then 39。 Text1 獲得焦點 Else 39。 amp。 39。輸出框下面的主要是與數(shù)據(jù)源相連，以實現(xiàn)對數(shù)據(jù)源中的數(shù)據(jù)進(jìn)行查詢，查詢窗口主要實現(xiàn)查詢功能，輸出框與 相連之后可以實現(xiàn)對查詢結(jié)果的輸出。 where 樓盤信息 .樓盤編號 like39。 Trim() amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 amp。 %39。 where 樓盤信息 .單元號 like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 樓盤信息 sqlstr = sqlstr amp。 amp。 %39。 where 樓盤信息 .房號 like39。 Trim() amp。 = sqlstr ElseIf (5) = 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() 沈陽理工大學(xué)課程設(shè)計專用紙 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。 = sqlstr ElseIf (2) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 合同信息 .身份證號 like39。 Trim() amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 合同信息 .合同單價 like39。 Trim() amp。 = sqlstr 沈陽理工大學(xué)課程設(shè)計專用紙 No25 25 ElseIf (6) = 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 ElseIf (2) = Then sqlstr = select * from 收款信息 沈陽理工大學(xué)課程設(shè)計專用紙 No26 26 sqlstr = sqlstr amp。 amp。 %39。 where 收款信息 .交款人 like39。 Trim() amp。 = sqlstr ElseIf (4) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 amp。 %39。 where 收款合同信息 .合同編號 like39。 Trim() amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 收款合同信息 .交款人 like39。 Trim() amp。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 售樓合同信息 .樓盤編號 like39。 Trim() amp。 = sqlstr ElseIf (1) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 amp。 %39。 where 售樓合同信息 .身份證號 like39。 Trim() amp。 沈陽理工大學(xué)課程設(shè)計專用紙 No28 28 = sqlstr ElseIf (3) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 amp。 %39?？梢詫τ涗涍M(jìn)行新增、確認(rèn)、刪除、取消操作。 （ 1）管理合同信息： 當(dāng)顯示管理信息頁面時，點擊按鈕可 以查詢每條信息記錄，并對其進(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