售樓信息管理系統課程設計(編輯修改稿)

　

【文章內容簡介】 %39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (7) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = 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。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (4) = Then sqlstr = select * from 收款信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = 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。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 合同編號 收款編號 交款人 收款人End Sub（5）查詢售樓合同信息代碼Private Sub cmdcx_Click()Dim sqlstr As String If (0) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (2) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (3) = Then sqlstr = select * from 售樓合同信息 sqlstr = sqlstr amp。 where like39。 amp。 Trim() amp。 %39。 = sqlstr End IfEnd SubPrivate Sub cmdfh_Click()Unload MeEnd SubPrivate Sub Form_Load() 樓盤編號 合同編號 身份證號 合同簽訂日期End Sub 數據管理模塊的詳細設計利用VB工程實現，頁面的設計如下圖： 各管理頁面（1）管理樓盤信息頁面點擊’表格顯示’進入所有樓盤信息頁面（2）管理合同信息頁面點擊’表格顯示’進入所有合同信息頁面（3）管理收款信息頁面點擊’表格顯示’進入所有收款信息頁面（4）管理收款合同信息頁面點擊’表格顯示’進入所有收款合同信息頁面（5）管理售樓合同信息頁面點擊’表格顯示’進入所有售樓合同信息頁面 各管理模塊功能該窗體以文本框顯示當前記錄，用按鈕[首記錄]、[末記錄]、[前一個]、[后一個]，控制記錄指針的移動；用一個標簽Label顯示：當前記錄號/記錄總數；單擊[表格顯示]按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊[返回]按鈕，可以關閉本窗體，返回主窗體。可以對記錄進行新增、確認、刪除、取消操作。Command是對數據的查看以及管理，根據按鈕的顯示可以對數據進行添加、刪除等操作，旁邊的主要是與數據源相連，以實現對數據源中的數據進行管理，管理窗口主要實現數據的管理功能，輸出框與相連之后可以實現對數據管理的輸出。（1）管理合同信息：當顯示管理信息頁面時，點擊按鈕可以查詢每條信息記錄，并對其進行新增與刪除，如下圖所示對象屬性值表：表1—9控件名屬性設置值標簽控件NameLabel1 Label19Caption合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄：文本框DataSourceAdodc1DataField合同編號，合同簽訂日期，購買人姓名，身份證號，售樓人員姓名，合同單價，付款方式，貸款銀行，記錄：Text空，其他默認命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （2）管理樓盤信息：對象屬性值表：表1—10控件名屬性設置值標簽控件NameLabel1 Label19Caption樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄：文本框DataSourceAdodc1DataField樓盤編號，樓號，單元號，樓層，房號，戶型，面積，記錄：Text空，其他默認命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （3）管理收款信息：對象屬性值表：表1—11控件名屬性設置值標簽控件NameLabel1 Label19Caption收款編號，交款日期，收款金額，交款人，收款人，記錄：文本框DataSourceAdodc1DataField收款編號，交款日期，收款金額，交款人，收款人，記錄：Text空，其他默認命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （4）管理收款合同信息：對象屬性值表：表1—12控件名屬性設置值標簽控件NameLabel1 Label19Caption合同編號，收款編號，交款人，收款人，記錄：文本框DataSourceAdodc1DataField合同編號，收款編號，交款人，收款人，記錄：Text空，其他默認命令按鈕Namecmdadd，cmdok,，CmdDel，CmdEsc，cmdfh，Cmdfirst，Cmdpre，CmdNext，CmdLast，CmdbgCaption新增，確認，刪除，取消，返回，首記錄，前一個，后一個，末記錄，表格顯示 （5）管理售樓合同信息：對象屬性值表：表1—13控件名屬