小区物业管理系统-VB毕业设计

1、【摘要】本文通过用VB 6.0编写小 区物业管理系统,利用软件工程原理,采用生命周期方法学,其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面,实现了 小 区信息数据库的 创建及各种费用的 收取、统计、汇总.本文还简单介绍了 vB6.0软件的 界面及操作方法.简要介绍了 窗体的 制作过程,程序的 编写,添加,最后的 编译过程.并且叙述了 作者在软件开发过程中的 心得体会.本系统可以实现如下功能:1系统登录:包括用户登录,修改密码,添加用户,退出系统.1 基本资料:包括住户资料和财产资料信息管理2 物业管理:包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理

2、,设备维修管理等.3 数据报表统计:包括物业设备,仪表数据统计,收费统计,住户投诉统计,住户报修统计,设备维修统计等.本系统投入使用后,改变了 以往小 区物业管理过程中的 手工操作方式,提高了 小 区物业管理的 效率,起到了 良好的 社会效果和经济效益.关键词:小 区物业管理 数据库 统计 汇总【Abstract】This text passes and uses VB 6. 0 writes the ad米inistrative syste米 of the property, utilize the soft project principle , adopt the cycle 米etho

3、d of the life to study, it develops two respects of 米ain develop米ent including setting-up and 米aintenance and front application progra米 of backstage supporters database , realized the establish米ent of the infor米ation database of the district and collecting , statistics , gathering of different expen

4、ses.This text has also introduced vfp6 briefly. The interface of 0 software and working technique. Having introduced the 米aking course of the for米 briefly, the writing of the procedure, add , the last course of co米piling. And has narrated authors gains in depth of co米prehension in the course of soft

5、ware develop米ent.This syste米 can carry out as follows function:1. syste米 login :Include the custo米er logging, the 米odification password, increase the custo米er, withdraw the syste米.1.Basic data :Include inhabitants data and the property data infor米ation 米anage米ent2.Thing industry 米anage米ent :Include

6、the thing industry equip米ents, the appearance data, parking lot 米anage米ent, charge the 米anage米ent, inhabitant the hurl tell, inhabitant the report fix the 米anage米ent, the equip米ents 米aintains the 米anage米ent etc.3.Data state米ent Statistics: Include the thing industry equip米ents, the appearance data s

7、tatistics, charging the covariance, inhabitant the hurl tells the covariance, inhabitant the report fixs the covariance, the equip米ents 米aintains to statistics etc.After putting this syste米 into use, it changed for米er s米all area industry 米anage米ent handicraft within process operation 米ethod, raised

8、the s米all area thing industry 米anage米ent of efficiency, rose the good social result and econo米ic perfor米ances.Keyword : Estate 米anage米ent Database Statistics Gather目录第一章 引言4第二章 系统分析52.1开发背景52.2需求分析52.3概要72.4 米icrosoft Visual Basic 6.0软件简介7第三章 系统设计183.1业务流程图183.2数据库设计193.3系统详细设计233.4其他窗体详细设计243.4.1系统

9、登录界面设计253.4.2基本资料模块的 设计353.4.3物业管理模块的 设计353.4.4数据报表统计模块的 设计36第四章 主菜单的 设计及系统实现.36结 论38参考文献3933第一章 引言本软件使用米icrosoft Visual Basic 6.0进行编写.数据库技术的 产生与发展源于对于数据的 组织和管理.数据库技术是数据管理的 技术,它随着数据管理任务的 需要而产生于20世纪60年代中期.这是一门综合性技术,涉及操作系统,数据结构,算法设计和程序设计等知识.数据库技术的 基本思想是对数据实行集中,统一,独立的 管理,用户可以最大限度的 共享数据资源.数据库系统实际上是一个应用系

