本科毕业论文-龙迪玻璃贴膜公司合同管理系统的设计与开发.doc

届 别 2012 学 号 200814230213 毕业设计（论文） 龙迪玻璃贴膜公司合同管理系统的设计与开发 姓 名 系 别、 专 业 经济与管理系、信息管理与信息系统 导 师 姓 名、职 称 完 成 时 间 2012/5/15 29目 录摘要1Abstract21 绪论31.1 课题背景31.2 合同管理系统概论31.3 国内外研究动态41.4 开发工具的选择及概述52系统分析62.1 可行性分析62.2 需求分析62.3 数据流程分析63 系统设计83.1 系统功能设计规划83.2 数据库设计94界面及代码设计114.1 登录界面114.2 主菜单界面124.3 合同录入144.4 合同总览154.5 合同编辑184.6 合同查询194.7 合同原件查看214.8 合同统计225 系统测试266 总结26参考文献28致谢29摘 要随着企业的不断发展，传统的企业信息管理，已经无法达到企业的发展需求。而合同信息管理系统能够很好的解决信息管理分散,集成度不高,数据传输及时性差,合同信息追踪困难,对客户的资质难以做出有效评估等问题,使得企业实现合同管理智能化，并降低管理成本，为企业管理层的决策,提供可靠的信息保证。本文通过调查龙迪公司的现状和问题，采用VB6.0以及Access的开发环境，设计了适合龙迪公司及同类企业的合同管理系统。该系统具有合同信息录入、查询合同信息、对合同信息进行编辑、统计等功能。通过合同管理系统的应用和实施，可以为合同管理信息化和合同管理能力的提升提供强有力的支持，切实打造企业的核心竞争力。关键词：VB；Access；数据库；合同信息管理ABSTRACT With the development of enterprises, traditional business information management is not able to satisfy their needs for further development. However, the contract management system does well in solving problems such as decentralization of information management, low level of integration, a lack of timeliness in data transmission, difficulty in tracking the contract information and making an effective evaluation about the quality of customers. It enables enterprises to realize intelligent contract management, reduce management costs as well as provide reliable information assurance. This system uses a development environment for VB6.0 and Access. After inputting the contract information into the database, users can have access to all the information and figure out the performance of salespersons etc. In a word, through the application and implement of the contract management system, we are expected to give firm support to the informatization and improvement of ability in contract management, thus effectively building core competitiveness of enterprises.Key Words: VB, Access, database , contract management system . 1 绪论 1.1课题背景在2011年1月举行的“中国企业金融高峰论坛”上，公布了国家工商总局的统计的一组数据，全国工商登记注册的中小企业平均寿命仅为2.9年。中国加入WTO后，由于市场竞争的加剧，对于中国的中小企业来说，面临着前所未有的挑战。当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。面对如此激烈的竞争，加强企业对自身信息的管理无疑是个好的选择，例如，对合同的系统化信息化管理。传统的合同管理，一般采用手工的方式，这样既繁琐又容易出差错，而且会造成企业对自身资源的浪费。随着电子技术，系统开发等方面的发展与成熟，对于企业各类信息以及各种资源的管理，已经逐渐信息化、系统化、甚至智能化。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。2011年，我来到一个名字叫做龙迪的小企业，令人吃惊的是，这个企业合同文件成堆，随意乱放，有些合同甚至破旧不堪，当员工需要查找某一个合同的时候，竟然无从下手。而从深入到其它企业的情况中了解到，像上述的这种情况不是个例，而是通病。通过拜访一些小企业，发现很多中小企业对于合同的管理办法仍采用传统的手工方式，有些企业对个信息的管理也采用了Excel等方式，但是尽管如此，这些企业对于合同上的信息不能在第一时间完全获取，并且得到的也只是合同上的表面信息，不能挖掘到深层次的更重要的一些统计数据和相关性数据。因此，开发一个合同管理系统对于龙迪以及像龙迪这类的小企业是具有很深的现实意义的。1.2 合同管理系统概论管理信息系统是进行信息的采集、存储、加工、维护和使用的系统。它是随着管理科学和技术科学的发展而形成的。管理系统的整体是由相对独立的不同部分组成的。这些部分可以按人、财、物、信息、时间等来划分，也可以根据管理的职能或管理机构的部门设置来划分。合同管理系统，是建立在信息技术基础上，利用现代企业的先进管理思想，通过计算机环境，为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。合同管理系统能够通过录入合同信息，将所有数据呈现出来，可以查询到想要的客户合同信息，并进行修改、删除等编辑。还能进行数据挖掘，即对合同数据信息进行各方面的统计，以便企业的决策。本课题开发能使自己能更全面的了解市场上关于管理系统的一些信息，扩大自己的知识面，并增加对VB和数据库ACCESS的了解，以及掌握对它们的使用。合同管理系统的意义主要针对龙迪玻璃贴膜公司这类小型企业，能使企业实现对商品销售信息和数据统计的信息化管理，便于工作人员操作，优化企业管理能力，增强企业效率，加大企业竞争力。1.3 国内外研究动态管理信息系统(MIS)是一个由人、计算机和管理软件等组成的能进行信息的收集、传递、存储、加工和使用的系统。随着科技的发展,信息的日益膨胀,企业信息化成了企业在竞争中处于不败地位的有效手段之一2。目前，在欧美等发达国家， ERP的应用已经比较普及，多数大中型中小企业已经采用 ERP系统和先进管理方式多年，目前正在推行全球化供应链管理技术和敏捷中小企业后期系统，许多小中小企业也在纷纷应用 ERP 系统。一个大型企业经常需要签订各种大大小小的合同,随着签订的合同的数量的增多,合同的管理必然成为一种负担。在信息化程度越来越高的当今社会,可以使用信息化的手段来管理合同的信息3。合同管理的良好运行有利于项目的进展,企业的发展,有利于企业内部的资源优化配置,加强合同管理的信息化具有重要的意义4。通过国家软件工业应用现状统计分析，目前我国的大型中小企业使用管理软件的比例高达95%以上。其中，财务软件占98%以上；业务/商务软件约占 60% ； ERP 占40%左右。中小企业使用管理软件的比例约45%，绝大数都是财务软件。上述软件应用项目的成功率小于56%。中小企业由于其经营规模大小不一、产业形态多种多样,加之中小企业资金投入、人力资源、技术储备的局限,因此不可能照搬大企业的信息化实施的经验和模式5。由此可以看出，在中国，中小企业对于管理系统软件的应用尚未完全成熟，众所周知的是中小企业它们在夹缝中生存，很多时候对于管理系统的应用由于资金问题是心有余而力不足，特别是对于那些资金不足的小企业来说，由于本身业务量不是特别大，对于管理系统的功能要求也没有那么高，而能够有一款性价比比较高的管理系统才是最合适的。基于以上的实际情况，开发一款适合小型中小企业的合同管理系统是非常有必要而且是切实可行的。1.4 开发工具的选择及概述该系统采用VB6.0开发工具以及Access数据库。VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。VB采用了面向对象设计思想，它基本思路是把复杂的设计问题分解为多个能够完成独立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等，面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。 VB为编程提供了一个集成开发环境，在这个环境中编程者可设计界面、编写代码、调试直至把应用编译成可在Windows中运行的可执行文件，并为它生成安装VB集成开发环境，为编程者提供了很大方便。在 Visual Basic 的“工具箱”中不少控件都可以作为数据绑定的控件，包括复选框、组合框、图像、标签、列表框、图片框、以及文本框控件等。此外，Visual Basic 还包括了若干种数据绑定的 ActiveX 控件，诸如 DataGrid、DataCombo、Chart、DataList 以及ADO data控件等。用户也可以创建自己的数据绑定的 ActiveX 控件，或从其他开发商购买控件。ADO data控件，也就是Adodc，是vb6.0的数据访问控件，它使用ADO来快速建立数据绑定控件和数据提供者之间的链接，它使编程者使用最少的代码来创建数据库应用程序。Access是微软公司推出的基于Windows的桌面关系数据库管理系统，是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 数据库最主要的功能是存储数据和提供信息。当应用程序连接好数据库后，可以将数据库中的数据信息调用到应用程序中供使用者使用。本毕业设计就是采用VB开发工具开发出一个应用程序，通过连接ACCESS数据库，将合同信息展示给系统使用者并能进行一系列操作。2 系统分析2.1 可行性分析（1）经济可行性。目前中小企业处于非常大的竞争压力之中，寻求企业的信息化管理无疑是一条好出路。当然，前提是有一个适合企业本身环境的管理系统。开发该系统不需要很多研发人员，也不需要大量的时间，因此开发小型的合同管理系统相对来说，成本是比较低的。（2）技术可行性。VB 6.0可以在多个操作系统下运行，如Windows 98、Windows 2000、Windows 2003、Windows XP、Windows Vista等。只需在Window95（或更高版本的操作系统）。此外，通过对管理信息系统这门课程一年的学习以及对VB和Access的熟练，开发管理系统已经切实可行，而且如遇到难点无法短时间解决能够向老师咨询。2.2 需求分析通过实地考察，为了更好的适应工作人员对合同管理系统的需求，最大程度的避免手工操作带来的不便。该系统应该具备以下几个需求： （1）要能够进行权限识别，只有高级权限可以对合同进行录入以及编辑，而普通权限只能查看合同；（2）系统要能对合同上的数据进行基本操作，包括录入、合同浏览、合同修改、合同删除；（3）要能够对合同信息统计分析，挖掘出合同表面看不到信息；（4）要能随时查看，调阅合同原文件，对比录入的基本信息。2.3 数据流程分析通过考察的企业对合同管理系统的需求状况，以及对系统的分析，得到以下两个数据流程图：2.3.1 顶层数据流程图（如图1）合同管理系统管理层统计信息销售合同销售员图1 合同管理顶层数据流程图顶层数据流程图是销售合同通过管理系统将一些表面数据和一部分统计数据反映给管理者，使管理层更做出正确的决策。2.3.2 二层数据流程图（如图2）第二层的数据流程图主要有以下几点：（1） 销售合同信息录入到数据库；（2）对合同信息的查询和编辑，编辑包括合同信息数据的修改和删除；（3）从数据库调取数据进行统计，然后存取表格。销售合同 合同信息录入 销售员业绩统计表管理员 合同文件图片入 库 数 据 型号统计表P-03合同统 计 合同信息表 区域统计表P-02查询P-01编辑销售员图2 合同管理二层数据流程图 数据字典（处理逻辑的描述） 处理逻辑编号：P-01 处理逻辑名称：编辑 处理逻辑描述：编辑是对合同信息的修改和删除，当合同信息输入错误时，可以通过编辑进行修改，当客户将合同的余款付清或者付一部分时，要通过编辑，修改余额。 处理逻辑编号：P-02 处理逻辑名称：编辑 处理逻辑描述：查询可以按时间区间、客户姓名，销售员，区域等查询，可以按多条件查询，也可以按单一条件查询。其中，未付余额的查询是为了查看余款未付的合同 处理逻辑编号：P-03 处理逻辑名称：合同信息统计 处理逻辑描述：统计有以下三个部分，分别是销售员的业绩统计，区域销售统计，型号销售统计，每个统计部分都可以设定统计的时间区间。销售员的业绩统计是对每个销售员的在任意一段时间内的销售业绩；通过区域销售统计能够知道哪一区域所签的合同最多；通过型号销售统计可以知道哪一种型号的销售最理想。3 系统设计 3.1 系统功能设计规划系统的功能设计是以系统数据流程为依据的，为此，该系统的功能一共有有用户登录、合同录入、合同浏览、合同编辑、合同查询、合同原件查看、数据统计七项。如图3所示合 同 管 理 系 统原件查看合同查询数据统计合同浏览合同编辑合同录入用户登录图3 系统功能模块图 用户登录：此模块用于身份验证，通过验证后，才能进入系统 合同录入：此模块用于合同信息数据的录入，将合同信息存入数据库； 合同浏览：此模块主要用于对合同基本信息的浏览； 合同编辑：此模块用于对已经输入到数据库的信息进行编辑，包括合同信息的修改和删除； 合同查询：此模块是对合同进行查询，可以按条件对数据库中的所有合同进行查询。得到符合查询条件的合同； 合同原件查看：此模块是为了将原始信息保存，方便以后合同信息的查阅； 数据统计：此模块用于对所有合同信息数据进行的统计，包括按时间统计等。 信息编辑板块则包括对合同信息的修改和删除（如图4），合同信息修改主要用于结算的时候余额的修改。若余额大于零，则合同未结；当客户将未结余款付清后，可以将合同上的未结余额项目改为零，表示合同已结。信息编辑合同信息删除合同信息修改图4 信息编辑模块图数据统计模块包括以下三部分：型号销售统计、区域销售统计以及销售员销售业绩统计，如图5数据统计销售业绩统计区域销售统计型号销售统计图5 统计模块图3.2 数据库设计根据以上对管理系统的要求以及系统分析，系统功能设计，设计了一共三个数据库文件，它们的结构如下：（1）账号密码表表1 账号密码表字段名称数据类型长度账号Text16密码Text16权限Text16 账号密码表主要用于管理系统的登录，登录时调用，权限不同，能进行的操作也不同，如高级权限能进行信息录入，信息编辑，而普通权限则不能。（2）合同信息表表3 合同信息表字段名称数据类型长度编号Double8客户姓名Text8性别Text2联系方式Double12区域Text10款式Text10面积Double10总金额Double10已付定金Double10未付余额Double10销售员Text8施工人员Text8日期Date20地址Text30备注Memo100 合同信息表主要包括编号、客户姓名、日期、总金额等15项，由于合同本身有很多项目，因此合同信息表的设计字段会比较多，而且一些可设可不设的字段都已经被省去。4 界面及代码设计在VB模块里面定义全局变量qxPublic qx As String4.1 登录界面登录界面为操作者的身份验证程序，只有当操作者输入正确的账号密码时才能进入系统。图6 登录界面登陆界面一共有五个文本框，一个ADO控件，两个command按钮，两个标签，其中Text3和Text4通过ADODC控件连接数据库ADO控件的RecordSource属性为密码表 connectionstring属性为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:论文数据库2003密码管理表.mdb;Persist Security Info=False 代码如下：Private Sub Command：1_Click()Adodc1.Recordset.MoveFirst 将记录指向第一个，从第一条记录开始 Adodc1.Recordset.Find (用户名 = & Text1.Text & )查找用户名 If Text3.Text = Then 如果没找到 MsgBox (用户名不存在), 48, 弹出用户名不存在 Else If Text4.Text = text2.Text Then 如果密码等于text2内容 菜单.show 打开菜单界面 qx = Text5.TextUnload Me 关闭当前界面 Else MsgBox (密码错误), 48, 弹出密码错误 End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub4.2 主菜单界面图7 菜单界面菜单界面是系统的主页面，是连接所有页面的枢纽。从菜单界面可以打开信息录入界面、统计界面等等。Private Sub Form_Load() Picture1.Move 0, 0, Me.Width, Me.HeightEnd SubPrivate Sub Form_Resize() Picture1.Move 0, 0, Me.Width, Me.HeightEnd SubPrivate Sub Picture1_Paint() Dim pp As StdPicture Set pp = LoadPicture(G:论文论文图片111.jpg ) Picture1.PaintPicture pp, 0, 0, Picture1.Width, Picture1.HeightEnd SubPrivate Sub 合同图片_Click() 合同图片查看.ShowEnd SubPrivate Sub 区域销售数据统计_Click() 区域销售统计.ShowEnd SubPrivate Sub 时间销售数据统计_Click() 时间销售统计.ShowEnd SubPrivate Sub 合同总览_Click() 数据浏览.ShowEnd SubPrivate Sub 退出系统_Click() Unload MeEnd SubPrivate Sub 销售员销售数据统计_Click() 销售员销售统计.ShowEnd SubPrivate Sub 信息编辑_Click() 信息编辑.ShowEnd SubPrivate Sub 信息录入_Click() If qx = 管理权限 Then 合同录入.Show Else MsgBox 权限不够, 48, 权限 End IfEnd SubPrivate Sub 型号销售数据统计_Click() 型号销售统计.ShowEnd Sub如上代码是菜单界面的所有代码，主要包括两部分，一是菜单页面的制作，主要是使菜单界面的背景美化；二是各界面的单击显示，通过鼠标单击，可以将点击的界面弹出，使系统使用者进行下一个操作环节。4.3 合同录入图8 合同信息录入界面录入界面是将合同上的信息录入到数据库中，VB和数据库ACCESS的连接是通过Adodc连接的，代码如下：Private Sub Command1_Click() 录入代码，将合同信息录入到数据库中 If Text1.Text = And Text2.Text = Then MsgBox 请输入合同信息, 48, 合同录入 Else Adodc1.Recordset.Save Adodc1.Refresh Adodc1.Recordset.AddNew End IfEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.CancelUpdateAdodc1.RefreshEnd SubPrivate Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Combo1.Text = Combo2.Text = Combo3.Text = End SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub Form_Load() 下列代码是合同录入前将指针指向空白行 Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNewEnd Sub4.4 合同总览图9 合同信息总览界面合同信息数据总览是将所有的合同信息通过MSHFlexgird控件显示，也是采用ADO控件连接数据库，它通过表格的形式将所有合同的所有信息一一显示，使之一目了然。此界面中有两个文本框，第一个文本框用来显示合同数量，即录入到此管理系统的总合同量，第二个文本框则显示MSHFlexGrid中所有合同的总销售金额，当操作者查看的是全部合同时，显示的所有合同的总金额，而当操作者查看的是查询后的合同时，显示的则是当前条件下的合同总金额。ADO控件的RecordSource属性为表1 connectionstring属性为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:论文数据库2003合同信息表.mdb;Persist Security Info=False 代码如下：Private Sub Command1_Click() 查询.ShowEnd SubPrivate Sub Command2_Click() Private Sub Command2_Click() If qx = 管理权限 Then 编辑.Show Else MsgBox 权限不够, 48, 权限 End IfEnd SubPrivate Sub Command3_Click() Adodc1.CommandType = adCmdTable Adodc1.RecordSource = 表1 Adodc1.Refresh Dim i As Integer Dim s As Long MSHFlexGrid1.ColWidth(0) = 1200 MSHFlexGrid1.ColWidth(5) = 1750 Text2.Text = MSHFlexGrid1.Rows - 1 s = 0 For i = 1 To MSHFlexGrid1.Rows - 1 s = s + MSHFlexGrid1.TextMatrix(i, 9) Next Text3.Text = sEnd SubPrivate Sub Command4_Click() Dim i As Integer Dim j As Integer Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject(Excel.Application) xlApp.Visible = True Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 MSHFlexGrid1.Row = i MSHFlexGrid1.Col = j xlSheet.Cells(i + 1, j + 1) = MSHFlexGrid1.TextMatrix(i, j) Next NextEnd SubPrivate Sub Command5_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer Dim s As Long MSHFlexGrid1.ColWidth(0) = 1200 MSHFlexGrid1.ColWidth(5) = 1750 Text2.Text = MSHFlexGrid1.Rows - 1 s = 0 For i = 1 To MSHFlexGrid1.Rows - 1 s = s + MSHFlexGrid1.TextMatrix(i, 9) Next Text3.Text = sEnd SubPrivate Sub MSHFlexGrid1_Click() Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0)End Sub4.5 合同编辑图11 编辑界面 Private Sub Command1_Click() Adodc1.Recordset.Save Adodc1.RefreshEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.CancelUpdate Adodc1.RefreshEnd SubPrivate Sub Command3_Click() If Adodc1.Recordset.BOF Then MsgBox 已到首记录, 48, 记录浏览 Else Adodc1.Recordset.MovePrevious End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.EOF Then MsgBox 已到最后一条记录, 48, 记录浏览 Else Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub Command5_Click() Dim ans As String ans = MsgBox(确定要删除该记录吗?, vbQuestion + vbOKCancel, 删除记录) If ans = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub Command6_Click() Unload MeEnd SubPrivate Sub Form_Load() Text12.Text = 数据浏览.Text1.Text Dim mynumber As String mynumber = Text12.Text Adodc1.Recordset.MoveFirst If mynumber Then mynumber = 编号= & mynumber & Adodc1.Recordset.Find (mynumber) End IfEnd Sub4.6 合同查询图12 查询界面 查询界面可以通过对数据信息的条件搜索，将符合条件的合同信息挑选出来，通过MSHflexgrid呈现查询条件有以下几种，按客户姓名、按区域、日期、款式、金额区间、销售员以及未付余额。当查询的条件为空是，则跳过当前条件。代码如下：Private Sub Command1_Click()Dim wherestr As StringDim Sql As Stringwherestr = If Text1.Text Then wherestr = and 客户姓名= & Text1.Text & End IfIf Combo1.Text Then wherestr = and 区域= & Combo1.Text & & wherestrEnd IfIf Combo2.Text Then wherestr = and 款式= & Combo2.Text & & wherestrEnd IfIf Text4.Text Then wherestr = and 销售员= & Text4.Text & & wherestrEnd IfIf Combo3.Text = 未付 Then wherestr = and 未付余额 0 & wherestrEnd IfIf Combo3.Text = 已付 Then wherestr = and 未付余额 = 0 & wherestrEnd IfIf Text2.Text And Text3.Text Then Wherestr = and 总金额 & Trim(Text2.Text) & and 总金额 & Trim(Text3.Text) & & wherestrEnd IfIf DTPicker1.Value And DTPicker2.Value Then wherestr = and 日期 between # & DTPicker1.Value & # and # & DTPicker2.Value & # & wherestrEnd Ifwherestr = where 1=1 & wherestrSql = select * from 表1 & wherestr数据浏览.Adodc1.CommandType = adCmdText数据浏览.Adodc1.RecordSource = Sql数据浏览.Adodc1.RefreshDim i As IntegerDim s As Long数据浏览.MSHFlexGrid1.ColWidth(5) = 1750数据浏览.Text2.Text = 数据浏览.MSHFlexGrid1.Rows - 1s = 0For i = 1 To 数据浏览.MSHFlexGrid1.Rows - 1 s = s + 数据浏览.MSHFlexGrid1.TextMatrix(i, 9)Next数据浏览.Text3.Text = s数据浏览.Text2.Text = 数据浏览.MSHFlexGrid1.Rows - 1数据浏览.ShowEnd SubPrivate Sub Command2_Click()Text1.Text = Combo1.Text = Combo2.Text = Text4.Text = Combo3.Text = Text2.Text = End SubPrivate Sub Command3_Click()Unload MeEnd Sub4.7 合同原件查看 销售员将签下的合同交给企业后，有管理人员拍下照片凭证，并存储，然后系统可以查看此合同照片 在窗体中添加一个picture控件，一个text控件，一个ado控件代码如下：Private Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() mynumber = InputBox$(输入合同编号, 查找合同文件) Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find (编号 = & mynumber & ) If Text1.Text = Then MsgBox (合同不存在), 48, Width = 5000 Height = 1500 Else Picture1.Picture = LoadPicture(G:论文论文图片合同打印文件 & mynumber & .jpg) End If Picture1.Move 0, 0, Me.Width, Me.HeightEnd SubPrivate Sub Form_Resize() Picture1.Move 0, 0, Me.Width, Me.HeightEnd Sub4.8 合同统计图13 销售统计界面对销售员的销售业绩进行统计，可以比较销售员之间的业绩差距，了解企业内部信息。Private Sub Command1_Click()Dim i As Integer Adodc1.CommandType = adCmdText Adodc1.RecordSource = select distinct 销售员 from 表1 Adodc1.Refresh MSHFlexGrid1.TextMatrix(0, 0) = 销售员 MSHFlexGrid1.TextMatrix(0, 1) = 销售业绩 MSHFlexGrid1.ColAlignment = 4For i = 1 To MSHFlexGrid2.Rows - 1Text1.Text = MSHFlexGrid2.TextMatrix(i, 0)MSHFlexGrid1.TextMatrix(i, 0) = MSHFlexGrid2.TextMatrix(i, 0) Adodc2.CommandType = adCmdText Adodc2.RecordSource = select sum(总金额) as 销售额 from 表1 where 销售员= & Text1.Text & and 日期 between # & DTPicker1.Value & # and # & DTPicker2.Value & # Adodc2.Refresh MSHFlexGrid1.TextMatrix(i, 1) = MSHFlexGrid3.TextMatrix(1, 0)NextEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim j As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet Set xlApp = CreateObject(Excel.Application)xlApp.Visible = True Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlB