数据库原理与应用课程设计合同管理系统设计

1、目 录第一章第一章 系统分析系统分析.1 11.1 开发背景 .11.2 系统需求分析 .21.3 开发环境 .3第二章第二章 系统设计系统设计.5 52.1 系统架构 .52.2 系统功能模块 .62.3 系统流程图 .72.4 系统的数据库设计 .8第三章第三章 系统实现系统实现.11113.1 登录模块实现 .113.2 用户注册 .133.2 主界面 .143.3 密码修改与管理员添加 .153.4 信息管理 .18第四章第四章 系统测试系统测试.23234.1 系统测试步骤 .234.2 系统测试结论 .24第五章第五章 课程设计总结课程设计总结.25255.1 系统的功能和特点 .

2、255.2 课程设计心得 .25参考文献参考文献.2626东北石油大学本科生课程设计1第一章 系统分析1.1 开发背景传统的合同管理，多采用手工的形式管理合同，即繁琐又易于出差错采用手工管理合同，这是由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面：1)文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。2)进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通

3、word、excel 管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。3)信息汇总困难：采用手工或 excel 管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。4)缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。完善的合同管理是公司健康运作的一个重要标志。然而，完善的合同管理需要公司许多的资源，如何简化合同的管理而不失其完整、科学是许多公

4、司头痛的问题。随着电子技术的飞速发展，合同进行信息化的管理，避免进行简单的重复，从而做到准确、快捷。为了适应这个要求，同时也是适应时代的要求，更加快速、准确的合同管理系统也就应运而生了，合同管理系统，是建立在信息技术基础上，利用现代企业的先进管理思想，为企业提供决策、计划、控制与经营绩效评估的全方位、系统化的合同管理平台。在当代业务管理是合同管理的核心需求，而合同管理系统就恰恰可以解决实际业务管理中的问题，专注于企业合同管理的动态化、智能化、网络化，为企业提供合理的流程和业务约束以及全方位的合同管理功能，包括合同起草、合同审批、文本管理、履约监督、结算安排、智能提醒合同收付款、项目管理、合同结

5、款情况统计分析、报表输出和决策支持等。是为了更好地适应工作人员对合同管理系统的需求，缓解手工管理的弊端，开发合同管理系统，合同管理系统向用户提供的服务将在传统的“录入-修改-删除-查找”的基础上，近一步提供全方位的信息服务，1它具有东北石油大学本科生课程设计2以下几个特点：（1）可以存储所有合同的资料，具有安全、高效的的特性；（2）只需一名合同信息录入人员即可操作本合同管理系统，可以节省大量的人力和物力；（3）可以通过查询系统迅速查到所需的信息。在合同管理系统搭建和运行中，企业能不断规范和优化合同管理业务流程，有效地把签约授权管理、相对人管理、合同立项选商、合同申报、合同审查审批、合同签订、合

6、同履行和合同归档等工作借助合同管理系统平台进行了规范管理，实现了合同管理工作由以往浅层被动管理向深层宽幅度主动管理的质的飞跃合同管理系统上线，改变了以往合同审查审批流于形式、审查不严、把关不到位等问题。系统流程通过划分合同承办范围、确定部门职责、专业地位及审查审批权限等，使管理层次明确，承办范围固定，专业技术、经济商务、法律及企业管理人员全过程参与，人性化地体现了责权利的有机统一，实现了合同签订事前、事中和事后管理，有效控制了法律风险。合同管理系统上线，使管理幅度延伸、管理层次清晰，合同签订的时效性明显提高。在运行中合同审查人员能更加直观、透明、一目了然地把好“三项审查”关，特别是加强了对合同

7、相对人主体资格的审查，对不具备资质、没有履约能力的，坚决不与之签订合同2。合同管理系统可以为企业管理带来如下价值：1.规范基础数据管理，合同管理系统采用集中的数据管理，可以有效地改变企业信息分布比较散乱的现状。同时，系统提供自定义字段功能，可以为企业实现完整、规范的数据管理提供一个良好的平台支撑。2.提高管理效率，合同管理系统避免了手工管理合同出现，利用审批流管理，可以方便、快捷地处理企业管理事务；3.实现标准化管理和个性化管理的有机结合，合同管理系统通过全局设置和权限分配，可以由公司制订统一采用的管理标准，4.为领导决策提供准确及时广泛的信息，利用互联网，领导可以在任何时间、任何地方进入系统

