21号小区物业管理系统论文

1、摘要本文通过用VB21号小区物业管理系统，利用软件工程原理，采用生命周期方法学，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了小区信息数据库的创立及各种费用的收取、统计、汇总。本文还简单介绍了vB6.0软件的界面及操作方法。简要介绍了窗体的制作过程，程序的编写，添加，最后的编译过程。并且表达了作者在软件开发过程中的心得体会。【关键词】：21号小区物业管理系统 物业管理 数据库 统计 汇总AbstractThe summary this text passes and uses VFP 6. 0 writes the administrative system of

2、the property, utilize the soft project principle , adopt the cycle method of the life to study, it develops two respects of main development including setting-up and maintenance and front application program of backstage supporters database , realized the establishment of the information database of

3、 the district and collecting , statistics , gathering of different expenses.This text has also introduced vfp6 briefly. The interface of 0 software and working technique. Having introduced the making course of the form briefly, the writing of the procedure, add , the last course of compiling. And ha

4、s narrated authors gains in depth of comprehension in the course of software development。【Keyword】 : Estate management Database Statistics Gather目录 TOC o 1-3 h z HYPERLINK l _Toc75062597 第一章 引言 PAGEREF _Toc75062597 h 4 HYPERLINK l _Toc75062598 第二章 系统分析 PAGEREF _Toc75062598 h 5 HYPERLINK l _Toc750625

5、99 开发背景 PAGEREF _Toc75062599 h 5 HYPERLINK l _Toc75062600 需求分析 PAGEREF _Toc75062600 h 5 HYPERLINK l _Toc75062601 2.3概要 PAGEREF _Toc75062601 h 7 HYPERLINK l _Toc75062602 2.4 Microsoft Visual Basic软件简介 PAGEREF _Toc75062602 h 7 HYPERLINK l _Toc75062615 第三章 系统设计 PAGEREF _Toc75062615 h 18 HYPERLINK l _To

6、c75062616 3.1业务流程图 PAGEREF _Toc75062616 h 18 HYPERLINK l _Toc75062617 3.2数据库设计 PAGEREF _Toc75062617 h 19 HYPERLINK l _Toc75062618 3.3系统详细设计 PAGEREF _Toc75062618 h 23 HYPERLINK l _Toc75062619 3.4其他窗体详细设计 PAGEREF _Toc75062619 h 24 HYPERLINK l _Toc75062620 3.4.1系统登录界面设计 PAGEREF _Toc75062620 h 25 HYPERL

7、INK l _Toc75062621 3.4.2根本资料模块的设计 PAGEREF _Toc75062621 h 35 HYPERLINK l _Toc75062622 3.4.3物业管理模块的设计 PAGEREF _Toc75062622 h 35 HYPERLINK l _Toc75062623 3.4.4数据报表统计模块的设计 PAGEREF _Toc75062623 h 36 HYPERLINK l _Toc75062623 第四章 主菜单的设计及系统实现. PAGEREF _Toc75062623 h 36 HYPERLINK l _Toc75062624 结 论 PAGEREF _

8、Toc75062624 h 38 HYPERLINK l _Toc75062625 参考文献 PAGEREF _Toc75062625 h 39第一章 引言本软件使用Microsoft Visual Basic进行编写。数据库技术的产生与开展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于20世纪60年代中期。这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的根本思想是对数据实行集中，统一，独立的管理，用户可以最大限度的共享数据资源。数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储

9、在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。数据库的特点：1.实现数据共享 2.实现数据独立3.减少了数据冗余度 4.防止了数据不一致性5.加强了对数据的保护。数据库应用系统DATABASE APPLICATION SYSTEMS DBAS管理信息系统开放式信息效劳系统一个数据库应用系统通常是由数据库和应用程序两局部组成，它们是在数据库管理系统支持下设计和开发出来的。主要表达课题提出背景、目前应用现状、分析开发工具，数据库技术的比较。结合软件工程方法,对系统进行需求分析、功能划分、数据流图设计，并结合数据库原理和功能划分进行ER

10、图的绘制、数据库结构设计。 根据需求分析的结果，用户概念数据模型表示数据及其相互间的联系。 根据需求分析的结果，对系统进行详细设计，总结局部介绍了设计体会和编程体会，并指出了系统设计中的缺乏和改良的方向。在系统开发过程中，为了让程序能够有更深的扩充性，系统遵循一套形成标准的原那么，在实现更加准确和可靠的设计的同时，设计工作也变的高效。系统遵循微软解决方案框架(Microsoft Solutions FrameWork, MSF)。我们将各个功能模块细化即纵向深入。各个子模块根本横向上不发生如何的联系，只有在纵向的联系，这样就是系统的独立性增强，真正能作到编写一次，屡次重用。C/S模式的开发也有

