优秀实习基地管理系统

1、毕业设计论文资料设计论文题目： 优秀实习基地管理系统 系部： 信息与计算科学 专 业： 信息与计算科学 学 生 姓 名： 班 级： 学号 指导教师姓名： 职称 最终评定成绩 目 录第一局部 设计说明书一、设计说明书第二局部 过程管理资料毕业设计论文课题任务书本科毕业设计论文开题报告本科毕业设计论文中期报告毕业设计论文指导教师评阅表毕业设计论文评阅教师评阅表毕业设计论文辩论评审表20 11 届本科生毕业设计论文资料第一局部 设计说明书摘 要实习已经成为大学生走向工作岗位前必经的一步流程了，它能让学生体验真实的工作环境并加强动手能力学会如何将知识运用于实际.长沙学院优秀实习基地管理系统是一个面向学

2、校管理层和各个实习基地的应用系统.它采用delphi和sql server技术开发.可进行学校对各个实习基地的根本管理和各个实习基地自己的日常管理.同时作为一个交互平台，它可用于学校和各个实习基地的信息交流，方便管理者管理，加深学校与各个实习基地之间的交流，大大提高了管理效率.在系统级别上该系统仿照大局部系统分为管理员admin和guest级别.Admin账户可以查看全校各个实习基地状况并可导出打印，此外admin还可进行发布通知，审批优秀实习基地申请等高权限操作.Guest账户其实就是实习基地账户，他可进行实习生信息管理、申报优秀实习基地，查看通知等功能.当申报优秀通过后guest账户将获得

3、填写后续文表的相应权限.通过对所有功能的测试，证明设计的各功能都能正常运行.关键词：delphi，sql server，管理系统，交互平台ABSTRACTguest students to practice work has become a necessary step before the process, and it allows students to experience the real working environment and to strengthen the practical ability to learn how to apply knowledge pract

4、ical. Changsha Institute of best practice base management system is a practice for all school-based management and application system. It uses delphi and sql server technology development. Schools can be the base of each basic management practice and individual practice base their daily management.

5、At the same time as an interactive platform that can be used for various training schools and exchange of information base to facilitate the administrator to manage, enhance school and communication between the various practice base, greatly improving the management efficiency. At the system level o

6、f the system modeled after most of the system is divided into admin and guest-level administrators. Admin account can view the status of the school and can export the practice base of each print, in addition to admin also publish notice of application for approval of high-quality training base for p

7、ermission to operate. Guest account is actually a training base account, he can be an intern information management, reporting good practice base, view the notification. When reporting excellent guest account after the passage of the text will be filling up the appropriate permissions to the table.

8、Throughall the featuresof thetests to demonstratethe variousdesignfeaturesare functioning properly.Keywords: delphi, sql server, management system, cross-platform目 录 TOC o 1-3 h z u HYPERLINK l _Toc291846099 摘 要 PAGEREF _Toc291846099 h I HYPERLINK l _Toc291846100 ABSTRACT PAGEREF _Toc291846100 h II

9、HYPERLINK l _Toc291846101 第1章 绪 论 PAGEREF _Toc291846101 h 1 HYPERLINK l _Toc291846102 1.1 选题背景 PAGEREF _Toc291846102 h 1 HYPERLINK l _Toc291846103 1.2 选题意义 PAGEREF _Toc291846103 h 1 HYPERLINK l _Toc291846104 1.3 相关技术分析 PAGEREF _Toc291846104 h 1 HYPERLINK l _Toc291846105 1.3.1 Delphi概述 PAGEREF _Toc29

10、1846105 h 1 HYPERLINK l _Toc291846106 1.3.2 SQL Server2005技术简介 PAGEREF _Toc291846106 h 2 HYPERLINK l _Toc291846107 第2章 需求分析 PAGEREF _Toc291846107 h 3 HYPERLINK l _Toc291846108 2.1 总需求 PAGEREF _Toc291846108 h 3 HYPERLINK l _Toc291846109 2.2 系统功能需求 PAGEREF _Toc291846109 h 3 HYPERLINK l _Toc291846110 2

