小区物业管理系统

小区物业管理系统设计本文通过用VB6.0编写小区物业管理系统，利用软件工程原理，采用生命周期方法学，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了小区信息数据库的创建及各种费用的收取、统计、汇总。本文还简单介绍了vB6.0软件的界面及操作方法。简要介绍了窗体的制作过程，程序的编写，添加，最后的编译过程。并且叙述了作者在软件开发过程中的心得体会。本系统可以实现如下功能：1．系统登录：包括用户登录，修改密码，添加用户,退出系统。1．基本资料：包括住户资料和财产资料信息管理2．物业管理：包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.3．数据报表统计：包括物业设备,仪表数据统计,收费统计,住户投诉统计,住户报修统计,设备维修统计等.本系统投入使用后，改变了以往小区物业管理过程中的手工操作方式，提高了小区物业管理的效率，起到了良好的社会效果和经济效益。关键词：小区物业管理数据库统计汇总目录TOC\o"1-5"\h\z第一章引言3第二章系统分析42.1开发背景42.2需求分析42.3概要52.4MicrosoftVisualBasic6.0软件简介5第三章系统设计113.1业务流程图113.2数据库设计113.3系统详细设计153.4其他窗体详细设计163.4.1系统登录界面设计183.4.2基本资料模块的设计243.4.3物业管理模块的设计263.4.4数据报表统计模块的设计错误!未定义书签。第四章主菜单的设计及系统实现.错误!未定义书签。结论29第一章引言本软件使用MicrosoftVisualBasic6.0进行编写。数据库技术的产生与发展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于20世纪60年代中期。这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的基本思想是对数据实行集中，统一，独立的管理，用户可以最大限度的共享数据资源。数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。数据库的特点：1.实现数据共享2.实现数据独立3.减少了数据冗余度4.避免了数据不一致性5.加强了对数据的保护。数据库应用系统(DATABASEAPPLICATIONSYSTEMSDBAS)1．管理信息系统2．开放式信息服务系统一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。第二章系统分析2.1开发背景随着我国市场经济的快速发展和人们生活水平的不断提高，简单的社区服务已经不能满足人们的需求。如何利用先进的管理手段，提高物业管理水平，是当今社会所面临的一个重要课题。要想提高物业管理水平，必须全方位地提高物业管理意识。只有高标准、高质量的社区服务才能满足人们的需求。面对信息时代的挑战，利用高科技手段来提高物业管理无疑是一条行之有效的途径。在某种意义上，信息与科技在物业管理与现代化建设中显现出越来越重要的地位。物业管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。2.2需求分析某小区位于我市西郊，绿化面积1200多平方米，占地面积100000，建筑面积680000多平方米，24小时保安巡逻，环境幽雅、周边配套设施完善，实行封闭式管理，小区现居住约2万人。由于管理面积大，户数多，物业管理范围广，管理内容繁杂，小区物业管理混乱的问题一直无法解决。再者，小区物业管理中一项重要的工作是计算、汇总各项费用，由于费用项目较多，计算方法繁重，手工处理差错率较高。同时查询某房产资料或业主资料往往也需要较长时间，给物业管理者的工作带来了诸多弊端。因此该物业公司决定采用计算机进行物业管理。根据该小区具体情况，该系统在实施后，能够满足对小区住户资料、财产资源统计、小区投诉、装修、维修、等进行管理，能够满足对水、电表抄收、统计、核算、各项费用统计汇总。该系统的实施为小区日后发展奠定了新的台阶。根据该物业的具体情况，系统主要包括以下4个模块：系统登录,基本资料,物业管理,数据报表统计等.2.3概要VisualBasic是美国微软公司的第一个编程工具和系统开发的第一个产品，VisualBasic以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广大用户的偏爱。VisualBasic的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。作为管理信息系统的开发，VisualBasic是一个非常理想选择。VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。2.4MicrosoftVisualFoxPro6.0软件简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作做作企业级开发工具的产品有：Microsoft公司的VisualBasicMicrosoft公司的VisualCBorland公司的DelphiPowersoft公司的PowerBuliderTA/rA/rJava等等在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，VisualBasic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言VisualBasic语言，该开发工具具有很多长处：VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，VisualBasic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。VisualBasic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。VisualBasic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的VisualBasic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VisualBasic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE),脱离VisualBasic环境，直接在Windows环境下运行。事件驱动编程机制VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用VisualBasic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数据存储和检索功能。同时，VisualBasic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。VisualBasic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQLServer，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)动态数据交换(DDE)利用动态数据交换(DynamicDataExchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。VisualBasic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略,它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compounddocument)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)VisualBasic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到VisualBasic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能第三章系统设计3.1业务流程图根据该小区物业管理的特点和该小区的实际情况，物业管理系统流程如下图所示。系统主要功能包括4．系统登录：包括用户登录，修改密码，添加用户,退出系统。5．基本资料：包括住户资料和财产资料6．物业管理：包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.7．数据报表统计：包括物业设备,仪表数据统计,收费统计,信户投诉统计,信户报修统计,设备维修统计等.3.2数据库设计根据该公司业务情况和行业特点，本系统采用了ACCESS数据库，数据库名称为XiaoQuGuanLi，包含以下几个表：报修表

