《管理信息系统课设》word版.doc

沈阳理工大学课程实践（论文）目录1 前言11.1 作业背景11.2 选题说明11.2.1 基本思路11.2.2 作业目标11.3 工作业绩21.3.1 个人主要工作21.3.2 主要收获21.3.3 自我评定21.3.4 小组成员任务分工情况22 系统规划32.1 项目名称32.2 项目背景32.3 项目目标32.4 开发方法32.5 项目功能32.6 可行性分析报告42.6.1 技术可行性42.6.2 经济可行性42.6.3 管理可行性43 系统分析53.1 业务流程图53.2 系统数据流程图63.3 数据字典74 系统设计124.1系统设计目标124.2 总体设计124.3 详细设计134.3.1 代码设计134.3.2 输入设计144.3.3 输出设计144.3.4 数据库设计154.3.5 系统的安全性、保密性设计185 系统实施205.1 登录设计205.2 户型设置管理235.2.1 户型管理信息235.2.2 小区住户管理255.3 编辑收费项目信息295.4 收费信息管理315.5 编辑用户信息325.6 其他表单34结束语35参考文献36361 前言1.1 作业背景课程作业的具体要求如下：用信息系统开发工具（VF6.0、VB）开发一个实用的中小型管理信息系统。（1）根据课程设计时间选择适当规模大小的设计题目，分小组进行设计。（2）小组组长为组员分配任务，根据合理的安排，按照系统开发的流程及方法，踏实地开展课程设计活动。（3）课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。（4）开发出可以运行的管理信息系统，通过上机检查。1.2 选题说明项目背景研究课题题目：小区物业收费管理系统1.2.1 基本思路首先对研究小区物业的背景进行研究进而从经济、管理和技术三个方面对开发项目的可行性进行分析。得出结论之后，开始对该小区物业的组织结构和业务流程进行分析，然后得出逻辑模型即数据流程图。根据系统分析阶段的数据流程图得到物理模型即模块结构图。最后根据系统设计的内容进行程序设计并运行系统。1.2.2 作业目标通过对小区物业管理信息系统的设计与开发，熟练使用所学的结构化分析以及设计方法分析系统，描述系统，设计系统。掌握业务流程图，数据流程图，数据字典等工具。熟练使用模块设计方法，数据库设计方法，代码设计方法，输入输出设计方法等设计物理系统。并且会做简单的系统，并运行实施。1.3 工作业绩1.3.1 个人主要工作根据由规划阶段的技术可行性分析、经济可行性分析、管理可行性分析、需求分析等完成业务流程图、数据流程图以及数据字典等来实现系统的总体设计和详细设计。1.3.2 主要收获从这个系统的可行性分析道最后实施完成，通过小组成员的通力合作完成了可行性分析，系统的分析，系统的设计，最后是系统的实施。当中过程小组成员通过合理的分配，把各自的强项分配到各个部分，其中第四部分的系统设计由我自己独立完成。在图书馆查阅了相关的资料之后对实施部分也有了一定的了解，MIS系统开发与应用实现这本书给予了我很大的帮助。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第五组，组长为：陈思文，小组所有成员分工如下：小组成员分工表学号姓名任务备注0904090131陈思文系统规划组长0904090121朱刚强系统分析0904090105侯爱月系统设计0904090113孔梦雪系统实施2 系统规划2.1 项目名称某小区物业管理收费系统设计与开发。2.2 项目背景 随着我国经济发展和城市开发，住宅小区越来越成为居住的主流，小区物业管理是针对当代社会这一市场需要应运而生的。用计算机操作的小区物业管理系统是为小区管理者和小区用户更好的维护各项物业管理业务处理工作而开发的管理软件，根据需求分析，实现小区管理业务，效益已越来越明显。因此，开发这样一套小区物业管理系统软件成为很有必要的事情，在本文中将就本次毕业设计我所开发的小区物业管理系统,谈谈其开发过程和所涉及到的问题及解决方法。2.3 项目目标通过开发小区物业收费管理信息系统，建立比较完整的物业体系，使小区的管理更加顺利。具体如下：建立小区物业收费管理信息系统，使管理的文件量占用面积变小，节省一定量的资金；采用物业收费管理信息系统可以方便查询每一位业主的信息，便于控制。2.4 开发方法本系统运用结构化系统开发方法。2.5 项目功能该物业收费管理信息系统是一整套管理业务流程信息管理系统，依据此系统可对业主的基本信息进行管理；公司也可以管理各种收费项目，并统计最终的收费情况，依据信息进行辅助决策等。2.6 可行性分析报告2.6.1 技术可行性运用Visual Basic 语言完成系统，同时运用Microsoft Office实用软件完成文档工作。本小区采用先进的技术手段，为信息管理提供了强大的硬件保证，不管从设备方面还是技术力量方面，本小区都达到了一定的能力。在技术方面可以建立管理信息系统。2.6.2 经济可行性有一定的资金，能够支持计算外围设备费用、软件开发的费用、人员培训的费用、维护费用、管理费用。间接的经济效益中，小区的管理层待遇优厚，可以为小区的收费管理信息系统的运行提供保证。2.6.3 管理可行性本系统采用基于Windows的图形用户界面，而该系统是大家熟悉的操作系统，对于那些有一般的计算机知识的人员或经过简单培训就可以轻松上手。管理人员对开发本项目的态度很积极，直属领导对项目的开发也很支持，管理方法科学，管理制度成熟，已具备了开发系统的条件，有专门开发的人员四人，既能合理的分配相应的工作，又能在完成各自工作的同时对整体的系统管理进行整合。而整个小区物业管理系统管理系统采用最友好的交互界面，简介明了，不需要对数据库进行深入的了解。由此，该系统的操作是可行的。综上分析可得出结论：该小区完全具备开发收费管理信息系统的能力。3 系统分析抄表员会计核算抄表数据管理费用代管费用综合费用各种表费核算 会计出纳业主管理处下放各种费用单交费交款 交款文件 收缴结算清单业主业主报表总项目清单签字验收经理经理确定固定费管理处财务部固定费用表3.1 业务流程图存档图3.1采购管理业务流程图3.2 系统数据流程图企业业务调查过程中绘制的管理业务流程图和表哥分配图等，虽然形象的表达了管理中信息的流动和存储过程，但让没有完全脱离一些物质要素(如货物、产品等)。为了用计算机惊醒信息管理，还必须进一步舍去物质要素，收集有关资料，绘制出原系统的数据流程图，为下一步分析做准备。1.小区物业收费管理顶层图如图3.2所示。S管理员P物业管理S住户F1缴费F2统计数据图3.2小区物业系统顶层数据流程图2.小区物业收费管理一级数据流程图如图3.3所示。S 住户P1信息管理F1缴费单D1P2收费统计S管理员D2收费统计表基本信息表F3查询表F2收费统计单 图3.3 收费管理一级数据流程图3.小区物业收费管理二级数据流程图如图3.4所示。F2.3记录数据收费记账F2.4数据处理S 住户P1信息管理F1.1操作员记录D1.2P2收费管理D2.1收费项目管理表P3收费统计S管理员D3按项目统计楼房管理表F4查询表F2.1数据处理F3.1收费统计单D1.1户型设置D1.3住户管理表按住户统计D2.2抄表信息表D2.33F1.2操作员记录F3.3查询表F3.3查询表F1.3操作员记录F1.4住户资料记录F2.2费用单价 图3.4 收费管理二级数据流程图 3.3 数据字典1.数据流字典如表3-1所示表3-1数据流数据字典数据流编号数据流名称简述数据流来源数据流去向数据流组成F1.1操作员记录操作员操作信息操作员基本信息客户信息+日期F1.2操作员记录操作员操作信息操作员户型设置客户信息+日期F1.3操作员记录操作员操作信息操作员楼房管理客户信息+日期F1.4住户资料所有入住客户资料住户住户管理客户信息+日期F2.1数据处理所有信息物业公司汇总客户信息+日期F2.2修改费用所有收费项目公司修改费用客户信息+日期F2.3操作员统计操作员操作信息操作员抄表信息操作信息+日期F2.4收费管理统计收费汇总收费记账操作信息+日期F3.1收费统计费用资料信息物业公司汇总费用信息+日期F3.2操作员统计操作员操作信息操作员统计操作信息+日期F3.3操作员统计操作员操作信息操作员统计操作信息+日期F4查询信息费用单据信息收费统计管理员费用信息+日期2数据存储字典如表3-2所示。表3-2数据存储数据字典编号名称简述数据存储组成关键字相关联的 处理D1.1户型设置存放户型信息客户姓名+性别+证件号+入住时间客户P1.1，P1.2D1.2楼房管理存放楼房信息房间号+楼号楼号P1.2，P1.3D1.3住户管理存放客户入住信息客户姓名+性别+证件号+房间号证件号P1.4D1.4退出推出系统退出P1.3，p1.4D2.1收费项目管理存放收费信息房型编号+费用费用P2.1D2.2抄表信息管理存放走镖信息用户名+走表信息仪表P2.2D2.3收费记账管理存放费用记账信息住户+缴费收费记录P2.3D3.1按项目统计存放统计资料项目项目P3.1，P3.2D3.2按住户统计住户统计住户住户p3.2D4.1用户管理用户管理信息住户信息+资料用户p4.13数据项字典如表3-3所示。表3-3数据项数据字典数据项编号字段名称数据类型 长度说明001住户数量数字50住户人数002备注文本50备注003楼宇名称文本50楼名004楼层数数字20楼层数005楼宇单元数字20楼单元006楼层数字 20楼层007房间号数字20房间号008建筑面积数字20房间面积009使用面积数字20使用面积010房屋备注文本50备注011使用情况文本20使用情况012迁入日期日期入住时间013联系电话数字20电话号码014楼宇序号数字20楼号015管理员文本20管理员姓名016密码文本50管理密码017计量仪表名称文本20仪表名称018仪表计量单位文本10仪表计量单位019走表量小数位数数字10计量小数位020安装范围文本20仪表安装范围021仪表备注文本20备注022仪表名称文本50以表明023前月抄表日期文本20上次查表时间024前月仪表数据日期上次查表数据025本月抄表日期数字此次查表时间026本月仪表数据日期此次查表数据027缴费年月数据20缴费时间028走表量日期表数据029单据编号数字20数据单位030收费年月文本20收费时间031交费方式日期缴费方法032缴费金额文本10缴费金额033楼宇总数货币20楼总数034楼宇层数数字20楼层数035住户数量数字10住户人数036预付日期文本20费用预付时间4数据处理典如表3-4所示。表3-4 数据处理字典名称编号简述输入的数据流处理输出的数据流处理频率信息管理P1录入基本信息操作员记录录入基本信息单每有住户入住收费管理P2录入收费信息数据处理录入收费管理单每次缴费收费统计P3统计收费收费统计统计收费统计单每次缴费后5数据实体典如表3-5所示。表3-5数据实体数据字典编号名称输出数据输入数据简述01住户住户资料小区住户02物业公司费用信息住户资料小区物业公司6数据结构字典如表3-1所示。表3-6数据结构字典数据结构编号数据结构名称数据结构组成A户型管理表001*006*007*008*009*B楼房管理表002*003*004*005*014C住户管理表001*012*013*015*016*017D收费项目管理表006*007*018*019*020*021E抄表信息管理表022*023*024*025*026*027F收费记账管理表009*002*028*029*030G按项目统计表001*002*031*032*033H按住户统计表001*002*034*035*0364 系统设计4.1系统设计目标1.方便的数据输入性能，良好的人机界面，尽量避免汉字和长字符串的人工重复输入，提高操作的效率。2.良好的保密功能，各操作人员权限分明，保证小区物业管理上的规范性。3.灵活地查询性能，能快捷方便地的查询出所需信息。如客户的记录，客房情况等。以便为库户提供快捷、细致、周到的服务。4.具有数据的检验功能，能够及时提醒用户的错误操作，使管理更精确。5.系统具有良好的扩充功能，能够满足日后小区规模扩展的需要。4.2 总体设计根据系统分析阶段的小区物业数据流程图可以将小区物业收费管理系统分基本信息管理、收费管理、收费统计和系统管理四个子系统，每个子系统下又分好几几个功能模块，可绘制的系统功能结构图如图4.1所示。户型设置小区物业收费管理基本信息管理置收费管理收费统计系统管理住户管理退出楼房管理收费项目管理抄表信息管理收费记账管理按项目统计按住户统计用户管理修改密码图4.1 小区物业收费管理系统模块结构图4.3 详细设计4.3.1 代码设计合理的编码结构是信息处理系统是否具有生命力的一个重要因素，在代码设计时应遵循适用性原则、单义性原则 、可扩充性原则、规范性原则、合理性原则等原则。 (1)基本信息代码设计基本信息代码采用由两位整数组成的层次码，设计方案如图4.2所示。楼房管理住户管理图4.2 业主代码方案设计（2）收费管理代码设计设计方案如图4.3所示。X X收费项目图4.3 部门代码设计方案（3）收费统计方案设计编码设计方案如图4.4所示。按项目统计按住户统计图4.4 收费系统设计方案4.3.2 输入设计输入设计对对系统的质量有着决定性的影响。输出数据的 正确性直接决定处理结果的正确性，如果输入数据有误，即使计算和处理都十分正确，也无法获得可靠的正确信息。同时输入设计是信息系统与用户之间交互的纽带，决定着人机交互的效率。输入设计要遵循的准则是“使用方便，操作简单，便于录入，数据准确”。小区物业管理系统可以对小区基本信息、收费管理、收费统计进行输入管理。表4.1 住户基本信息输入表户主住址身份证号码 电话入住时间表4.2 收费管理输入表住址电费水费宽带垃圾清运费物业管理费收费时间4.3.3 输出设计分别按项目和住户统计出收费情况，可以对其进行查询。表4.3按项目收费输出表表项目收费电费水费宽带垃圾清运费物业管理费表4.4按住户收费输出表表住户收费4.3.4 数据库设计1小区物业收费管理系统E-R图如图4.5所示。 楼房信息户型信息住户信息记录记录记录基本信息管理使用收费管理统计收费统计结果nnn111nnnn图4.5小区物业收费管理系统E-R图2.(1) 小区物业管理系统部分实体图如图4.6所示。小区住户基本信息住户姓名住户电话入住时间物业地址图4.6住户基本信息实体图部分实体所具有的属性描述如下：房产基本信息实体图如图4.7所示。 小区房产基本信息物业地址使用面积房屋结构出售信息图4.7 房产基本信息实体图小区收费管理信息实体图如图4.8所示。收费管理水费电费住址宽带收费时间垃圾清运物业管理费图4.8 住户投诉基本信息实体图3.(1) 用户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。表4.5用户表字段名数据类型可否为空用户名（主键）Char(10)NOT NULL密码IntNOT NULL (2) 住户基本信息表住户表存放小区内所有的住户信息，这些信息也是小区物业管理的基本信息，在实现系统的各个功能中起真非常重要的作用。表4.6住户基本信息表表字段名数据类型可否为空住址(主键)Char(10)NOT NULL户主Char(10)NOT NULL身份证号码Varchar(50)NOT NULL电话Char(20)NULL入住时间DatetimeNULL (3) 房屋基本信息房产表存放小区内的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。表4.7房屋基本信息表字段名数据类型可否为空住址(主键)Char(10)NOT NULL房屋结构Varchar(50)NOT NULL设备Float(8)NOT NULL房屋面积Float(8)NOT NULL出售信息Char(20)NULL(4) 处理故障表住户处理故障表存放小区内住户的各种故障的所有信息。表4.8处理故障表字段名数据类型可否为空住址(主键)Char(10)NOT NULL处理故障DatetimeNOT NULL经办人Char(10)NULL处理时间DatetimeNULL(5) 收费信息表物业收费表存放小区内住户的各种收费信息。表4.9物业收费表字段名数据类型可否为空住址(主键)Char(10)NOT NULL水费Char(10)NOT NULL电费Varchar(50)NOT NULL宽带Int(4)NOT NULL垃圾清运费Int(4)NOT NULL物业管理费Varchar(50)NOT NULL收费时间DatetimeNOT NULL 4.3.5 系统的安全性、保密性设计为了增强系统对自然灾害、人为破坏、操作失误或系统故障有一定的承受能力，我们使用以下的安全方法：（1） 运用计算机系统技术，如使用双机热备份、双硬盘镜像存储、防毒设备、防火墙。（2） 运用软件的方法，加强软件的容错性、设置操作员的权限、数据的公布存储、备份和多版本防病毒措施。（3）制定了运行与维护的管理规范，如制定了操作员资格管理，操作规程，机房守则，防火防盗防病毒等管理制度。为防止越权对信息资源的存取、修改、复制及使用，提高系统的保密性，使用的保密方法如下：（1）在用户登录时终设置了用户名与密码，并且当用户密码泄露的时候，可以对密码进行修改。（2）有选择的隔离限制对资源的使用，如数据和模块执行的权限设置、防火墙。 5 系统实施程序设计是实现系统功能的重要手段，是非常重要的一步。VB提供设计操作比较简单，它与用户交互，接收并显示数据，有VB提供的窗体、菜单、对话框、按钮、文本框等控件集成起来，用户只要想搭积木一样根据需要拿来使用，然后设置相关的属性，就可以后的自己所需的空间。界面设计非常直观、简单、容易掌握。而且BASIC语言具有简单易学的特点，且语法比较简单，格式上比较随意，我们可以在较短的时间内熟悉使用该语言，并且让其实现所需要的功能。5.1 登录设计新建一个表单，命名为“身份验证”。把表单Caption属性设置为“身份验证”；在“身份验证”表单上放置相应的控件，2个标签Label，2个文本框Text,2个命令按钮Command，1个Image控件，更改其中控件的Caption属性，表单如图5.1所示。图5.1 登录界面窗口具体代码编写如下：（1）“确定”按钮的Click事件代码Private Sub Cmd_OK_Click() Dim j As Single If txtUser = Then MsgBox 请输入用户名 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If NameKey = Trim(txtUser) PasswordKey = Trim(txtPwd) If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If Unload MeEnd Sub（2）“取消”按钮的Click事件代码Private Sub Cmd_OK_Click() Dim j As Single If txtUser = Then MsgBox 请输入用户名 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If NameKey = Trim(txtUser) PasswordKey = Trim(txtPwd) If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If Unload MeEnd Sub5.2 户型设置管理5.2.1 户型管理信息新建一个表单，命名为“户型设置管理”。把表单Caption属性设置为“户型设置管理”；在“户型设置管理入”表单上放置相应的控件，5个标签Label，20个文本框Text，4个命令按钮Command，更改其中控件的Caption属性，表单如图5.2所示。图5.2 户型设置管理具体代码编写如下：（1）“添加”按钮的Click事件代码Private Sub Cmd_Add_Click() FrmBuildingEdit.Modify = False FrmBuildingEdit.OriNo = FrmBuildingEdit.Show 1 Refresh_BuildingEnd Sub （2）“修改”按钮的Click事件代码Private Sub Cmd_Modi_Click() If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If p = Adodc1.Recordset.AbsolutePosition FrmBuildingEdit.OriNo = Trim(Adodc1.Recordset.Fields(0) FrmBuildingEdit.txtBuildingNo = Trim(Adodc1.Recordset.Fields(0) FrmBuildingEdit.txtFloor = Adodc1.Recordset.Fields(1) FrmBuildingEdit.txtUnit = Adodc1.Recordset.Fields(2) FrmBuildingEdit.txtArea = Adodc1.Recordset.Fields(3) FrmBuildingEdit.txtDescribe = Trim(Adodc1.Recordset.Fields(4) FrmBuildingEdit.Modify = True FrmBuildingEdit.txtBuildingNo.Enabled = False FrmBuildingEdit.Show 1 Refresh_Building Adodc1.Recordset.Move pEnd Sub（3）“删除”按钮的Click事件代码Private Sub Cmd_Del_Click() Dim TmpId As Long If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If p = Adodc1.Recordset.AbsolutePosition TmpNo = Trim(Adodc1.Recordset.Fields(0) If MsgBox(是否删除当前行?, vbYesNo, 确认) = vbYes Then MyBuilding.Delete (TmpNo) MsgBox 删除成功 Refresh_Building If p - 1 0 Then Adodc1.Recordset.Move p - 1 End If End IfEnd Sub（4）“返回”按钮的Click事件代码Private Sub Cmd_Back_Click() Unload MeEnd Sub5.2.2 小区住户管理新建一个表单，将名字命名为小区住户管理。把表单Caption属性设置为“户型信息管理”；在“户型信息管理入”表单上放置相应的控件，8个标签Label，48个文本框Text，6个命令按钮Command，更改其中控件的Caption属性，表单如图5.2.2所示。图5.3 小区住户管理Private Sub Refresh_Owner() Dim strSch As String strSch = If Len(Trim(dco_Bld.Text) 0 Then strSch = And o.BuildingNo= + Trim(dco_Bld.BoundText() + End If 设置数据源 Adodc1.ConnectionString = Conn Adodc1.RecordSource = SELECT o.OwnerId As 编号, o.BuildingNo As 楼房号, _ + o.UnitNo AS 单元号,o.RoomNo As 房间号,s.StyleName AS 房屋类型, _ + o.OwnerName As 住户姓名, o.Tel As 电话, o.InDate As 入住日期, _ + o.OutDate As 迁出日期, o.Memos As 备注信息 _ + FROM HouseOwner o, HouseStyle s _ + WHERE o.StyleId=s.StyleId + strSch _ + ORDER BY o.BuildingNo,o.RoomNo Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 0 编号 DataGrid1.Columns(1).Width = 1200 楼房号 DataGrid1.Columns(2).Width = 1200 房间号 DataGrid1.Columns(3).Width = 1000 单元号 DataGrid1.Columns(4).Width = 1000 房屋类型 DataGrid1.Columns(5).Width = 1200 住户姓名 DataGrid1.Columns(6).Width = 1000 电话 DataGrid1.Columns(7).Width = 1000 入住日期 DataGrid1.Columns(8).Width = 1000 DataGrid1.Columns(9).Width = 1000End SubPrivate Sub Cmd_Add_Click() 设置Modify变量为False，表示插入新数据 FrmOwnerEdit.Modify = False 设置OriId，表示没有要修改的业主编号 FrmOwnerEdit.OriId = 0 启动编辑业主信息的窗体 FrmOwnerEdit.Show 1 刷新显示数据 Refresh_OwnerEnd SubPrivate Sub Cmd_Back_Click() Unload MeEnd SubPrivate Sub Cmd_Del_Click() Dim TmpId As Long 判断是否选择了要删除的记录 If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If 保存当前的记录位置 p = Adodc1.Recordset.AbsolutePosition 读取当前记录的户型信息 TmpId = Adodc1.Recordset.Fields(0) 确认删除 If MsgBox(是否删除当前行?, vbYesNo, 确认) = vbYes Then MyOwner.Delete (TmpId) MsgBox 删除成功 Refresh_Owner If p - 1 0 Then Adodc1.Recordset.Move p - 1 End If End IfEnd Sub If Adodc1.Recordset.Fields(9) Then FrmOwnerEdit.txtDescribe = Trim(Adodc1.Recordset.Fields(9) End If 设置修改状态标记 FrmOwnerEdit.Modify = True 修改状态时，房间相关信息不允许修改 FrmOwnerEdit.dco_Bld.Enabled = False FrmOwnerEdit.txtRoomNo.Enabled = False FrmOwnerEdit.txtUnit.Enabled = False 启动窗体 FrmOwnerEdit.Show 1 刷新显示数据 Refresh_Owner 恢复记录位置 Adodc1.Recordset.Move pEnd SubPrivate Sub dco_Bld_Click(Area As Integer) Refresh_OwnerEnd SubPrivate Sub Form_Load() Ado_Bld.ConnectionString = Conn Ado_Bld.RecordSource = Select * From Building Order By BuildingNo Ado_Bld.Refresh Set dco_Bld.RowSource = Ado_Bld dco_Bld.ListField = BuildingNo dco_Bld.BoundColumn = BuildingNo 刷新显示 Refresh_OwnerEnd Sub5.3 编辑收费项目信息 新建一个表单，命名为“编辑收费项目信息”。把表单Caption属性设置为“编辑收费项目信息”；在“编辑收费项目信息”表单上放置相应的控件，4个标签Label，2个文本框Text,2个命令按钮组CommandGroup，更改其中控件的Caption属性，表单如图5.3所示。图5.4编辑收费项目信息具体代码编写如下：（1）“确定”按钮的click事件Private Sub Cmd_OK_Click() If Check = False Then Exit Sub End If With MyChargeItem .ItemName = Trim(txtItem) .UnitPrice = Val(txtUnitPrice) .ItemType = Trim(cob_Unit.ListIndex) .PayCycle = Trim(dco_Cycle.Text) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriId) MsgBox 修改成功 End If End With Unload MeEnd Sub（2）“取消”按钮的click事件Private Sub Cmd_Cancel_Click() Unload MeEnd Sub5.4 收费信息管理 新建一个表单，命名为“收费信息管理”。把表单Caption属性设置为“收费信息管理”；在“收费信息管理”表单上放置相应的控件，1个表格Grid，2个命令按钮Command，更改其中控件的Caption属性，表单如图5.4所示。图5.5收费信息管理主要代码编写如下：（1）“添加收费”按钮的Click事件代码Private Sub Cmd_Add_Click() FrmChargingEdit.OriId = 0 FrmChargingEdit.txtAmount = 0 FrmChargingEdit.txtPayDate = Date FrmChargingEdit.txtUnitNum = 0 FrmChargingEdit.Show 1 Refresh_ChargingEnd Sub（2）“返回”按钮的Click事件代码Private Sub Cmd_Back_Click() Unload MeEnd Sub5.5 编辑用户信息新建一个表单，命名为“编辑用户信息”。把表单Caption属性设置为“编辑用户信息”；在“编辑用户信息询”表单上放置相应的控件，3个标签Label，3个文本框text，2个命令按钮Command，更改其中控件的Caption属性，表单如图5.5所示。图5.6编辑用户信息具体代码编写如下：（1）“确定”按钮的Click事件代码Private Sub Cmd_OK_Click() If Trim(txtUserName)