11、.3 数据需求 PAGEREF _Toc291846110 h 4 HYPERLINK l _Toc291846111 第3章 详细设计 PAGEREF _Toc291846111 h 5 HYPERLINK l _Toc291846112 3.1 系统总功能设计 PAGEREF _Toc291846112 h 5 HYPERLINK l _Toc291846113 3.2 guest用户功能设计 PAGEREF _Toc291846113 h 6 HYPERLINK l _Toc291846114 3.2.1 用户注册登录 PAGEREF _Toc291846114 h 6 HYPERLIN

12、K l _Toc291846115 3.2.2 根本信息管理 PAGEREF _Toc291846115 h 7 HYPERLINK l _Toc291846116 3.2.3 申报优秀管理 PAGEREF _Toc291846116 h 8 HYPERLINK l _Toc291846117 3.3 Admin用户功能设计 PAGEREF _Toc291846117 h 8 HYPERLINK l _Toc291846118 3.3.1 根本信息管理 PAGEREF _Toc291846118 h 8 HYPERLINK l _Toc291846119 3.3.2 系统通知模块管理 PAGE

13、REF _Toc291846119 h 9 HYPERLINK l _Toc291846120 3.3.3 申报优秀管理 PAGEREF _Toc291846120 h 10 HYPERLINK l _Toc291846121 3.3.4 系统用户管理 PAGEREF _Toc291846121 h 10 HYPERLINK l _Toc291846122 3.5 数据结构设计 PAGEREF _Toc291846122 h 10 HYPERLINK l _Toc291846123 3.5.1 基地信息表Application数据结构设计 PAGEREF _Toc291846123 h 11

14、HYPERLINK l _Toc291846124 3.5.2 通知公告栏数据结构设计数据结构设计 PAGEREF _Toc291846124 h 11 HYPERLINK l _Toc291846125 3.5.3 用户表数据结构设计 PAGEREF _Toc291846125 h 12 HYPERLINK l _Toc291846126 3.6 界面设计 PAGEREF _Toc291846126 h 13 HYPERLINK l _Toc291846127 3.6.1 用户注册界面 PAGEREF _Toc291846127 h 13 HYPERLINK l _Toc291846128

15、3.6.2 用户登录界面 PAGEREF _Toc291846128 h 14 HYPERLINK l _Toc291846129 3.6.3 通知公告界面 PAGEREF _Toc291846129 h 14 HYPERLINK l _Toc291846130 3.6.4 系统主界面 PAGEREF _Toc291846130 h 14 HYPERLINK l _Toc291846131 3.6.5 基地信息管理界面 PAGEREF _Toc291846131 h 15 HYPERLINK l _Toc291846132 3.6.6 申报优秀管理界面 PAGEREF _Toc29184613

16、2 h 15 HYPERLINK l _Toc291846133 用户管理界面 PAGEREF _Toc291846133 h 16 HYPERLINK l _Toc291846134 第4章 主要功能模块的实现 PAGEREF _Toc291846134 h 17 HYPERLINK l _Toc291846135 4.1 用户注册模块 PAGEREF _Toc291846135 h 17 HYPERLINK l _Toc291846136 4.2 发布通知模块 PAGEREF _Toc291846136 h 18 HYPERLINK l _Toc291846137 4.3 实习基地根本信息

17、操作模块 PAGEREF _Toc291846137 h 21 HYPERLINK l _Toc291846138 第5章 系统测试 PAGEREF _Toc291846138 h 30 HYPERLINK l _Toc291846139 5.1 测试的目的 PAGEREF _Toc291846139 h 30 HYPERLINK l _Toc291846140 5.2 测试手段 PAGEREF _Toc291846140 h 30 HYPERLINK l _Toc291846141 5.3 测试用例 PAGEREF _Toc291846141 h 30 HYPERLINK l _Toc291

18、846142 第6章 系统关键技术 PAGEREF _Toc291846142 h 32 HYPERLINK l _Toc291846143 6.1 基于Delphi7技术的系统连接 PAGEREF _Toc291846143 h 32 HYPERLINK l _Toc291846144 6.1.1 效劳器连接 PAGEREF _Toc291846144 h 32 HYPERLINK l _Toc291846145 6.1.2 客户登录界面 PAGEREF _Toc291846145 h 33 HYPERLINK l _Toc291846146 6.2 系统通知模块 PAGEREF _Toc2

19、91846146 h 36 HYPERLINK l _Toc291846147 6.3 实习基地注册功能 PAGEREF _Toc291846147 h 40 HYPERLINK l _Toc291846148 申报优秀功能 PAGEREF _Toc291846148 h 42 HYPERLINK l _Toc291846149 结 论 PAGEREF _Toc291846149 h 46 HYPERLINK l _Toc291846150 参考文献 PAGEREF _Toc291846150 h 47 HYPERLINK l _Toc291846151 致 谢 PAGEREF _Toc291

20、846151 h 48第1章 绪 论1.1 选题背景近年来，大学生就业问题已成为社会各界广泛关注的话题.建立就业实习基地,是提高就业率的一个新途径，它需要各个环节工作的密切配合，对于提高高校办学品牌，建立和谐校园等方面都具有非常深远的意义.对于学校来说，就业率的上下将越来越直接影响到一所院校的稳定与开展，影响到一所院校的声誉和前途.同时，就业是民生之本,也是构建社会主义和谐社会的主要内容.大学毕业生就业不仅仅是涉及到千家万户的民心工程,更涉及到高校的生存与开展，关系到每一位毕业生的前途和命运.因此，建立就业实习基地促进就业问题的解决，对于维护校园稳定,促进和谐校园建设、和谐社会建设也具有重要的

21、意义.在此背景下，各个高校建立了越来越多的实习基地供学生选择，随之而来的各项数据资料不断增多，学校与实习基地的缺乏交流、人工管理效率低下等问题日益严重，在此背景之下，实习基地管理系统的开发就是十分必要了. 长沙学院优秀实习教学基地管理系统就是基于院校实习基地不断增加，各项数据资料急需系统的管理而开发.1.2 选题意义优秀实习基地管理系统是一款面向学校和各个实习基地的管理系统，它侧重于学校与实习基地的信息交互，同时自身的根本管理功能十分完善.学校管理员可随时查看了解全校各个实习基地各项信息，当管理员发布通知各个实习基地登陆即可迅速看到.实习基地用户可以进行管理实习生用户信息，可以申请优秀实习基地

22、等操作.通过该系统，可以加深学校与实习基地交流，方便信息管理，有效提高管理效率.所以开发优秀实习基地管理系统十分必要1.1.3 相关技术分析1.3.1 Delphi概述Delphi是一个集成开发环境IDE，使用的核心是由传统Pascal语言开展而来的Object Pascal语言，通过图形用户界面(Graphical User Interface，简称GUI)作为开发环境，透过IDE与VCL工具与编译器，配合连结资料库的功能，做成一个以物件导向设计为中心的开发工具.Delphi程式撰写后所编译的执行档，可以独立执行，容量较大些，但效能上却比拟快，除了使用资料库的程式外不需安装即可执行，使用上相

23、当方便.它在本质上是一个代码编辑器而不是一种语言，但是由於Delphi是几乎是目前市场上唯一一个使用Pascal语言并持续推出新版的产品，因此有的时候人们称呼Delphi为Object Pascal的代名词.因此Borland公司已经把Object Pascal语言改称为Delphi语言.2006，Borland把开发工具产品线独立出来，成立了一家新的公司CodeGear负责.原本的Delphi一度被命名位Turbo Delphi.但是在新的版本中，除了Delphi for Win32原有的Delphi版本之外，还有一个新的产品被命名为Delphi for PHP.因此，在目前的CodeGea