11、肥客户端和瘦客户端之分，本系统只是采用的是肥客户端/瘦效劳器模式开发，但是还是很清楚的将各个功能模块的层次结构表达出来了，为我们以后从事开发工作打下了良好的根底。在开发本系统的过程中，由于本人是在经验、知识、系统分析方面、数据库设计方面都有很多的缺乏，虽然本软件没有很多的实用价值，但是我从中学到了很多的知识，开发工程的流程等。尽管本管理系统存在着很多缺乏，但是它采用了很清晰的模块化设计、模块化编程，但是易于日后程序更新与维护，相信它将对小型企业是一个很好的选者。系统的非功能性需求1用户界面需求简洁、易用、易懂，美观、大方、标准，具备一定的兼容性。2软硬件环境需求软件环境：兼容当前主流操作系统

12、Windows 95/98/NT/Me/2000/XP 等。硬件环境：386以上计算机，打印机、扫描仪等。3软件质量需求易用、健壮、兼容性好、运行稳定、有一定平安保障。 系统标准与标准制定界面设计标准标准的目的是为了标准和统一软件界面设计制定软件界面设计标准与标准。首先考虑标准化，在标准化的根底上进行界面的美工设计。简单易用、简洁明了、兼容性好、标准、标准。界面约定，除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程序内将焦点移出子窗体。编码设计标准与标准，为了在编码过程中，能够快速的、有效的阅读，我们有必要为为对象约定一个标准的编码命名约定。1对象命名约定下面为在编码过程中会

13、用到的对象统一的命名，如下表1.2对象统一的命名所示: 表1.2 对象统一的命名对象名对象类型命名约定前缀码Form窗体FrmCommand按钮CmdLabel标签LabTextBox文本框TxtComboBox组合框ComBListBox列表框LstBAdodb数据库访问对象AdodbDataGrid数据表格显示组件DataGridFrame框架FamOption单项选择框OptCheckBox复选框ChkPictureBox图象显示组件PtBCommonDialog通用对话框组件ComDlgTimer时间组件TimToolBar工具栏TlBarMenu菜单MnuSSTab页框SSTabIm

14、ageList界面资源组件ImgLst常量和变量的命名约定下面为在编码过程中会用到的常量和变量统一的命名，如表1.3所示: 表1.3常量和变量命名约定变量名数据类型变量类型含义UserShenFenString全局变量用户身份标志LogOKBoolean全局变量登陆状态UserNameString全局变量用户名GongYingShangIDString全局变量供给商编号GongYingShangString全局变量供给商名称TuShuBianHaoString全局变量图书编号DingJiaSingle全局变量图书定价ShuMingString全局变量书名HuiYuanKaHaoString全局

15、变量会员卡号HYXingMingString全局变量会员姓名HYDengJiString全局变量会员等级编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。3结构化编码约定凡与数据库操作相关的模块一律加上容错代码，涉及多表操作的模块应该运用“事务处理，以保持数据完整性。编码风格参照下例进行：Public Sub CheckUser(userID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringS

16、creen.MousePointer = 11On Error GoTo errEndIf Right(dbName, 1) 、 Then dbName = dbName + 、dbName = dbName + DataBase、WFSSDataBase.mdbSTRSQL = select 用户身份 from Admin where 用户ID= & userID & and 用户密码= & passwd & 翻开数据库Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)检索用户,验证密码Set userR

17、D = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 设置用户身份 UserShenFen = userRD!用户身份 关闭数据库 Set userRD = Nothing Set userDB = Nothing 进入用户环境 Load FrmMain Unload FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 关闭数据库 Set userRD = Nothing Set userDB =

18、 Nothing logOK = False Screen.MousePointer = vbDefault MsgBox 用户名或密码错误！请重新输入！, vbOKOnly + vbExclamation, 登陆失败End IfExit SuberrEnd： Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 登陆错误 logOK = False 关闭数据库 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub4数据源的