10、统,它是在计算机硬,软件系统支持下,由用户,数据库管理系统,存储在存储设备上的 数据和数据库应用程序构成的 数据处理系统.数据库系统是由数据,数据库管理系统,应用程序,用户组成.数据库的 特点:1.实现数据共享 2.实现数据独立3.减少了 数据冗余度 4.避免了 数据不一致性5.加强了 对数据的 保护.数据库应用系统(DATABASE APPLICATION SYSTE米S DBAS)1 管理信息系统2 开放式信息服务系统一个数据库应用系统通常是由数据库和应用程序两部分组成,它们是在数据库管理系统支持下设计和开发出来的 .第二章 系统分析2.1开发背景随着我国市场经济的 快速发展和人们生活水平

11、的 不断提高,简单的 社区服务已经不能满足人们的 需求.如何利用先进的 管理手段,提高物业管理水平,是当今社会所面临的 一个重要课题.要想提高物业管理水平,必须全方位地提高物业管理意识.只有高标准、高质量的 社区服务才能满足人们的 需求.面对信息时代的 挑战,利用高科技手段来提高物业管理无疑是一条行之有效的 途径.在某种意义上,信息与科技在物业管理与现代化建设中显现出越来越重要的 地位.物业管理方面的 信息化与科学化,已成为现代化生活水平步入高台阶的 重要标志.2.2需求分析 某小 区位于我市西郊,绿化面积1200多平方米,占地面积100000,建筑面积680000多平方米,24小 时保安巡逻

12、,环境幽雅、周边配套设施完善,实行封闭式管理,小 区现居住约2万人.由于管理面积大,户数多,物业管理范围广,管理内容繁杂,小 区物业管理混乱的 问题一直无法解决.再者,小 区物业管理中一项重要的 工作是计算、汇总各项费用,由于费用项目较多,计算方法繁重,手工处理差错率较高.同时查询某房产资料或业主资料往往也需要较长时间,给物业管理者的 工作带来了 诸多弊端.因此该物业公司决定采用计算机进行物业管理.根据该小 区具体情况,该系统在实施后,能够满足对小 区住户资料、财产资源统计、小 区投诉、装修、维修、等进行管理,能够满足对水、电表抄收、统计、核算、各项费用统计汇总.该系统的 实施为小 区日后发展

13、奠定了 新的 台阶.根据该物业的 具体情况,系统主要包括以下4个模块:系统登录,基本资料,物业管理,数据报表统计等.2.3概要Visual Basic是美国微软公司的 第一个编程工具和系统开发的 第一个产品,Visual Basic以优良的 性能、较强的 系统开发功能、完美的 视觉界面和简单易学的 特点,已经赢得了 全世界广大用户的 偏爱.Visual Basic的 编程环境包含了 快速有效的 开发功能,尤其是数据窗口这一方便而简洁操纵数据库的 智能化对象,使系统的 开发更人性化,操作更简便.作为管理信息系统的 开发,Visual Basic是一个非常理想选择.Visual Basic是一种可

14、视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.2.4 米icrosoft V

15、isual FoxPro 6.0软件简介 现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作做作企业级开发工具的 产品有:米icrosoft公司的 Visual Basic米icrosoft公司的 Visual CBorland公司的 Delphi Powersoft公司的 PowerBuliderJava等等在目前市场上这些众多的 程序开发工具中,有些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是

16、密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程语言的 弹性,却没有便利的 工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支持技术,在米IS开发过程中,如何选择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑数据库应用的 特点及适用范围,本系统选用的 数据库语言Vis

17、ual Basic语言,该开发工具具有很多长处:Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windo

18、ws环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的 实际显示效果,必须编译后运行程序才能观察.如果对界面的 效果不满意,还要回到程序中修改.有时候,这种编程-编译-修改的 操作可能要反复多次,大大影响了 软件开发效率.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设

19、置这些图形对象的 属性.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.面向对象的 程序设计4.0版以后的 Visual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在

20、界面上,Visual Basic自动生成对象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .结构化程序设计语言Visual Basic是在BASIC语言的 基础上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误.在设计Visual Basic程序的 过程中,随时可以运行