24、r的开展规划中，或许Delphi这个名称不再是ObjectPascal语言的专有IDE，而是将被扩展为一个通用的IDE2.1.3.2 SQL Server2005技术简介SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能 (BI) 工具提供了企业级的数据管理.SQL Server 2005 数据库引擎为关系型数据和结构化数据提供了更平安可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据 HYPERLINK :/baike.baidu /view/330120.htm t _blank 应用程序 . SQL Server 2005 数据引擎是本企业数据管理解

25、决方案的核心.此外 SQL Server 2005 结合了分析、报表、集成和通知功能.这使您的企业可以构建和部署经济有效的 BI 解决方案，帮助您的团队通过记分卡、Dashboard、Web services 和移动设备将数据应用推向业务的各个领域. 与 Microsoft Visual Studio、Microsoft Office System 以及新的开发工具包包括 Business Intelligence Development Studio的紧密集成使 SQL Server 2005 与众不同.无论您是开发人员、 HYPERLINK :/baike.baidu /view/6718

26、5.htm t _blank 数据库管理员、信息工作者还是决策者，SQL Server 2005 都可以为您提供创新的解决方案，帮助您从数据中更多地获益3.第2章 需求分析2.1 总需求基于delphi的优秀实习基地管理系统需要满足管理员对各个实习基地的管理需求和实习基地用户对整个实习基地日常管理需求.即管理员能够添加系部用户，能够发布信息让系部用户登陆后看到，能审核系部的优秀实习基地申请，能实时查看他们的状态并可导出打印.系部用户可以进行实习基地日常管理操作.添加、修改、删除实习基地信息，申报优秀，查看申报结果，对已申报成功的基地，填报三年规划、年度总结、验收总结等等42.2 系统功能需求优

27、秀实习基地面向用户为校级管理员admin用户和系部实习基地管理人员guest用户.两种用户权限功能各不相同，因此系统主要分为两大模块即admin用户模块和guest用户模块.两个模块分别要实习的功能如下：1guest角色：建立自己系实习基地的信息维护本系实习基地的信息向学校申报优秀实习基地查看申报优秀实习基地结果查看学校发出的通知对申报成功的实习基地，进行建设过程管理：填报三年建设规划、年度建设总结、验收总结等文档.2. admin角色：能查看到全校所有实习基地的信息能发布申请优秀实习基地的通知，让所有实习基地都能收到能查看到所有系申报的优秀实习基地的申报书单个能形成所有申报优秀实习基地的汇总

28、表所有能发布评测结果的通知给所有系能发布要求优秀实习基地填写建设情况总结的通知给优秀实习基地不是所有实习基地能查看申报成功基地的建设过程管理资料2.3 数据需求在本系统中，主要有两类参与者，一个是管理员类型admin，一个是guest类型，需要对他们的数据进行分析.如下：系部管理员用户guest=用户编号+用户名称+密码+用户类型+建档时间系统管理员=管理员编号+注册时间+登录帐户+登录密码+权限而系统中最根本的数据也需要进行分析.如下：实习基地信息=实习基地编号限制重复+名称+负责人+联系 +建立时间+所属系部+基地级别+备注优秀实习基地申报书=基地编号+基地名称+所属系部+基地级别+负责人

29、+联系方式+建设时间+申请日期+申报经费+基地现状+基地建设指导思想+建设目标+年度规划+系部意见三年规划书=基地编号+基地名称+所属系部+基地级别+负责人+联系方式+建设时间+实习基地现状+实习基地建设指导思想+建设目标+年度规划年度检查报告书=基地编号+基地名称+所属系部+基地级别+负责人+联系方式+建设时间+条件建设+队伍建设+制度建设+实习情况+实习效果+建设效果验收检查报告书=基地编号+基地名称+所属系部+基地级别+负责人+联系方式+建设时间+条件建设成果+队伍建设成果+制度建设成果+实习情况建设成果+实习效果+建设效果第3章 详细设计3.1 系统总功能设计基于delphi7的优秀实

30、习基地管理系统设计与开发主要包括admin用户功能设计，guest用户功能设计和系统管理后台设计，guest用户首先进行注册，然后登录进入系统，从系统可以进行实习基地管理；进入系统后可以查看通知5.如图3.1系统功能结构图和3.2系统功能流程图.实习基地管理系统校级管理员(Admin)系部管理员(guest)全校实习基地管理申报优秀管理用户管理通知管理系部实习基地管理申报优秀管理优秀基地建设资料填报图3.2 guest用户功能设计Guest用户级别其实就是各个系部管理员的级别.它的主要功能为注册登录后可进行本系部的实习基地信息管理、申报优秀管理.3.2.1 用户注册登录Guest用户登录系统之

31、前需要注册，填写唯一的用户名、密码等资料，验证通过用户注册登录.图用户注册登录3.2.2 根本信息管理对实习基地的根本信息情况进行管理，实习基地的名称负责人，实习基地信息录入修改删除，申报优秀等如图3.4guest根本信息管理.图 3.4 guest根本信息管理3.2.3 申报优秀管理系部管理员申报优秀管理主要功能为系部管理员登录看到开始评优通知后，从自己系部挑选优秀实习基地向学校申报并填写申报书.如果被评选上还需要填写撒年规划、年度检查和验收报告.功能流程图如图3.5 guest用户申报优秀管理图 3.5 guest申报优秀管理3.3 Admin用户功能设计Admin用户界别为校级管理员级别

32、，他可以进行通知管理、各个实习基地信息管理、导出，申报优秀的审批、用户管理等高权限的功能.3.3.1 根本信息管理可查看、管理、导出各个系部的实习基地详细信息.图 3.6 admin根本信息管理.2 系统通知模块管理系统通知模块主要有校级admin管理员管理，本系统设计为当系统登录后首先进入通知模块.管理员可以进行通知管理，guest用户误操作权限.如图3.7通知管理模块.图3.3.3 申报优秀管理校级管理员的申报优秀管理主要流程为发布通知后，登录查看申报概况，审核后批准并再次发布通知.系统设计为开题报告、阶段性检查等后续工作为管理员审批后向申请人开放权限.图开始登陆系统主界面申报优秀管理结束

33、否是结束发布开始评优通知查看申报情况审核实习基地情况审批优秀实习基地发布入选及展开后续工作的通知3.3.4 系统用户管理校级管理员admin用户登录后可对系统现有用户信息和权限校级管理员用户和系部管理员进行增删改查操作.3.5 数据结构设计整个系统数据设计包括了三个方面他们一是系统用户信息，二是实习基地信息，三是申报优秀信息.3.5.1 基地信息表Application数据结构设计图 3.9 基地信息表数据结构 userID nchar(20) COLLATE Chinese_PRC_CI_AS NULL, -基地编号BaseName nchar(30) COLLATE Chinese_PRC

34、_CI_AS NULL, -基地名称ApplicationDate datetime NULL, -申请时间CollegeName nchar(30) COLLATE Chinese_PRC_CI_AS NULL, -所属院系Prinsapal nchar(10) COLLATE Chinese_PRC_CI_AS NULL, -负责人LinkPhone nchar(20) COLLATE Chinese_PRC_CI_AS NULL, -负责人 Approve bit NULL, -是否审核ZD nchar(10) COLLATE Chinese_PRC_CI_AS NULL, -建档ZDD