19、约定需用数据源的组件如：DataGrid一律采用Adodb控件。有特殊需求的情况如：身份验证应引用DAO(数据访问对象)。5数据库访问约定数据库引擎采用，由Adodb组件进行数据库的访问，并为其他组件提供数据源。特殊情况、身份验证等由 DAO访问数据库。无需数据显示的情况由DAO提供数据库支持，有数据显示的情况由ADODB组件提供数据库支持。第二章 系统分析随着我国市场经济的快速开展和人们生活水平的不断提高，简单的社区效劳已经不能满足人们的需求。如何利用先进的管理手段，提高物业管理水平，是当今社会所面临的一个重要课题。要想提高物业管理水平，必须全方位地提高物业管理意识。只有高标准、高质量的社区

20、效劳才能满足人们的需求。面对信息时代的挑战，利用高科技手段来提高物业管理无疑是一条行之有效的途径。在某种意义上，信息与科技在物业管理与现代化建设中显现出越来越重要的地位。物业管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。21号小区物业管理系统位于我市北郊，绿化面积1200多平方米，占地面积10000，建筑面积68000多平方米，24小时保安巡逻，环境幽雅、周边配套设施完善，实行封闭式管理，小区现居住约2千人。由于管理面积大，户数多，物业管理范围广，管理内容繁杂，小区物业管理混乱的问题一直无法解决。再者，小区物业管理中一项重要的工作是计算、汇总各项费用，由于费用工程较多，计

21、算方法繁重，手工处理过失率较高。同时查询某房产资料或业主资料往往也需要较长时间，给物业管理者的工作带来了诸多弊端。因此该物业公司决定采用计算机进行物业管理。根据该小区具体情况，该系统在实施后，能够满足对小区住户资料、财产资源统计、小区投诉、装修、维修、等进行管理，能够满足对水、电表抄收、统计、核算、各项费用统计汇总。该系统的实施为小区日后开展奠定了新的台阶。根据该物业的具体情况，系统主要包括以下4个模块：系统登录,根本资料,物业管理,数据报表统计等.2.3需求信息的收集需求信息的收集又称为系统调查。为了充分地了解用户可能提出的要求，在调查研究之前，要做好充分的准备工作，要明确调查的目的、调查的

22、内容和调查的方式。1、调查的目的 首先，要了解一个组织部门的机构设置，主要业务活动和职能。其次，要了解本组织部门的大致工作流程和任务范围划分。这一阶段的工作是大量的和繁琐的。尤其是管理人员缺乏对计算机的了解，他们不知道或不清楚哪些信息对于数据库系统设计者是必要的或重要的，不了解计算机在管理中能起什么作用，做哪些工作。另一方面，数据库系统设计者缺乏对管理对象的了解，不了解管理对象内部的各种联系，不了解数据处理中的各种要求。由于管理人员与数据库系统设计者之间存在着这样的距离，所以需要管理部门和数据库系统设计者更加紧密地配合，充分提供有关信息和资料，为数据库系统的设计打下良好的根底。2、调查的内容外

23、部要求：信息的性质，响应的时间、频度和如何发生的规那么，以及对经济效益的考虑和要求，平安性及完整性要求。业务现状：这是调查的重点，包括信息的种类，信息流程，信息的处理方式，各种业务工作过程和各种票据。组织机构：了解本组织部门内部机构的作用、现状、存在的问题，及是否适应计算机管理。规划中的应用范围和要求。3、调查方式开座谈会；跟班作业；请调查对象填写调查表；查看业务记录、票据；个别交谈。对高层负责人的调查，最好采用个别交谈方式。在交谈之前，应给他们一份详细的调查提纲，以便使他们有所准备。从访问中，可获得有关该组织高层管理活动和决策过程的信息需求、该组织的运行政策、未来开展变化趋势等与战略规划有关

24、的信息。对中层管理人员的访问，可采用开座谈会、个别交谈或发调查表、查看业务记录的方式，目的是了解企业的具体业务控制方式和约束条件、不同业务之间的接口、日常控制管理的信息需求以及预测未来开展的潜在信息要求。对基层操作人员的调查，主要采用发调查表和个别交谈方式来了解每项具体业务的过程、数据要求和约束条件。2.4概要Visual Basic是美国微软公司的第一个编程工具和系统开发的第一个产品，Visual Basic以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广阔用户的偏爱。Visual Basic的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁

25、操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。作为管理信息系统的开发，Visual Basic是一个非常理想选择。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程根底。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放

26、式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。2.5 Microsoft Visual Basic软件简介 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作做作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些那么偏重于可视化程序开发工具所带来

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

