房屋租售系统的设计与实现

/天津外国语高校本科毕业论文房地产管理系统的设计和实现Designandimplementationofrealestateprojectsystem学科专业：教化技术学学生姓名：王珠琳学生学号：0805114075指导老师：庞珊娜定稿时间：____________中文摘要随着我国经济的快速发展，我国住房制度的深化变革，房地产行业发展迅猛，房地产交易日趋旺盛。在新的市场条件下，如何提高房地产行业的管理水平已经成为社会上备受关注的话题。实现房产交易的信息化管理，将是解决实际问题，提升房地产行业有效管理水平的必由之路。本文主要分析房地产行业租售管理业务的实际须要，在VisualBasic和MicrosoftAccess的环境下开发了一套房屋租售系统。在深化探讨房地产行业的现状和发展前景的前提下，在进行需求分析、结构设计、数据库设计的过程中，提出了一套完整的房屋租售系统的设计方案。对房屋的数据资料、交易状况等信息的输入、查询、修改、删除、存档等问题进行了不同版块的设计,操作便利，界面友好，详细介绍了各个模块是如何进行功能实现的。关键词：房地产；管理系统；设计

ABSTRACTWiththefasteconomicdevelopmentandgreatreformofhousingsysteminChina,therealestateindustryboomcomesandthetradeofrealestateismoreandmoreprosperous.Inthenewmarketconditions,howtoenhancethemanagementlevelinrealestateindustryhasbecomethemostconcernedtopicinsociety.Therealizationofinformationmanagementinthetradeofrealestatewouldbethenecessarywaytosolvingtheactualproblemsandenhancingthevalidmanagementlevelofrealestateindustry.ThispaperpresentsasystemforhousesaleandrentoperatedundertheenvironmentofVisualBasicandMicrosoftAccessafteranalyzingtheactualdemandinthemanagementofhousesaleandrent.Withdemandsanalysis,structuredesignanddatabasedesign,Ipresentthisentiredesignplanofsystemforhousesaleandrentafterdeeplyinvestigatedthecurrentsituationandprospectofrealestateindustry.Thissystemisabletodealwiththeinput,inquiry,modification,deletion,filingandsomeotheroperationsofinformationabouthouses’dataandtradingrecord.Itisconvenient,hasafriendlyinterfaceandspecifieshoweachmoduleworks.KeyWords:REALESTATE,MANAGEMENTSYSTEM,DESIGN目录TOC\o"1-4"\h\z\u1、绪论 11.1探讨的背景和现状 11.1.1.探讨的背景 11.1.2.探讨的现状 11.2探讨新趋势 21.2.1.完善房地产信息管理系统 21.2.2.信息公开化，接受政府的监管 21.2.3.提高信息管理水平 21.3探讨意义 31.4系统的特征和设计原则 31.4.1.系统的特征 3①系统功能完备 3②数据服务对象广泛 3③兼容性好 31.4.2.设计原则 4①通用性原则 4②模块化原则 4③整体性原则 4④发展性原则 41.5探讨的框架 41.5.1.房屋信息的查询 41.5.2.房屋数据的管理 51.5.3.交易公告栏 51.5.4.邮件联系 51.5.5.登录和退出系统 52、系统技术平台 52.1VisualBasic 52.2Access 53、系统的分析和设计 63.1系统的分析 63.2系统的设计 73.2.1.总体结构设计 7①登录界面设计 7②系统信息管理界面设计 9③房屋管理界面设计 13④公告栏界面设计 19⑤发送邮件界面设计 213.2.2.数据库设计 254、结束语 27参考文献： 29房地产管理系统的设计和实现1、绪论1.1探讨的背景和现状1.1.1.探讨的背景随着市场经济的迅猛发展，房地产制度的深化变革，房地产交易变得特殊旺盛，房地产的销售、租赁等业务特殊活跃。房地产业务的不断扩大，也带来了浩大的信息量。谁驾驭的信息越多，谁越能够有效地利用信息，谁就赢得了主动权，增加竞争优势。而长期以来，房地产交易业务信息都是有人员手工完成，工作量繁重，数据浩大困难。不利于企业进行许久的顾客信息、市场需求状况的分析，管理不规范、不科学等弊端渐渐出现。因此借助信息化的手段，将房地产管理推向“无纸化”，开发一套和之相符合的管理系统，实现房地产业务的信息管理，成为解决实际问题的关键。这样的管理系统，须要在计算机的支持下，执行一系列的房屋信息添加和修改、项目成本及报价的管理、利用邮件的发送和公告栏等手段进行信息沟通等操作，为用户供应一个完整的自动化交易平台。实现了业务管理的计算机化、公开化。对加强房地产交易管理的规范化，提高工作效率，增加管理的透亮度和公众的参和热忱，起到了主动的作用。1.1.2.探讨的现状房地产交易信息管理技术在许多国家已经趋向成熟，但由于在我国起步尙晚，整体水平不是很高，并且地区间的差异较大。房地产交易的信息管理技术在我国仍有很大的发展空间。经过综合对比发觉，我国的房地产信息管理仍存在许多问题。总体来看，多年来，房地产行业没有建立完善的房地产交易管理信息系统，房地产交易业务基本上还是接受人工手写的模式。当顾客须要了解房屋户型、地理位置、租售状况和价格等信息时，业务人员不能很好地利用现代化计算机技术进行处理，照旧接受人工的方法进行信息查询、登记、修改等填写大量的数据。由于信息无法进行良好地动态流淌，实时更新，系统无法很好地实现相关信息的汇总和分析，给房地产交易业务带来很大的不便。浩大的信息依靠人工处理，造成人力资源奢侈，管理效率低下，传统的管理手段难以适应网络时代的发展要求。在目前开发的系统来看，普遍存在界面不友好，操作困难，数据不能进行共享，进行公开服务等问题。因此，建立一套能够进行房地产相关信息查询、信息汇总分析、操作便捷的管理系统，讲和房地产有关的业务整理到一个系统平台上来操作，将会提高工作人员的业务实力和工作效率，保证了信息的完整性，提高了信息的更新速度，促进了信息在顾客和管理者之间的共享，实现电子化、无纸化的管理。目前许多房地产行业正在进行这样工作的尝试。1.2探讨新趋势1.2.1.完善房地产信息管理系统随着计算机和网络技术的普及，传统的操作方法不再适应业务扩大的需求。新的房地产信息管理系统须要具备完善的信息管理功能。例如房屋户型、地理位置、楼层状况、交通状况等各种满足顾客需求的信息查询、更新，信息之间的沟通。为顾客供应便捷的操作平台和真实有效的信息。1.2.2.信息公开化，接受政府的监管房地产行业的蓬勃发展，在带来巨大经济效益的同时，也渐渐出现出许多问题。所以，房地产交易业务信息应当公开化，在政府和企业间搭建平台，为政府进行宏观经济调控供应依据，政府据此进行信息分析工作，健全相应的规章制度，进行有效地调整，保证房地产行业的健康发展和协调运行。1.2.3.提高信息管理水平当今社会是信息化的社会，要快速抓住商机，首先就要驾驭大量的信息。并能够有效地进行信息的汇总、分析和处理。建立的信息管理系统要有实时更新数据的功能，为商家抓住机会、提高竞争实力、做出符合市场实际状况的决策供应条件，这就要求房地产行业不断提高信息管理水平。1.3探讨意义利用计算机技术开发出科学、好用、高效的房地产信息管理系统，利用现代化手段进行业务管理、推动房地产业务的规范化，已经成为了时代的要求。完善的信息管理系统能够替代人工进行交易处理，大大提高了业务效率；利用计算机进行数据处理，具有快速、便利、灵敏、科学和精确等特征，提高了人力资源的利用率；数据库的建立，便于信息的汇总、分析和共享，为企业和政府的科学决策供应了依据；由于信息公开，公众可以更合理地进行房屋租售。总体说来，完善的房地产信息管理系统的建立，为员促进了房地产行业的进一步发展。1.4系统的特征和设计原则1.4.1.系统的特征①系统功能完备系统供应的各种信息，能够以文字、图表等形式完整呈现在用户计算机屏幕上，公司和社会公众可以刚好了解房地产交易行情，灵敏便利。管理者可以依据市场行情的变更对房屋户型、地理位置、楼层高度、交通状况、租售意愿等进行随时添加、删除、修改。系统覆盖面特殊广泛，房地产详细资料、交易状况和商家及消费者之间的信息联系平台。②数据服务对象广泛系统必需面对任何和房地产有关的服务对象，如管理者、顾客、政府和社会公众等。这些服务对象之间的信息沟通将带来浩大的数据。数据之间联系特殊困难，须要系统具备较强编辑、统计和储存功能，便于进行分析比较。③兼容性好系统开发的平台和所运用的语言必需满足房地产交易信息的特点，以及计算机的承受实力。由于房地产交易的数据困难、联系紧密，还要兼顾数据共享和数据交换，要求系统具备良好的兼容性，以满足不同用户的需求。1.4.2.设计原则①通用性原则系统的操作界面应当友好，同时尽可能的简化操作步骤。建设该系统的目的在于应用，所以要求在分析房地产业务的特点的基础上进行设计，由于房地产行业的业务流程和数据收集具有确定程度上的相像性，因此，系统在总体设计时应当考虑到共性，结合当前的实际状况，力求实现通用化。②模块化原则为了使系统更加有效地进行工作，必需在设计时依据模块化进行划分。对整个系统进行分析，划分不同功能，对不同的数据进行分类，建立数据库进行管理。例如用户信息模块、房屋信息模块、相关者信息沟通模块、交易信息模块等。③整体性原则为了使系统能够协调运行，保证总功能的实现，系统必需进行不断的完善，纵观全局，进行统一的设计规划。将整个系统作为一个整体，对各个模块进行支配，在充分利用现有资源的前提下，产生协同效益，更好的实现总体功能。④发展性原则在系统的设计过程中，要充分考虑科学技术和市场经济的发展。计算机技术更新速度之快、企业规模进一步扩张和顾客需求的多样化发展，必定会出现新的模式要求。因此，系统要预留一部分空间来适应功能的更新和系统的升级。留意系统的发展性，一遍今后可以更好地扩展和维护系统。1.5探讨的框架1.5.1.房屋信息的查询依据房屋的属性，可以进行的查询有：房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋的成本和报价、房屋的名称和支付方式。1.5.2.房屋数据的管理房屋的数据管理包括房屋户型、地理位置、房屋价格、房屋面积、房屋楼层、交通线路、房屋成本和报价等属性的添加、修改、删除等。1.5.3.交易公告栏交易公告栏主要由各个用户发表通知，有关房屋出租、房屋销售、最新居地产管理政策和制度等公告。以便社会公众刚好、快捷地了解房地产行业的动态变更。1.5.4.邮件联系邮件联系是为一对一沟通所设计的模块。当用户有特定的交易者时，系统可以实现邮件联系功能。为了便利用户操作，该模块设计了按钮点击弹出联系人选择框的功能。1.5.5.登录和退出系统登录系统时须要输入用户名，否则会弹出“用户名为空”的提示框，并且须要正确的密码，否则会弹出“密码错误”的提示框。在点击退出按钮时，系统会提示“真的要退出系统吗？”的对话框，防止用户的误操作，界面设计友好。2、系统技术平台2.1VisualBasicVisualBasic是美国于1991年开发的一种可视化，面对对象和事务驱动的，结构化编程语言，可用于在Windows环境下开发的各种应用。它是简洁易学，高效率并且功能强大。在VisualBasic环境中，通过事务驱动的编程机制、易于操作的可视化设计工具、以及应用程序接口（API）函数，动态链接库（DLL）和对象链接和嵌入（OLE），开放式数据连接（ODBC）技术的广泛的运用，在Windows环境下，可以高效，快速地开发强大和丰富的图形界面的应用软件系统。VisualBasic6.0中的数据访问功能已大大提高，新的ADO组件，允许大量数据的快速访问成为可能。数据环境和新的报告功能允许数据开发成为一种全新的体验。VisualBasic6.0已经具备特殊成熟和稳定开发功能，使企业快速建立多层次的系统。VB接受面对对象的设计思想，这种设计思想是，面对困难的设计问题，能够使之实现独立完成和相对简洁的收集对象的功能。所谓的“对象”是一个可操作实体，如：下拉框、按钮、标签、文本框。在本文的设计中，正是运用VB6.0完成房屋租售系统的开发的。2.2AccessMicrosoftAccess是由微软发布的一个关系数据库管理系统。它具有MicrosoftJet数据库引擎和图形用户界面这两个功能的结合，是MicrosoftOffice软件之一。MicrosoftAccess被广泛运用在许多地方，如小企业，大公司的各个部门，许多程序开发人员用其进行数据处理。Access具有表、查询、窗体、报表、页、宏和模块，便利用户操作和运用。Access是一个面对对象的开发工具，对数据库系统中运用的各种功能对象化。利用对象的方法、属性，完成数据库的操作和运用，大大简化了用户的工作。同时，基于面对对象的开发方法，使得可以更简洁地进行应用程序的开发。Access是一个可视化工具，操作起来特殊便利和直观。本文利用MicrosoftAccess数据库建立了房屋租售系统里必备的数据库。3、系统的分析和设计3.1系统的分析房屋管理系统系统管理系统房屋管理系统系统管理系统设置信息沟通房屋管理房屋信息实体房屋信息实体户型面积价格名称其他地理楼层交通房屋信息实体邮件邮件信息实体标题收件人内容日期消息邮件信息实体成本报价成本报价信息实体成本其他报价消息成本报价信息实体3.2系统的设计3.2.1.总体结构设计①登录界面设计为了保证系统的平安和界面的友好，用户须要进行用户名和密码的正确输入，才可进入系统，假如没有通过验证，则须要返回登录界面重新输入，且点击退出按钮时，将会弹出提示对话框，防止用户的误操作。该功能实现的代码如下：PrivateSubcmdenter_Click()IfTrim(txtname)=""ThenMsgBox"对不起，请输入用户名",vbInformation,App.Titletxtname.SetFocusExitSubEndIfDimLogin_rsAsNewADODB.RecordsetLogin_rs.Open"select用户名,密码from系统管理where用户名='"&Trim(txtname.Text)&"'",CN,1,3IfLogin_rs.EOFThenMsgBox"用户名不存在！",vbInformation,App.Titletxtname.Text=""txtname.SetFocusExitSubEndIfIfLCase(txtpwd.Text)<>Login_rs(1)ThenMsgBox"用户密码错误！",vbInformation,App.Titletxtpwd.Text=""txtpwd.SetFocusPwdtimes=Pwdtimes+1IfPwdtimes>=3ThenMsgBox"密码输入错误超过3次！系统强制退出！",vbInformation,App.TitleEndEndIfExitSubEndIfSetLogin_rs=NothingLoginname=LCase(Trim(txtname.Text))Access=1Loadfrmmainfrmmain.ShowUnloadMeEndSubPrivateSubCommand2_Click()IfMsgBox("的确要退出吗？",vbQuestion+vbYesNo+vbDefaultButton2,App.Title)=vbYesThen_UnloadMeEndSub②系统信息管理界面设计该模块汇总了和房屋有关的全部属性，包括：房屋户型、地理位置、面积、价格等各个属性均能实现属性的添加、删除等功能。下面以设置地理位置为例进行展示。该模块可以进行地理位置的添加和删除操作。当用户未进行序号或地理位置输入时，系统将会给出提示框。依据须要在信息添加成功后，将会弹出提示框。单击退出按钮时，将会推出该模块。该功能实现的代码如下：PrivateSubCommand1_Click()IfTrim(Text1.Text)=""ThenMsgBox"对不起，序号不能为空",vbInformation,App.TitleText1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"对不起，地理位置不能为空",vbInformation,App.TitleText2.SetFocusExitSubEndIfDimrsAsNewADODB.Recordsetrs.Open"select*from地理位置where编号='"&Trim(Text1.Text)&"'",CN,1,3IfNotrs.EOFThenMsgBox"此序号已经存在",vbInformation,App.TitleText1.Text=""Text1.SetFocusExitSubElsesql="insertinto地理位置values('"&Trim(Text1.Text)&"','"&Trim(Text2.Text)&"')"Ifexsql(sql)ThenCalldatagridMsgBox"添加成功",vbInformation,App.TitleText1.Text=""Text2.Text=""Text1.SetFocusEndIfEndIfEndSubSubdatagrid()DimsqlAsStringDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetHFGrid.ColWidth(0)=Me.HFGrid.Width/2HFGrid.ColWidth(1)=Me.HFGrid.Width/2rs.Open"select编号as序号,地理位置from地理位置",CN,1,3SetHFGrid.DataSource=rsEndSubPrivateSubCommand2_Click()DimstrAsStringDimstrSqlAsStringstr=MsgBox("你真的要删除吗",vbInformation+vbYesNo,App.Title)Ifstr=vbYesThenstrSql="deletefrom地理位置where编号='"&Me.HFGrid.TextMatrix(HFGrid.Row,0)&"'"Ifexsql(strSql)ThenMsgBox"删除成功",vbInformation,App.TitleCalldatagridExitSubEndIfEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()PositionMeCalldatagridEndSub③房屋管理界面设计该模块将会实现四个功能：房屋信息的添加、支付方式、成本及报价和备注。房屋信息添加的模块，凡是后台有数据库的房屋属性均设计成下拉框的形式便利用户选择。用户可以依据实际状况录入房屋信息，单击保存后，该数据将会返回到后台数据库中。该模块功能实现的代码如下：Subtjj()DimlistAsNewADODB.Recordsetlist.Open"Select价格from价格",CN,1,3DoWhileNotlist.EOFCombo1.AddItemlist(0)list.MoveNextLoopDimrssdAsNewADODB.Recordsetrssd.Open"select面积from面积",CN,1,3DoWhileNotrssd.EOFCombo2.AddItemrssd(0)rssd.MoveNextLoopDimrss4AsNewADODB.Recordsetrss4.Open"select地理位置from地理位置",CN,1,3DoWhileNotrss4.EOFCombo4.AddItemrss4(0)rss4.MoveNextLoopDimrss5AsNewADODB.Recordsetrss5.Open"select房屋楼层from房屋楼层",CN,1,3DoWhileNotrss5.EOFCombo5.AddItemrss5(0)rss5.MoveNextLoopDimrss6AsNewADODB.Recordsetrss6.Open"select房屋户型from房屋户型",CN,1,3DoWhileNotrss6.EOFCombo6.AddItemrss6(0)rss6.MoveNextLoopDimrss9AsNewADODB.Recordsetrss9.Open"select交通线路from交通线路",CN,1,3DoWhileNotrss9.EOFCombo9.AddItemrss9(0)rss9.MoveNextLoopCombo1.ListIndex=0Combo2.ListIndex=0Combo4.ListIndex=0Combo5.ListIndex=0Combo6.ListIndex=0Combo9.ListIndex=0EndSub支付方式模块，主要用来房屋名称和支付方式的录入。在单击加号按钮以后，弹出对话框，用户可以依据实际状况进行数据录入，单击添加按钮后，数据会显示出来，确认无误单击保存以后，数据将会返回后台数据库。单击退出按钮即可退出该模块。PrivateSubForm_Load()HFGrid.FormatString="房屋名称|支付方式"hfgrid1.FormatString="成本项目|成本|报价|说明"CalltjjHFGrid.ColWidth(0)=Me.HFGrid.Width/2HFGrid.ColWidth(1)=Me.HFGrid.Width/2hfgrid1.ColWidth(0)=Me.hfgrid1.Width/4hfgrid1.ColWidth(1)=Me.hfgrid1.Width/4hfgrid1.ColWidth(2)=Me.hfgrid1.Width/4hfgrid1.ColWidth(3)=Me.hfgrid1.Width/4EndSubPrivateSubCommand1_Click()DimiAsIntegeri=frmfwgl.HFGrid.Rows-1frmfwgl.HFGrid.Rows=frmfwgl.HFGrid.Rows+1frmfwgl.HFGrid.TextMatrix(i,0)=Text1.Textfrmfwgl.HFGrid.TextMatrix(i,1)=Text2.TextEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()EndSub成本报价模块实现记录房屋成本和报价信息。在单击右侧加号按钮之后，将会弹出对话框便利用户进行操作，对话框中的费用类别接受下拉框的形式，便利用户进行选择。用户可以依据实际状况进行数据录入工作。单击添加按钮后，数据会显示，单击保存按钮后，数据将会返回后台数据库。该功能实现的代码如下：PrivateSubForm_Load()HFGrid.FormatString="房屋名称|支付方式"hfgrid1.FormatString="成本项目|成本|报价|说明"CalltjjHFGrid.ColWidth(0)=Me.HFGrid.Width/2HFGrid.ColWidth(1)=Me.HFGrid.Width/2hfgrid1.ColWidth(0)=Me.hfgrid1.Width/4hfgrid1.ColWidth(1)=Me.hfgrid1.Width/4hfgrid1.ColWidth(2)=Me.hfgrid1.Width/4hfgrid1.ColWidth(3)=Me.hfgrid1.Width/4EndSubPrivateSubCommand1_Click()DimiAsIntegeri=frmfwgl.HFGrid.Rows-1frmfwgl.HFGrid.Rows=frmfwgl.HFGrid.Rows+1frmfwgl.HFGrid.TextMatrix(i,0)=Text1.Textfrmfwgl.HFGrid.TextMatrix(i,1)=Text2.TextEndSubPrivateSubCommand2_Click()UnloadMeEndSub④公告栏界面设计该模块主要用于交易者之间的信息沟通。该模块主要实现两个功能，一是关注房地产行业信息的查询，二是实现信息发布功能。可以看到其他用户发布的内容，当前用户还可以自行填写发布内容，然后提交给后台的数据库。单击退出按钮，即可实现退出该模块。在添加成功之后，系统将会弹动身布成功后的对话框。单击确定之后，发布的内容即添加到公告栏内。该功能实现的代码如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"主题不能为空"ExitSubEndIfDimaAsStringa=DateDimstrSqlAsStringstrSql="insertinto公告(发布者,标题,日期,消息)values('"&Loginname&"','"&Text1.Text&"','"&a&"','"&Text2.Text&"')"Ifexsql(strSql)ThenMsgBox"发布成功"Text1.SetFocusCallaaaText1.Text=""Text2.Text=""ElseMsgBox"发布失败"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPublicSubaaa()DimstrSqlAsStringstrSql="selectidas编号,发布者,标题,日期,消息from公告"DimrsAsNewADODB.RecordsetSetrs=AdoSet(strSql)SetHFGrid.DataSource=rsEndSubPrivateSubForm_Load()CallaaaHFGrid.ColWidth(0)=Me.HFGrid.Width/5HFGrid.ColWidth(1)=Me.HFGrid.Width/5HFGrid.ColWidth(2)=Me.HFGrid.Width/5HFGrid.ColWidth(3)=Me.HFGrid.Width/5HFGrid.ColWidth(4)=Me.HFGrid.Width/5EndSub⑤发送邮件界面设计该模块的设计只要是为了满足用户一对一的沟通。当然，只要是该系统的用户合法登录以后，进入邮件发送模块也能望见其他用户发布的邮件，但该模块明确指出了收件人的姓名。这样设计更有助于操作透亮化和信息的流淌。为了便利用户，单击选择按钮后，将会弹出联系人选择框。用户只需选择想要联系的用户，单击添加按钮以后，接收人栏内将会自动载入，用户可以依据自己的须要填写主题和内容。在消息发布成功后，系统会弹动身布成功提示框。单击确定按钮以后发布的邮件将会出现在公告栏。由于房地产业务特殊活跃，信息联系频繁，导致后台数据繁多，为了解决这个问题，在该模块添加了删除全部的按钮，依据用户的实际操作反馈到后台数据库。单击退出按钮之后，将会退出该模块。该功能实现的代码如下：PrivateSubCommand1_Click()frmemail.ShowEndSubPrivateSubCommand2_Click()IfText1.Text=""ThenMsgBox"收件人不能为空"ExitSubEndIfDimstrSqlAsStringDimaAsStringa=DatestrSql="insertinto邮件values('"&Loginname&"','"&Text1.Text&"','"&Text2.Text&"','"&a&"','"&Text3.Text&"',0)"Ifexsql(strSql)ThenCallaaMsgBox"发送成功"ElseMsgBox"发送失败"EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()strSql="deletefrom邮件"Ifexsql(strSql)ThenMsgBox"删除成功"CallaaEndIfEndSubPrivateSubForm_Load()CallaaHFGrid.ColWidth(0)=Me.HFGrid.Width/6HFGrid.ColWidth(1)=(Me.HFGrid.Width)/6HFGrid.ColWidth(2)=(Me.HFGrid.Width)/6HFGrid.ColWidth(3)=(Me.HFGrid.Width)/2EndSubSubaa()DimrsAsNewADODB.RecordsetDimstrA