8、，随时查阅与合同管理相关基本信息，准确定位下属人员的工作情况，掌握合同执行现状，并方便地生成各种数据报表或图表。5.为用户提供全面合同管理解决方案，合同管理系统与企业管理咨询相结合，可以为客户提供全面的合同管理解决方案。通过合同管理系统的应用和实施，可以为合同管理信息化和合同管理能力提升提供一个最佳的结合点，切实打造企业核心竞争力。由以上所述，本文拟设计一个安全性更好，有更强的通用性和可扩展性和具备较强的意外事件处理能力，操作简单，使用方便的合同管理系统。本文设计的是一套基于微软 sql server2000 数据库的网络软件系统。该合同管理系统是基于浏览器的操作方式，界面简洁，菜单模块布局清

9、晰，操作者能够更快、更方便地上手使用。东北石油大学本科生课程设计31.2 系统需求分析信息需求分析是系统总体设计的基础,要编制一个完整的合同信息管理系统,必须首先理解用户的需求,并形成需求说明书.在此基础上才可以进行系统设计,程序编码等工作。通过发放大量的调查表和现场调查以及对有关人员的询问,我们分析得出合同的业务流程图和合同处理流程图2如下: 物资信息 图 1-1 合同业务流程图 图 1-2 合同处理流程图本系统可以实现一下功能：用户登录管理。而用户又分为管理员和普通用户两种，没有权限的用户或非法用户不能进入本系统，从而有效的保证了系统的安全。管理员可以对信息进行编辑、修改的操作，而普通用户

10、没有编辑的权限。合同基本信息的录入。能对合同的基本信息进行录入，包括合同的编号、合同的类别、合同的名称、签订合同的双方，签约日期，年限，成交金额等信息。对用户密码进行修改，为了保证软件的安全，用户需要定期的修改密码，用户登录后可以对自己的密码进行修改。用户注册，添加管理员。本系统实现了用户注册和管理员添加的功能，这些操作需要严格的用户认证，确保系统的安全性。本系统还包括对基本信息的显示，可以进行数据的增加、删除和修改等一系列操作。合同管理系统的强大功能，使得合同信息管理更加的方便、快捷，而且采购计划表签订合同合同供应科厂家供应科供应商采购计划合同签订合同合同执行供应科物资信息提货单供货厂家东北

11、石油大学本科生课程设计4更加的准确，提高了工作效率。1.3 开发环境数据库是数据管理的最新技术，是计算机科学的重要分支。十年来，据库管理系统已从专用的应用程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序等优点，较大的信息系统都是建立在数据库设计之上的。由于用到的数据表格多，另外考虑到实际情况，如合同基本信息的变动，我们选用 sql server 作为数据库开发，因为 sql server 是一种常用的关系数据库，能存放和读取大量的数据，管理众多并发的用户，故选用 sql server 数据库。目前的可用的设计技术在设计此类系

12、统上的数据库、技术已经非常成熟，可提供的开发工具也很多，例如：visual c+，visual basic ，powerbuilder，dephi，c#，visual foxpro 等，它们都是很好的数据库开发工具，都是可视化开发工具，功能强大，开发周期短，对于本任务都能够胜任。visual basic 是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发 windows 环境下的各种应用程序，它简单易学、效率高、且功能强大，可以高效、快速地开发出 window 环境下功能强大、图形界面丰富的应用软件系统。总的来说，visual basic 具有以下特点：可视化编程：用传

13、统程序语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察，如果对界面的效果不满意，还要回到程序中修改，影响了软件的开发效率。visual basic 自动产生界面设计代码，程序设计人员只需编写实现程序功能的那部分代码，从而可以大大提高程序设计效率3。面向对象的程序设计：4.0 版以后的 visual basic 支持面向对象的程序设计，但它与一般的面向对象程序设计语言不完全相同，在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而 visual basic 则是应用面向对象的程序设计方法，把程序和数据封装起

14、来做为一个对象，并为每个对象赋予应有的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，visual basic 自动生成对象的程序代码冰封装起来，每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言：visual basic 是在 basic 语言的基础上发展起来的，具有高级程序设计语言的语句结构，visual basic 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。因此选择 vb 编程语言进行设计。东北石油大学本科生课程设计5 第二章 系统设计2.1 系统架构整个系统分为三个部分，管理员、普