35、ate datetime NULL, -建档时间Remark varchar(50) COLLATE Chinese_PRC_CI_AS NULL -备注3.5.2 通知公告栏数据结构设计数据结构设计 图 3.10 通知公告栏数据结构ntext COLLATE Chinese_PRC_CI_AS NULL, -公告信息ZD nchar(10) COLLATE Chinese_PRC_CI_AS NULL, -建档ZDDate datetime NULL -建档时间3.5.3 用户表数据结构设计图 3.11 用户信息数据结构UserID nchar(20) COLLATE Chinese_PRC

36、_CI_AS NULL, -系部用户编号UserName nchar(20) COLLATE Chinese_PRC_CI_AS NULL, -系部用户名称PassWord nchar(20) COLLATE Chinese_PRC_CI_AS NULL, -密码UserType nchar(10) COLLATE Chinese_PRC_CI_AS NULL, -用户或基地类型ZD nchar(20) COLLATE Chinese_PRC_CI_AS NULL, -建档ZDDate datetime NULL, -建档时间Remark varchar(50) COLLATE Chinese

37、_PRC_CI_AS NULL, -备注BaseName nchar(30) COLLATE Chinese_PRC_CI_AS NULL -用户名称与UerName,功能一样，3.6 界面设计3.6.1 用户注册界面用户即guest用户用户编号，密码，确认密码，用户名称，备注信息的填写.如图3.12用户注册界面.图用户注册界面3.6.2 用户登录界面用户登录界面包括用户名，密码的填写.如图3.13用户登录界面.图用户登录界面3.6.3 通知公告界面通知界面包括公告人，公告时间，系统提示，公告内容几栏和公告修改确定取消关闭按钮.其中公揭发布功能只能由校级管理员发布.图3.6.4 系统主界面系统

38、主界面三大功能板块和数个小功能.如图3.15系统主界面.图3.6.5 基地信息管理界面基地信息管理界面可查看各个系部实习基地信息，并可到处打印，修改增加等.如图3.16 基地信息管理界面6实习基地信息管理界面3.6.6 申报优秀管理界面Admin的申报优秀管理界面主要包括申报情况的查看、批核，导出等工作.7申报优秀管理界面3.6.7用户管理界面用户管理界面主要负责对系统的用户及用户权限作出管理.8用户管理界面第4章 主要功能模块的实现4.1 用户注册模块用户的注册主要是guest用户首次进入系统时申请的系统账户.当用户填写完个人资料并进行注册提交时，系统从效劳器数据库获取信息，然后根据不同的用

39、户权限执行相应的操作.如果注册成功，那么返回信息为“注册成功4procedure TFrmUseName.SavebtnClick(Sender: TObject);begin if trim(userid.Text)= then begin Application.MessageBox(用户编号不能为空，请输入,系统提示); abort; end; if trim(userName.Text)= then begin Application.MessageBox(用户名称不能为空，请输入,系统提示); abort; end; if trim(userType.Text)= then begi

40、n Application.MessageBox(用户类型不能为空，请输入,系统提示); abort; end; if trim(Password.Text)= then begin Application.MessageBox(密码不能为空，请输入,系统提示); abort; end; dm.Adoconn.BeginTrans; try if Adotemp.State=dsbrowse then Adotemp.Edit ; Adotemp.Post; dm.Adoconn mitTrans ; showmessage(数据更新成功！); except dm.Adoconn.Rollba

41、ckTrans; showmessage(数据更新失败！); end; btnchange;end; 4.2 发布通知模块发布通知模块通过系统用户登录触发，登录后首先进入通知模块.登录时通过系统用户类型判别给予不同权限.Admin级别用户登录后可以进行通知的修改，发布查看等.而guest用户登录后只能查看通知.其核心代码如下：procedure TFrmPublic.setbtn;begin if types=admin then begin with ds.DataSet do begin Modify.Visible:=true; save.Visible:=true; cancelbtn