(BaoXiu),Client表，Emp表，Equipment表，Gas表,House表，Park表，Power表，Repair表，Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.现将各表的结构说明如下:HBaoXiu:表宇段名称丨数据奏車艮修褊号I艮修褊号I祁憾乍户切业地址问*热半本丰本丰木丰水一4水丰文曰文文文文文立文宝文文文EH1住厂■爲=■..■问*热半本丰本丰木丰水一4水丰文曰文文文文文立文宝文文文EH1住厂■爲=■..■•-.-it4^-忧业地址房型估币面和片1卜■丰姊卓工作車忖月於ilEU立去卄It艮讦匹本祖行巾r.=A'LLH-J1^曰期/旳问狂岀时问SL虽性别您本手段名称HClient:sfeEmpnit圭立丰曰wj/fftra；＞-I■-立皋；＞-I■-立皋曰期/时冋

|SEquipment:表宇段名称数据类型1”股备編号立本设备名称文本型号立本品牌文本所厘部门文本购丟日期日期/■时间爭故记录立本Gas;丟■75字:段名称救据类型|lip志湍■“立本干1芬毅丁M饶丄月甜3S木月数居.*.n帀母遊!〒木口费屯热字上门抄表曰RJ]BHJl/HJfS]圭H枠亦曰刚曰翩/■时间7K月立至II期IIH^/riTlnJ办affi人jfc丰@House:羡物业地址注坑苗积使屯IE积早价总们扶丰蟒汨蛰江是百己出古SPark:表字段名新数据类型”文本车住位叠文本停车住户文本物业地址文本开赠日期文本截止日期文本备注文本物业地址&備M悄I冃srttt本月数更^K.H.HJM单茴-K口费屯上门抄衣曰W1.车月抄表曰期主M佥彷Id朋肃.却A

数据类型Jil-I-'更•车.魏-r教-r曰期/旳问曰期/时间曰期/■时间曲TOUSU5箱?►数堆翌型授诉曰期接侍人耳授诉住户忱业地址电话处理曰期处理人耳授诉I勺吉处理怙况SHfl/NA[aUserTable:[aUserTable:表字段名称数据类型l.rEern：aTie文本FasEfford文本Trueri：irie文本Regtims日期/时间raWater:表宇理名称便表髓日件尸畔名物业鈕ill匚m冃苗I冃对栢丞月数据在冃用甲单悄主冃带用I冃1WI|HH主冃评再IIKH主冃研带IIHH古理厂

数据类型立去P壬P壬日期/吋「口I日期/吋「口I日期/吋「口IraWuYeFee:去EK费褊号1住F姓皆物业1也|止年怕上1怕收费顶目收费力式应收总颤已鱼瓮飯空奚n即柿坪A宇段名称数据类型YIBmoFee;表宁=段名飾数站类型1它*5T7V生户姓呂文卒厠业确址女i-教〒.H忻姿仔枝费顶日乂卒吆彷'片£y*问竿巾巴立筮額数字X费圣颔数丁交畏曰朋曰翩丿时间旳■注木岳注文皋3.3系统的详细设计主程序界面设计

