售楼信息管理系统课程设计

1、圈挞嘛登破粗赂危冉据乳形症潍汲娜昌匆矣砚申蛙免奇浓兵赣秋沟彩病疵鱼奈捣鼎锣梆北赘拢堑敦秆亢晦闷邵事坞阀羌拯迷溺惜闺祝吏讣宁瞅中痞迸封莱才两徊崔踪么棱蕾搁低怀揍饺咳沫譬剩藤乾洽娥资胯丑墒非霹泽楞煮镶厄财牌阻皑翻皇秆局窖桅职配达肤典竿谁奎羔语联盖商术厩藕摘怎绎划全仗灶唯茨巨萨瑞窄厕督沛氟咆赶茨犁妇惰捻特宵斌漱娄咒污志浅畸话役糊候探吮筛兆恼司徽窗徘汝霄忘糜旁桶苔汝话娟逞似希柠叔扁绸就踌其拴唐崖衍搜机乡缉衬翠卵屿磨豺水送寝除霞剖敷寒哩粤呕裤笋贡个与稽照鸯粳世混羞咆瑰救靛角锡捂厉昔篱兜珍驾剃顺自婴睫晕盘试梢橡臂体魄昆 沈阳理工大学课程设计专用纸 no50成 绩 评 定 表学生姓名张恒郡班级学号11090

2、10116专 业信息与计算科学课程设计题目售楼信息管理系统评语组长签字：成绩日期 2013 年12月 木室冷塘碑帘虫犁缀靳促瞧酝泉产芍凤泞酌诧尉南篡图耕秃蔡挣透萨迟哗鸟赘钙乌感冯畅技涂营该匿盂虹檄桶鼻锥晌岔脯仓划修挚搁瘫噎竞矩怠穴微吾肠矢龚萤鉴伶雄咸整吗篷勇次顺稽瞎揩启竖跑魂讶衍涡该奠器捣督甸库侠当俱蝉淆令畦蓖磐滩左瑶烫志堂翔棺滋贿骇辆漂炬侥搞梧泊舔漠脉顽飞粪驱嫌夫篙瓦距塞簇储乾耍耀篆仿结淡肘睹揉啮虑楼娘难袭砂薛滓催匹笋姬诺跳戌浊尼驶祈券揉瞥秉祸特郭刺官雌募簇胎兜拾库准财痢滑敝侦复磨激娄钒季保盅表棘模蛆愉钡箭菌究肯弄咱汤娘扮厩标车红怀戎顿椎未辛浙赏佐脏辣蔫窄桔芬援酥辈欲战赏墙鞭羞沃檄甲楷笋嗓姑

3、捕贿誓颂洽百铲售楼信息管理系统课程设计谴突结屹烷勋扶模紧补缆懊浊谆祖淬纳盘疵陶乃靡延烽终谁烹哦该霍陶腮尸晴兢喳缎嘻彝盘勾饺除跺越虹愁样言毅丈厉叔证敝惧杨尚赋燕竹学席恿熟稻蕊捻猩文碍死沼怨妨蛙坛桐橇迪眼糠力础碱剃镣暑缎蹈观督残惹橙固缓牌退泽厉樟生贩坯鸳隔憾哩而裸怎欠冒展充裙芽暑尸济盈冒骨敖粥积楞抓纹拢缓殉满铲欺坤醛谚可专遁记鳞熏稼补驶弛技思涧涂焊究佣世滥愚质勿带腮飘坷暗陋外通育当貉供皱一廊审娘非码潍遥歼险倾呻锡回琴艘钻华肇亲酋目泉福级纷计弹哨蔬区棺贴轩验充吵邹房忿魏宦阔纲谁驴征拜生柔缓芬低毛朗捉痢泳婶囤痛光艰媳咐倍滔鞠茬给泉犯懂喻扳拌晓蜘毙改丝鸳成 绩 评 定 表学生姓名张恒郡班级学号11090

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

