vb公司合同管理系统开发与设计

范文最新推荐1/58VB公司合同管理系统开发与设计摘要企业合同管理是市场经济环境下企业管理的一项核心内容，对企业的生产运营、成本控制、风险规避都有着重要意义。合同管理包括从合同的洽谈、草拟、签订、生效到合同失效的全过程。合同作为现代企业经济活动往来的重要依据和行事规范，是企业市场经营行为的一个重要载体。因此论文将以企业合同管理系统为研究主题，运用比较研究、实证调研等多种研究方法，并借计算机科学、管理学的多学科背景，以中小型公司为研究对象，对其合同管理的现存问题进行剖析，并在此基础上有针对性地设计出科学正规高效的合同管理体系。本文所描述的系统所实现的功能将会是以合同管理的基本功能为主。系统实现的主要功能有系统管理模块，实现包括密码修改、身份验证、权限管理等。合同管理模块，实现包括合同信息的添加、删除、修改、查询等。客户管理模块，实现客户信息的添加、删除、修改、查询等。项目管理模块，实现项目信息的添加、删除、修改、查询等。6825关键词合同管理；系统设计ENTERPRISECONTRACTMANAGEMENTSYSTEMABSTRACTUNDERMARKETECONOMYCONDITIONS,ENTERPRISECONTRACTMANAGEMENTISACORECONTENTOFENTERPRISEMANAGEMENTITISIMPORTANTFORTHEPRODUCTIONANDOPERATION,COSTCONTROLANDRISKAVERSIONOFENTERPRISESITINCLUDESTHEWHOLEPROCESSOFTHECONTRACTNEGOTIATIONS,DRAFTING,SIGNING,ANDTAKINGINTOEFFECT,EVENTHECONTRACTEXPIRATIONASANIMPORTANTBASISFORECONOMICRELATIONSANDANORMOFAMODERNENTERPRISE,CONTRACTACTSASANIMPORTANTCARRIERFORENTERPRISESOPERATIONALBEHAVIOR221功能性需求描述9范文最新推荐3/58222系统非功能性需求10223系统建设原则103系统设计1131系统功能设计1132系统模块详细设计12321登陆界面12322系统主窗体12323系统模块13324信息管理模块15325信息查询模块18326帮助菜单2133数据库设计22331建立数据库22332建立数据表22333建立数据表表间关系234系统实现2441登陆界面实现2442系统主窗体的实现2643系统模块的实现2844信息管理模块的实现3345信息查询模块的实现41范文最新推荐5/5846帮助模块的实现4447数据库实验数据录入455系统测试4751登陆界面测试4752系统模块测试4853信息管理模块测试53531客户信息管理53532合同信息管理59由上述案例不难看出，合同，作为企业进行规范经营活动的有效凭证，是企业运营的重要环节，一个微小的标点符号的失误，都会给企业带来巨大的经济损失。而企业合同管理，是企业作为经济法律关系主体的重要管理内容，因此应当建立有效的合同管理机构和管理制度，对合同订立、履行、变更、解除及纠纷处理等活动进行规划、组织、控制、调解、仲裁、监督和检查，使合同得以依法订立并得到实际履行，从而达到提高企业经济效益的目的。随着市场经济的高速发展，企业将面对越来越复杂多变的经济关系，如何建立自我保护、自我约束的新的企业运行机制，已成为迫切需要解决的问题。合同，作为协调企业外部关系的必要法律形式，起着使企业行为规范化和法律化的作用。企业合同能否依法订立和及时履行，直接关系到企业运作行为的法律评价和企业经营活动的最终成败。尽管企业的合同管理活动本身不能创造财富，但它和企业生产经营任务的完成以及企业经济利益的实现息息相关。合同中所列标的物的价格、质量标准、交提货期限等各项要求的实现，都直接和企业的财务管理、质量管理、生产管理、设备及资金管理紧密联系在一起。因此依法加强企业的合同管理是企业转换经营机制、完善管理流程的重要内容。范文最新推荐7/5812国内外研究现状121国外研究现状122国内研究现状13研究内容和研究目的本文按照提出问题、分析问题及解决问题的研究思路进行深入展开，通过大量文献查阅和企业实地调研考察，分析某公司在合同管理中存在的问题和风险，针对该公司的具体情况为其设计一套合同管理执行方案。合同建立的工作内容包括建立合同管理结构；分配合同管理权限；建立合同类型；参考合同模版；文件编写；文件上传。合同审批内容包括发送合同审批申请；批准、修改审核合同；修改合同直至满意为止；合同审批验证。合同统计内容包括合同信息录入；合同金额统计；录入合同统计数据库。合同修改内容包括合同修改；合同更新；更新后的合同审批；合同修改通知；合同提交。合同作废内容包括合同作废前的通知。合同查询内容包括一般合同查询；重要合同查询；合同信息和文件内容浏览；合同阅读和操作活动记录。212公司合同管理建设的必要性企业合同管理是指企业对自身合同的管理，是企业建立必要的合同管理机构和管理制度以加强对本企业合同的订立、履行、审查、监督的管理，是使合同依法订立并全面履行，从而提高企业经济效益的一系列行为。企业经济效益的提高，主要是依靠企业的自我发展、自我约束、自我完善、自我保护的能力，而这些能力在某种程度上都是与企业合同管理息息相关的。范文最新推荐9/58企业合同能否依法订立和及时履行，直接关系到企业运作行为的法律评价和企业经营活动的最终成败。因此依法加强企业合同管理是企业转换经营机制，完善企业管理的重要内容。一企业合同管理有利于适应经营环境的变化随着我国加入世贸组织并在其中发挥越来越重要的作用，大多数企业一方面可以向国际市场采购资源，另一方面也可以在国内国际市场进行营销活动。企业面对的是范围更广泛、更不确定的商业伙伴，因此签订合同时合同条款的内容也随之发生着巨大的变化。过去的合同基本上只涉及国内合同，这类条款内容简单，基本没有争议解决方式、保险、税费、适用法律、合同文字等内容；而现在的合同则包含了这些内容。过去的合同一般不约定纠纷解决办法，一旦发生纠纷就到合同管理部门或人民法院进行解决；而现在由于企业意识到仲裁对其商业秘密具有保密功能，而且仲裁在纠纷处理方面体现出时间费用上的经济性，很多企业选择在合同纠纷的处理上选择仲裁条款。四企业合同管理能够有效提高企业经济效益企业在竞争激烈的市场经济环境下，想要不断增加利润、提高经济效益的重要途径之一就是加强企业自身的合同管理。这是因为合同管理涉及到企业经营管理的各个环节，它既是基础管理，又是实效管理，可以说企业提高合同管理水平的过程就是企业不断提高经济效益的过程。实际上企业的合同管理不但贯穿于企业经营管理的全过程，而且与企业生产计划的安排，产品的规格、数量、质量标准等具体任务的实现紧密结合在一起。因此企业要提高经济效益，就必须加强对合同的管理，提高合同履约率。通过对合同的管理来降低成本、减少费用、加速资金周转，以最少的消耗获取最大的收益。企业的实践不断证明，加强对合同的管理是提高企业经济效益的必要手段。五企业合同管理是法制经济的客观需要在市场经济条件下，任何企业要想获得发展，充分实现自己的产品价值和使用价值，都必须参与自由市场竞争和交易，并且严格遵守市场竞争规则，而合范文最新推荐11/58同法即是市场规则的基本表现形式。由于合同是商品交换的法律形式，因此企业通过加强合同管理，一方面可以从法律的角度对企业的经营方面和活动进行指导和规划，提出避免法律风险的方案和建议，增强企业应变能力和竞争实力，从而促使企业在竞争中提高预见性、减少法律纠纷和失误，使其经营管理活动符合国家法律要求。另一方面也可以督促企业自觉履行合同义务，自觉维护市场秩序，预防经济纠纷，防止不必要的经济损失。213公司合同管理的基本原则企业合同管理的基本原则，是指企业合同管理必须遵守的基本要求和指导方针。企业合同管理只有在一定的原则指导下，才能保证其合同管理工作沿着正确的轨道进行，充分发挥其应有的作用。每家企业因为其具体情况而采取各不相同的合同管理模式，而作为企业合同管理的一般原则，可以概括为以下几点三将合同的经济法律审核和经济效益相结合的原则企业是国民经济的主体，企业与企业之间既有相互竞争的关系，又有相互依存的关系，而合同就是实现企业与企业之间联系的桥梁和纽带。订立和履行合同作为企业经济活动的重要一环，体现着企业的经济关系和经营成果。一份合同的背后，就存在着一桩买卖关系、一个技术项目、或一个经济合作方案。为了保证合同经济效益的实现，必须对合同进行技术审查，也就是说订立任何一项合同必须根据企业的经营目标、经营方针和经营策略，通过研究市场和竞争对手，全面考虑和分析企业内部生产能力和外部环境因素来订立的。同时，合同一经订立就产生了法律效力，因此合同必须得到全面及时的履行。在企业的运营中，合同既是一种经济行为，也是一种法律行为，经济技术上的合理可行，应该与法律上的合法有效相辅相成。再完善的合同如果得不到法律的保障，也是不可能实现的；而合法有效的合同，如果没有经济技术方面的支持，也只能是一纸空谈。因此，对合同进行经济技术审查和法律审查，都是企业合同管理的重要内容。范文最新推荐13/58214公司合同管理风险概念企业作为以盈利为目的的经济组织，其经营活动是通过一系列的合同的订立和履行来实现的。合同既是企业对外经营活动的联系纽带，也是企业获取经济效益的根本保证，因此合同管理是企业整个经营管理工作中的关键点。企业的合同管理包括了合同的签订、履行、变更解除、违约处理、争议解决等全过程的管理活动，具有管理时间长、参与管理的机构和人员多、管理手段多样等特征，合同管理的全过程都存在着风险。企业的合同风险分为客观风险和主观风险，客观风险是指如自然灾害等不可抗的客观原因导致的风险，主观风险是指由于合同订立双方主观原因导致的风险。客观风险通常是无法回避和控制的，但可以采取一定的方式进行风险分担，主观风险则一般可以通过采取事前预防、事中控制的方法防止风险事故的发生，合同的风险管理其实就是针对主观风险的管理。采取有效的措施建立并完善合同风险管理机制，避免因合同风险而给企业造成损失，是企业合同管理的一项核心工作。二合同的程序风险我国法律对某些类型的合同规定了较为严格的审批程序，未经批准或办理审批手续的合同，同样不具有法律效力，例如中外合资企业合同必须经主管部门批准方能生效；建筑工程合同必须办理规划审批并取得规划许可证等。如果没有办理批准或审批手续，将会导致合同无效或被撤销，企业需要补办相应手续才能使合同生效，有些合同还会因受到行政主管部门的处罚而额外产生一些费用。三合同的内容风险合同的内容风险主要表现在合同条款是否完备、合法，表述是否规范、明确、且无歧义。合同的某些条款因违反法律法规的规定，会产生合同目的不能实现的风险。合同内容约定不明确、表述有歧义，会使合同双方当事人产生争议，出现合同纠纷。本章开始时提到的案例就是由于合同条款的表述有严重歧义，因而导致了合同纠纷。范文最新推荐15/58合同内容一般由合同条款和附属文件两部分构成，合同条款主要包括合同当事人的名称和地址、标的物名称、数量、质量标准、价款或者报酬、履行期限、地点和方式、违约责任等等，附属文件主要包括双方约定的各种文字、图、表等资料。合同内容首先应保证完备，如果不完备，会出现某些条款没有约定或约定不明，导致双方发生分歧而影响合同的正常履行。其次应做到合同条款之间彼此一致，如果合同中各个条款相互之间的存在矛盾和逻辑错误，会导致双方对合同条款的认识发生争议，影响合同的顺利履行。四合同的履行风险合同履行风险主要表现为合同当事人是否违反合同条款或拒不履行其相应义务。在合同履行过程中，如果一方当事人丧失履行能力或出现其他违约情形，会出现另一方当事人的生产经营遭受重大影响的风险。我对一些公司的合同处理情况进行了了解和统计。结果发现在刚刚形成的公司和规模较小的公司对合同的处理还是停留在手工的合同管理阶段，而一些中等规模的公司则由于考虑到业务与在软件上投资的成本是否能得到相应的回报等问题，有一些进行了软件的购买或请专人来帮助开发，有一些则还是停留在手工管理阶段。然而，对于已经形成规模的公司来说，一套合同管理系统是必不可少的。然后我又对已经存在的管理系统形式进行了统计，发现当今的合同管理系统还是主要以单机和为缓解手工管理存在的弊端的合同管理系统为主，当然有一部分有先见的公司已经使用了基于网络的合同管理系统。然后，我对当今合同管理系统使用的编程环境进行了统计，发现这编程环境是多种多样，有C、VB、C、JAVA、ASP等范文最新推荐17/58等，当然各种环境都有它的好与坏，这里就不对孰优孰劣进行讨论了。同理，MIS系统中数据库也是一个重点，但是对于各个已经存在的合同管理系统的数据库也是多种多样，当然他们也有好与坏，那么这里也不一一赘述了。221功能性需求描述本课题所讨论的是公司合同管理系统，所以特别针对管理的对象和经过我上述的分析，我认为该系统应该有如下功能性的需求用户管理客户管理合同管理项目管理222系统非功能性需求（1）性能、效率系统在正常使用情况下，执行操作时间应小于10。（2）安全性从系统结构、技术措施、应用系统和维护管理等方面，力保系统安全可靠，禁止和杜绝非法侵入和泄密。（3）灵活性功能实现上尽量灵活，通过调整、配置可以适应多种不同情况。用户管理模块只有权限的用户才能进入本系统，没有权限的用户或非法用户不能进入本系统，从而有范文最新推荐19/58效地保证系统的安全。包括添加用户、删除用户、更改用户权限以及修改用户密码。客户管理模块包括添加修改客户信息、查询客户信息以及删除客户信息。合同管理模块包括添加修改合同信息、查询合同信息以及删除合同信息。项目管理模块包括添加修改项目信息、查询项目信息以及删除项目信息。32系统模块详细设计321登陆界面FRMLOGIN作为系统的启动窗体，用于验证用户是否合法，设计界面如图31所示。窗体上的两个文本框分别用于输入用户名和密码，设置密码文本框PASSWORDCHAR。添加一个ADO数据控件，设置VISIBLEFALSE，使用字符串与COMPANYHTMDB数据库连接。图31登陆界面322系统主窗体系统主窗体（FRMMAIN）作为公司合同管理系统的主界面，如图32所示。菜单结构如表31所示。图32系统首页表31系统菜单系统信息管理信息查询帮助添加用户范文最新推荐21/58删除用户更改权限修改密码重新登录退出系统客户信息管理合同信息管理项目信息管理客户信息查询合同信息查询项目信息查询关于323系统模块系统菜单下有6个菜单项添加用户、删除用户、更改权限、修改密码、重新登陆和退出系统、（1）添加用户添加用户窗体（FRMUSER）的运行界面如图33所示。在窗体上添加一个ADO数据控件，名称为ADOUSER，设置VISIBLEFALSE，记录源为空。3个文本框用户输入用户民和密码，名称分别为TXTUSERNAME、TXTPASSWORD1和TXTPASSWORD2，设置输入和确认密码的文本框的PASSWORDCHAR属性为。（2）合同信息管理图38合同信息管理合同信息管理选项卡的设计如图38所示。在选项卡中添加一个ADO数据控件，名称为范文最新推荐23/58ADOHT，VISIBLEFALSE，记录源为语句SELECTFROM合同信息WHERE合同编号。DATAGRID控件的名称为DGDHT，CAPTION为合同信息，ALLOWUPDATEFALSE，DATASOURCEADOHT。添加或修改框架中两个文本框的名称分别为TXTHTBH和TXTHTMC，设置DATASOURCEADOHT，分别与合同编号和合同名称。选择客户组合框中的客户姓名通过调用标准模块中的ADDKHITEM（CBOXASCOMBOBOX）过程填充。（3）项目信息管理图39项目信息管理项目信息管理选项卡的设计如图39所示。在选项卡中添加一个ADO数据控件，名称为ADOXM，VISIBLEFALSE，记录源为语句SELECTFROM项目信息WHERE项目编号。DATAGRID控件的名称为DGDXM，CAPTION为项目信息，ALLOWUPDATEFALSE，DATASOURCEADOXM。添加或修改框架中两个文本框的名称分别为TXTXMBH和TXTXMMC，设置DATASOURCEADOXM，分别与项目编号项目名称绑定。选择客户组合框的处理与合同信息管理选项卡相同。在该组合框中选择客户后调用标准模块中的ADDXMITEMCBOXASCOMBOBOX,SKHBHASSTRING过程填充。325信息查询模块（1）客户信息查询图310客户信息查询查询客户信息的功能在客户信息查询窗口中实现。程序运行时，在查询方式框架中设置查询条件。单机查询以后，显示查询结果。界面设计如图310所示。范文最新推荐25/58在窗体上添加一个ADO数据控件，名称为ADOQUERY，设置VISIBLEFALSE，将其与数据库连接。添加一个DATAGRID控件名称为DATAGRID1，用于显示查询结果。设置其DATASOUCEADOQUERY，ALLOWUPDATEFALSE。在查询方式框架中添加3个复选框，名称分别为CHKKHBH、CHKKHXM和CHKGSM，设置CAPTION分别为按客户编号、按客户姓名和按公司名。添加3个文本框，名称分别为TXTKHBH、TXTKHXM和TXTGSM，用于输入客户编号、客户姓名和公司名。331建立数据库利用MICROSOFTACCESS建立数据库，名称为COMPANYHTMDB。332建立数据表根据系统功能模块的需要，再COMPANYHTMDB数据库中建立4个表。（1）用户表该表存放用户登录信息，名称为用户，结构如表32所示。表32用户表字段名类型大小说明用户名文本255主键密码文本255权限文本255（2）客户信息表该表存放每个客户的信息，名称为客户信息。结构如表33所示。范文最新推荐27/58表33客户信息表字段名类型大小说明客户编号文本2主键客户姓名文本255公司名文本255（3）合同信息表该表存放各个客户的合同标号和合同名称。标的名称为合同信息，表结构如表34所示。合同编号由4位数字组成，前两位和客户编号相同，后两位为此客户的合同序号。表34合同信息表字段名类型大小说明合同编号文本4主键合同名称文本255客户编号文本2（4）项目信息表该表存放每个合同中的项目编号和项目名称。表的名称为项目信息，表结构如表35所示。项目编号由6位数字组成，前2位为客户编号，中间2位为合同编号，最后2位为本合同中的项目编号。WITHADOUSERCOMMANDTYPEADCMDTEXTRECORDSOURCESTRSQL范文最新推荐29/58REFRESHIFRECORDSETEOFANDRECORDSETBOFTHENINTERRINTERR1IFINTERR3THENMSGBOX对不起，您无权使用本系统。,VBEXCLAMATION,提示ENDELSEMSGBOX用户名或密码错误，请重新输入,VBEXCLAMATION,提示CALLFOCUSBACKTXTUSERIDENDIFELSEGSTRUSERSTRUSERIFRECORDSET权限管理员THENGBLNPURVIEWTRUEELSEGBLNPURVIEWFALSEENDIFFRMMAINSHOWFRMMODIPASSSHOW1范文最新推荐31/58ENDSUBPRIVATESUBMNULOGIN_CLICK重新登录GBLNPURVIEWFALSEGSTRUSERPUBCNNCLOSEUNLOADMEFRMLOGINSHOWENDSUBPRIVATESUBMNUMODIKH_CLICK添加修改客户FRMMANSSTAB1TAB0FRMMANSHOW1ENDSUBPRIVATESUBMNUMODIHT_CLICK添加修改合同FRMMANSSTAB1TAB1FRMMANSHOW1ENDSUBPRIVATESUBMNUMODIGC_CLICK添加修改工程范文最新推荐33/58FRMMANSSTAB1TAB2FRMMANSHOW1ENDSUBPRIVATESUBMNUQUERYGC_CLICKFRMCXXMSHOW1ENDSUBPRIVATESUBMNUQUERYHT_CLICKFRMCXHTSHOW1ENDSUBPRIVATESUBMNUQUERYKH_CLICKFRMCXKHSHOW1ENDSUB43系统模块的实现（1）添加用户模块的实现图43添加用户模块实现当单机确定按钮后，通过ADOUSER用SQL语句查询数据库用户表中时候有相同的用户名和密码，若有，提示该用户已存在，重新输入，焦点范文最新推荐35/58返回用户名文本框。如果无同名用户，将用户名和密码添加到数据库用户表中，并且默认设置权限为普通，用MSGBOX语句提示添加用户成功。添加用户模块的代码实现PRIVATESUBCMDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCMDOK_CLICK确认检查各文本框是否为空IFTRIMTXTUSERNAMETEXTTHENUPDATEMSGBOX添加用户成功,VBINFORMATIONELSEMSGBOX此用户已存在,VBEXCLAMATIONCALLFOCUSBACKTXTUSERNAME焦点返回用户框EXITSUBENDIFENDWITHENDSUB（2）删除用户模块的实现范文最新推荐37/58图44删除用户模块实现首先用户在DATAGRID空间中选择需要删除的对象，然后点击删除用户，MSGBOX提示是否删除。如果已经选删除了一个用户但是还没有推出删除用户床提前，点击取消删除按钮可以撤销刚才的删除操作，如果直接推出此窗体则删除操作成功，程序将在数据表中删除指定的用户。删除用户模块的代码实现PRIVATESUBCMDCANCEL_CLICK取消删除ADOUSERRECORDSETCANCELBATCHADOUSERREFRESHENDSUBPRIVATESUBCMDDELETE_CLICK删除按钮IFUCASEADOUSERRECORDSET用户名ADMINTHENMSGBOX不能删除ADMIN用户。,VBEXCLAMATION,提示EXITSUBENDIFDIMINTRSPASINTEGERDIMSTRQSTASSTRINGSTRQST是否删除用户ADOUSERRECORDSET用户名范文最新推荐39/58INTRSPMSGBOXSTRQST,VBQUESTIONVBYESNO,询问IFINTRSPVBYESTHENADOUSERRECORDSETDELETE不执行更新操作，可以取消删除EXITSUBENDIF检査两次输入密码是否相同IFTRIMTXTPASSWORD1TEXTTRIMTXTPASSWORD2TEXTTHENMSGBOX确认密码错误，请重新输入,VBEXCLAMATIONCALLFOCUSBACKTXTPASSWORD2EXITSUBENDIFWITHADODC1修改密码RECORDSOURCESELECTFROM用户WHERE用户名GSTRUSERREFRESHRECORDSET密码VALUETRIMTXTPASSWORD1TEXTRECORDSETUPDATEENDWITH范文最新推荐41/58MSGBOX密码修改成功,VBINFORMATIONENDSUB（5）重新登录与退出系统模块的实现重新登录的代码实现PRIVATESUBMNULOGIN_CLICK重新登录GBLNPURVIEWFALSEGSTRUSERPUBCNNCLOSEUNLOADMEFRMLOGINSHOWENDSUB退出系统的代码实现PRIVATESUBMNUEXIT_CLICK退出UNLOADMEENDSUB44信息管理模块的实现（1）客户信息管理模块图47客户信息管理模块实现若要添加新的客户信息，则用户单击添加按钮，然后在添加或修改框架中输入相关信息。若要修改已经存在的客户信息，则用户西安需要在范文最新推荐43/58DATAGRID控件中选择想要修改的对象，然后单击编辑，在添加或修改框架中输入要修改的内容。ELSESSTAB1TABENABLEDIBLOCKENDIFNEXTENDSUBPRIVATESUBCBOHT_CLICK选合同DIMSSQLASSTRINGSSQLSELECTFROM项目信息WHERE合同编号FORMATCBOHTITEMDATACBOHTLISTINDEX,0000ORDERBY项目编号ADOXMRECORDSOURCESSQL显示本客户本合同现有项目ADOXMREFRESHENDSUBPRIVATESUBCBOKH1_CLICK选择客户组合框（合同选项卡）DIMSSQLASSTRING范文最新推荐45/58SSQLSELECTFROM合同信息WHERE客户编号FORMATCBOKH1ITEMDATACBOKH1LISTINDEX,00ORDERBY合同编号ADOHTRECORDSOURCESSQL显示现有合同ADOHTREFRESHENDSUBPRIVATESUBCBOKH2_CLICK选择客户组合框（工程选项卡）DIMSKHBHASSTRINGSKHBHFORMATCBOKH2ITEMDATACBOKH2LISTINDEX,00客户编号CALLADDXMITEMCBOHT,SKHBH填充合同组合框CBOHTENABLEDTRUEIFCBOHTLISTINDEX1THEN若本客户无合同FRACMDBTNENABLEDFALSEADOXMRECORDSOURCESELECTFROM项目信息WHERE合同编号ADOXMREFRESHELSEFRACMDBTNENABLEDTRUEELSE范文最新推荐47/58SIDFORMATCBOKH1ITEMDATACBOKH1LISTINDEX,0001ENDIFADDNEWFIELDS合同编号VALUESIDFIELDS客户编号VALUEMIDSID,1,2ENDWITHTXTHTMCSETFOCUSELSEIFSSTAB1TAB2THEN添加项目WITHADOXMRECORDSET自动生成项目编号IFRECORDCOUNT0THENMOVELASTSIDFIELDS项目编号VALUESIDMIDSID,1,4FORMATVALRIGHTSID,21,00ELSESIDFORMATCBOHTITEMDATACBOHTLISTINDEX,0001ENDIFADDNEWFIELDS项目编号VALUESID删除客户将同时删除该客户所有合同范文最新推荐49/58和项目的记录。_VBCRLF删除合同将同时删除该合同所有项目记录。_VBCRLF删除项目将同时删除该项目所有信息。_VBCRLFVBCRLF是否执行删除操作IFMSGBOXSMSG,VBEXCLAMATIONVBYESNO256,重要提示VBYESTHENIFITB0THEN删除客户ADOKHRECORDSETDELETEADOKHRECORDSETUPDATEBATCHELSEIFITB1THEN删除合同ADOHTRECORDSETDELETEADOHTRECORDSETUPDATEBATCHELSEIFITB2THEN删除项目ADOXMRECORDSETDELETEADOXMRECORDSETUPDATEBATCHENDIFMSGBOX删除成功。,VBINFORMATION,提示ENDIFENDSUB范文最新推荐51/58PRIVATESUBCMDEDIT_CLICKIFSSTAB1TAB0ANDADOKHRECORDSETRECORDCOUNT0THENEXITSUBIFSSTAB1TAB1ANDADOHTRECORDSETRECORDCOUNT0THENEXITSUBIFSSTAB1TAB2ANDADOXMRECORDSETRECORDCOUNT0THENEXITSUB项目信息管理模