售楼信息管理系统课程.doc

沈阳理工大学课程设计专用纸 No50
成 绩 评 定 表
学生姓名
张恒郡
班级学号
1109010116
专 业
信息与计算科学
课程设计题目
售楼信息管理系统
评

语

组长签字：

成绩

日期

2013 年12月 日

课程设计任务书
学 院
理学院
专 业
信息与计算科学
学生姓名
张恒郡
班级学号
1109010116
课程设计题目
售楼信息管理系统
实践教学要求与任务:
设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。
[文件]菜单包含以下子菜单及其功能：
[注册新用户]菜单：打开“注册新用户”窗体
[退出]菜单：结束程序运行
[数据管理] 包含以下子菜单：
[管理楼盘信息]菜单：显示管理楼盘信息窗体
[管理合同信息]菜单：显示管理合同信息窗体
[管理收款信息]菜单：显示管理收款信息窗体
[管理收款合同信息]菜单：显示管理收款合同信息窗体
[管理售楼合同信息]菜单：显示管理售楼合同信息窗体
[数据查询]包含以下子菜单：
[查询楼盘信息]：显示查询楼盘信息窗体
[查询合同信息]：显示查询合同信息窗体
[查询收款信息]：显示查询收款信息窗体

[查询收款合同信息]：显示查询收款合同信息窗体
[查询售楼合同信息]：显示查询售楼合同信息窗体

工作计划与进度安排:

第一周：数据库设计，利用SQL Server创建数据库及数据表。
总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。
第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。
撰写课程设计报告，验收与答辩。
指导教师：

2013年12月1 日
专业负责人：

2013年 12月 日
学院教学副院长：

2013 年12月 日

沈阳理工大学课程设计专用纸 No53

摘 要

近几年，中国经济快速、平稳发展，伴随着中国城市化进程加快和住房体制的改革，售楼行业得到了迅猛发展，房地产销售业务量急剧扩大，因此对售楼管理提出了更高的要求。售楼信息管理系统就是为了实现这一目标而设计的，管理人员通过该系统可以及时了解楼盘的动态销售情况，还能充分利用电脑的可检索性、方便、快速地了解有关销售楼盘的其他各种详细资料，以便及时做出正确决策。
本系统主要实现以下功能：售楼管理，即管理所有的售楼信息、合同信息、收款信息，并对售楼数据进行添加、删除等操作。此外，方便的查询功能可以使客户迅速地找到自己所需的售楼信息；系统的核心实现对楼盘销售的数据、合同签订情况、客户付费等情况的管理。
系统以中文版Visual Basic 6.0为前台开发工具，用中文版SQL 2000作为后台数据库。

关键词：Visual Basic SQL sever 2000 售楼信息管理系统

目 录
第一章 系统功能概述 1
1.1 系统功能分析 1
1.2 系统结构图 1
第二章 数据库设计 2
2.1 需求分析 2
2.2 E-R模型 2
2.3 关系模型 4
2.4 表结构设计 5
第三章 系统各功能模块的详细设计 10
3.1 主窗体模块的详细设计 10
3.2 用户管理模块的详细设计 13
3.3 数据查询模块的详细设计 17
3.4 数据管理模块的详细设计 28
总结 50
参考文献 51

II

第1章 系统功能概述
1.1 系统功能分析
该系统具备的功能包括楼盘管理、合同管理、收款管理、售楼合同管理、收款合同管理、退出系统。
具体主要实现如下功能：
售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。
售楼信息查询部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。
1.2 系统结构图
图1.1售楼管理信息系统总体结构
售楼信息管理
售楼楼盘信息
售楼合同信息
售楼收款信息
楼盘编号
楼号
单元号
楼层
房号
户型
面积
合同编号
合同签订日期
购买人姓名
身份证号
售楼人员姓名
合同单价
付款方式
贷款银行
收款编号
交款日期
收款金额
交款人
收款人

第2章 数据库设计
2.1 需求分析
通过对用户需求的分析，确定系统应具备的功能包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理、退出系统。
具体主要实现如下功能：
售楼信息管理部分包括楼盘信息管理与查询、合同信息管理与查询、收款信息管理与查询、售楼合同信息管理与查询和收款合同信息管理与查询，其功能是实现对楼盘各部分数据内容的添加、删除和查询等操作。
（1）楼盘信息：包括楼盘信息的添加、删除和查询。楼盘信息包括楼盘编号，楼号，单元号，楼层，房号，户型和面积。
（2）收款信息：包括收款信息的添加、删除和查询。收款信息包括收款编号，交款日期，收款金额，交款人和收款人。
（3）合同信息：包括合同信息的添加、删除和查询。合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。
（4）售楼合同信息：包括售楼合同信息的添加、删除和查询。售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。
（5）收款合同信息：包括收款合同信息的添加、删除和查询。收款合同信息包括收款编号，合同编号，交款人和收款人。
2.2 E-R模型
(1) 局部E-R模型：
图1.2楼盘信息