15、通用户和主界面。首先，因为系统是面向特定的某些对象的，所以用户进入系统应该进行身份验证。根据不同的身份进入不同的操作界面，近而执行不同的操作。对于普通用户来说，可以通过注册成为该系统合法的用户，然后通过用户名和密码认证就可以登录合同管理系统，进入用户主界面之后，普通用户可以修改自己的登录密码，查看供方信息、需方信息、物资信息和合同的基本信息，但是普通用户没有修改这些信息的权限，浏览信息结束后，用户可以通过点击“退出”按钮退出合同管理系统。对于管理员而言，通过用户名和密码认证登录系统，进入管理员主界面，可以修改登陆的密码，查看供方信息、需方信息、物资信息和合同信息，并可以对相应的信息进行修改，同

16、时还可以进行添加新的管理员的操作，对基本的信息进行录入，添加新的合同等一系列操作，最后通过点击“退出”按钮退出系统。本系统是以 windows xp 系统为操作平台，在.net 环境下编程实现。系统 e-r 图普通用户管理员管理编号姓名性别密码年龄 编号密码邮箱信息管理供方信息需方信息物资信息合同信息1nn1查看1n邮箱 图 2-1 系统 e-r 图姓名东北石油大学本科生课程设计62.2 系统功能模块本系统分为用户管理模块、供方信息管理模块、需方信息管理模块、物资信息管理模块、合同信息管理模块、合同建立管理模块、密码修改管理模块、退出模块、信息录入管理模块九个模块。合同管理系统管理员普通用户密

17、码修改信息查询退出供方信息需方信息物资信息合同信息信息查询用户管理合同建立密码修改信息录入退出管理员普通用户供方信息录入需方信息录入物资信息录入 图 2-2 系统模块图 普通用户用例图 图 2-3 普通用户用例图东北石油大学本科生课程设计7 管理员用例图： 图 2-4 管理员用例图2.3 系统流程图1、登录模块流程图登陆模块包含三个可填选项，用户角色，分为管理员和普通用户两种，通过填写用户名和密码，经过认证的用户才可以进入系统，查看相应的信息，修改密码等操作。系统用户管理员用户普通用户修改管理员用户密码添加新的管理员信息修改自身密码 图 2-5 登录系统模块流程图用户权限分为管理员和普通用户。

18、2、信息管理模块流程图东北石油大学本科生课程设计8信息管理供方信息需方信息物资信息合同信息用户信息图 2-6 信息管理模块流程图2.4 系统的数据库设计数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。是根据根据用户的需求，在某一具体的数据库管理系统上，设计数据库的结构和建立数据库的过程。4数据库设计时需要综合企业各部门的存档数据和数据需求，分析各个数据之间的关系，按照dbms 提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少，存取效率高、能满足多种查询要求的数据模型。是对于一个给定的应用环境，构造最优的数据库模式，建立数据

19、库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。数据库设计是建立数据库及其应用系统的技术，是信息系统开发和建议中的核心技术。由于数据库应用系统的复杂性，为了支持相关程序运行，数据库设计就变得异常复杂，因此最佳设计不可能一蹴而就，而只能是一种“反复探寻，逐步求精”的过程，也就是规划和结构化数据库中的数据对象以及这些数据对象之间关系的过程。数据库是信息系统的核心和基础，把信息系统中大量的数据按一定的模型组织起来，提供存储、维护、检索数据的功能，使信息系统可以方便、及时、准确地从数据库中获得所需的信息，是信息系统的各个部分能否紧密地结合在一起以及如何结合的关键所在。也是是信息系统开发

20、和建设的重要组成部分4。综合以上分析，要实现上面的所有功能模块，数据库共要设计六个表，它们分别是：管理员信息表、普通用户信息表、供方信息表、需方信息表、物质信息表、合同信息表，每张表中都包含很多的字段，所具有的一些属性，在进行数据访问的时候，都要用到这几张表，这是数据库设计实现的基础，也是系统实现必不可少的组成部分。具体表中的信息如下：东北石油大学本科生课程设计9 表 2-1 管理员信息表序号字段名数据类型数据长度nullprimarykey描述1numberbigint8ny编号2usernamenvarchar20nn姓名3passwordnvarchar10nn密码4emailnvarc

21、har30nn注册邮箱5problemnvarchar20nn密码提示问题6answernvarchar20nn问题答案表 2-2 普通用户信息表序号字段名数据类型数据长度nullprimarykey描述1numberbigint8ny编号2usernamenvarchar20nn姓名3passwordnvarchar10nn密码4emailnvarchar30nn注册邮箱5agebigint10yn年龄6sexnvarchar10yn性别7problemnvarchar20nn密码提示问题4answernvarchar20nn问题答案表 2-3 供方基本信息表序号字段名数据类型数据长度nul

