固定资产管理系统毕业论文.doc

本科毕业论文固定资产管理系统毕业论文目录摘要IAbstractII第一章 绪论61.1 课题背景61.1.1 毕业设计的意义61.1.2 研究的目的61.2 开发工具简介71.2.1 PowerBuilder10.0简介71.2.2 Adaptive Server Anywhere简介8第二章系统分析与可行性分析102.1系统分析102.2系统可行性分析102.3 业务流程分析112.4数据流程分析12第三章系统总体设计133.1体系结构133.1.1实体分析及局部E-R图133.1.2实体之间的联系及E-R图143.2系统功能说明153.2.1管理员登录153.2.2系统设置153.2.3基本信息153.2.4固定资产卡片管理163.2.5固定资产折旧163.2.6固定资产报表163.2.7帮助163.2.8退出16第四章数据字典174.1变动情况表174.2报废信息表174.3部门信息表174.4计量单位表174.5卡片信息表174.6使用情况表184.7用户信息表184.8资产来源表194.9折旧信息表19第五章人机界面与实现205.1PBL库说明205.2系统登录215.3系统主界面225.4密码修改245.5部门管理275.6资产来源285.7使用情况305.8变动情况325.9计量单位345.10卡片管理36卡片管理数据流程图385.11卡片查询385.12报废管理405.13报废资产查询425.14资产折旧445.15资产统计表465.16部门汇总48第6章 系统实现506.1用户管理窗口的设计说明506.2密码修改窗口的设计说明536.3部门窗口的设计说明556.4资产来源窗口的设计说明586.5资产使用情况窗口的设计说明606.6资产变动情况窗口的设计说明636.7计量单位窗口的设计说明656.8卡片管理窗口的设计说明686.9资产折旧窗口的设计说明716.10资产统计表窗口的设计说明73第7章 系统测试777.1开发环境以及测试环境777.2内容及结果77参 考 文 献78第一章 绪论1.1 课题背景在人类社会已经迈入21世纪的今天，信息技术的飞速发展和普及使得全社会对计算机应用技术的需求日益增加。时至今日，计算机已经深入到人们日常工作，学习，生活，娱乐的各个方面。众所周知，计算机的主要功能是进行信息处理，而基于数据库技术的数据组织与处理则是其中一个非常重要的领域。1.1.1 毕业设计的意义首先对PowerBuilder10.0开发平台和Adaptive Server Anywhere数据库平台有了更加深入的学习和认识，并且能够熟练运用此开发工具进行更加深入的开发研究。同时，这次毕业设计对设计者也是一次非常好的锻炼机会。一方面，进一步明确了开发研究一个管理信心系统的方法和思想，加深对管理信息系统的认识，巩固以前学习的信息系统开发方面的知识，另一方面，设计者对所使用的编程语言有了很好的掌握，提高了程序设计和程序调试的能力，并对一般软件设计的步骤流程有了深刻的体会，为今后在工作岗位上学好用好计算机打下了坚定的基础。1.1.2 研究的目的固定资产管理系统是财务管理中的一个重要组成部分，固定资产具有价值高，使用周期长、使用地点分散、管理难度大等特点。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对固定资产进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高固定资产管理的效率,也是科学化、正规化管理的重要条件。固定资产管理系统通过采集固定资产日常工作中所产生的各种原始数据，根据资产管理的要求，对数据进行分类、统计、汇总、分析，建立程序化、制度化、规范化的固定资产计算机软件管理系统，包括了固定资产的一般特性、固定资产状态数据和固定资产能力数据，及时准确地报出各种报表，为固定资产管理提供了一个现代化的管理手段，这一手段可以强化和规范对固定资产的管理。便于计划、财务、审计等管理部门的介入，形成严格的监督、约束机制。1.2 开发工具简介在本毕业设计中所使用的编程开发语言是 PowerBuilder10.0开发平台，数据库为Adaptive Server Anywhere。1.2.1 PowerBuilder10.0简介PowerBuilder10.0是由著名数据库厂商Sybase公司推出的数据库应用快速开发工具，其早期版本主要用于数据库前端应用开发。PowerBuilder10.0以其高效快捷的集成开发环境，简介友好的用户界面，功能强大的数据窗口技术以及性能优越的数据库访问能力，越来越受到众多数据库开发人员的青眯成为当前最为流行的数据库前端开发工具之一。PowerBuilder10.0是一款功能强大的数据库系统开发工具，它主要具有以下特点：PowerBuilder简称PB,属于客户端产品，不仅是数据库前端开发工具，也是专业的客户/服务器开发工具。PB 是面向对象的编程工具，它提供了窗口，菜单，数据窗，命令按钮，单行编辑框，多行编辑框，列表框等各种基本对象，并且允许开发人员自定义新对象。将各种对象按照某种逻辑结合起来，就构成了PB的应用程序。PB支持多种关系型数据库管理系统。支持多种大型数据库，并可通过数据库专用接口连接数据库。所有数据库都可以通过ODBC建立连接。可以同时访问多个DBMS（数据库管理系统）。PB提供了最具特色的数据窗（Data Window）Data Window（数据窗，简称DW）控件是PB的核心控件，是PB提供的使用户访问数据库的最简捷，有效的方式。对于用户而言，通过DW可以很只管地观看数据及其相互关系，而不必关心数据在数据库的哪个表中，以及各个表之间的相互关系；对于开发人员而言，DW可以快速地进行表与表之间的链接，自动生成DML（数据操纵语言），这极大地提高了系统开发的效率。DW提供了多种形式的数据显示格式，用户可以根据需要选择不同表现形式的数据窗。总而言之，Power Builder10.0是一种现代的、类型安全的、面向对象的开发平台，它使得开发人员能够快速而容易的开发解决方案，且具有强大的设计、开发和处理图形、图像的功能。1.2.2 Adaptive Server Anywhere简介Adaptive Server Anywhere 关系数据库管理系统是 SQL Anywhere Studio 的核心。Adaptive Server Anywhere 是为要求功能完备的 SQL 数据库的任务而专门设计的。根据设计，它可以在不同的环境下工作。它充分利用可用内存和 CPU 资源，在具有充足资源的环境中提供极佳的性能。它还可以在具有有限物理和数据库管理资源的环境下很好地工作，包括移动计算环境、嵌入式数据库使用，并可用作中小型业务的数据库服务器。Adaptive Server Anywhere 的特点包括：1. 完全 SQL 关系数据库管理系统。Adaptive Server Anywhere 是事务处理关系数据库管理系统 (RDBMS)，它具备多种功能，包括：完全恢复功能、联机备份、参照完整性动作、存储过程、触发器、行级并发控制、时间表和事件、丰富的 SQL 语言以及在完整 SQL RDBMS 中应提供的所有功能。 2. 经济合算的硬件要求。与其它数据库管理系统相比，Adaptive Server Anywhere 要求的内存和磁盘资源更少。易于使用 Adaptive Server Anywhere 可以自我调节并易于管理。您可以方便地使用 Adaptive Server Anywhere，而无需像其它关系数据库管理系统那样进行大量的数据库管理工作。 3. 独立和网络使用。Adaptive Server Anywhere 可以以独立的方式使用，例如在以数据为中心的应用程序中作为嵌入式数据库，或者在多用户客户/服务器或三层环境中作为网络服务器。作为嵌入式数据库系统，它可以根据需要由应用程序自动启动。 4. 高性能 。尽管 Adaptive Server Anywhere 在设计上强调简单的管理和适度的资源要求，但它依然是可伸缩的高性能 DBMS。Adaptive Server Anywhere 可在多个 CPU 上运行，具有高级查询优化程序，并且提供性能监控和调节工具。第二章系统分析与可行性分析2.1系统分析本系统其研究主要包括以下几点：（1） 系统管理：用户信息输入、密码修改。（2） 基本信息：主要包括对部门信息、资产来源、使用情况、变动情况、计量单位等信息的增加、删除、修改、查询等功能。（3） 固定资产卡片管理：主要包括对固定资产卡片信息的增加、查询、修改等功能。（4） 固定资产折旧：主要包括对报废资产信息以及资产折旧信息的管理。（5） 固定资产报表：主要对固定资产信息后成报表以方便查询。本系统主要分为三个模块：数据库，内容，管理员操作界面。1.数据库：包括原始数据库，同时可增加新的数据内容并对齐进行设置和修改。2.内容：包括内容模板，即所添加内容的大体显示格式，同时还包括数据的格式和显示效果。 3.管理员操作界面：界面要求美观合理，使用方便，数据精准。2.2系统可行性分析本此系统具备功能齐全、管理模式多且灵活合理、稳定实用、易安装、易维护、易学易用等特点，可满足各类中小企业的信息化管理需求。1.高可靠性和安全性：采用大型数据库软件Adaptive Server Anywhere，其固有的安全性能，保障系统有一个稳定的运行环境。2.稳定性好：Adaptive Server Anywhere数据库与IC卡技术的无缝结合，高度的保密性、安全性以及先进性； 3.易学、易用性：人性化的界面设计，快捷的在线帮助，易安装、易管理、易维护、易拓展。2.3 业务流程分析业务流程图符号说明：系统业务流程图如图2-1所示： 固定资产系统业务流程图2-1 2.4数据流程分析数据流程图符号说明：第三章 系统总体设计3.1体系结构本系统的总功能模块图用户管理部门管理使用情况资产来源变动情况计量单位固定资产折旧卡片管理固定资产管理系统退出系统密码修改系统管理基础信息资产卡片管理帮助资产统计表部门汇总固定资产报表卡片查询报废管理报废资产查询资产折旧图3-1总功能模块图3-13.1.1实体分析及局部E-R图通过需求分析得知，固定资产管理系统的研究对象有固定资产、部门和操作员三个对象，也就是三个实体，但由于系统的主要功能是管理固定资产（固定资产的增加和报废），所以在实际处理中将固定资产分为固定资产增加和固定资产报废，也就是说，为了处理问题的方便，将系统的实体对象分为部门、操作员、固定资产增加和固定资产报废。对于固定资产管理系统来说，比较重要的部门信息是部门编号、部门名称、部门负责人。其中部门编号能够唯一确定某个部门的所有信息，故在该实体中定义部门编号为实体标识符。部门ER图如下: 部门ER图3-2 （1）固定资产报废在固定资产减少实体中，包含资产编号、资产名称、部门编号、资产类别、操作员编号五个属性。其中，资产编号能够唯一标识每一项固定资产，故定义资产编号为固定资产减少实体的标识符。固定资产减少实体的ER图如下：固定资产报废ER图3-33.1.2实体之间的联系及E-R图1）固定资产与部门联系的ER图企业中的固定资产都分别分配到不同的部门，由不同部门来管理，同一部门可以管理多项固定资产，故固定资产和部门之间联系类型是m：1的联系。固定资产和部门联系的ER图如下 实体ER图3-43.2系统功能说明3.2.1管理员登录系统通过管理员的用户名及密码进行系统的登录，如果用户名或密码有一方错误将无法登录到系统3.2.2系统设置此功能完成系统的用户管理等基础信息的增加、删除、修改、查询等功能。3.2.3基本信息此功能完成对部门信息、资产来源、使用情况、变动情况、计量单位等信息的增加、删除、修改、查询等功能。3.2.4固定资产卡片管理此功能完成对固定资产卡片信息的增加、查询、修改等功能。3.2.5固定资产折旧此功能完成对报废资产信息以及资产折旧信息的管理。3.2.6固定资产报表此功能完成对固定资产信息后成报表以方便查询。3.2.7帮助系统的帮助信息。3.2.8退出提供退出系统功能。第四章数据字典4.1变动情况表列名数据类型长度主键允许空说明IdINTEGER是否编号BDBHVARCHAR(20)20否变动编号BDMCVARCHAR(50)50否变动名称MEMOVARCHAR(50)255是备注4.2报废信息表 列名数据类型长度主键允许空说明IdINTEGER是否编号BFBHVARCHAR(20)20否报废编号KPBHVARCHAR(20)20否卡片名称BFRQDATE是报废日期BFYYVARCHAR(100)100是报废日期MEMOVARCHAR(255)255是备注4.3部门信息表 列名数据类型长度主键允许空说明IdINTEGER是否编号CODEVARCHAR(20)20 否部门编号 CODENAMEVARCHAR(50)50 否部门名称MEMOVARCHAR(255)255 是备注4.4计量单位表列名数据类型长度主键允许空说明IdINTEGER是否编号CODEVARCHAR(20)20否 编号CODENAMEVARCHAR(50)50否 名称MEMOVARCHAR(255)255是 备注4.5卡片信息表 列名数据类型长度主键允许空说明IdINTEGER是否编号KPHVARCHAR(20)20否卡片号KPMCVARCHAR(50)50否卡片名称CFDDVARCHAR(100)100是存放地点BMVARCHAR(20)20是使用部门JLDWVARCHAR(20)20是计量单位SLDECIMAL(10,2)10是数量ZCLYVARCHAR(20)20是资产来源SYQKVARCHAR(20)20是使用状况BDQKVARCHAR(20)20是变动情况CDVARCHAR(100)100是产地GZRQDATE是购置日期 SCRQDATE是生产日期 QERQDATE是启用日期 MEMOVARCHAR(255)255是备注 ZCJEDECIMAL(10,2)10是资产金额 BFBZVARCHAR是报废标志4.6使用情况表列名数据类型长度主键允许空说明Id INTEGER是否编号SYBMVARCHAR(20)20否 编号SYMCVARCHAR(50)50否 名称MEMOVARCHAR(255)255是 备注 4.7用户信息表列名数据类型长度主键允许空说明Id INTEGER是否编号USERCODEVARCHAR(20)20否用户名USERNAMEVARCHAR(50)50是用户姓名PWDVARCHAR(50)50是密码XBVARCHAR 是性别BMVARCHAR(20)20 是部门LXDHVARCHAR(20)20 是联系电话EMAILVARCHAR(50)50是电子邮箱MEMOVARCHAR(255)255是备注4.8资产来源表 列名数据类型长度主键允许空说明IDINTEGER是否编号ZCLYVARCHAR(20)20否 编号LYMCVARCHAR(50)50否 名称MEMOVARCHAR(255)255是 备注4.9折旧信息表 列名数据类型长度主键允许空说明IDINTEGER是否编号KPHVARCHAR(20)20否卡片号NXINTEGER否预计使用年限EZJLDECIMAL(10,2)10是月折旧率EZJDECIMAL(10,2)10 是月折旧额SYESINTEGER 是已使用月数LJZJDECIMAL(10,2)10 是累计折旧ZYJEDECIMAL(10,2)10是折余价值ZJFFVARCHAR是折旧方法ZJBHVARCHAR(20)20是折旧编号第五章 人机界面与实现5.1PBL库说明 如图5-1所示： 图5-15.2系统登录管理员的用户名与密码是否正确进行登录，如果有一方错误系统将禁止其登录到系统中。系统登录界面如图5-2 图5-2登陆界面 图5-3登陆数据流程图5.3系统主界面管理员通过用户名与密码进入到系统的主界面，在主界面管理员可以通过菜单来完成本系统的相关功能。主界面如图5-4：图5-4系统主界面对系统用户信息的添加、删除等功能。如图5-5所示： 图5-5用户信息界面 图5-6 用户信息数据流程图5.4密码修改密码修改的界面如图5-7，所示通过输入原密码、新密码以及确认密码来进行密码修改。如果用户输入了错误的原密码系统将给予提示；如果用户所输入的新密码与确认密码不一致，系统也将给予提示，将不能完成密码的修改。密码修改成功以后将会在下一次登录系统时生效。图5-7密码修改界面 图5-8密码修改数据流程图5.5部门管理部门管理功能实现了管理员对部门信息的增加、删除、等功能，单击【新增】按钮来实现部门信息的添加；单击【删除】按钮可以将部门信息删除；单击【保存】按钮可以将部门信息进行保存。界面如图5-9所示：图5-9部门管理界面 图5-10 部门管理数据流程图5.6资产来源资产来源功能实现了管理员对资产来源信息的增加、删除、等功能，单击【新增】按钮来实现资产来源信息的添加；单击【删除】按钮可以将资产来源信息删除；单击【保存】按钮可以将资产来源信息进行保存。界面如图5-11所示：图5-11资产来源界面 图5-12资产来源数据流程图5.7使用情况使用情况功能实现了管理员对使用情况信息的增加、删除、等功能，单击【新增】按钮来实现使用情况信息的添加；单击【删除】按钮可以将使用情况信息删除；单击【保存】按钮可以将使用情况信息进行保存。界面如图5-13所示：图5-13使用情况界面 图5-14 使用情况数据流程图5.8变动情况变动情况功能实现了管理员对变动情况信息的增加、删除、等功能，单击【新增】按钮来实现变动情况信息的添加；单击【删除】按钮可以将变动情况信息删除；单击【保存】按钮可以将变动情况信息进行保存。界面如图5-15所示图5-15变动情况界面 图5-16变动情况数据流程图5.9计量单位计量单位功能实现了管理员对计量单位信息的增加、删除、等功能，单击【新增】按钮来实现计量单位信息的添加；单击【删除】按钮可以将计量单位信息删除；单击【保存】按钮可以将计量单位信息进行保存。界面如图5-17所示：图5-17计量单位界面 图5-18 计量单位数据流程图5.10卡片管理卡片管理功能实现了管理员对卡片管理信息的增加、删除、等功能，单击【新增】按钮来实现卡片管理信息的添加；单击【删除】按钮可以将卡片管理信息删除；单击【保存】按钮可以将卡片管理信息进行保存。界面如图5-19所示：图5-19卡片管理界面 图5-20 卡片管理数据流程图5.11卡片查询卡片查询功能实现了管理员对卡片信息的查询等功能，管理员可以通过单击【查询】按钮来实现卡片信息的查询；单击【刷新】按钮来实现卡片信息数据窗口及查询条件清空。界面如图5-21所示：图5-21卡片查询界面 图5-22 卡片查询数据流程图5.12报废管理报废管理功能实现了管理员对报废信息的增加、删除、等功能，单击【新增】按钮来实现报废信息的添加；单击【删除】按钮可以将报废信息删除；单击【保存】按钮可以将报废信息进行保存。界面如图5-23所示图5-23报废管理界面 图5-24报废管理数据流程图5.13报废资产查询报废资产查询功能实现了管理员对报废资产信息的查询功能，单击【查询】按钮来实现报废资产信息的查询；单击【刷新】按钮可以将数据窗口信息及查询条件清空；单击【查看明细】按钮可以查询报废明细信息。界面如图5-25所示图5-25报废资产查询界面 图5-26 报废资产查询数据流程图5.14资产折旧资产折旧管理功能实现了管理员对资产折旧信息的增加、删除、等功能，单击【新增】按钮来实现资产折旧信息的添加；单击【删除】按钮可以将资产折旧信息删除；单击【保存】按钮可以将资产折旧信息进行保存。界面如图5-27所示：图5-27资产折旧界面 图5-28 资产折旧数据流程图5.15资产统计表资产统计表功能实现了管理员对资产信息的综合查询，管理员通过单击【查询】按钮查询到相关信息。界面如图5-29所示：图5-29资产统计表界面图5-30资产统计表数据流程图5.16部门汇总部门汇总功能实现了管理员对部门资产信息的综合查询等功能。界面如图5-31所示：图5-31部门汇总界面 图5-32部门汇总数据流程图 第6章 系统实现6.1用户管理窗口的设计说明表6-1 项 目说 明窗口名w_user 功能操作员信息增加父窗口window界面设计控件类型控件名控件名称说明命令按钮cb_5&C查询查询数据窗口中的数据命令按钮cb_6&S刷新刷新数据窗口中的数据命令按钮cb_1&Z增加增加数据行命令按钮cb_2&S删除删除输入数据事件脚本cb_5string ls_code,ls_nameString ls_sqlls_code =trim(sle_1.text)ls_name =trim(sle_2.text)if ls_code = and ls_name= then messagebox(提示,请先选择查询条件!)return end if if ls_code then ls_sql =(usercode like %+ls_code+%)end if if ls_name then if ls_sql= then ls_sql = (username like %+ls_name+%)else ls_sql = ls_sql + and (username like%+ls_name+%)end if end if dw_1.setfilter(ls_sql)dw_1.filter() if dw_1.retrieve()=0 then messagebox(提示,没有满足条件的记录!)end ifcb_6sle_1.text=sle_2.text=dw_1.dataobject=dw_userdw_1.settransobject( sqlca)dw_1.retrieve( )cb_1Long ll_currentrow /定义长整型ll_currentrow = dw_1.InsertRow(0) dw_1.ScrollToRow(ll_currentrow)dw_1.SetColumn(1)dw_1.setfocus()cb_3string ls_code,ls_pwddwItemStatus l_status integer li_cntint li_countdecimal ld_sldw_1.accepttext( )if dw_1.rowcount( ) 0 then ls_code=trim(dw_1.getitemstring(dw_1.getrow(),usercode)ls_pwd=trim(dw_1.getitemstring(dw_1.getrow(),pwd)if ls_code= or isnull(ls_code) then messagebox(提示,请输入用户名!)returnend if if ls_pwd= or isnull(ls_pwd) then messagebox(提示,请输入用户密码!)returnend if l_status=dw_1.GetItemStatus( dw_1.getrow(), 0, Primary!) if l_status=NewModified! then select count(*) into :li_cnt from t_user where trim(usercode)=:ls_code using sqlca ;if li_cnt 0 then messagebox(提示,用户名【+ls_code+】已经存在!)return end if end if if dw_1.modifiedcount()+dw_1.deletedcount()0 thenif dw_1.update()=1 thencommit;/提交数据messagebox(提示,数据保存成功!)elserollback; /回滚messagebox(提示,保存失败,可能是数据填写不完整!)end ifend ifdw_1.retrieve()elsemessagebox(提示,没有要保存的数据!)returnend ifcb_2if messagebox(提示信息,你确定要删除吗?,question!,OKCancel! )=1 thendw_1.deleteRow(0) if dw_1.update()=1 then commit;messagebox(提示,删除成功!)else messagebox(提示,删除失败!)end if end ifcb_4close(parent)6.2密码修改窗口的设计说明 表6-2 项 目说 明窗口名w_pwd功能密码修改父窗口window界面设计控件类型控件名控件名称说明命令按钮cb_1保存保存密码命令按钮cb_2退出退出系统事件脚本cb_1/string ls_old,ls_new,ls_secls_old =trim(sle_1.text)ls_new=trim(sle_2.text)ls_sec=trim(sle_3.text)if ls_old= then messagebox(提示,请输入旧密码!)sle_1.setfocus( )return end if if ls_new= then messagebox(提示,请输入新密码!)sle_2.setfocus( )return end if if ls_sec= then messagebox(提示,请输入确认密码!)sle_3.setfocus( )return end if if ls_oldgs_pwd then messagebox(提示,输入的旧密码不正确，请确认!)sle_1.setfocus( )return end if if ls_newls_sec then messagebox(提示,两次输入的新密码不一致，请确认!)sle_3.setfocus( )return end if update t_user set pwd=:ls_new where usercode=:gs_usercode using sqlca ;if sqlca.SQLCode = 0 then commit;messagebox(提示,密码修改成功!)Restart()elseif sqlca.SQLCode = -1 then rollback;messagebox(错误, sqlca.SQLErrText, Exclamation!)End If6.3部门窗口的设计说明 表6-3项 目说 明窗口名w_bm功能部门管理父窗口window界面设计控件类型控件名控件名称说明命令按钮cb_1新增增加部门命令按钮cb_2删除删除部门命令按钮cb_3 保存保存内容命令按钮cb_4退出退出系统事件脚本cb_1Long ll_currentrowll_currentrow = dw_1.InsertRow(0)dw_1.ScrollToRow(ll_currentrow)dw_1.SetColumn(1)dw_1.setfocus()cb_2if messagebox(提示信息,你确定要删除吗?,question!,OKCancel! )=1 thendw_1.deleteRow(0) if dw_1.update()=1 then commit;messagebox(提示,删除成功!)else messagebox(提示,删除失败!)end if end ifcb_3string ls_code,ls_bmmcdwItemStatus l_status integer li_cntint li_countdecimal ld_sldw_1.accepttext( )if dw_1.rowcount( ) 0 then ls_code=trim(dw_1.getitemstring(dw_1.getrow(),code)ls_bmmc=trim(dw_1.getitemstring(dw_1.getrow(),codename)if ls_code= or isnull(ls_code) then messagebox(提示,请输入部门编号!)returnend if if ls_bmmc= or isnull(ls_bmmc) then messagebox(提示,请输入部门名称!)returnend if l_status=dw_1.GetItemStatus( dw_1.getrow(), 0, Primary!) if l_status=NewModified! then select count(*) into :li_cnt from t_bm where trim(code)=:ls_code using sqlca ;if li_cnt 0 then messagebox(提示,部门编号【+ls_code+】已经存在!)return end if end if if dw_1.modifiedcount()+dw_1.deletedcount()0 thenif dw_1.update()=1 thencommit;messagebox(提示,数据保存成功!)elserollback;messagebox(提示,保存失败,可能是数据填写不完整!)end ifend ifdw_1.retrieve()elsemessagebox(提示,没有要保存的数据!)returnend if cb_4close(parent)6.4资产来源窗口的设计说明 表6-4项 目说 明窗口名w_zcly功能资产来源父窗口window界面设计控件类型控件名控件名称说明命令按钮cb_1新增新增来源命令按钮cb_2删除删除来源命令按钮cb_3保存保存数据命令按钮cb_4退出退出登录事件脚本cb_1Long ll_currentrowll_currentrow = dw_1.InsertRow(0)dw_1.ScrollToRow(ll_currentrow)dw_1.SetColumn(1)dw_1.setfocus()cb_2if messagebox(提示信息,你确定要删除吗?,question!,OKCancel! )=1 thendw_1.deleteRow(0) if dw_1.update()=1 then commit;messagebox(提示,删除成功!)else messagebox(提示,删除失败!)end if end ifcb_3string ls_code,ls_bmmcdwItemStatus l_status integer li_cntint li_countdecimal ld_sldw_1.accepttext( )if dw_1.rowcount( ) 0 then ls_code=trim(dw_1.getitemstring(dw_1.getrow(),zcly)ls_bmmc=trim(dw_1.getitemstring(dw_1.getrow(),lymc)if ls_code= or isnull(ls_code) then messagebox(提示,请输入来源编号!)returnend if if ls_bmmc= or isnull(ls_bmmc) then messagebox(提示,请输入来源名称!)returnend if l_status=dw_1.GetItemStatus( dw_1.getrow(), 0, Primary!) if l_status=NewModified! then select count(*) into :li_cnt from t_zcly where trim(zcly)=:ls_code using sqlca ;if li_cnt 0 then messagebox(提示,来源编号【+ls_code+】已经存在!)return end if end if if dw_1.modifiedcount()+dw_1.deletedcount()0 thenif dw_1.update()=1 thencommit;messagebox(提示,数据保存成功!)elserollback;messagebox(提示,保存失败,可能是数据填写不完整!)end ifend ifdw_1.retrieve()elsemessagebox(提示,没有要保存的数据!)returnend ifcb_4close(parent)6.5资产使用情况窗口的设计说明 表6-5项 目说 明窗口名w_syqk功能使用情况查看父窗口window界面设计控件类型控件名控件名称说明命令按钮cb_1新增新增情况命令按钮cb_2删除删除使用情况命令按钮cb_3保存保存数据命令按钮cb_4退出退出登录事件脚本cb_1Long ll_currentrowll_currentrow = dw_1.InsertRow(0)dw_1.ScrollToRow(ll_currentrow)dw_1.SetColumn(1)dw_1.setfocus()cb_2if messagebox(提示信息,你确定要删除吗?,question!,OKCancel! )=1 thendw_1.deleteRow(0) if dw_1.update()=1 then commit;messagebox(提示,删除成功!)else messagebox(提示,删除失败!)end if end ifcb_3/string ls_code,ls_bmmcdwItemStatus l_status integer li_cntint li_countdecimal ld_sldw_1.accepttext( )if dw_1.