售楼信息管理系统课程设计(编辑修改稿)

售楼信息管理系统课程设计(编辑修改稿)内容摘要：

n 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 ElseIf (5) = Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr amp。 where 楼盘信息 .户型 like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (6) = Then sqlstr = select * from 楼盘信息 sqlstr = sqlstr amp。 where 楼盘信息 .面积 like39。 amp。 Trim() amp。 %39。 = 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。 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 ElseIf (5) = Then sqlstr = select * from 合同信息 sqlstr = sqlstr amp。 where 合同信息 .合同单价 like39。 amp。 Trim() amp。 %39。 = sqlstr 沈阳理工大学课程设计专用纸 No25 25 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 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。 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 收款信息 沈阳理工大学课程设计专用纸 No26 26 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 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。 where 收款合同信息 .合同编号 like39。 amp。 Trim() amp。 %39。 = sqlstr ElseIf (1) = Then sqlstr = select * from 收款合同信息 sqlstr = sqlstr amp。 where 收款合同信息 .收款编号 like39。 amp。 Trim() amp。 %39。 = sqlstr 沈阳理工大学课程设计专用纸 No27 27 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 If End Sub Private Sub cmdfh_Click() 主窗体 .Show Unload Me End Sub Private 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。 沈阳理工大学课程设计专用纸 No28 28 = sqlstr ElseIf (3) = Then sqlstr = select * from 售楼合同信息 sqlstr = sqlstr amp。 where 售楼合同信息 .合同签订日期 like39。 amp。 Trim() amp。 %39。 = sqlstr End If End Sub Private Sub cmdfh_Click() 主窗体 .Show Unload Me End Sub Private Sub Form_Load() 楼盘编号 合同编号 身份证号 合同签订日期 End Sub 数据管理模块的详细设计 利用 VB工程实现，页面的设计如下图： 各管理页面 （ 1）管理楼盘信息页面 沈阳理工大学课程设计专用纸 No29 29 图 管理楼盘信息页面 点击 ’表格显示 ’进入所有楼盘信息页面 图 显示所有楼盘信息表 （ 2）管理合同信息页面 沈阳理工大学课程设计专用纸 No30 30 图 管理合同信息页面 点击 ’表格显示 ’进入所有合同信息页面 图 显示所有合同信息表 （ 3）管理收款信息页面 沈阳理工大学课程设计专用纸 No31 31 图 管理收款信息页面 点击 ’表格显示 ’进入所有收款信息页面 图 显示所有收款信息表 （ 4）管理收款合同信息页面 沈阳理工大学课程设计专用纸 No。