楼盘信息
楼盘编号
楼号
单元号
楼层
房号
户型
面积

图1.3合同信息

合同信息
合同编号
合同签订日期
身份证号
售楼人员姓名
购买人姓名
合同单价
付款方式
贷款银行

图1.4收款信息

收款信息
收款编号
交款日期
收款金额
交款人
收款人

图1.5售楼合同信息

售楼合同信息
楼盘编号
合同编号
身份证号
合同签订日期

图1.6收款合同信息

收款合同信息
收款编号
合同编号
交款人
收款人

(2) 全局E-R模型：
图1.7售楼信息管理系统E-R模型

楼盘信息

购买
合同信息
支付
收款信息
m
n
n
m
楼盘编号
身份证号
合同编号
合同编号
交款人
收款编号
合同签订日期
收款人

2.3 关系模型
（1） 楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）
（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行）
（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视费，电费）
（4）售楼合同信息（楼盘编号，合同编号，合同签订日期，身份证号）
（5）收款合同信息（收款编号，合同编号，收款人，交款人）

2.4 表结构设计
（1）用户信息表的建立与基本数据

图1.8密码表属性
基本数据如下图：

图1.9密码表基本数据
（2）楼盘信息表的建立与基本数据

图1.10楼盘信息表属性
基本数据如下图：

图1.11楼盘信息表基本数据
（3）合同信息表的建立与基本数据

图1.12合同信息表属性
基本数据如下图：

图1.13合同信息表基本数据
（4）收款信息表的建立与基本数据

图1.14收款信息表属性
基本数据如下图：

图1.15收款信息表基本数据
（5）售楼合同信息表的建立与基本数据

图1.16售楼合同信息表属性
基本数据如下图：

图1.17售楼合同信息表基本数据
（6）收款合同信息表的建立与基本数据

图1.18收款合同信息表属性
基本数据如下图：

图1.19收款合同信息表基本数据
第3章 系统各功能模块的详细设计
3.1 主窗体模块的详细设计
利用VB工程实现，页面的设计如下图：
1、主窗体页面

图1.20主窗体
2、主窗体模块功能
（1）设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。
[文件]菜单包含以下子菜单及其功能：
[注册新用户]菜单：打开“注册新用户”窗体
[退出]菜单：结束程序运行
[数据管理] 包含以下子菜单：
[管理楼盘信息]菜单：显示管理楼盘信息窗体
[管理合同信息]菜单：显示管理合同信息窗体
[管理收款信息]菜单：显示管理收款信息窗体
[管理收款合同信息]菜单：显示管理收款合同信息窗体
[管理售楼合同信息]菜单：显示管理售楼合同信息窗体
[数据查询]包含以下子菜单：
[查询楼盘信息]：显示查询楼盘信息窗体
[查询合同信息]：显示查询合同信息窗体
[查询收款信息]：显示查询收款信息窗体
[查询收款合同信息]：显示查询收款合同信息窗体
[查询售楼合同信息]：显示查询售楼合同信息窗体
3、主窗体模块详细设计代码
Private Sub 查询合同信息1_Click()
查询合同信息.Show
End Sub

Private Sub 查询楼盘信息1_Click()
查询楼盘信息.Show
End Sub

Private Sub 查询收款合同信息1_Click()
查询收款合同信息.Show
End Sub

Private Sub 查询收款信息1_Click()
查询收款信息.Show
End Sub

Private Sub 查询售楼合同信息1_Click()
查询售楼合同信息.Show
End Sub

Private Sub 管理合同信息1_Click()
管理合同信息.Show
End Sub

Private Sub 管理楼盘信息1_Click()
管理楼盘信息.Show
End Sub

Private Sub 管理收款合同信息1_Click()
管理收款合同信息.Show
End Sub

Private Sub 管理收款信息1_Click()
管理收款信息.Show
End Sub

Private Sub 管理售楼合同信息1_Click()
管理售楼合同信息.Show
End Sub

Private Sub 退出1_Click()
Unload Me
End Sub

Private Sub 注册新用户1_Click()
注册新用户.Show
End Sub
3.2 用户管理模块的详细设计
1、利用VB工程实现，页面的设计如下图：
（1）进入售楼管理系统页面

图121进入售楼管理系统
（2）用户登录页面

图1.22用户登录
（3）注册新用户页面

图1.23注册新用户
2、各模块功能
（1）进入售楼管理系统
点击进入按钮，进入主窗体
对象的属性值表：
表1-1

对象名
属性名
属性值
命令按钮
Name
Command1
Caption
进入系统
（2） 用户登录
输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统
对象的属性值表：
表1-2

对象名
属性名
属性值
标签框
Name
Label1 Label2
Caption
输入用户 输入密码
命令按钮
Name
CmdLand CmdCancel
Caption
登录 取消
文本框
Name
Text1 Text2
（3） 注册新用户
对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统
对象的属性值表：
表1-3

对象名
属性名
属性值
标签框
Name
Label1 Label2 Label3
Caption
用户名 输入密码 确认密码
命令按钮
Name
Command1 Command2
Caption
登录 取消
文本框

Name
Text1 Text2 Text3
3、各模块详细设计代码
（1）进入售楼管理系统代码
Private Sub Command1_Click()
Unload Me
登录.Show
End Sub
（2）用户登录代码
Dim miCount As Integer '用于记录输入密码次数
Private Sub CmdLand_Click()
Dim sqlstr As String
sqlstr = "Select * From 密码表 Where 用户名= '" & Text1 & "' "
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.BOF Then '若没找到符合Where条件的记录
MsgBox "用户名错误，重新输入", vbExclamation, "警告"
Text1.Text = " "
Text1.SetFocus ' Text1获得焦点
Else ' 判断密码是否正确
If Adodc1.Recordset.Fields("密码") = Text2 Then
主窗体.Show
Unload Me
Else
MsgBox "密码错误，重新输入 ", vbExclamation, "警告"
Text2.Text = " "
Text2.SetFocus
End If
End If
miCount = miCount + 1
If miCount = 3 Then Unload Me
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
（3）注册新用户代码
Private Sub Command1_Click()
Dim sqlstr As String
If Text1 = "" Then
MsgBox "请输入用户名！", vbExclamation, "确认用户名"
Text1.SetFocus
Exit Sub
Else
sqlstr = "Select * from 密码表 where 用户名='" & Text1 & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
MsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名"
Text1 = ""
Text1.SetFocus
Exit Sub
End If
End If
If Text2 <> Text3 Then
MsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码"
Text2 = "": Text3 = ""
Text2.SetFocus
Exit Sub
ElseIf Text2 = "" Then
MsgBox "密码不能为空！", vbExclamation, "检验密码"
Text2.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名") = Trim(Text1)
Adodc1.Recordset.Fields("密码") = Trim(Text2)
Adodc1.Recordset.Update
Me.Hide
MsgBox "成功注册新用户！", vbInformation, "添加用户"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
3.3 数据查询模块的详细设计
利用VB工程实现，页面的设计如下图：
1、各查询页面

图1.24查询楼盘信息页面

图1.25查询合同信息页面

图1.26查询收款信息页面

图1.27查询收款合同信息页面

图1.28查询售楼合同信息页面
2、 各查询模块功能
combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。输出框下面的主要是与数据源相连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与相连之后可以实现对查询结果的输出。
（1） 查询楼盘信息
选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示

图1.29对楼盘信息进行查询

对象的属性值表：
表1—4

控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：楼盘编号，楼号，单元号，楼层，房号，户型，面积
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcx cmdfh
Caption
查询 返回
DataGrid1
属性默认
（2） 查询合同信息
当查询合同信息时，对’购买人姓名’查询对象进行查询，输入王字进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示

图1.30对合同信息进行查询
对象的属性值表：
表1—5
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcx cmdfh
Caption
查询 返回
DataGrid1
属性默认
（3） 查询收款信息

图1.31对收款信息进行查询
对象的属性值表：
表1—6
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：收款编号，交款日期，收款金额，交款人，收款人
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcx cmdfh
Caption
查询 返回
DataGrid1
属性默认
（4） 查询收款合同信息

图1.32对收款合同信息进行查询
对象的属性值表：
表1—7
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：合同编号，收款编号，交款人，收款人
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcx cmdfh
Caption
查询 返回
DataGrid1
属性默认
（5） 查询售楼合同信息