42、.Visible:=true; Modify.Enabled:=(State in dsBrowse) and (RecordCount0); save.Enabled:=(State in dsInsert,dsEdit); cancelbtn.Enabled:=(State in dsInsert,dsEdit); DBMemo1.Enabled:=(State in dsInsert,dsEdit); end; end;end;procedure TFrmPublic.modifyClick(Sender: TObject);begin adopub.Edit; setbtn;end;p

43、rocedure TFrmPublic.saveClick(Sender: TObject);begin if trim(DBMemo1.Text)= then begin showmessage(信息修改成功); abort; end; if adopub.State=dsbrowse then adopub.Edit; adopub.FieldByName(ZD).Value:=sysuser; adopub.FieldByName(ZDDate).Value:=now; adopub.Post; showmessage(信息修改成功); setbtn;end;procedure TFrm

44、Public.quitClick(Sender: TObject);begin Modify.Visible:=false; save.Visible:=false; cancelbtn.Visible:=false; /self.Close; /FrmPublic.Free; close;end;procedure TFrmPublic.FormShow(Sender: TObject);begin adopub.Close; adopub.SQL.Clear; adopub.SQL.Add(select * from pub); adopub.Open; setbtn; ADOQ.Clos

45、e; ADOQ.SQL.Clear; ADOQ.SQL.Add(select * from application where Approve=1 and userid=:a); ADOQ.Parameters.ParamByName(a).Value:=sysuser; ADOQ.Open; if (not ADOQ.IsEmpty) or (types=admin) then begin edit1.Text:=basename+基地：申请优秀学习基地成功; succeedflag:=Y; Mainfrm.N22000.Enabled:=true; Mainfrm.N23000.Enabl

46、ed:=true; Mainfrm.N24000.Enabled:=true; end;end;procedure TFrmPublic.cancelbtnClick(Sender: TObject);begin adopub.Cancel;end;procedure TFrmPublic.FormCreate(Sender: TObject);begin setbtn;end;end.4.3 实习基地根本信息操作模块实习基地根本信息操作内容主要为对各个实习基地的实习生信息的查看、修改、删除、添加、导出、打印等.实现他们的核心代码为5:rocedure TFrmStudents.opendat

47、a;begin if types=guest then begin Students.Close; Students.SQL.Clear; Students.SQL.Add(select * from students where zd=:a order by studentID ); Students.Parameters.ParamByName(a).Value:=sysuser; Students.Open; end else begin Students.Close; Students.SQL.Clear; Students.SQL.Add(select * from students

48、 order by studentID ); Students.Open; end;end;Procedure TFrmStudents.btnchange;begin with ds.DataSet do begin addbtn.Enabled:=(State in dsBrowse); Modifybtn.Enabled:=(State in dsBrowse) and (RecordCount0); Deletebtn.Enabled:=(State in dsBrowse) and (RecordCount0); Exportbtn.Enabled:=(State in dsBrow

49、se) and (RecordCount0); Cancelbtn.Enabled:=(State in dsInsert,dsEdit) ; Savebtn.Enabled:=(State in dsInsert,dsEdit); Findbtn.Enabled:=(State in dsBrowse); Firstbtn.Enabled:=(State in dsBrowse) and (not ds.DataSet.Bof); Priorbtn.Enabled:=(State in dsBrowse) and (not ds.DataSet.Bof); Nextbtn.Enabled:=

50、(State in dsBrowse) and (not ds.DataSet.Eof); Lastbtn.Enabled:=(State in dsBrowse) and (not ds.DataSet.Eof); DBedit1.Enabled:=(state in dsinsert,dsEdit); Dbedit2.Enabled:=(state in dsinsert,dsEdit); DBcombobox1.Enabled:=(state in dsinsert,dsedit); Dbedit3.Enabled:=(state in dsinsert,dsEdit); Dbedit4

51、.Enabled:=(state in dsinsert,dsEdit); Dbedit5.Enabled:=(state in dsinsert,dsEdit); Dbedit6.Enabled:=(state in dsinsert,dsEdit); Dbedit7.Enabled:=(state in dsinsert,dsEdit); Dbedit8.Enabled:=(state in dsinsert,dsEdit); DBedit9.Enabled:=(state in dsinsert,dsEdit); end;end;procedure TFrmStudents.Addbtn

52、Click(Sender: TObject);begin Students.Insert; Students.FieldByName(zd).Value:=sysuser; Students.FieldByName(zddate).Value:=now; DBcombobox1.Text:=男; btnchange; / opendata; DBedit1.SetFocus;end;procedure TFrmStudents.ModifybtnClick(Sender: TObject);begin Students.Edit; btnchange; opendata;end;procedu

53、re TFrmStudents.DeletebtnClick(Sender: TObject);begin if MessageDlg(确定要删除该记录，删除按Yes否按NO?, mtInformation, mbYes, mbNo,0)=mrYes then begin dm.Adoconn.BeginTrans; try if not Students.IsEmpty then begin Students.Delete; end; dm.Adoconn mitTrans; except dm.Adoconn.RollbackTrans; showmessage(删除失败); end; e

54、nd; btnchange; opendata;end;procedure TFrmStudents.SavebtnClick(Sender: TObject);begin if trim(DBedit1.Text)=then begin Application.MessageBox(实习基地编号不能为空，请输入,系统提示); DBedit1.SetFocus; abort; end; if trim(DBedit2.Text)=then begin Application.MessageBox(实习基地名称不能为空，请输入,系统提示); DBedit2.SetFocus; abort; en

55、d;xt)=then begin Application.MessageBox(负责人不能为空，请输入,系统提示); DBcombobox1.SetFocus; abort; end; if trim(DBedit3.Text)=then begin Application.MessageBox(实习基地级别不能为空，请输入,系统提示); DBedit3.SetFocus; abort; end; if trim(DBedit4.Text)=then begin Application.MessageBox(所属系部不能为空，请输入,系统提示); DBedit4.SetFocus; abort

56、; end; if trim(DBedit5.Text)=then begin Application.MessageBox(联系方式不能为空，请输入,系统提示); DBedit5.SetFocus; abort; end; if trim(DBedit6.Text)=then begin Application.MessageBox(建设时间不能为空，请输入,系统提示); DBedit6.SetFocus; abort; end; if trim(DBedit7.Text)=then begin Application.MessageBox(负责人不能为空，请输入,系统提示); DBedit

57、7.SetFocus; abort; end; if trim(DBedit8.Text)=then begin Application.MessageBox(负责人 不能为空，请输入,系统提示); DBedit8.SetFocus; abort; end; dm.Adoconn.BeginTrans; try if Students.State=dsbrowse then Students.Edit; Students.Post; dm.Adoconn mitTrans ; showmessage(数据更新成功！); except dm.Adoconn.RollbackTrans; show

58、message(数据更新失败！); end; btnchange; opendata;end;procedure TFrmStudents.CancelbtnClick(Sender: TObject);begin Students.Cancel; btnchange; opendata;end;procedure TFrmStudents.FindbtnClick(Sender: TObject);begin if FrmStudents_Find=nil then Application.CreateForm(TFrmStudents_Find,FrmStudents_Find); Frm

59、Students_Find.ShowModal;end;procedure TFrmStudents.FirstbtnClick(Sender: TObject);begin Students.First; btnchange; opendata;end;procedure TFrmStudents.PriorbtnClick(Sender: TObject);begin Students.Prior; btnchange; opendata;end;procedure TFrmStudents.NextbtnClick(Sender: TObject);begin Students.Next

60、; btnchange; opendata;end;procedure TFrmStudents.LastbtnClick(Sender: TObject);begin Students.Last; btnchange; opendata;end;procedure TFrmStudents.ExitbtnClick(Sender: TObject);begin close;end;procedure TFrmStudents.FormShow(Sender: TObject);begin opendata; btnchange; end;procedure TFrmStudents.Expo