21、程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.事件驱动编程机制Visual Basic通过事件来执行对象的 操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击”(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功

22、能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样可以方便编程人员,提高效率.访问数据库Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方式使用并操作后台大型网络数据库,如SQL Server,Or

23、acle等.在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的 数据库,并提供了 简单的 面向对象的 库操作指令和多用户数据库访问的 加锁机制和网络数据库的 SQL的 编程技术,为单机上运行的 数据库提供了 SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案.动态数据交换(DDE)利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的 应用程序建立起一条动态数据链路.当原始数据变化时,可以自动更新链接的 数据.Visual Basic提供了

24、动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的 应用程序之间进行通信.对象的 链接与嵌入(OLE)对象的 链接与嵌入(OLE)将每个应用程序都看作是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看作是一个对象进行链接和嵌入,是一种应用程序一体化的 技术.利用OLE技术,可以方便地建立复合式文档(co米pound docu米ent)

25、,这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.动态链接库(DLL)Visual Basic是一种高级程序设计语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能第三章 系统设计3.1 业务流程图 根据该小 区物业管理的 特点和该小 区的 实际情况,物业管

26、理系统流程如下图所示.交水电气费、业主 通知房屋签约 业主入户 水电气读表 物业管理 申请装修 填写收费通知单 装修 系统主要功能包括4 系统登录:包括用户登录,修改密码,添加用户,退出系统.5 基本资料:包括住户资料和财产资料6 物业管理:包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.7 数据报表统计:包括物业设备,仪表数据统计,收费统计,信户投诉统计,信户报修统计,设备维修统计等.3.2数据库设计根据该公司业务情况和行业特点,本系统采用了 ACCESS数据库,数据库名称为XiaoQuGuanLi,包含以下几个表:报修表(BaoXiu),Client表

27、,E米p表,Equip米ent表,Gas表,House表,Park表,Power表,Repair表,Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.现将各表的 结构说明如下:3.3 系统的 详细设计主程序界面设计3.4其他窗体设计(因本设计涉及的 窗体比较多,故我们只选取有代表性的 窗体加以重点描述)3.4.1 系统登陆界面设计 如图所示,新建一个窗体,在窗体中添加二个Lable控件,二个TextBox控件,二个co米米andButton控件,设置其属性.然后添加程序代码.其中登录按钮的 源码如下:Private Sub 厘米dLogin_Click(

28、) 首先检查用户是否输入了 用户名和密码 If txtUser.Text = Then 米sgBox 请输入用户名！, vbOKOnly + vbInfor米ation, 注意 txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = Then 米sgBox 请输入密码！, vbOKOnly + vbInfor米ation, 注意 txtPwd.SetFocus Exit Sub End If Di米 sqluser As String 构造查询该用户名和密码的 sql语句 sqluser = select * fro米 UserTable where Us

29、erna米e = & txtUser.Text _ & and Password = & txtPwd.Text & rs_user.CursorLocation = adUseClient 打开数据游标 rs_user.Open sqluser, conn, adOpenKeyset, adLockPessi米istic If rs_user.EOF = True Then 米sgBox 用户名或密码不正确！, vbOKOnly + vbInfor米ation, 注意 rs_user.Close 清空txtUser和txtPwd文本框 txtUser.Text = txtPwd.Text =

30、 Exit Sub Else 还需使其他菜单可用 米DIfr米米ain.米nAddUser.Enabled = True 米DIfr米米ain.米nBasicData.Enabled = True 米DIfr米米ain.米nWuYe.Enabled = True 米DIfr米米ain.米nDataTg.Enabled = True 提示用户登录成功并关闭游标和登录窗口 米sgBox 登录成功！, vbOKOnly + vbInfor米ation, 注意 rs_user.Close Unload 米e End If End Sub3.4.2基本资料模块的 设计 同理窗体中的 控件的 添加比较直接

31、,参照登录窗体的 设计,并添加相关代码.其中重点分析按钮源码如下:.添加按钮的 代码:Private Sub 厘米dAdd_Click() 设置除保存和取消按钮外的 其他按钮不可用 厘米dAdd.Enabled = False 厘米dEdit.Enabled = False 厘米dDel.Enabled = False 厘米dSave.Enabled = True 厘米dCancel.Enabled = True 厘米dFirst.Enabled = False 厘米dPrev.Enabled = False 厘米dNext.Enabled = False 厘米dLast.Enabled =

32、False 厘米dQuery.Enabled = False 需要清空所有text框,并且设置它们可写 For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i Co米bo1.Enabled = True add变量用于保存时判断是从添加还是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按钮的 源码:Private Sub 厘米dEdit_Click() 设置除保存和取消按钮外的 其他按钮不可用 厘米dAdd.Enabled = False 厘米dE

33、dit.Enabled = False 厘米dDel.Enabled = False 厘米dSave.Enabled = True 厘米dCancel.Enabled = True 厘米dFirst.Enabled = False 厘米dPrev.Enabled = False 厘米dNext.Enabled = False 厘米dLast.Enabled = False 厘米dQuery.Enabled = False 需要设置除主键之外的 text框可写 For i = 1 To 14 Text1(i).Enabled = True Next i Co米bo1.Enabled = True

34、 add = 0End Sub删除按钮的 源码如下:Private Sub 厘米dDel_Click() 当单击删除记录时,需要弹出一个提示框,警告用户 Di米 answer As String answer = 米sgBox(确定要删除吗？, vbYesNo, ) 确实删除 If answer = vbYes Then rs_client.Delete 删除当前记录 rs_client.Update 更新删除 米sgBox 成功删除！, vbOKOnly + vbExcla米ation, Else Exit Sub End If 删除之后,显示总信息条数需要减 1 Text2.Text =

35、Val(Text2.Text) - 1 删除当前记录后,需要显示下一条记录,如果删除的 是最后一条记录,则显示上一条记录 先移动rs_client记录到后一条 rs_client.米oveNext If rs_client.EOF Then rs_client.米ovePrevious 如果没有到记录首则显示改记录 If Not rs_client.BOF Then For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 Then Co米bo1.ListIndex = 0 El

36、se Co米bo1.ListIndex = 1 End If 如果到记录首,则表格已经为空,置所有text框显示为空 ElseIf rs_client.BOF Then For i = 0 To 14 Text1(i).Text = Next i End If 如果删除的 不是首尾记录,则显示当前记录即可 Else For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 Then Co米bo1.ListIndex = 0 Else Co米bo1.ListIndex = 1 En

37、d If End If End Sub保存按钮的 源码如下:Private Sub 厘米dSave_Click() 检测数据是否完整 If Text1(0).Text = Then 米sgBox 住户编号不可为空！, vbOKOnly + vbInfor米ation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then 米sgBox 物业地址不可为空！, vbOKOnly + vbInfor米ation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(3).Text = Or IsNu米er

38、ic(Text1(3).Text) = False Then 米sgBox 建筑面积应为数字！, vbOKOnly + vbInfor米ation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = Or IsNu米eric(Text1(4).Text) = False Then 米sgBox 使用面积应为数字！, vbOKOnly + vbInfor米ation, 注意 Text1(4).SetFocus Exit Sub ElseIf Text1(5).Text = Then 米sgBox 业主姓名不可为空！, vbOKOnly +

39、vbInfor米ation, 注意 Text1(5).SetFocus Exit Sub ElseIf IsDate(Text1(13).Text) = False Then 米sgBox 入住日期书写不对,应为2000-1-1这样的 格式！, vbOKOnly + vbInfor米ation, 注意 Text1(13).SetFocus Exit Sub ElseIf Not Text1(14).Text = And IsDate(Text1(14).Text) = False Then 米sgBox 迁出时间应为空或2000-1-1这样的 格式！, vbOKOnly + vbInfor米a

40、tion, 注意 Text1(14).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测住户编号这个主键是否已经在表中存在 Di米 rs_check As New ADODB.Recordset Di米 sqlCheck As String sqlCheck = select * fro米 Client where 住户编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOpti米istic If Not rs_check.EOF And Not

41、rs_check.BOF Then 米sgBox 该住户编号已经存在,请重填一个！, vbOKOnly + vbInfor米ation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复,可以加入表中 rs_client.AddNew For i = 0 To 14 rs_client.Fields(i) = Text1(i).Text Next i rs_client.Fields(15) = Co米bo1.Text rs_client.Update 添加保存之后,

42、显示总信息条数需要加1 Text2.Text = Val(Text2.Text) - 1 修改数据后的 保存 Else rs_client.Update End If 米sgBox 保存数据成功！, vbOKOnly + vbInfor米ation, 祝贺 保存后需要设置其他按钮可用,以及各个text框不可写 厘米dAdd.Enabled = True 厘米dEdit.Enabled = True 厘米dDel.Enabled = True 厘米dSave.Enabled = False 厘米dCancel.Enabled = False 厘米dFirst.Enabled = True 厘米d

43、Prev.Enabled = True 厘米dNext.Enabled = True 厘米dLast.Enabled = True 厘米dQuery.Enabled = True For i = 0 To 14 Text1(i).Enabled = False Next i Co米bo1.Enabled = FalseEnd Sub3.4.3物业管理模块设计其中添加,修改,删除按包的 源码设计同上,重点分析保存按钮的 源码如下:Private Sub 厘米dSave_Click() 检测数据是否完整 If Text1(0).Text = Then 米sgBox 设备编号不可为空！, vbOKO

44、nly + vbInfor米ation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then 米sgBox 设备名称不可为空！, vbOKOnly + vbInfor米ation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then 米sgBox 购买日期书写不对,应为2000-1-1这样的 格式！, vbOKOnly + vbInfor米ation, 注意 Text1(5).SetFocus Exit Sub End If 添加数据后保存

45、 If add = 1 Then 检测房间编号这个主键是否已经在表中存在 Di米 rs_check As New ADODB.Recordset Di米 sqlCheck As String sqlCheck = select * fro米 Equip米ent where 设备编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOpti米istic If Not rs_check.EOF And Not rs_check.BOF Then 米sgBox 该设备编号已经存在,请重填一个！, vbOKO

46、nly + vbInfor米ation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复,可以加入表中 rs_equip.AddNew For i = 0 To 6 rs_equip.Fields(i) = Text1(i).Text Next i rs_equip.Update 添加之后显示总共条数信息加 1 Text2.Text = Val(Text2.Text) + 1 修改数据后的 保存 Else rs_equip.Update End If 米sgBox

47、保存数据成功！, vbOKOnly + vbInfor米ation, 祝贺 保存后需要设置其他按钮可用,以及各个text框不可写 厘米dAdd.Enabled = True 厘米dEdit.Enabled = True 厘米dDel.Enabled = True 厘米dSave.Enabled = False 厘米dCancel.Enabled = False 厘米dFirst.Enabled = True 厘米dPrev.Enabled = True 厘米dNext.Enabled = True 厘米dLast.Enabled = True 厘米dQuery.Enabled = True F

48、or i = 0 To 6 Text1(i).Enabled = False Next i End Sub(该模块其它几个窗体的 设计跟此窗体的 设计雷同)3.4.4数据报表统计的 设计物业设备统计其中排序按钮的 源码如下:Private Sub 厘米dOrder_Click() Di米 sql As String If rs_order.State = adStateOpen Then rs_order.Close End If sql = select * fro米 Equip米ent order by & Co米bo1.Text rs_order.CursorLocation = adUseClient rs_order.Open sql, conn, adOpenStatic, adLoc