区物业理系统
摘
区物业理说工作流程繁杂性样化理复杂收缴费设备维护繁琐
计算机已完全够胜物业理工作更加准确方便快捷高效清晰透明完全克服述足处项目查询理带方便物业理工作带更高效率物业理正规化现代化重标志
开发套高效率差错区物业理系统软件十分必系统目告帐安全快捷保存数信息区物业理涉费问题增强系统保密性业利益受损害业够家物业费投诉等情况提供透明化直观解
关键字:区物业理系统VB
Abstract
As for the plot estate management that its work flow numerous and diverse the diversification the management complex capture the expense and the maintenance of equipment is tedious The computer could definitely be competent the estate management work moreover more accurate convenient quick highly effective clear is transparent above it definitely may overcome the deficiency which states This will give the project inquiry and the management brings very big convenient thus will bring a higher efficiency for the estate management work this also will be the estate management standardization the modernized important symbol
Therefore develops set of high efficiency the non mistake plot estate management system softwares is extremely essential This system main goal is says goodbye to the account book the security the quick preservation data message Because the plot estate management involves to the expense question in order to strengthen the system the secrecy causes the owner benefit not to receive harms enables the owner to situation and so on oneself property expense and suit provides the directviewing understanding
Keyword:The plot property the management system management system VB
目 录
摘 2
Abstract 3
引 言 6
第章 课题背景现状 8
1.1 课题背景 8
1.1.1 理信息系统组成部分 8
1.1.2 信息理务 9
1.1.3 理信息系统特点 10
1.1.4 理信息系统问题 10
1.1.5 信息理开发方法 11
1.1.6 理信息系统济效益评价 12
12国外现状 13
1.2.1 信息理系统产生背景 13
1.2.2 国现MIS系统分析 13
1.2.3 国MIS发展策略 14
第二章 系统规划行性研究 15
2.1初步调查 15
2.1.1 背景现状 15
2.2 开发行性研究 15
2.2.1 技术行性 16
2.2.2 济行性 17
2.2.3 操作行性 18
2.2.4 调度行性 18
2.2.5 硬件配置 18
第三章 系统分析 20
3.1需求分析 20
3.1.1 系统需求功概括 20
3.1.2 系统操作设计容 20
32 功分析 21
3.2.1 系统户理功 21
3.2.2 区住户信息理功 21
3.2.2 区房产信息理功 21
3.2.3 区收费理功 22
第四章 系统总体设计 23
4.1系统总体结构设计 23
42 系统结构图 24
4.3 数库设计 24
第五章 系统详细设计 26
51界面设计功 26
52 户登陆部分 26
53 区住户信息理模块 27
54 房屋信息理模块 30
55 物业收费理模块 33
结束语 37
致 谢 38
参考文献 39
引 言
科学技术日新月异信息化时代计算机基础信息科学济社会生活领域极广泛应尤信息理方面计算机已必少理工具
目前信息已成继劳动力土资资源谁控制信息越谁利信息资源效率越高谁会方面竞争中占席谁会更优势微观讲建立套理信息系统够加快信息周转速度提高生产效率加强理信息化手段提高单位济效益宏观讲应社会信息化社会化潮流加快社会发展速度统计美国信息理理方面80100信息处理计算机完成计划理80—90计算机应发展较快国家中计算机应济理占80科技计算占8生产程控制占12出信息理计算机应领域
种种原国信息资源建设水远远落信息基础设施建设水长期国信息资源开发理未信息资源增长步进行国计算机应西方国家落十年现信息资源开发利已确立国民济信息核心容利现信息基础设施重点开发推广应类科技济等数库网络资源服务系统已取巨社会效益济效益
区物业理说工作流程繁杂性样化理复杂收缴费设备维护繁琐计算机已完全够胜物业理工作更加准确方便快捷高效清晰透明完全克服述足处项目查询理带方便物业理工作带更高效率物业理正规化现代化重标志
开发套高效率差错区物业理系统软件十分必系统目告帐安全快捷保存数信息区物业理涉费问题增强系统保密性业利益受损害系统具仅理员式保密功查询录入修改删物业设备统计等功业够家物业费投诉等情况提供透明化直观解
第章 课题背景现状
1.1 课题背景
理信息系统(MISManagement Information System)计算机等组成进行信息收集传送储存维护系统够实测企业种运行情况利历史数预测未企业全局角度出发辅助企业进行决策利信息控制企业行帮助企业实现规划目标里出定义强调理信息系统功性质强调理信息系统中计算机企业理言种工具理信息系统信息系统重分支30年发展已成具身概念理结构体系开发方法覆盖学科新学科
1.1.1 理信息系统组成部分
概念理信息系统四部件构成:信息源信息处理器信息户信息理者联系图421示 信息源信息产生信息处理器负担信息传输加工保存等务信息户信息者利信息进行决策信息理者负责信息系统设计实现维护
理信息系统般作金字塔形结构分底层业务处理运行控制理控制高层战略计划基层务巨处理繁杂事务信息状态信息构成层次越事务处理范围越针较特殊非结构化问题
组织理信息系统分解四基部分:
(1)EDPS部分完成数收集输入数库理查询基运算日常报表输出等
(2)分析部分EDPS基础数进行深加工运种理模型定量化分析手段程序化方法运筹学方法等组织生产营情况进行分析
(3)决策部分MIS决策模型限解决结构化理决策问题决策结果高层理者提供佳决策方案
(4)数库部分完成数文件存贮组织备份等功数库理信息系统核心部分
信息理者
信息处理器
信息户
信息源
图11 理信息总体结构图
1.1.2 信息理务
理信息系统辅助完成企业日常结构化信息处理务般认MIS务方面:
(1)基础数进行严格理求计量工具标准化程序方法正确信息流通渠道畅点明确进垃圾出垃圾必须保证信息准确性致性
(2)确定信息处理程标准化统数报表标准格式便建立集中统数库
(3)高效低完成日常事务处理业务优化分配种资源包括力物力财力等
(4)充分利已资源包括现历史数信息等运种理模型数进行加工处理支持理决策工作便实现组织目标
1.1.3 理信息系统特点
理信息特点七方面概括:
(1)MIS机结合辅助理系统理决策体计算机系统工具辅助设备
(2)应结构化问题解决
(3)考虑完成例行信息处理业务包括数输入存储加工输出生产计划生产销售统计等
(4)高速度低成完成数处理业务追求系统处理问题效率
(5)目标实现相稳定协调工作环境系统工作方法理模式处理程确定系统够稳定协调工作
(6)数信息成系统运作驱动力信息处理模型处理程直接象数信息保证完整数资料采集系统运作前提
(7)设计系统时强调科学客观处理方法应系统设计符合实际情况
1.1.4 理信息系统问题
理信息系统开发复杂系统工程涉计算机处理技术系统理组织结构理功理知识等方面问题没种统完备开发方法种开发方法遵循相应开发策略种开发策略明确问题:
(1)系统解决问题采取种方式解决组织理信息处理方面问题企业提出新理需求该满足等
(2)系统行性研究确定系统实现目标通企业状况初步调研出现状分析结果然提出行性方案进行证系统行性研究包括目标方案卸行性技术行性济方面行性社会影响方面考虑
(3)系统开发原系统开发程中遵循领导参优化创新实高效处理规范化原
(4)系统开发前准备工作作开发员组织准备企业基础准备工作
(5)系统开发方法选择开发计划制定针确定开发策略选定相应开发方法结构化系统分析设计方法选择原型法面象方法开发计划制定明确系统开发工作计划投资计划工程进度计划资源利计划
MIS开发方法:结构化生命周期开发方法原型法面象开发方法等
1.1.5 信息理开发方法
(1)结构化生命周期开发方法
目前较流行MIS开发方法结构化生命周期开发方法基思想:系统思想系统工程方法户原结构化模块化生命周期进行分析设计
结构化生命周期开发方法开发系统整开发程划分五次连接阶段:
① 系统规划阶段务明确系统开发请求进行初步调查通行性研究确定阶段实施系统规划方法战略目标集转化法(SSTStrategy Set Transformation)关键成功素法(CSFCritical Success Factors)企业规划法(BSPBusiness System Planning)
② 系统分析阶段务组织结构功进行分析理清企业业务流程数流程处理企业业务流程数流程抽象化通功数分析提出新系统逻辑方案
③ 系统设计阶段务确定系统总体设计方案划分子系统功确定享数组织然进行详细设计处理模块设计数库系统设计输入输出界面设计编码设计等该阶段成果阶段实施提供编程指导书
④ 系统实施阶段务讨确定设计方案系统模块进行调试进行系统运行需数准备相关员进行培训等
⑤ 系统运行阶段务进行系统日常运行理评价系统运行效率运行费效果进行监理审计出现问题系统进行修改调整
五阶段构成系统开发生命周期结构化生命周期开发方法严格区分开发阶段非常重视文档工作开发程中出现问题时纠正避免出现混乱状态该方法避免出现开发周期长系统预算超支情况开发程中户需求旦发生变化系统难作出调整
(2)原型法 原型法系统开发程中少应原型法基思想系统开发员户需求理解通强力软件环境支持构造出实系统原型然户协商反复修改原型直户满意 原型法应需求渐进认识系统开发更针性外原型法应充分利新软件工具系统开发效率提高
(3)面象系统开发方法 面象系统开发方法(OOObject Oriented)年受关注种系统开发方法面象系统开发方法基思想客观世界抽象成干相互联系象然根象方法特性研制出套软件工具够映射计算机软件系统结构模型进程实现信息系统开发
1.1.6 理信息系统济效益评价
理信息系统效益评价分直接济效益评价间接济效益评价
1直接济效益评价 直接济效益评价指企业运行MlS计算机理节约开支企业MIS实施程中次性投资(包括软件硬件投资)折旧运行费相较结果
2间接济效益评价 间接济效益评估指企业运行MIS提高理效率方面数集中理方面建立网络系统数享数传递时性准确性方面实现实时定量理方面提高企业竞争力带效益评价
12国外现状
1.2.1 信息理系统产生背景
行业少理员孤立数处理计算机造成种法原数处理信息服务员愿容易计算机户理解语言户进行交流理员种交流缺乏兴趣力导致延缓计算机系统开发许方面助长守冗余劳动现象
户信息服务员交流方面没单位做善美确某单位已取较成功验户信息服务员配合默契单位认:种成功原户已掌握计算机信息资源理方面基知识见户理员掌握方面知识非常必诚然信息服务专业员具备方面知识户理员获知识必须通正规学阅读实践
妥善处理户信息服务员间关系加强双方互相配合建立维护高质量信息系统方必须尊重方意愿系统质量优劣直接户信息服务员间互相配合坏成正
1.2.2 国现MIS系统分析
愿意掌握关计算机信息理反面基知识户理员必成落伍者特前种鼓励户直接参信息系统开发程发展趋势户理员程度信息服务员推荐开发实现需信息系统鉴信息服务需断发展变化现鉴提高系统责留户理应户更参信息系统开发种趋势早70年代中期开始时断发展现已进入信息服务员户合作时代户更解想信息系统中什
户参信息资源理(IRM)典型事例表现分布式数处理(DDP)方面方面户仅参加系统开发负责理系统运行需硬件设备员
1.2.3 国MIS发展策略
直年认识:信息种资源必须种价值资源加利白白浪费掉竞争激烈环境里理员必须效利信息然难立足败理员仅仅计算机成省钱工具现计算机成创造利润工具公司量尚未发掘利计算机信息资源潜力发掘种潜力需具计算机信息处理知识水数理员力
第二章 系统规划行性研究
2.1初步调查
物业理公司作房产开发公司附属单位担负着整区家户繁杂服务承载着开发商信誉重务物业理业务复杂性加智化区概念引入物业理逐渐趋信息化高效率化
海许物业理公司已引入物业理信息系统通计算机网络专业软件物业实施时规范高效理引入该系统住户档案电脑理通水电煤气设置读数装置实现远程动抄表减少业麻烦服务中心接业报修会立刻出工程部报修单提高日常维修服务质量月电脑会动项费汇总印出统收费通知节省物业理公司力物力投入降低成
2.1.1 背景现状
目前国家建设部房产业司已否计算机进行理列入物业理公司评定级项目中举推动物业理信息系统发展沪中海古北万科卓越永业西部金桥船舶厦魏理仕香港广场太洋中心华厦等200家物业理公司已部分全部某理楼盘引入物业理信息系统着生活水提高房产业断完善型房产企业结构(图21)中物业理部门结构(图22)成中细化物业理部门成业户零距离接触终端部门物业理系统作繁重手工工作变简单化够业户物业解更加透明化
2.2 开发行性研究
行性分析(Feasibility Analysis)称行性研究系统调查基础针新系统开发否具备必性性新系统开发技术济社会方面进行分析研究避免投资失误保证新系统开发成功行性研究目代价短时间确定问题否够解决
2.2.1 技术行性
区物业理系统采前流计算结构模式进行开发前台开发工具选Microsoft Visual Basic 60Microsoft Visual Basic 60种视化面象Windows开发语言Microsoft Visual Basic 60具易通开发效率高特点台数库开发工具选Access 2000够处理量数时保持数完整性提供许高级理数分配功两种开发工具功强较接口作系统开发工具行
(1) Visual Basic 60简介
Visual Basic(简称VB)Microsoft公司开发种通基象程序设计语言VB60WIN98配合1998年推出进步加强数库Internet创建控件方面功VB开发媒体数库网络图形等方面应程序数访问特性允许包括 Microsoft SQL Server 企业数库部分数库格式建立数库前端应程序调整服务器端部件VB中提供量控件控件帮助设计界面实现功减少编程员麻烦提高编程效率性选择Visual Basic 60作套系统开发环境
(2)面象编程概念
面象程序设计(ObjectOriented Programming简记OOP)Visual Basic60诞生基础OOP立意创建软件重代码具备更模拟现实世界环境力公认编程优胜者通程序中加入扩展语句函数封装进Windows编程必需象中面象编程语言复杂工作条理清晰编写容易说场革命象身言处理工作力言象传统程序设计编程方法兼容部分面象反会情形更糟非整开发环境面象否象产生处没带麻烦Visual Basic60完全面象Visual Basic60成种触手促进软件重开发工具具强吸引力
(3)Access简介
AccessOffice办公套件中极重组成部分刚开始时微软公司Access单独作产品进行销售Office 97开始Access捆绑中成Office套件中重成员现已成Office办公套件中缺少部件Microsoft 公司Access 95 基础陆续推出 Access 97Access 2000成世界流行桌面数库理系统
Access种关系型数库理系统存储理数编写数库理软件户通Access提供开发环境工具方便构建数库应程序部分直观视化操作需编写程序代码种方便功较强数库开发工具
2.2.2 济行性
着计算机技术飞速发展计算机企业理中应普利计算机实现企业事理势必行21世纪充满竞争挑战世纪世纪中高效化系统化规范化动化已成现代企业代名词做国支柱产业房产业智化区发展驱动信息时代推动拥套特色区物业理系统非常必区繁硬件设施相较传统手工式理方式已法适合庞数处理精确运算需求套精美完善区物业理系统提高工作效率节省力物力效解决方案传统理方式物业理员求数量耗资高错误率高工作员流动新培训费开支套完善区物业理系统持续着时代工作需求断更新期投入终身受长期计算开发系统造价均年传统式理方式年耗资相性价行开发套系统济行性高
2.2.3 操作行性
套区物业理系统言投入前会开发熟练操作系统工程员户群进行专业系统培训培训容应包括熟练掌握系统功简单系统维护开发设计程序程中直观界面控件文字解释完全户充分理解起功意义计算机普天户系统操作完全做种简单配合形式手工操作系统适合微型机说理系统操作完全行
2.2.4 调度行性
调度行性指建议计算机系统否规定期限交付户合规定否预期交付涉开发员信誉等等开发期限选定非常重素根区物业理日常正常业务运作规律工作性质出容时常见工作开发员开发起较容易入手判断开发系统周期较短开发中预见问题会较容易解决开发组分析应该容易做出相准确误差微开发期限应该规定时间快速完整交付户
2.2.5 硬件配置
(1) 硬件设备操作系统
①服务器:Pentium4配置高性PC机存应256M硬盘40G确认该计算机已安装数库软件Microsoft Visual Basic 60软件
②操作系统:Windows 9xMeWindows 2000Windows XPWindows NT分辨率:1024*768
③客户端:Pentium233(相CPU)配置PC机存应32M硬盘1GWindows 9x操作系统确认已安装BDE
(2) 开发台前台开发工具:Microsoft Visual Basic 60
①前台开发工具:Microsoft Visual Basic 60
②台数库:Access 2000
第三章 系统分析
3.1需求分析
3.1.1 系统需求功概括
调研行性分析出生活住房考虑设计套区物业理系统系统考虑区物业理普遍求区物业理系统包括:
(1) 区房屋资料录入增删改查询等功实现基区房产资源区进行理
(2) 区住户详细资料理包括增删改查询等功实现区基资源毕竟物业理针区住户言
(3) 具基资料信息需实现实质性物业理理业务包括:物业设备理仪表(水电宽带)数理收费理住户投诉理障理等成区物业理体
样便物业公司区进行全面解理
3.1.2 系统操作设计容
根操作需研究设计容:
(1) 模块功研究设计:量采物业理部门中现软硬件环境先进理系统开发方案达充分利现资源提高系统开发水应效果目系统应完全符合物业理员业户理规定满足房产信息住户信息等工作需达操作程中直观方便实安全等求通调研情况进行需求分析进行模块划分功界定模块具体理流程进行控制编码实现
(2) 良数系统设计:区物业理系统应充分具备数库维护功时根户需求数库中信息进行添加删修改等操作
(3) 完备信息查询统计:满足理决策工作需查询基础应具备定统计功
(4) 期维护:开发区物业理系统应采模块化程序设计方法收便系统功种组合修改便未参开发技术维护员补充维护效果
信息理系统进行基需求分析系统实现基功整系统全部需求系统断出现新需求需系统日中通系统更新维护实现样系统断完善功更加强户交互性更强
32 功分析
3.2.1 系统户理功
(1) 系统户添加包括户名密码信息
3.2.2 区住户信息理功
(1) 住户基信息录入包括住户电话住户姓名物业址身份证号入住时间等信息
(2) 住户基信息修改
(3) 住户基信息删
(4) 住户基信息查询
3.2.2 区房产信息理功
(1) 房产基信息录入包括物业址面积房屋结构设备出售信息等信息
(2) 房产基信息修改
(3) 房产基信息删
(4) 房产基信息查询
3.2.3 区收费理功
(1) 中包括物业收费仪表收费两类信息录入包括收费住址水费电费宽带费物业理费收费时间等信息
(2) 收费基信息修改
(3) 收费基信息删
(4) 收费基信息查询
3.2.4 区住户障处理理功
(1) 住户报修基信息录入包括住址报修障办处理时间查询等信息
(2) 住户障基信息修改
(3) 住户障基信息删
(4) 住户障基信息查询
3.2.5 退出
退出区物业理系统
第四章 系统总体设计
4.1系统总体结构设计
区物业理系统部分实体ER图示
区住户基信息实体
住户姓名
入住时间
住户电话
物业址
……
图41 住户基信息实体ER图
区房产基信息实体积
出售信息
物业址
房屋结构
面积
……
图42 房产基信息实体ER图
障基信息实体
住 址
报修障
处理时间
办
……
图43 住户投诉基信息实体ER图
42 系统结构图
区物业理系统
系统设置
基信息理
信息查询
障处理
退出系统
添加户
住户理
房屋理
收费理
收费信息
住户信息
房屋信息
障查询
障处理
4.3 数库设计
(1) 户表
户表存放登陆系统需户名密码需访问表
表41 户表
字段名
数类型
否空
户名(键)
Char(10)
NOT NULL
密码
Int
NOT NULL
(2) 住户基信息表
住户表存放区住户信息信息区物业理基信息实现系统功中起真非常重作
表42 住户基信息表表
字段名
数类型
否空
住址(键)
Char(10)
NOT NULL
户
Char(10)
NOT NULL
身份证号码
Varchar(50)
NOT NULL
电话
Char(20)
NULL
入住时间
Datetime
NULL
(3) 房屋基信息
房产表存放区房屋信息中包括已售出房屋未售出房屋
表43 房屋基信息表
字段名
数类型
否空
住址(键)
Char(10)
NOT NULL
房屋结构
Varchar(50)
NOT NULL
设备
Float(8)
NOT NULL
房屋面积
Float(8)
NOT NULL
出售信息
Char(20)
NULL
(4) 处理障表
住户处理障表存放区住户种障信息
表44 处理障表
字段名
数类型
否空
住址(键)
Char(10)
NOT NULL
处理障
Datetime
NOT NULL
办
Char(10)
NULL
处理时间
Datetime
NULL
(5) 收费信息表
物业收费表存放区住户种收费信息
表45 物业收费表
字段名
数类型
否空
住址(键)
Char(10)
NOT NULL
水费
Char(10)
NOT NULL
电费
Varchar(50)
NOT NULL
宽带
Int(4)
NOT NULL
垃圾清运费
Int(4)
NOT NULL
物业理费
Varchar(50)
NOT NULL
收费时间
Datetime
NOT NULL
第五章 系统详细设计
51界面设计功
分析建摸模已完成数库台工作面完成
机交互界面系统分三部分:
(1) 户登陆
(2) 系统体台
(3) 通体台调功模块
接部分作详细介绍:
52 户登陆部分
启动系统程序首先进入系统登陆界面登陆进入体台时候系统会求户输入户名密码作验证信息防止非户输入正常信息便系统
界面截图
模块代码:
Private Sub Command1_Click()
Dim strUserName As String
Dim strPassword As String
Static intLoginTimes As Integer
If Trim(Text1Text) Then '果户名空
MsgBox 户名空 vbOKOnly + vbCritical 错误
Text1SetFocus
Exit Sub
End If
'开数库中 户表
Adodc1Refresh
'查找户名
'Adodc1RecordsetFind 户名 ' & Text1Text & ' adSearchForward 1
'面滤方式
Adodc1RecordsetFilter 户名 ' & Text1Text & '
If Not Adodc1RecordsetEOF Then '找记录
strUserName Adodc1Recordset户名
strPassword Adodc1Recordset密码
'Else '没找记录
'Text1
'Text2
End If
If strUserName Text1Text And strPassword Text2Text Then
Adodc1RecordsetClose '关闭数库中 户表
Unload Me '关闭窗体
frmMainShow '显示窗体
Else
'户名密码
MsgBox 户名密码 vbOKOnly + vbInformation 提示
Text1
Text2
intLoginTimes intLoginTimes + 1
If intLoginTimes > 3 Then '超三次
Adodc1RecordsetClose '关闭数库中 户表
End '退出整程序
End If
Text2SetFocus '重新输入密码
SendKeys {HOME}+{END}
End If
End Sub
53 区住户信息理模块
住户资料住户基信息 (住户电话住户姓名物业址身份证号入住时间等信息)外两标签信息进行添加修改删查询添加修改删操作必须保存生效记录较
通简单查询方便找目标记录查询结果已表格方式显示表格显示结果时果出现条记录根某字段记录进行排序样户带更方便提高查找效率
界面截图
模块代码:
Private Sub Command1_Click()
If rsEOF False Then
Text1Text rs(户)
Text2Text rs(住址)
Text3Text rs(电话)
Text4Text rs(入住时间)
Text5Text rs(身份证号码)
rsMoveNext
End If
End Sub
Private Sub Command2_Click()
Dim strql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql Insert Into 住户基信息表 (户住址电话入住时间身份证号码) values (' + Text1Text + '' & Text2Text & '' & Text3Text & '' & Text4Text & '' & Text5Text & ')
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 添加成功
End Sub
Private Sub Command3_Click()
Dim strsql As String
If MsgBox(否修改记录 32 + 1 修改) 1 Then
Set db OpenDatabase(AppPath + \db1mdb)
strsql update 住户基信息表 set 住址 ' + Text2Text + ' 户 ' + Text1Text + '电话 ' + Text3Text + '入住时间 ' + Text4Text + ' where 身份证号码' + Text5Text + '
End If
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 修改成功
End Sub
Private Sub Command4_Click()
Dim strqsl As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql delete * from 住户基信息表 where 住址 ' + Text1Text + '
dbExecute strsql
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 删成功
End Sub
Private Sub Command5_Click()
Form3Show
Unload Me
End Sub
Private Sub Command6_Click()
frmMainShow
Unload Me
End Sub
Private Sub Form_Load()
Dim strsql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql select * from 住户基信息表
Set rs dbOpenRecordset(strsql)
End Sub
54 房屋信息理模块
房产资料住户基信息 (物业址面积房屋结构设备出售信息等信息)添加修改删查询统计记录数添加修改删操作必须保存生效记录较通简单查询方便找目标记录查询结果已表格方式显示表格显示结果时果出现条记录根某字段记录进行排序样户带更方便提高查找效率
界面截图
模块代码:
Private Sub Command1_Click()
If rsEOF False Then
Text1Text rs(住址)
Text2Text rs(设备)
Text3Text rs(房屋结构)
Text4Text rs(房屋面积)
Text5Text rs(出售信息)
rsMoveNext
End If
End Sub
Private Sub Command2_Click()
Dim strql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql Insert Into 房屋基信息 (住址设备房屋结构房屋面积出售信息) values (' + Text1Text + '' & Text2Text & '' & Text3Text & '' & Text4Text & '' & Text5Text & ')
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 添加成功
End Sub
Private Sub Command3_Click()
Dim strsql As String
If MsgBox(否修改记录 32 + 1 修改) 1 Then
Set db OpenDatabase(AppPath + \db1mdb)
strsql update 房屋基信息 set 住址 ' + Text1Text + ' 设备 ' + Text2Text + '房屋结构 ' + Text3Text + '房屋面积 ' + Text4Text + ' where 出售信息' + Text5Text + '
End If
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 修改成功
End Sub
Private Sub Command4_Click()
Dim strqsl As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql delete * from 房屋基信息 where 住址 ' + Text1Text + '
dbExecute strsql
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
MsgBox 删成功
End Sub
Private Sub Command5_Click()
Form5Show
Unload Me
End Sub
Private Sub Command6_Click()
frmMainShow
Unload Me
End Sub
Private Sub Form_Load()
Dim strsql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql select * from 房屋基信息
Set rs dbOpenRecordset(strsql)
End Sub
55 物业收费理模块
物业收费理区物业收费总理功 (住址水费电费宽带费物业理费收费时间等信息) 添加修改删查询统计记录数添加修改删操作必须保存生效记录较通简单查询方便找目标记录查询结果已表格方式显示表格显示结果时果出现条记录根某字段记录进行排序样户带更方便提高查找效率
界面截图
模块代码:
Private Sub Command1_Click()
If rsEOF False Then
Text1Text rs(住址)
Text2Text rs(水费)
Text3Text rs(电费)
Text4Text rs(宽带)
Text5Text rs(垃圾清运费)
Text6Text rs(物业理费)
Text7Text rs(收费时间)
rsMoveNext
End If
End Sub
Private Sub Command2_Click()
Dim strql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql Insert Into 收费信息表 (住址水费电费宽带垃圾清运费物业理费收费时间) values (' + Text1Text + '' & Text2Text & '' & Text3Text & '' & Text4Text & '' & Text5Text & '' & Text6Text & '' & Text7Text & ')
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
Text6Text
Text7Text
MsgBox 添加成功
End Sub
Private Sub Command3_Click()
Dim strsql As String
If MsgBox(否修改记录 32 + 1 修改) 1 Then
Set db OpenDatabase(AppPath + \db1mdb)
strsql update 收费信息表 set 住址 ' + Text1Text + ' 水费 ' + Text2Text + '电费 ' + Text3Text + '宽带 ' + Text4Text + '垃圾清运费 ' + Text5Text + '物业理费 ' + Text6Text + '收费时间 ' + Text7Text + '
End If
dbExecute strsql
dbClose
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
Text6Text
Text7Text
MsgBox 修改成功
End Sub
Private Sub Command4_Click()
Dim strqsl As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql delete * from 收费信息表 where 住址 ' + Text1Text + '
dbExecute strsql
Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
Text6Text
Text7Text
MsgBox 删成功
End Sub
Private Sub Command5_Click()
Form7Show
Unload Me
End Sub
Private Sub Command6_Click()
frmMainShow
Unload Me
End Sub
Private Sub Form_Load()
Dim strsql As String
Set db OpenDatabase(AppPath + \db1mdb)
strsql select * from 收费信息表
Set rs dbOpenRecordset(strsql)
End Sub
结束语
区物业理系统设计实现利完成天试运行程中连接数库时度出现错误调试改正错误点全部清楚系统着设计思想需求功正常运行
物业理部门统模式化系统仅考虑般区需物业理基项功完区物业理系统需更更复杂功求开发周期短开发员等局限性套系统善美希够区物业做更深步调研原系统基础断添加新功终够开发出套完善区物业理系统
系统开发程中固定物业理求模式添加性化构思创意
套区物业理系统符合基需求功易操作应该简单化模式区应存改进方会进步完善希系统够户带方便
致 谢
着科生活尾声三月毕业设计结束负责指导教师指导利完成套区物业理系统
开发设计程中指导老师着认真负责态度严谨求真作风求位学生选题研发实现指导老师予正确指导极帮助设计中少走弯路利完成毕业设计时更学许知识原理知识够实际结合起运提高动手力工作充满信息
衷负责指导老师次说声谢谢予极帮助支持学老师表示感谢会次毕业设计起点迈更远未
参考文献
[1] 朱旭 严晖 曹岳辉 Visual Basic 程序设计综合教程 清华学出版社 2005年3月
[2] 张强 Visual Basic案例开发 中国水利水电出版社 2005年1月
[3] 赛奎春 高春艳 李俊民 Visual Basic工程应项目实践 机械工业出版社 2005年1月
[4] Steven Jordan(美) 牛力 Visual Basic 6编程宝典 电子工业出版社 2005年1月
[5] 求科学 SQL Server 2000数库理开发技术全 民邮电出版社 2004年12月
[6] 杨学全 赵慧勤 李英杰 张永周 SQL Server 2000实例教程 电子工业出版社 2004 年7 月
[7] 郝 数库开发应 科学出版社 2005年2月
[8] 刘德明 精典物业理方案 黄河出版社 2005年2月
[9] 郭瑞军 唐邦民 谢晗昕 Visual Basic数库开发实例精粹 电子工业出版社 2005 年1 月
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档