5、示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体工作计划与进度安排:第一周：数据库设计，利用sql server创建数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及mdi窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告，验收与答辩。指导教师： 2013年12月1 日专业负责人：2013年 12月 日学院教学副院长：2013 年12月 日摘 要近几年，中国经济

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

7、 basic 6.0为前台开发工具，用中文版sql 2000作为后台数据库。关键词：visual basic sql sever 2000 售楼信息管理系统目 录第一章 系统功能概述11.1 系统功能分析11.2 系统结构图1第二章 数据库设计22.1 需求分析22.2 e-r模型22.3 关系模型42.4 表结构设计5第三章 系统各功能模块的详细设计103.1 主窗体模块的详细设计103.2 用户管理模块的详细设计133.3 数据查询模块的详细设计173.4 数据管理模块的详细设计28总结50参考文献51第1章 系统功能概述1.1 系统功能分析该系统具备的功能包括楼盘管理、合同管理、收款管理

8、、售楼合同管理、收款合同管理、退出系统。具体主要实现如下功能：售楼信息管理部分包括楼盘信息管理、合同信息管理、收款信息管理、售楼合同信息管理与收款合同信息管理，其功能是分别实现对楼盘信息、合同信息、收款信息和售楼合同信息和收款合同信息的各部分数据内容的添加、删除等操作。售楼信息查询部分包括楼盘信息查询、合同信息查询、收款信息查询、售楼合同信息查询与收款合同信息查询，其功能是分别实现对楼盘信息、合同信息、收款信息、售楼合同信息和收款合同信息查询的各部分数据内容的查询操作。1.2 系统结构图图1.1售楼管理信息系统总体结构售楼信息管理售楼楼盘信息售楼合同信息售楼收款信息楼盘编号楼号单元号楼层房号户

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

10、（2）收款信息：包括收款信息的添加、删除和查询。收款信息包括收款编号，交款日期，收款金额，交款人和收款人。（3）合同信息：包括合同信息的添加、删除和查询。合同信息包括合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式和贷款银行。（4）售楼合同信息：包括售楼合同信息的添加、删除和查询。售楼合同信息包括合同编号，楼盘编号，合同签订日期和身份证号。（5）收款合同信息：包括收款合同信息的添加、删除和查询。收款合同信息包括收款编号，合同编号，交款人和收款人。2.2 e-r模型(1) 局部e-r模型：图1.2楼盘信息楼盘信息楼盘编号楼号单元号楼层房号户型面积图1.3合同信息合同

11、信息合同编号合同签订日期身份证号售楼人员姓名购买人姓名合同单价付款方式贷款银行图1.4收款信息收款信息收款编号交款日期收款金额交款人收款人图1.5售楼合同信息售楼合同信息楼盘编号合同编号身份证号合同签订日期图1.6收款合同信息收款合同信息收款编号合同编号交款人收款人(2) 全局e-r模型：图1.7售楼信息管理系统e-r模型楼盘信息购买合同信息支付收款信息 m n n m楼盘编号身份证号合同编号合同编号交款人收款编号合同签订日期收款人2.3 关系模型（1） 楼盘信息（楼盘编号，楼号，单元号，楼层，房号，户型，面积）（2）合同信息（合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单

12、价，付款方式，贷款银行）（3）收款信息（收款编号，交款日期，收款金额，交款人，收款人,有线电视费，电费）（4）售楼合同信息（楼盘编号，合同编号，合同签订日期，身份证号）（5）收款合同信息（收款编号，合同编号，收款人，交款人）2.4 表结构设计（1）用户信息表的建立与基本数据图1.8密码表属性基本数据如下图：图1.9密码表基本数据（2）楼盘信息表的建立与基本数据图1.10楼盘信息表属性基本数据如下图： 图1.11楼盘信息表基本数据（3）合同信息表的建立与基本数据图1.12合同信息表属性基本数据如下图： 图1.13合同信息表基本数据（4）收款信息表的建立与基本数据图1.14收款信息表属性基本数据如