3.4其他窗体设计（因本设计涉及的窗体比较多,故我们只选取有代表性的窗体加以重点描述）3.4.1系统登陆界面设计鄧用户登录用戶名：密玛：登录I职消重埴I如图所示,新建一个窗体,在窗体中添加二个Lable控件，二个TextBox控件,二个commandButton控件,设置其属性。然后添加程序代码。其中登录按钮的源码如下:PrivateSubcmdLogin_Click()'首先检查用户是否输入了用户名和密码IftxtUser.Text=""ThenMsgBox"请输入用户名！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"txtUser.SetFocusExitSubElseIftxtPwd.Text=""ThenMsgBox"请输入密码！",vbOKOnly+vbInformation,txtPwd.SetFocusExitSubEndIfDimsqluserAsString'构造查询该用户名和密码的sql语句sqluser="select*fromUserTablewhereUsername='"&txtUser.Text_&"'andPassword='"&txtPwd.Text&"'"rs_user.CursorLocation=adUseClient'打开数据游标rs_user.Opensqluser,conn,adOpenKeyset,adLockPessimisticIfrs_user.EOF=TrueThenMsgBox"用户名或密码不正确！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"rs_user.Close'清空txtUser和txtPwd文本框txtUser.Text=""txtPwd.Text=""ExitSubElse'还需使其他菜单可用MDIfrmMain.mnAddUser.Enabled=TrueMDIfrmMain.mnBasicData.Enabled=TrueMDIfrmMain.mnWuYe.Enabled=True