22、lprimarykey描述1idbigint8ny编号2namenvarchar20nn厂家名称3addressnvarchar30yn厂家地址4typenvarchar10nn货物类型5aveprizenvarchar30yn平均价格6maxnumnvarchar30nn提供最大量7moneynvarchar30yn厂家总资产8gradebigint10nn厂家评价表 2-4 需方基本信息表序号字段名数据类型数据长度nullprimarykey描述1numberbigint8ny编号东北石油大学本科生课程设计102namenvarchar20nn厂家名称3addressnvarchar30y

23、n厂家地址4typenvarchar10nn货物类型5maxnumnvarchar30yn需求最大量6moneynvarchar30yn厂家总资产7gradebigint10nn厂家评价表 2-5 物资基本信息表序号字段名数据类型数据长度nullprimarykey描述1numberbigint8ny编号2namenvarchar20nn物资名称3addressnvarchar30nn存放地址4typenvarchar10nn物资类型6prizenvarchar30yn平均价格7quantitynvarchar30yn库存总量8gradebigint10nn物资等级 表 2-6 合同基本信息表

24、序号字段名数据类型数据长度nullprimarykey描述1numberbigint8ny编号2providernvarchar20nn签约甲方3receivernvarchar20nn签约乙方4datesnvarchar20yn签约日期5thingnvarchar20nn签约物品6addressnvarchar30yn签约地点7yearsnvarchar10nn合约年限8prizenvarchar30nn成交金额由上述六张表构成了整个合同管理系统的是数据库设计，其数据表格中含有大量的数据信息，为合同管理系统的构建打下了坚实的基础。数据库设计是合同信息管理系统的核心和基础，使信息管理系统可以方

25、便、及时、准确地从数据库中获得所需的信息，并正确的显示在用户的眼前，数据库设计包含了系统中主要功能模块实现的信息查询和信息存储。使系统实现基本功能的重要组成成分，没有数据库设计，合同管理系统的开发就无从谈起，所以，要搭建功能完善的合同管理系统，就必须有一个完整的，稳定性强数据库设计。 东北石油大学本科生课程设计11第三章 系统实现应用程序用 vb 开发，界面设计的简单明了，根据需求分析和功能设计，系统应用程序分为六大模块：登录模块、用户注册、主界面、密码修改、信息管理、管理员添加模块。3.1 登录模块实现登录界面是用户最先看到的系统的界面，所以直观上给用户的感觉很重要，所以做一个好的界面，可以

26、提高软件的亲和力，本合同管理系统的登录界面如图3-1。 图 3-1 登录模块界面根据登录模块的功能，用户分为管理员和普通用户两种，都需要输入正确的用户名和密码，得到系统认证后才可以进入系统的主界面，管理员登录进入管理员的主界面，普通用户登录进入用户主界面。普通用户只有查看信息和修改本密东北石油大学本科生课程设计12码的权限，而管理员可以对数据进行修改、删除等操作。具体代码实现如下5：protected sub button1_click(byval sender as object, byval e as system.eventargs) handles button1.click dim

27、user as string dim passw as string user = username0.text passw = password.text if username0.text and password.text then dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim str, str1 as string str = selec

28、t * from login where username= & username0.text & and type= & role.selecteditem.text & and password= & password.text & str1 = select * from users where username= & username0.text & and type= & role.selecteditem.text & and password= & password.text & if role.selecteditem.text = 管理员 then dim cmd as ne

29、w oledbcommand(str, conn) conn.open() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() response.redirect(default2.aspx) else conn.close() message.text = 请输入正确的用户名和密码 end if end if if role.selecteditem.text = 普通用户 then dim cmd1 as new oledbcommand(str1, conn) conn