图1.33对售楼合同信息进行查询
对象的属性值表：
表1—8
控件名
属性
设置值
文本框
Name
Text1
组合框
Name
Combo1
List
Combo1：楼盘编号，合同编号，身份证号，合同签订日期
标签控件
Name
Label1
Caption
选择查询对象
命令按钮
Name
cmdcx cmdfh
Caption
查询 返回
DataGrid1
属性默认
3、各查询模块详细设计代码
（1）查询楼盘信息代码
Private Sub cmdcx_Click()
Dim sqlstr As String
If Combo1.List(0) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.楼盘编号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(1) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.楼号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(2) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.单元号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(3) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.楼层 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(4) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.房号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(5) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "

sqlstr = sqlstr & "where 楼盘信息.户型 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(6) = Combo1.Text Then
sqlstr = "select * from 楼盘信息 "
sqlstr = sqlstr & "where 楼盘信息.面积 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
End If
End Sub

Private Sub cmdfh_Click()
主窗体.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "楼盘编号"
Combo1.AddItem "楼号"
Combo1.AddItem "单元号"
Combo1.AddItem "楼层"
Combo1.AddItem "房号"
Combo1.AddItem "户型"
Combo1.AddItem "面积"
End Sub
（2）查询合同信息代码
Private Sub cmdcx_Click()
Dim sqlstr As String
If Combo1.List(0) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.合同编号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(1) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.合同签订日期 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(2) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.购买人姓名 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(3) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.身份证号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(4) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.售楼人员姓名 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(5) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.合同单价 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(6) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.付款方式 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr

Adodc1.Refresh
ElseIf Combo1.List(7) = Combo1.Text Then
sqlstr = "select * from 合同信息 "
sqlstr = sqlstr & "where 合同信息.贷款银行 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
End If
End Sub

Private Sub cmdfh_Click()
主窗体.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "合同编号"
Combo1.AddItem "合同签定日期"
Combo1.AddItem "购买人姓名"
Combo1.AddItem "身份证号"
Combo1.AddItem "售楼人员姓名"
Combo1.AddItem "合同单价"
Combo1.AddItem "付款方式"
Combo1.AddItem "贷款银行"
End Sub
（3）查询收款信息代码
Private Sub cmdcx_Click()
Dim sqlstr As String
If Combo2.List(0) = Combo2.Text Then
sqlstr = "select * from 收款信息 "
sqlstr = sqlstr & "where 收款信息.收款编号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo2.List(1) = Combo2.Text Then
sqlstr = "select * from 收款信息 "
sqlstr = sqlstr & "where 收款信息.交款日期 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo2.List(2) = Combo2.Text Then
sqlstr = "select * from 收款信息 "
sqlstr = sqlstr & "where 收款信息.收款金额 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo2.List(3) = Combo2.Text Then
sqlstr = "select * from 收款信息 "
sqlstr = sqlstr & "where 收款信息.交款人 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo2.List(4) = Combo2.Text Then
sqlstr = "select * from 收款信息 "
sqlstr = sqlstr & "where 收款信息.收款人 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
End If
End Sub

Private Sub cmdfh_Click()
主窗体.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo2.AddItem "收款编号"
Combo2.AddItem "交款日期"
Combo2.AddItem "收款金额"
Combo2.AddItem "交款人"
Combo2.AddItem "收款人"
End Sub
（4）查询收款合同信息代码
Private Sub cmdcx_Click()
Dim sqlstr As String
If Combo1.List(0) = Combo1.Text Then
sqlstr = "select * from 收款合同信息 "
sqlstr = sqlstr & "where 收款合同信息.合同编号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(1) = Combo1.Text Then
sqlstr = "select * from 收款合同信息 "
sqlstr = sqlstr & "where 收款合同信息.收款编号 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(2) = Combo1.Text Then
sqlstr = "select * from 收款合同信息 "
sqlstr = sqlstr & "where 收款合同信息.交款人 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
ElseIf Combo1.List(3) = Combo1.Text Then
sqlstr = "select * from 收款合同信息 "
sqlstr = sqlstr & "where 收款合同信息.收款人 like'" & Trim(Text1.Text) & "%'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
End If
End Sub

Private Sub cmdfh_Click()
主窗体.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "合同编号"
Combo1.AddItem "收款编号"
Combo1.AddItem "交款人"
Combo1.AddItem "收款人"
End Sub
（5）查询售楼合同信息代码
Pr