MDIfrmMain.mnDataTg.Enabled=True'提示用户登录成功并关闭游标和登录窗口MsgBox"登录成功！",vbOKOnly+vbInformation,〃、亠W-〃"注意"rs_user.CloseUnloadMeEndIfEndSub3.4.2基本资料模块的设计同理窗体中的控件的添加比较直接,参照登录窗体的设计,并添加相关代码.其中重点分析按钮源码如下:。添加按钮的代码：PrivateSubcmdAdd_Click()'设置除保存和取消按钮外的其他按钮不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要清空所有text框，并且设置它们可写Fori=0To14Text1(i).Text=""Text1(i).Enabled=TrueNextiCombo1.Enabled=True'add变量用于保存时判断是从添加还是修改后保存add=1Text1(0).SetFocusText1(13).Text=DateEndSub修改按钮的源码:PrivateSubcmdEdit_Click()'设置除保存和取消按钮外的其他按钮不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要设置除主键之外的text框可写Fori=1To14Text1(i).Enabled=TrueNextiCombo1.Enabled=Trueadd=0EndSub删除按钮的源码如下:PrivateSubcmdDel_Click()'当单击删除记录时，需要弹出一个提示框，警告用户DimanswerAsStringanswer=MsgBox("确定要删除吗？",vbYesNo,"")'确实删除Ifanswer=vbYesThenrs_client.Delete'删除当前记录rs_client.Update'更新删除MsgBox"成功删除！",vbOKOnly+vbExclamation,""ElseExitSubEndIf'删除之后，显示总信息条数需要减1Text2.Text=Val(Text2.Text)-1'删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录'先移动rs_client记录到后一条rs_client.MoveNextIfrs_client.EOFThenrs_client.MovePrevious'如果没有到记录首则显示改记录IfNotrs_client.BOFThenFori=0To14Text1(i).Text=rs_client.Fields(i)NextiIfrs_client.Fields(15)="男"ThenCombo1.ListIndex=0ElseCombo1.ListIndex=1EndIf'如果到记录首，则表格已经为空，置所有text框显示为空ElseIfrs_client.BOFThenFori=0To14Text1(i).Text=""NextiEndIf'如果删除的不是首尾记录，则显示当前记录即可ElseFori=0To14Text1(i).Text=rs_client.Fields(i)NextiIfrs_client.Fields(15)="男"ThenCombo1.ListIndex=0ElseCombo1.ListIndex=1EndIfEndIfEndSub保存按钮的源码如下:PrivateSubcmdSave_Click()'检测数据是否完整IfText1(0).Text=""ThenMsgBox"住户编号不可为空！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"Text1(0).SetFocusExitSubElseIfText1(1).Text=""ThenMsgBox"物业地址不可为空！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"Text1(1).SetFocusExitSubElseIfText1(3).Text=""OrIsNumeric(Text1(3).Text)=FalseThenMsgBox"建筑面积应为数字！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"Text1(3).SetFocusExitSubElseIfText1(4).Text=""OrIsNumeric(Text1(4).Text)=FalseThenMsgBox"使用面积应为数字！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"Text1(4).SetFocusExitSubElseIfText1(5).Text=""ThenMsgBox"业主姓名不可为空！",vbOKOnly+1TQj•〃、亠〃vbInformation,"注意"Text1(5).SetFocusExitSubElseIfIsDate(Text1(13).Text)=FalseThenMsgBox"入住日期书写不对，应为2000-1-1这样的格式！",vbOKOnly+vbInformation,"注意"Text1(13).SetFocusExitSubElseIfNotText1(14).Text=""AndIsDate(Text1(14).Text)=FalseThenMsgBox"迁出时间应为空或2000-1-1这样的格式！",vbOKOnly+vbInformation,"注意"Text1(14).SetFocusExitSubEndIf'添加数据后保存Ifadd=1Then'检测住户编号这个主键是否已经在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromClientwhere住户编号='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"该住户编号已经存在，请重填一个！",vbOKOnly+vbInformation,"注意"rs_check.CloseText1(0).SetFocusText1(0).Text=""ExitSubEndIfrs_check.Close'主键不重复，可以加入表中rs_client.AddNewFori=0To14rs_client.Fields(i)=Text1(i).TextNextirs_client.Fields(15)=Combo1.Textrs_client.Update'添加保存之后，显示总信息条数需要加1Text2.Text=Val(Text2.Text)-1'修改数据后的保存Elsers_client.UpdateEndIfMsgBox"保存数据成功！",vbOKOnly+vbInformation,"祝贺"'保存后需要设置其他按钮可用，以及各个text框不可写cmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDel.Enabled=TruecmdSave.Enabled=FalsecmdCancel.Enabled=FalsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TruecmdQuery.Enabled=TrueFori=0To14Text1(i).Enabled=FalseNextiCombo1.Enabled=FalseEndSub3.4.3物业管理模块设计X|设备鋼号P00001设备名称I型号X|设备鋼号P00001设备名称I型号呼品牌I三和所JE制门购买日嗣梓用七爭敌记录功皱L覚补储眾•購氓消1关HlI第一衆I篩F后1^7呈后一条押J：厂案记录鼻鑰业设番昔理其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:PrivateSubcmdSave_Click()'检测数据是否完整IfText1(0).Text=""ThenMsgBox"设备编号不可为空！",vbOKOnly+vbInformation,"注意!!Text1(0).SetFocusExitSubElseIfText1(1).Text=""ThenMsgBox"设备名称不可为空！",vbOKOnly+vbInformation,"注意!!Text1(1).SetFocusExitSubElseIfIsDate(Text1(5).Text)=FalseThenMsgBox"购买日期书写不对，应为2000-1-1这样的格式！",vbOKOnly+vbInformation,"注意"Text1(5).SetFocusExitSubEndIf'添加数据后保存Ifadd=1Then'检测房间编号这个主键是否已经在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromEquipmentwhere设备编号='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"该设备编号已经存在，请重填一个！",vbOKOnly+vbInformation,"注意"rs_check.CloseText1(0).SetFocusText1(0).Text=""ExitSubEndIfrs_check.Close'主键不重复，可以加入表中rs_equip.AddNewFori=0To6rs_equip.Fields(i)=Text1(i).TextNextirs_equip.Update'添加之后显示总共条数信息加1Text2.Text=Val(Text2.Text)+1'修改数据后的保存Elsers_equip.UpdateEndIfMsgBox"保存数据成功！",vbOKOnly+vbInformation,"祝贺"'保存后需要设置其他按钮可用，以及各个text框不可写cmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDel.Enabled=TruecmdSave.Enabled=FalsecmdCancel.Enabled=FalsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TruecmdQuery.Enabled=TrueFori=0To6Text1(i).Enabled=FalseNextiEndSub(该模块其它几个窗体的设计跟此窗体的设计雷同)3.4.4数据报表统计的设计111上3物业设备统计課物业设备城计T尢择排.序方式排序方式I曾巒iacceJQEO3111上3物业设备统计課物业设备城计T尢择排.序方式排序方式I曾巒iacceJQEO3打冊机塑号1]388k4JS450DF板"rtrinh.咅口其中排序按钮的源码如下:PrivateSubcmdOrder_Click()DimsqlA