30、.open() dim dr as oledbdatareader = cmd1.executereader() if dr.read() = true then conn.close() response.redirect(default20.aspx) else conn.close() message.text = 请输入正确的用户名和密码 end if end if end if end sub东北石油大学本科生课程设计133.2 用户注册用户注册界面如下图： 图 3-2 用户注册界面具体实现代码如下：protected sub linkbutton1_click(byval send

31、er as object, byval e as system.eventargs) handles linkbutton1.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql as string strsql = insert into users (type,username,password,email,age,sex,

32、problem,answer) values (普通用户, & username.text & , & password.text & , & email1.text & , & age.text & , & sex.selecteditem.text & , & answer.text & , & problem.selecteditem.text & ) dim cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() response.redirect(default.aspx

33、) end sub protected sub linkbutton2_click(byval sender as object, byval e as system.eventargs) handles linkbutton2.click password.text = email1.text = 东北石油大学本科生课程设计14 age.text = sex.selecteditem.text = 男 problem.selecteditem.text = 手机后六位 answer.text = end sub通过填写用户注册信息，就可以成为本系统合法的用户，通过用户名和密码就可以登录系统，

34、查看系统内的信息。3.2 主界面主界面包含管理员主界面和普通用户主界面如下图： 图 3-3 管理员主界面图 3-4 普通用户主界面东北石油大学本科生课程设计15由主界面的不同就可以看出两种用户在权限上的差别，管理员可以修改信息，添加合同，而用户只能浏览信息。3.3 密码修改与管理员添加图 3-5 密码修改界面具体实现代码如下6： protected sub linkbutton11_click(byval sender as object, byval e as system.eventargs) handles linkbutton11.click dim conn as new oledb

35、connection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim str, str1 as string str = update login set password= & password2.text & where username= & username.text & and email= & email.text & str1 = select * from login where usernam

36、e= & username.text & and email= & email.text & dim cmd as new oledbcommand(str1, conn) dim cmd2 as new oledbcommand(str, conn) conn.open() cmd.executenonquery() cmd2.executenonquery() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() response.redirect(default14.as

37、px) else message.text = 密码修改不成功东北石油大学本科生课程设计16 end if系统还提供了密码找回的功能，具体界面如下 图 3-6 密码找回界面具体实现代码如下6：protected sub linkbutton1_click(byval sender as object, byval e as system.eventargs) handles linkbutton1.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security

38、 info=false;initial catalog=contract;data source=.) dim str, str1 as string str = select * from login where username= & username.text & and email= & email.text & and problem= & problem.selecteditem.text & and answer= & answer.text & str1 = select * from users where username= & username.text & and em

39、ail= & email.text & and problem= & problem.selecteditem.text & and answer= & answer.text & if role.selecteditem.text = 管理员 then dim cmd as new oledbcommand(str, conn) conn.open() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() response.redirect(default2.aspx) el

40、se conn.close() message.text = 找回密码失败 end if end if if role.selecteditem.text = 普通用户 then东北石油大学本科生课程设计17 dim cmd as new oledbcommand(str1, conn) conn.open() dim dr as oledbdatareader = cmd.executereader() if dr.read() = true then conn.close() response.redirect(default20.aspx) else conn.close() messa

41、ge.text = 找回密码失败 end if end if end sub添加管理员界面如下： 图 3-7 添加管理员界面具体实现代码如下： protected sub linkbutton13_click(byval sender as object, byval e as system.eventargs) handles linkbutton13.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial ca

42、talog=contract;data source=.) dim str as string str = insert into login (type,username,password,email,problem,answer)values(管理员, & username.text & , & password1.text & , & email.text & , & problem.selecteditem.text & , & answer.text & ) dim cmd as new oledbcommand(str, conn) conn.open() cmd.executen

43、onquery() response.redirect(default2.aspx)东北石油大学本科生课程设计18 conn.close() end sub3.4 信息管理其中信息管理包含供方信息管理、需方信息管理、物资信息管理、合同信息管理四方面，而合同信息管理又分为合同的查询和建立。以供方信息管理为例，具体界面如下图： 图 3-8 供方信息管理界面具体实现代码如下：先与数据库绑定，绑定函数如下sub binddata() dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist

44、security info=false;initial catalog=contract;data source=.) dim cmd as new oledbcommand(select * from provider, conn) dim adp as new oledbdataadapter(cmd) dim ds as new dataset() adp.fill(ds, provider) mygridview.datasource = ds.tables(provider).defaultview mygridview.databind() end sub 实现数据编辑、删除、更新

45、操作代码如下7：protected sub mygridview_rowcancelingedit(byval sender as object, byval e as system.web.ui.webcontrols.gridviewcancelediteventargs) handles 东北石油大学本科生课程设计19mygridview.rowcancelingedit mygridview.editindex = -1 binddata() end sub protected sub mygridview_rowediting(byval sender as object, byva

46、l e as system.web.ui.webcontrols.gridviewediteventargs) handles mygridview.rowediting mygridview.editindex = e.neweditindex binddata() end sub protected sub mygridview_rowupdating(byval sender as object, byval e as system.web.ui.webcontrols.gridviewupdateeventargs) handles mygridview.rowupdating dim

47、 conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql, txtname, txtaddress, txttype, txtgrade, txtaveprize, txtmaxnum, txtmoney, key as string key = mygridview.datakeys(e.rowindex).value.tostring txtna

48、me = ctype(mygridview.rows(e.rowindex).cells(2).controls(0), textbox).text.tostring().trim() txtaddress = ctype(mygridview.rows(e.rowindex).cells(3).controls(0), textbox).text.tostring().trim() txttype = ctype(mygridview.rows(e.rowindex).cells(4).controls(0), textbox).text.tostring().trim() txtavepr

49、ize = ctype(mygridview.rows(e.rowindex).cells(5).controls(0), textbox).text.tostring().trim() txtmaxnum = ctype(mygridview.rows(e.rowindex).cells(6).controls(0), textbox).text.tostring().trim() txtmoney = ctype(mygridview.rows(e.rowindex).cells(7).controls(0), textbox).text.tostring().trim() txtgrad

50、e = ctype(mygridview.rows(e.rowindex).cells(8).controls(0), textbox).text.tostring().trim() strsql = update provider set name= & txtname & ,address= & txtaddress & ,type= & txttype & ,maxnum= & txtmaxnum & ,grade= & txtgrade & ,aveprize= & txtaveprize & ,money= & txtmoney & where number = & key & di

51、m cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() mygridview.editindex = -1 binddata() end sub protected sub mygridview_rowdeleting(byval sender as object, byval e as 东北石油大学本科生课程设计20system.web.ui.webcontrols.gridviewdeleteeventargs) handles mygridview.rowdeleting

52、 dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim str, key as string key = mygridview.datakeys(e.rowindex).value.tostring str = delete from provider where number = & key & dim cmd as new oledbcommand(

53、str, conn) conn.open() cmd.executenonquery() conn.close() mygridview.editindex = -1 binddata() end sub供方信息管理、需方信息管理、物资信息管理、合同信息管理在数据查询方式上可以归为一类，用 gridview 控件进行显示，并可以通过点击编辑按钮对数据进行修改，点击删除就可以删除数据。同时系统还实现了自动分页、自动排序的功能。合同建立界面如下图： 图 3-9 合同建立界面具体实现代码如下：protected sub button1_click(byval sender as object, by

54、val e as system.eventargs) handles button1.click dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql as string东北石油大学本科生课程设计21 strsql = insert into contract (number,provider,receiver,thing,years,da

55、tes,address,prize) values ( & number.text & , & provider.text & , & receiver.text & , & thing.text & , & years.text & , & today() & , & address.text & , & prize.text & ) dim cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() response.redirect(default2.aspx) end sub此

56、界面可以实现合同的创建，通过填写签订合同的甲乙双方及地址、年限、物品等信息，点击确定按钮所输入合同就存入数据库中了。信息录入界面如下图： 图 3-10 信息录入界面具体实现代码8如下：protected sub linkbutton1_click(byval sender as object, byval e as system.eventargs) handles linkbutton1.click if program.selecteditem.text = 供方信息 then dim conn as new oledbconnection(provider=sqloledb.1;inte

57、grated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql as string strsql = insert into provider (number,name,address,type,aveprize,maxnum,money,grade) values ( & number.text & , & name.text & , & prize.text & , & address.text & , & type.selecteditem.text &

58、 , & maxnum.text & , & money.text & , & grade.selecteditem.text & )东北石油大学本科生课程设计22 dim cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() message.text = 信息录入成功 end if if program.selecteditem.text = 需方信息 then dim conn as new oledbconnection(provider=sqloledb.1;integr

59、ated security=sspi;persist security info=false;initial catalog=contract;data source=.) dim strsql as string strsql = insert into needer (number,name,address,type,maxnum,money,grade) values ( & number.text & , & name.text & , & address.text & , & type.selecteditem.text & , & maxnum.text & , & money.t

60、ext & , & grade.selecteditem.text & ) dim cmd as new oledbcommand(strsql, conn) conn.open() cmd.executenonquery() conn.close() message.text = 信息录入成功 end if if program.selecteditem.text = 物资信息 then dim conn as new oledbconnection(provider=sqloledb.1;integrated security=sspi;persist security info=fals