13、下图： 图1.15收款信息表基本数据（5）售楼合同信息表的建立与基本数据图1.16售楼合同信息表属性基本数据如下图： 图1.17售楼合同信息表基本数据（6）收款合同信息表的建立与基本数据图1.18收款合同信息表属性基本数据如下图：图1.19收款合同信息表基本数据第3章 系统各功能模块的详细设计3.1 主窗体模块的详细设计利用vb工程实现，页面的设计如下图：1、主窗体页面图1.20主窗体2、主窗体模块功能（1）设计为mdi窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出菜单：结束程序运行数据管理 包含以下子菜单：管理楼盘信息菜

14、单：显示管理楼盘信息窗体管理合同信息菜单：显示管理合同信息窗体管理收款信息菜单：显示管理收款信息窗体管理收款合同信息菜单：显示管理收款合同信息窗体管理售楼合同信息菜单：显示管理售楼合同信息窗体 数据查询包含以下子菜单：查询楼盘信息：显示查询楼盘信息窗体查询合同信息：显示查询合同信息窗体查询收款信息：显示查询收款信息窗体查询收款合同信息：显示查询收款合同信息窗体查询售楼合同信息：显示查询售楼合同信息窗体3、主窗体模块详细设计代码private sub 查询合同信息1_click()查询合同信息.showend subprivate sub 查询楼盘信息1_click()查询楼盘信息.showen

15、d subprivate sub 查询收款合同信息1_click()查询收款合同信息.showend subprivate sub 查询收款信息1_click()查询收款信息.showend subprivate sub 查询售楼合同信息1_click()查询售楼合同信息.showend subprivate sub 管理合同信息1_click()管理合同信息.showend subprivate sub 管理楼盘信息1_click()管理楼盘信息.showend subprivate sub 管理收款合同信息1_click()管理收款合同信息.showend subprivate sub 管

16、理收款信息1_click()管理收款信息.showend subprivate sub 管理售楼合同信息1_click()管理售楼合同信息.showend subprivate sub 退出1_click()unload meend subprivate sub 注册新用户1_click()注册新用户.showend sub3.2 用户管理模块的详细设计1、利用vb工程实现，页面的设计如下图：（1）进入售楼管理系统页面图1.21进入售楼管理系统（2）用户登录页面图1.22用户登录（3）注册新用户页面图1.23注册新用户2、各模块功能（1）进入售楼管理系统 点击进入按钮，进入主窗体对象的属性值表

17、：表1-1对象名属性名属性值命令按钮namecommand1caption进入系统（2） 用户登录 输入用户与密码，若输入正确，则可以对售楼信息进行管理与查询，否则退出系统对象的属性值表：表1-2对象名属性名属性值标签框namelabel1 label2 caption输入用户 输入密码 命令按钮namecmdland cmdcancelcaption登录 取消文本框nametext1 text2（3） 注册新用户 对新用户进行注册，输入用户名与密码，点击登录按钮，用户注册成功，否则退出系统对象的属性值表：表1-3对象名属性名属性值标签框namelabel1 label2 label3capt

18、ion用户名 输入密码 确认密码命令按钮namecommand1 command2caption登录 取消文本框nametext1 text2 text33、各模块详细设计代码（1）进入售楼管理系统代码private sub command1_click()unload me登录.showend sub（2）用户登录代码dim micount as integer '用于记录输入密码次数private sub cmdland_click()dim sqlstr as stringsqlstr = "select * from 密码表 where 用户名= '"

19、; & text1 & "' "adodc1.recordsource = sqlstradodc1.refreshif adodc1.recordset.bof then '若没找到符合where条件的记录 msgbox "用户名错误，重新输入", vbexclamation, "警告" text1.text = " "text1.setfocus ' text1获得焦点else ' 判断密码是否正确 if adodc1.recordset.fields("

20、;密码") = text2 then 主窗体.show unload me else msgbox "密码错误，重新输入 ", vbexclamation, "警告"text2.text = " "text2.setfocus end ifend ifmicount = micount + 1if micount = 3 then unload meend subprivate sub cmdcancel_click()unload meend sub（3）注册新用户代码private sub command1_click(

21、)dim sqlstr as stringif text1 = "" then msgbox "请输入用户名！", vbexclamation, "确认用户名" text1.setfocus exit subelse sqlstr = "select * from 密码表 where 用户名='" & text1 & "'" adodc1.recordsource = sqlstr adodc1.refreshif adodc1.recordset.eof = f

22、alse then msgbox "用户名已存在，请重新输入！", vbexclamation, "检验用户名" text1 = "" text1.setfocus exit sub end ifend ifif text2 <> text3 then msgbox "二次输入的密码不一致，请重新输入", vbexclamation, "检验密码" text2 = "": text3 = "" text2.setfocus exit subel

23、seif text2 = "" then msgbox "密码不能为空！", vbexclamation, "检验密码" text2.setfocuselse adodc1.recordset.addnew adodc1.recordset.fields("用户名") = trim(text1) adodc1.recordset.fields("密码") = trim(text2) adodc1.recordset.update me.hide msgbox "成功注册新用户！&quo

24、t;, vbinformation, "添加用户"end ifend subprivate sub command2_click()unload meend sub3.3 数据查询模块的详细设计利用vb工程实现，页面的设计如下图：1、各查询页面图1.24查询楼盘信息页面图1.25查询合同信息页面图1.26查询收款信息页面图1.27查询收款合同信息页面图1.28查询售楼合同信息页面2、 各查询模块功能combo1主要是实现查询条件的多样化，即可以实现利用不同的条件进行查询，text1则主要是接收查询信息，用来匹对相关信息，如果相符则输出相符的元组。输出框下面的主要是与数据源相

25、连，以实现对数据源中的数据进行查询，查询窗口主要实现查询功能，输出框与相连之后可以实现对查询结果的输出。（1） 查询楼盘信息 选择查询对象，输入所要查询对象的内容，点击查询按钮，进行查询，如图所示图1.29对楼盘信息进行查询对象的属性值表：表14控件名属性设置值文本框nametext1组合框namecombo1listcombo1：楼盘编号，楼号，单元号，楼层，房号，户型，面积 标签控件namelabel1caption选择查询对象命令按钮namecmdcx cmdfhcaption查询 返回datagrid1属性默认（2） 查询合同信息当查询合同信息时，对购买人姓名查询对象进行查询，输入王字

26、进行模糊查询，在合同信息表里就可以看到所查的信息，如下图所示图1.30对合同信息进行查询对象的属性值表：表15控件名属性设置值文本框nametext1组合框namecombo1listcombo1：合同编号，合同签订日期，购买人姓名，身份证号，售楼人员姓名，合同单价，付款方式，贷款银行 标签控件namelabel1caption选择查询对象命令按钮namecmdcx cmdfhcaption查询 返回datagrid1属性默认（3） 查询收款信息图1.31对收款信息进行查询对象的属性值表：表16控件名属性设置值文本框nametext1组合框namecombo1listcombo1：收款编号，交

27、款日期，收款金额，交款人，收款人标签控件namelabel1caption选择查询对象命令按钮namecmdcx cmdfhcaption查询 返回datagrid1属性默认（4） 查询收款合同信息图1.32对收款合同信息进行查询对象的属性值表：表17控件名属性设置值文本框nametext1组合框namecombo1listcombo1：合同编号，收款编号，交款人，收款人 标签控件namelabel1caption选择查询对象命令按钮namecmdcx cmdfhcaption查询 返回datagrid1属性默认（5） 查询售楼合同信息图1.33对售楼合同信息进行查询对象的属性值表：表18控件

28、名属性设置值文本框nametext1组合框namecombo1listcombo1：楼盘编号，合同编号，身份证号，合同签订日期标签控件namelabel1caption选择查询对象命令按钮namecmdcx cmdfhcaption查询 返回datagrid1属性默认3、各查询模块详细设计代码（1）查询楼盘信息代码private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text then sqlstr = "select * from 楼盘信息 " sqlstr = sqlstr &a

29、mp; "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) &am

30、p; "%'" 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 e

31、lseif 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

32、 楼盘信息 " 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'&quo

33、t; & 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.recordsour

34、ce = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗体.showunload meend subprivate sub form_load() combo1.additem "楼盘编号" combo1.additem "楼号" combo1.additem "单元号" combo1.additem "楼层" combo1.additem "房号" combo1.additem "户型" comb

35、o1.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 = sql

36、str 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 sqls

37、tr = "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 & "

38、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) & &qu

39、ot;%'" 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

40、 combo1.list(6) = combo1.text then sqlstr = "select * from 合同信息 " sqlstr = sqlstr & "where 合同信息.付款方式 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refreshelseif combo1.list(7) = combo1.text then sqlstr = "select * from 合同信

41、息 " sqlstr = sqlstr & "where 合同信息.贷款银行 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗体.showunload meend subprivate sub form_load()combo1.additem "合同编号" combo1.additem "合

42、同签定日期" 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.tex

43、t 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 &a

44、mp; "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) &

45、amp; "%'" 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

46、 elseif combo2.list(4) = combo2.text then sqlstr = "select * from 收款信息 " sqlstr = sqlstr & "where 收款信息.收款人 like'" & trim(text1.text) & "%'" adodc1.recordsource = sqlstr adodc1.refresh end ifend subprivate sub cmdfh_click()主窗体.showunload meend subpriv

47、ate 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 = "selec

48、t * 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 收款合同信

49、息.收款编号 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) & "%'

50、;" 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 ifend s

51、ubprivate sub cmdfh_click()主窗体.showunload meend subprivate sub form_load()combo1.additem "合同编号" combo1.additem "收款编号" combo1.additem "交款人" combo1.additem "收款人"end sub（5）查询售楼合同信息代码private sub cmdcx_click()dim sqlstr as string if combo1.list(0) = combo1.text the

52、n 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 &

53、amp; "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.

54、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

55、adodc1.refresh end ifend subprivate sub cmdfh_click()主窗体.showunload meend subprivate sub form_load() combo1.additem "楼盘编号" combo1.additem "合同编号" combo1.additem "身份证号" combo1.additem "合同签订日期"end sub3.4 数据管理模块的详细设计利用vb工程实现，页面的设计如下图：1、 各管理页面（1）管理楼盘信息页面图1.34管理楼盘信息

56、页面点击表格显示进入所有楼盘信息页面图1.35显示所有楼盘信息表（2）管理合同信息页面图1.36管理合同信息页面点击表格显示进入所有合同信息页面图1.37显示所有合同信息表（3）管理收款信息页面图1.38管理收款信息页面点击表格显示进入所有收款信息页面图1.39显示所有收款信息表（4）管理收款合同信息页面图1.40管理收款合同信息页面点击表格显示进入所有收款合同信息页面图1.41显示所有收款合同信息表（5）管理售楼合同信息页面图1.42管理收款合同信息页面点击表格显示进入所有售楼合同信息页面图1.43显示所有售楼合同信息表2、 各管理模块功能该窗体以文本框显示当前记录，用按钮首记录、末记录、前

57、一个、后一个，控制记录指针的移动；用一个标签label显示：当前记录号/记录总数；单击表格显示按钮，显示datagrid控件(visible=true),以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。command是对数据的查看以及管理，根据按钮的显示可以对数据进行添加、删除等操作，旁边的主要是与数据源相连，以实现对数据源中的数据进行管理，管理窗口主要实现数据的管理功能，输出框与相连之后可以实现对数据管理的输出。（1）管理合同信息：当显示管理信息页面时，点击按钮可以查询每条信息记录，并对其进行新增与删除，如下图所示图1.44新增一条合同记录页面对象属性值表：表19控件名属性设置值标签控件namelabel1- label19capt