数据库课设报告房产管理系统.pdf

沈阳理工大学课程设计专用纸No i目录第1章系统功能概述.11.1 系统的功能.11.2 系统结构总图.1第2章数据库设计.12.1 需求分析.12.2 E-R 模型.22.3 关系模型.42.4 表结构设计.42.5 数据库数据.5第3章系统各功能模块的详细设计.73.1 登录版块.73.2 浏览版块.113.3 查询版块.23总结.31参考文献.32沈阳理工大学沈阳理工大学课程设计专用纸No l第1章系统功能概述1J系统的功能房产信息管理系统就是利用计算机根据楼盘信息、楼房信息、户型信息进行房产信息管理系统的查询。用VB和SQL SERVER软件实现如下功能：信息浏览：移动、添加、删除、显示信息查询：精确查询、模糊查询1.2系统结构总图房产信息管理系信息浏览楼房信息楼盘信息户型信息查询楼盘信息信息查询查询楼房信息查询户型信息第2章数据库设计2.1需求分析通过对一些典型销售管理系统的考查、分析以及实际的市场调查与研究，要求本系统具有 以下功能：(1).户型、楼盘信息的浏览(2).户型、楼盘信息的登记管理沈阳理工大学沈阳理工大学课程设计专用纸No2（3）.户型、楼盘信息的查询要包含以下实体及其属性：（1）.楼盘信息（楼盘编号、楼盘名称、位置、总建筑面积）（2）.楼房信息（楼号、单元号、楼层、房号、单价）（3）.户型信息（户型编号、户型结构、建筑面积、套内面积、户型简介）（4）.系统信息（用户名、密码）2.2 E-R模型（1）楼盘信息实体E-R图楼盘信息实体盘名匚，（2）楼房信息实体E-R图楼房信息实体（JU）（6总建筑面积jS；(3)户型信息实体E-R图沈阳理工大学沈阳理工大学课程设计专用纸No3(4)房产信息系统E-R图(5)系统信息实体E-R图沈阳理工大学沈阳理工大学课程设计专用纸No42.3关系模型（1）楼盘信息（楼盘编号，楼盘名称，位置吧，总建筑面积）（2）楼房信息（楼号，单元号，楼层，房号，单价）（3）户型信息（户型编号，户型结构，建筑面积，套内面积，户型简介）（4）售楼信息（楼盘编号，楼号，开盘时间）（5）用户入住表（楼号，户型编号，入住时间）2.4表结构设计（1）楼盘信息表的结构设计:（2）楼房信息表的结构设计:（3）户型信息表的结构设计:沈阳理工大学沈阳理工大学课程设计专用纸No5列名 I数据类型|长度|I允许空户型薪 建筑面积 套内面积 户型简介O售楂 _ 歹char char char char varchar叶言息表的结构设计：u名 1数据类型1010101050长度1空/详允楼号开盘时间1 char 10char 10datetime 8 V(5)用户入住表的结构设计:列名I数据类型1长度1允许空?楼号1char10户型编号char10入住日期datetime8(6)系统信息表的结构设计:列名1数据类型|长度|允许空|1用户名varchar50 V密码ini42.5数据库数据(1)楼盘信息表数据:表楼盘信息”中的数据，位置是“房产信息管理系统中、M(lo c楼盘编号1楼盘名称位置I总建筑面积 Ik_晓龙心海商城玉山街中段玉山小学东侧12000B丽水花园海阳市海员路交通局对面20000C新世纪大厦海阳路与东村河交汇处18000D巨龙公寓海阳路与烟风大道交汇处32000E金海家园海正路与玉山路交汇处24000F云龙国际海阳路与文山街交汇处18000H丽水大厦海城大街20000(2)楼房信息表数据:沈阳理工大学沈阳理工大学课程设计专用纸No 6表.楼房信息.中的数据.位置是.房产信息管理系统.中、-(lo cal)11单元号1楼层1房号1单价Al-322012980A2A2-244023540B1Bl-422023200B2B2-533012800C1Cl-155023400D2D2-488033980E1El-211023780F2F2-366033790E1F2-366013200米（3）户型信息表数据:”楠表.户型信息.中的数据，位置是“房产信息管理系统天中、M(lo cal)1户型编号炉型结构1建筑面积1套内面积1户型简介1K 1一室一厅6036小尸型住宅B二室一厅10080小户型住宅C一室一厅7950高档住宅D二室二厅220184中档住宅E零室零厅220189写字间米F一室一厅240200商业住宅（4）售楼信息表数据:扁 表.售楼信息一中的数据，位置是“房产信息，楼盘编号屣号1开盘时间A IAl2010-1-2AA22009-4-3BBl2010-3-4CD22010-7-5DCl2010-3-11米FEl2010-2-1（5）用户入住表数据:表.用户入住表中的数据，位置是.房产信，堡号 一1尸型编号人在日期 fB2010-10-1B2A2010-11-11ClC2011-11-1D2E2011-1-2ElD2012-2-1米F2D2010-12-2沈阳理工大学沈阳理工大学课程设计专用纸No7第3章系统各功能模块的详细设计3.1登录版块(1)首界面窗体:(2)用户登录窗体:沈阳理工大学沈阳理工大学课程设计专用纸No8功能模块设计代码：Dim miCount As Integer，用于记录输入密码次数Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr=Select*From 系统信息 Where 用户名=，&Textl&nn,Adodc 1.RecordSource=sqlstrAdodcl.Re freshIf Adodc 1.Recordset.BOF Then，若没找到符合 Where条件的记录MsgBox”用户名错误，重新输入”,vbExclamation,警告”Textl.Text=”Textl.SetFocus!Textl 获得焦点Else，判断密码是否正确If Adodcl.Recordset.Fields(“密码)=Text2.Text Then MDIForml.ShowUnload MeElseMsgBox”密码错误，重新输入”,vbExclamation,警告”Text2.Text=”Text2.SetFocusEnd IfEnd IfmiCount=miCount+1If miCount=3 Then Unload MeEnd Sub沈阳理工大学沈阳理工大学课程设计专用纸No9Private Sub CmdCancel_Click()Unload MeEnd Sub(2)新用户注册窗体：功能模块设计代码：Private Sub Command 1 _Click()Dim sqlstr As StringIf Text 1=ThenMsgBox”请输入用户名！vbExclamation,”确认用户名”Textl.SetFocusExit SubElsesqlstr=Select*from 系统信息 where 用户名=，&Textl&,nnAdodc 1.RecordSource=sqlstrAdodcl.Re freshIf Adodc 1.Recordset.EOF=False ThenMsgBox”用户名已存在，请重新输入！vbExclamation,”检验用户名”Textl=Textl.SetFocusExit SubEnd IfEnd IfIf Text2 Text3 ThenMsgBox”二次输入的密码不一致，请重新输入”,vbExclamation,”检验密码”沈阳理工大学沈阳理工大学课程设计专用纸No lOText2=叫 Text3=Text2.SetFocusExit SubElseIfText2=ThenMsgBox”密码不能为空！vbExclamation,”检验密码”Text2.SetFocusElseAdodc 1.Recordset.AddNewAdodcl.Recordset.Fields。用户名)=Trim(Textl)Adodcl.Recordset.Fields(“密码)=Trim(Text2)Adodc 1.Recordset.UpdateMe.HideMsgBox”成功注册新用户！vblnfbrmation,添力口用户”End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub(4)MIDF主窗体：沈阳理工大学沈阳理工大学课程设计专用纸No ll3.2浏览版块(1)楼盘信息点击添加按钮:沈阳理工大学沈阳理工大学课程设计专用纸No12添加功能的代码：Private Sub Form_Load()CmdF ir st.Enabled=False CmdPre.Enabled=False CmdNext.Enabled=True CmdLast.Enabled=True CmdAdd.Enabled=True CmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False Label5.Caption=记录：”&Adodcl.Recordset.AbsolutePosition&”/”&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdAdd_Click()Adodc 1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDeLEnabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEnd Sub沈阳理工大学沈阳理工大学课程设计专用纸No13点击确定后保存记录，确定按钮的程序代码如下:Private Sub CmdOk_Click()Adodc 1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDeLEnabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEnd Sub点击删除按钮：删除功能的代码：Private Sub CmdDel_Click()x=MsgBox,确实要删除当前记录吗？”,vbYesNo+vbQuestion,确认”)If x=vbYes ThenAdodc 1.Recordset.DeleteAdodc 1.Recordset.MoveNextIf Adodc l.Recordset.EOF ThenAdodc 1.Recordset.MoveLastEnd IfElseAdodc 1.Re fresh沈阳理工大学沈阳理工大学课程设计专用纸No14End IfEnd SubPrivate Sub CmdEsc_Click()Adodcl.Re fresh CmdAdd.Enabled=True CmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False End Sub 移动记录：移动记录的代码：Private Sub CmdNext_Click()Adodc 1.Recordset.MoveNext，记录指针移到下一条记录CmdF ir st.Enabled=TrueCmdPre.Enabled=TrueIf Adodc 1.Recordset.EOF Then 1如果记录指针移到了末记录之后Adodc 1.Recordset.MoveLast，则记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=False沈阳理工大学沈阳理工大学课程设计专用纸No15End IfLabel5.Caption=记 录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdFirst_Click()Adodc 1.Recordset.MoveFirst CmdF ir st.Enabled=False CmdPre.Enabled=False CmdNext.Enabled=True CmdLast.Enabled=True，记录指针移到首记录（显示首记录）让首记录按钮无效让前移按钮无效让后移按钮有效让末记录按钮有效，在Label6上显示当前记录号/记录总数：Label5.Caption=t己录：&Adodc 1.Recordset.AbsolutePositionAdodc 1.Recordset.RecordCount/&End SubPrivate Sub CmdLast ClickQAdodc 1.Recordset.MoveLast，移到末记录CmdF irst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel5.Caption=记录：&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CommandN_Click()Dim n As Integer n=Text5.TextAdodc 1.Recordset.Move nLabel5.Caption=记录：&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdPre_Click()Adodc 1.Recordset.MovePrevious，记录指针移到前一条记录CmdNext.Enabled=TrueCmdLast.Enabled=TrueIf Adodc 1.Recordset.BOF Then 1如果记录指针移到首记录之前，Adodcl.Recordset.MoveFirst，则记录指针移到首记录上CmdF irst.Enabled=FalseCmdPre.Enabled=FalseEnd If沈阳理工大学沈阳理工大学课程设计专用纸No16Label5.Caption=记 录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCount End SubPrivate Sub Label5_Click()Adodc 1.Caption=Adodc 1.Recordset.AbsolutePositionAdodc 1.Recordset.RecordCountEnd Sub点击表格显示：&!xlG楼盘信息表楼盘编号一 1麋塞名迩 1伟章堡避商城 1玉石街中段玉山小学寿B-丽水芯园i海阳市海员路交通局先C海哪躅东村河效友D巨龙公寓|思金海家园海踊与包i臧龈冢 一|海阳路与文田街交汇51H丽水大厦逐博天街一返回（2）楼房信息沈阳理工大学沈阳理工大学课程设计专用纸No17其功能代码如下：Private Sub CmdAdd_Click()Adodc 1.Recordset.AddNew CmdAdd.Enabled=False沈阳理工大学沈阳理工大学课程设计专用纸CmdDeLEnabled=FalseCmdOk.Enabled=True CmdEsc.Enabled=True End SubPrivate Sub CmdDel ClickQx=MsgBox(确实要删除当前记录吗？”,vbYesNo+vbQuestion,确认”)If x=vbYes ThenAdodc 1.Recordset.DeleteAdodc 1.Recordset.MoveNextIf Adodc 1.Recordset.EOF ThenAdodc 1.Recordset.MoveLastEnd IfElseAdodcl.Re freshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodcl.Re freshCmdAdd.Enabled=TrueCmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False End SubPrivate Sub CmdFirst_Click()Adodc 1.Recordset.MoveFirst，记录指针移到首记录(显示首记录)CmdFirst.Enabled=False，让首记录按钮无效CmdPre.Enabled=False，让前移按钮无效CmdNext.Enabled=True，让后移按钮有效CmdLast.Enabled=True，让末记录按钮有效，在Label6上显示当前记录号/记录总数：Label6.Caption=记录：”&Adodcl.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc 1.Recordset.MoveLast1 移到末记录CmdF irst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=False CmdLast.Enabled=False沈阳理工大学沈阳理工大学课程设计专用纸No19Label6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc 1.Recordset.MoveNext 记录指针移到下一条记录 CmdF ir st.Enabled=True CmdPre.Enabled=TrueIf Adodc 1.Recordset.EOF Then1如果记录指针移到了末记录之后Adodc 1.Recordset.MoveLast，则记录指针移到末记录上CmdNext.Enabled=False CmdLast.Enabled=False End IfLabel6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdOk_Click()Adodc 1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False End SubPrivate Sub Command 10_Click()Form5.Show End SubPrivate Sub CommandN_Click()Dim n As Integer n=Text6.TextAdodc 1.Recordset.Move nLabel6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdPre_Click()Adodc 1.Recordset.MovePrevious，记录指针移到前一条记录CmdNext.Enabled=True CmdLast.Enabled=TrueIf Adodc 1.Recordset.BOF Then，如果记录指针移到首记录之前，Adodc 1.Recordset.MoveFir st，则记录指针移到首记录上CmdF ir st.Enabled=False沈阳理工大学沈阳理工大学课程设计专用纸No20CmdPre.Enabled=FalseEnd IfLabel6.Caption=记录：”&Adodcl.Recordset.AbsolutePosition&Adodcl.Recordset.RecordCountEnd SubPrivate Sub Form_Load()CmdF irst.Enabled=False CmdPre.Enabled=False CmdNext.Enabled=True CmdLast.Enabled=True CmdAdd.Enabled=True CmdDeLEnabled=True CmdOk.Enabled=False CmdE sc.Enabled=False，首记录按钮无效，前移按钮无效1 后移按钮有效，末记录按钮有效，添加按钮有效1 删除按钮有效，确定按钮无效，取消按钮无效Label6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodcl.Recordset.RecordCountEnd Sub(3)户型信息沈阳理工大学沈阳理工大学课程设计专用纸No21其功能代码如下：Private Sub CmdAdd_Click()Adodc 1.Recordset.AddNew CmdAdd.Enabled=False CmdDeLEnabled=False CmdOk.Enabled=True CmdEsc.Enabled=True End SubPrivate Sub CmdDel_Click()x=MsgBox(确实要删除当前记录吗？”,vbYesNo+vbQuestion,“确认”)If x=vbYes ThenAdodc 1.Recordset.DeleteAdodc 1.Recordset.MoveNextIf Adodcl.Recordset.EOF ThenAdodc 1.Recordset.MoveLastEnd IfElseAdodcl.Re freshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodcl.Re freshCmdAdd.Enabled=TrueCmdDeLEnabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=False沈阳理工大学沈阳理工大学课程设计专用纸No22End SubPrivate Sub CmdFirst_Click()Adodc 1.Recordset.MoveFirst记录指针移到首记录（显示首记录）CmdF ir st.Enabled=False CmdPre.Enabled=False CmdNext.Enabled=True CmdLast.Enabled=True，让首记录按钮无效让前移按钮无效让后移按钮有效让末记录按钮有效，在Label6上显示当前记录号/记录总数:Label6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc 1.Recordset.MoveLast1 移到末记录CmdF ir st.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc 1.Recordset.MoveNext，记录指针移到下一条记录CmdF ir st.Enabled=TrueCmdPre.Enabled=TrueIf Adodc 1.Recordset.EOF Then，如果记录指针移到了末记录之后Adodc 1.Recordset.MoveLast，则记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEnd IfLabel6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodc 1.Recordset.RecordCountEnd SubPrivate Sub CmdOk_Click()Adodc 1.Recordset.Update CmdAdd.Enabled=True CmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False End Sub沈阳理工大学沈阳理工大学课程设计专用纸No23Private Sub CmdPre_Click()Adodc 1.Recordset.MovePrevious，记录指针移到前一条记录CmdNext.Enabled=TrueCmdLast.Enabled=TrueIf Adodc 1.Recordset.BOF Then，如果记录指针移到首记录之前，Adodcl.Recordset.MoveFirst，则记录指针移到首记录上CmdF irst.Enabled=FalseCmdPre.Enabled=FalseEnd IfLabel6.Caption=记录：&Adodc 1.Recordset.AbsolutePosition&Adodcl.Recordset.RecordCountEnd SubPrivate Sub Command 10_Click()Form7.ShowEnd SubPrivate Sub CommandN_Click()Dim n As Integer n=Text6.TextAdodc 1.Recordset.Move nLabel6.Caption=记录：”&Adodcl.Recordset.AbsolutePosition&Adodcl.Recordset.RecordCountEnd SubPrivate Sub Form_Load()CmdF irst.Enabled=False CmdPre.Enabled=False CmdNext.Enabled=True CmdLast.Enabled=True CmdAdd.Enabled=True CmdDeLEnabled=True CmdOk.Enabled=False CmdEsc.Enabled=False，首记录按钮无效 前移按钮无效1 后移按钮有效，末记录按钮有效，添加按钮有效1 删除按钮有效，确定按钮无效，取消按钮无效Label6.Caption=记录：”&Adodc 1.Recordset.AbsolutePosition&Adodcl.Recordset.RecordCountEnd Sub3.3查询版块(1)查询楼盘信息沈阳理工大学沈阳理工大学课程设计专用纸No24选择楼盘名称查询，进行模糊查询:沈阳理工大学沈阳理工大学课程设计专用纸No25其功能代码如下：Private Sub Command 1 _Click()Dim str As StringIf Combo l.List(O)=Combo 1.Text Thenstr=nselect*from 楼盘信息”str=str&where 楼盘信息.楼盘编号 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodc 1.Re freshElself Combol.List(l)=Combo 1.Text Thenstr=select*from 楼盘信息”str=str&where 楼盘信息.楼盘名称 liken,&Trim(Textl.Text)&n%,nAdodc 1.RecordSource=strAdodc 1.Re freshElself Combol.List(2)=Combo 1.Text Thenstr=select*from 楼盘信息”str=str&where 楼盘信息.总建筑面积 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodc 1.Re freshElself Combol.List(3)=Combo 1.Text Thenstr=select*from 楼盘信息”沈阳理工大学沈阳理工大学课程设计专用纸No26str=str&where 楼盘信息.位置 liken,&Trim(Textl.Text)&n%n,Adodc 1.RecordSource=strAdodcl.Re freshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo 1.Additem”楼盘编号”Combo 1.Additem”楼盘名称”Combo 1.Additem”总建筑面积”Combo 1.Additem”位置”Combo 1.Text=Textl.Text=End Sub(2)楼房信息查询选择楼层进行模糊查询:沈阳理工大学沈阳理工大学课程设计专用纸No27其功能代码如下：Private Sub Command 1 _Click()Dim str As StringIf Combo l.List(O)=Combo 1.Text Thenstr=select*from 楼房信息”str=str&where 楼房信息.楼号 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(l)=Combo 1.Text Thenstr=select*from 楼房信息”str=str&where 楼房信息.单元号 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(2)=Combo 1.Text Thenstr=select*from 楼房信息”str=str&where 楼房信息.楼层 like”&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(3)=Combo 1.Text Thenstr=select*from 楼房信息”沈阳理工大学沈阳理工大学课程设计专用纸No28str=str&where 楼房信息.房号 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodc 1.Re freshElself Combol.List(4)=Combo 1.Text Thenstr=select*from 楼房信息”str=str&where 楼房信息.单价 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodc 1.Re freshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo 1.Additem”楼号”Combo 1.Additem”单元号”Combo 1.Additem”楼层”Combo 1.Additem”房号”Combo 1.Additem”单价”Combo 1.Text=楼号”Text 1.Text=End Sub(3)户型信息查询沈阳理工大学沈阳理工大学课程设计专用纸No29选择户型结构进行模糊查询:沈阳理工大学沈阳理工大学课程设计专用纸No30其功能代码如下：Private Sub Command 1 _Click()Dim str As StringIf Combo l.List(O)=Combo 1.Text Thenstr=select*from 户型信息 where 户型编号=&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(l)=Combo 1.Text Thenstr=select*from 户型信息”str=str&where 户型信息.户型结构 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(2)=Combo 1.Text Thenstr=select*from 户型信息”str=str&where 户型信息.建筑面积 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(3)=Combo 1.Text Then沈阳理工大学沈阳理工大学课程设计专用纸No31str=select*from 户型信息”str=str&where 户型信息.套内面积 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshElself Combol.List(4)=Combo 1.Text Thenstr=select*from 户型信息”str=str&where 户型信息.户型简介 like&Trim(Textl.Text)&Adodc 1.RecordSource=strAdodcl.Re freshEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo 1.Additem”户型编号”Combo 1.Additem”户型结构”Combo 1.Additem”建筑面积”Combo 1.Additem 套内面积“Combo 1.Additem”户型简介”Combo 1.Text=户型编号”，Textl.Text=End Sub总结通过本次数据库课程设计使我更加深入的掌握了数据库设计的基本思想，也学会了对 VB程序设计的基本使用，根据实际中的问题抽象出概念模型，进行转化，使之成为相应 的关系模型，由此模型进行数据库的设计，并进行了数据库的检测，熟悉了建立数据库常 见的方法，掌握了如何从实际问题抽象出关系模型的基本方法，对于概念模型的设计采 用E-R的方法将概念模型转化为关系模型。此工程有利于实现房产信息系统的管理，实现 了数据库的基本功能。在此还要特别感谢刘老师在软件工程和数据库课程中认真负责的教 学，才使得我能结合所学的知识完成这一课程设计。沈阳理工大学沈阳理工大学课程设计专用纸No32 沈阳理工大学4李英杰.VB.NET2005程序设计实例教程.天津.天津大学.2008年11月子科技大学.2005年4月3武新华、魏平俊、魏经娟.VisualBASIC管理信息系统开发案例.西安.西安电电.2000年5月2刘韬、骆娟、何旭洪.VisualBASIC数据库系统开发实例导航.北京.人民邮1王珊.数据库系统简明教程.北京.高等教育.2004年9月参考文献