28、应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程根底。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(OD

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

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

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

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

33、指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQ

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

35、据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与

36、原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序参加到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能第三章 系统设计3.1 业务流程图 根据该小区物业管理的特点和该小区的实际情况，物业管理系统流程如下列图所示。交水电气费、业主 通知房屋签约 业主入户 水电气读表 物业管理 申请装修 填写收费通知单 装修 系

37、统主要功能包括系统登录：包括用户登录，修改密码，添加用户,退出系统。根本资料：包括住户资料和财产资料物业管理：包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.数据报表统计：包括物业设备,仪表数据统计,收费统计,信户投诉统计,信户报修统计,设备维修统计等.3.21数据库的概念数据库处理在信息系统的研究中一直是非常重要的主题，然而，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速开展，使得数据库技术之时成为最热门技术之一。数据库技术能使Internet应用超越具有早期应用特点的简单的发布。同时，Internet技术提供了一种

38、向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数据库技术的重要性。数据库的设计和开发及包括艺术有包括工程。理解用户的需求，然后，把它们转变为有效的数据库设计是一个艺术过程。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用，是一个工程过程。数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单、顾客、工作、员工、学生、 之类的项，或其它数据量较大、需要密切关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet的数据库或用于公司内联网的数据库。数据库也被越来越多地应用于生成和维护多媒体应用

39、程序上。计算机的数据处理应用，首先要把大量的信息以数据形式存放在存储器中。存储器的容量、存储速率直接影响到数据管理技术的开展。从1956年生产出第一台计算机到现在，存储器的开展，为数据库技术提供了良好的物质根底。使用计算机以后，数据处理的速度和规模，无论是相对于手工方式，还是机械方式，都有无可比较的优势。通常在数据处理中，计算是比较简单的而数据的管理却比较复杂。数据管理是指数据的收集、整理、组织、存储、维护、检索、传送等操作，这局部操作是数据处理业务的根本环节，而且是任何数据处理业务中必不可少的共有局部。数据管理技术的优劣，将直接影响数据处理的效率。数据库在一个信息管理系统中占有非常重要的位置

40、，数据库结构设计的好坏将直接对应用系统的效果产生影响。合理的数据库设计可以提高数据库存储效率，保证数据的完整和一致。同时合理的数据结构也将有利于程序的实现。设计数据库系统时，应该首先了解用户的各个方面的需求，包括现有的以及将来可能增加的。输入处理查找分析输出处理原始输入 筛选后的 查找结果 格式化的输出图2.1 数据流图示创立数据库文件如果操作系统中安装了ACCESS2000的话，可以在开始菜单的程序菜单中可以找到。如下所示：翻开ACCESS2000之后，会开启一个窗口，可选择是翻开以前的数据库文件还是新建一个新的空数据库文件，如果选择空ACCESS数据库，然后点击确定按钮。这些就新建了一个数

41、据库文件。最后一步就是要选择一个要保存数据库文件的名字和位置。点击创立就完成。 怎样创立一个数据表 上面已经讲了如何创立一个数据库文件，按照上面的步骤建立一个数据库文件后，需要在数据库文件中建立一个数据表。在下面的对话框中选使用设计器创立表，上面还有三个按钮，一个是翻开，一个是设计，一个是新建，点击设计，就可以开始设计数据表了。 出现设计的界面后，就可以开始设计数据表了！3.2.4 VB连接ACCESS2000数据库用vb编写一个管理软件，如果不能连接数据库，那也没有什么用处。先看看VB是如何与ACCESS2000数据库相连接的。Sub ConnStr()连接数据库Set conn = Cre

42、ateObject(ADODB.Connection) 建立数据库连接对像DBpath = App.Path & & data.mdb 设置数据的路径conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & DBpath 翻开数据库连接Set rs = CreateObject(ADODB.Recordset) 设置数据库对像End Sub上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用

43、变量。声明公用变量的方法如下：Public connPublic rs上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。3.2.5数据库设计数据库设计的好坏，直接关系到整个程序的好坏，数据库的结构是否合理，能不能满足现有的要求，今后系统的升级过程中是不是方便，能不能把数据库的结构直接移植到其它的数据库中使用，比方把ACCESS数据库的结构直接导入SQL Server中能不能直接使用，是不是还要修改程序等等。这些都是非常重要的，本系统的数据库设计比较合理，而不是非常合理，

44、因为每一个程序都可能有错误，有一位程序设计大师说过一句话，没有BUG错误的程序，那不叫程序！下面列出数据库中的每一个表，包括表中的字段的含意。根据该公司业务情况和行业特点，本系统采用了ACCESS数据库，数据库名称为XiaoQuGuanLi,包含以下几个表：报修表(BaoXiu)，Client表，Emp表，Equipment表，Gas表,House表,Park表,Power表,Repair表,Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.现将各表的结构说明如下:3.3 系统的详细设计主程序界面设计(因本设计涉及的窗体比较多,故我们只选取有代表性的窗体

45、加以重点描述) 系统登陆界面设计 如下图,新建一个窗体,在窗体中添加二个Lable控件，二个TextBox控件,二个commandButton控件,设置其属性。然后添加程序代码。其中登录按钮的源码如下:Private Sub cmdLogin_Click() 首先检查用户是否输入了用户名和密码 If txtUser.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf txtPwd.Text = Then MsgBox 请输入密码！, vbOKOnly + vbInformation, 注意 Exit

46、Sub End If Dim sqluser As String 构造查询该用户名和密码的sql语句 sqluser = select * from UserTable where Username = & txtUser.Text _ & and Password = & txtPwd.Text & rs_user.CursorLocation = adUseClient 翻开数据游标 rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox 用户名或密码不正确！

47、, vbOKOnly + vbInformation, 注意 清空txtUser和txtPwd文本框 txtUser.Text = txtPwd.Text = Exit Sub Else 还需使其他菜单可用 MDIfrmMain.mnAddUser.Enabled = True MDIfrmMain.mnBasicData.Enabled = True MDIfrmMain.mnWuYe.Enabled = True MDIfrmMain.mnDataTg.Enabled = True 提示用户登录成功并关闭游标和登录窗口 MsgBox 登录成功！, vbOKOnly + vbInformat

48、ion, 注意 Unload Me End If End Sub根本资料模块的设计 同理窗体中的控件的添加比较直接,参照登录窗体的设计,并添加相关代码.其中重点分析按钮源码如下:。添加按钮的代码：Private Sub cmdAdd_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enab

49、led = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要清空所有text框，并且设置它们可写 For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i Combo1.Enabled = True add变量用于保存时判断是从添加还是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按钮的源码:Private Sub cmdEdit_Cli

50、ck() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要设置除主键之外的text框可写 For i = 1 To 14 T

51、ext1(i).Enabled = True Next i Combo1.Enabled = True add = 0End Sub删除按钮的源码如下:Private Sub cmdDel_Click() 当单击删除记录时，需要弹出一个提示框，警告用户 Dim answer As String answer = MsgBox(确定要删除吗？, vbYesNo, ) 确实删除 If answer = vbYes Then rs_client.Delete 删除当前记录 rs_client.Update 更新删除 MsgBox 成功删除！, vbOKOnly + vbExclamation, El

52、se Exit Sub End If 删除之后，显示总信息条数需要减 1 Text2.Text = Val(Text2.Text) - 1 删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，那么显示上一条记录 先移动rs_client记录到后一条 If rs_client.EOF Then 如果没有到记录首那么显示改记录 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 Combo1.ListInd

53、ex = 0 Else Combo1.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 Combo1.ListIndex = 0 Else Combo1.ListIn

54、dex = 1 End If End If End Sub保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 住户编号不可为空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 物业地址不可为空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(3).Text = O

55、r IsNumeric(Text1(3).Text) = False Then MsgBox 建筑面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = Or IsNumeric(Text1(4).Text) = False Then MsgBox 使用面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Text1(5).Text = Then MsgBox 业主姓名不可为空！, vb

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

57、Information, 注意 Text1(14).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测住户编号这个主键是否已经在表中存在 Dim sqlCheck As String sqlCheck = select * from Client where 住户编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox 该住户编

58、号已经存在，请重填一个！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 主键不重复，可以参加表中 For i = 0 To 14 rs_client.Fields(i) = Text1(i).Text Next i 添加保存之后，显示总信息条数需要加1 Text2.Text = Val(Text2.Text) - 1 修改数据后的保存 Else End If MsgBox 保存数据成功！, vbOKOnly + vbInformation, 祝贺 保存后需要设置其他按钮可用，以及各

59、个text框不可写 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 14 Text1(i).Enabled = False Next i Combo1.E

60、nabled = FalseEnd Sub物业管理模块设计其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 设备编号不可为空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 设备名称不可为空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub