大学生就业咨询系统

《大学生就业咨询系统》由会员分享，可在线阅读，更多相关《大学生就业咨询系统（23页珍藏版）》请在装配图网上搜索。

1、目录摘要11 课题概述11.1 问题的提出 21.2国内外研究现状21.3任务与分析21.4设计目的21.5设计要求22 设计思路及采取的方案22.1程序运行平台22.2 系统总体设计分析32.2.1 需求分析32.2.2 系统实现的目标32.2.3 系统功能模块设计32.2.4 系统功能结构图42.2.5 系统流程图42.3 数据库设计52.3.1 概念结构设计52.3.2 逻辑结构设计72.4 系统详细设计93. 取得的成果164. 总结与体会164.1 问题及解决过程164.2 错误及原因分析164.3 体会与收获185 主要参考文献196 附录（主要代码）19大学生就业咨询系统设计报告

2、摘要：随着网络技术的发展，网络在人们生活中的应用越来越广泛。人才的流动已 成为社会的一大问题,传统的招聘方式不仅让人觉得很不方便,而且受时间和空间 的限制，让许多人失去了很多机会。而网上求职招聘系统提供了方便、简洁、安全、 易于管理的平台,这是对传统模式的一种改进，也是一种必然的走向。本课程设计主要是完成一个实现大学生就业咨询系统，要开发一个管理系统， 首先要进行需求分析和总体设计，分析系统的使用对象和用户需求，设计系统的 体系结构和数据库结构，决定使用的开发工具和后台数据库，规划开发进度。在 实际的项目开发过程中，这些工作是非常重要的。本系统与当前流行的招聘网站相比，由于技术上的原因还有功能

3、上的不足， 有待进一步的完善。、课题概述1.1 问题的提出人才在各行各业都是发展的关键，大学生就像是人才的代名词，如何能够聘 到具有真才实学的大学生是各企业非常关心的问题。而找不到理想的工作，不能 发挥自己聪明才智也让求职者烦恼，他们踏入社会的第一节课就是求职未来几年内网络招聘市场将是诸侯纷争的局面，但总的趋势是向集中优化方 向发展，市场集中化程度将会提高，传统模式下的网络招聘企业将面临整合，小 的公司或被收购或者退出，剩下的将是专注细分和模式创新的强者。资本在不断 的进入，市场在不断的变化，人才网站平台竞争异常激烈，专业价值更高的网站 才最终有它的出路，不断吸收、借鉴其它类型网站、竞争对手网

4、站的成功经验， 并深入挖掘自身竞争优势，并做细节具体的扎实实施，才能保证人才网站平台领 先地位。随着政府机制改革和外资资本的注入，民营人才网与政府人才网掘金人 才市场，必将掀起人才网络招聘市场的一轮发展高潮。1.2 国内外研究的现状随着网络的发展，市场的需求，越来越多的网络平台出现。1.3 任务与分析课题任务 1主要数据表用人单位基本信息表，专业信息表，地区代码表等2功能模块1) 对用人单位的基本信息进行录入、修改、删除等。2) 实现毕业生专业信息的维护。3) 定时发布用人单位的毕业生需求信息。4) 方便的实现对人才需求信息的检索。5) 对用人单位的级别能够自动进行变更。可选6) 能够对历年的

5、毕业需求信息进行统计、分析。7) 具有数据备份和数据恢复功能。可选任务分析：本课程设计完成大学生就业咨询系统，其功能主要是实现毕业生 的就业情况的录入和查询，用人单位基本信息的录入和查询。1.4设计目的根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理 系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目 要求的功能，从而达到掌握开发一个小型数据库的目的。1.5设计要求方便毕业生进行就业信息检索，可考虑将就业信息在网上进行发布。二、设计思路及采取的方案2.1程序运行平台(1) 开发工具选择语言选择采用面向对象的程序设计语言 VB 数据库选择一Microsoft

6、 SQL Server2000（2）运行环境：Windows XP或以上配置的操作系统2.2系统总体设计分析2.2.1 需求分析随着互联网的爆炸性发展，人们越来越习惯于利用网络来实现所需的服务， 网络已深深影响到人们生活的各个方面。另外，传统的招聘方式不能满足一部分 现代人的需要，而网上就业咨询系统，由于其不受时间与空间的限制同时又具有 传统就业咨询的大部分功能，能够满足各类用户的常规与特殊需求，而且其方便 快捷，实现技术又比较成熟，因此受到当代人的喜爱。该系统主要分为两部分：普通用户部分和超级用户（管理员）部分。为了方 便毕业生和企业查找对自己有用的信息，要设置不同的模块。会员可以按照所需

7、进行选择，逐级浏览、可以查看毕业生信息、单位招聘信息，本系统还可对用户 的账号和用户权限进行管理。2.2.2 系统实现的目标大学生就业咨询系统的开发主要要实现的目标有以下几个方面：（1）界面设计友好、美观。（2）数据存储安全、可靠。（3）信息分类清晰、准确。（4）强大的查询功能，保证数据查询的灵活性。（5）数据操作即时，保证数据的完整性。（6）提供灵活、方便的权限设置功能，使整个系统的管理分工明确。（7）具有易维护性和易操作性。2.2.3 系统功能模块设计（1）系统管理模块：密码修改，重新登陆，退出系统。（2）毕业生信息模块：查询、添加、修改、删除毕业生信息。（3）企业信息模块：查询、添加、修

8、改、删除毕业生信息。(4) 求职检索模块：浏览企业需求信息，历年需求信息统计，按照地区进行检 索，发布信息，信息推荐。(5) 专业信息模块：查询、添加、修改、删除专业信息(包括专业号、专业名 称、就业方向)。(6) 数据备份与恢复模块：为保证数据库信息安全提供数据备份和恢复功能。(7) 帮助模块：关于本系统版权、介绍、技术支持联系方式等等。2.2.4系统功能结构图根据大学生就业咨询系统的实际需求，可以将系统划分为系统管理、毕业生 信息、企业信息、求职检索、专业信息、数据备份与恢复、帮助7个部分，各部 分的具体功能的系统功能结构图如下图所示：2.2.5 系统流程图大学生就业咨询系统的流程是用户先

9、选择自己的权限并输入自己的帐号密 码进入系统，如有一项不符合则不能进入系统，成功登陆系统后系统根剧登陆的 帐号信息从数据库中的数据进行对比判断是普通用户还是超级用户(管理员)， 如果是普通用户则只能能进行信息查询检索，及添加、修改自己的相关信息。如果是管理员，那管理员可以进行相关信息的查询、添加、修改、删除等操纵。大 学生就业咨询系统的系统流程图下图所示。2.3数据库设计2.3.1 概念结构设计采用自底向上的概念结构设计方法（1）抽象数据并设计局部视图：毕业生信息实体属性图companiesmajor专业信息实体属性图（2）视图集成，形成系统的总 E-R 图，然后消除不必要的冗余，设计成基 本

10、 E-R 图n毕业生信息n(mstimem管理员添加J/管-、修改专业信息2.3.2 逻辑结构设计表2.3.2. 1登陆信息（log）字段名数据类型长度主键描述用户名char50否用户名称密码char30否密码用户类型char50否权限表 2.32.2毕业生信息（students）字段名数据类型长度主键描述snochar10是毕业生编号snamechar10否姓名ssexchar4否性别sagesmallint2否年龄mnochar10否专业号stimechar10否毕业时间sschoolchar20否毕业学校表2.3.2.3 单位信息(companies)字段名数据类型长度主键描述cnoch

11、ar10是单位编号cnamechar40否单位名称cadresschar10否地址cgradechar10否单位级别表2.3.2.4 需求信息(demands)字段名数据类型长度主键描述cnochar10是单位编号mnochar10否专业号nqint4否需求量ntimechar10否招聘时间表2.3.2.5专业信息(major)字段名数据类型长度主键描述mnochar10是专业号mnamechar20否专业名称directionchar40否就业方向2.4系统详细设计2.4.1用户登录页面该页面用于用户登陆，包括普通用户和超级用户。当用户输入用户名、密码， 系统自动将输入的信息和相关数据表中的

12、内容进行比较，如果该用户输入的内容 和数据表中的内容相符，则通过验证，此次登录成功；否则登录失败。用户只有 成功登陆系统后才能进行一系列的操作，如下图2.4.1所示。昏政迎登昧欢迎登陆本系统请选择用户权限匕用户名（Q ：密 码（P）:登录儘）注册渔）I图2.4.1登陆界面2.4.2菜单界面该页面提供了可选择的操作，登陆后方可根据需求进行不同的操作。杀轨皆理 毕业生信宜即 主业信息適 求驰素計 备曲和恆蛊昔业信見 Q 书曲E）vimsLLBXrainEldX1K-1、“ -xck clCOMIT101022230 L0山茶去学COM2sfflire；舸凸20 L0潺雨丈学COM3fflilO23

13、2DD9山利卿邦iCOM-1$J1DL232010肓林犬学COM5祁玉余TOIE232010COMfisnmice222010聊0：丈学COMT张ifl华35Q1D7不科2q20D9西迂业犬学COOQ6SEW本科222010山未师蒂戈学DDOCHttl禹&a：LDL出科232E1LD哈押工泄丈学maiDDF.:旳 IDE本科2E2QLD山东丈学k!海分枝emuSfflSEwire-232D1D西*屯8戈学COOJ 2a-WI07凸3om甚舂丈学OT13葩式Mire：3320M壬58 士学OT14张岸tfis-wins4：科3230 LO厉面丈学muWSiEK242DK：北亂处也ifi犬学CO3

14、10:Mice232010山利郦5犬字图2.4.2菜单2.4.3査看与修改毕业生信息界面该页面应用了 DataGride控件，并与数据库中的students表连接，可以进 行毕业生信息的添加、修改、删除操作。叱1|j门弓：；|匕:邃冋（E）图 2.4.32.4.4单位信息维护界面该界面与数据库中的companies表相连接，可以进行单位信息的查询、添加、 修改、删除操作。录人倍息谢土最A. IcitEune：CELllr t55cffadt亠卜10IUIJL】上晦恒遵冶芷tS番有益t上期L12汁京方羔加初拽有跟:iuit jr13!艸玉伙企业管理酱询占卩厂东2】4上海tt信信目按术有PS萤t上

15、海z15L16芒秒欢瑞底地产亓翁有酿湖甫217比京站和创科技有跟尘云：I,TL16酋卒国际咼丈1扌岂:匕亍21Q士沙上FI匡氏均压以冃湖卓L2il.TL20天注正证恒辻尹兹勺1此天评221无祥无地讳业奏廷牡畏寺B无评L22虽忑派伶品洼工洼223赛弛K住.国灯饋显勺1氏女住L出天洋谀上H汗工让怙専有卩畫甘z25天津天戈电力工程有跟站天洼L26湖匕唯Sf特科孩握匿有屁湖北卜返冋修改信息取消修改图2.4.4单位信息维护2.4.5需求信息界面该界面与数据库中的demands表相连接，可以进行需求信息的查询、添加、 修改、删除操作，而且还添加了 “统计信息”和“发布信息”按钮，点击即可进 入相对应的页面

16、进行相关操作。cnajnsEfidrdEZmaajTtAnqnti n a北京二星迪第技ky另有:匕京迪第工程32010一:僚银厅漆南归行山金融宁22010宗建一亠寿俣眶克限殘司漁淅江俣险S2010L登川科学仝畏术J2009四帼样科畏有限去司四|市场苴祷102003广东罗戏芍土岸限段词广东药学152OD9广东王汽半衣限必司广东抚械遅计別造t!3ih5aoog京.耳Li九:H园归洒若r酒店管理42010卤莘汽车牟ttlrr诃桿命备吕芹制样7?mr四怅虹集团EJ IIi曲甘墀122010丄海但游招匸丘菩有限詁丄毎市场苣钧S2010让京立氐远科拽百限茁司:匕京鬥鋁工程62010广州云扶企土巷理唱询有

17、?广东电子帝甥42010上海仕乍信貝拄K有跟込上年卜算机科学技求32QDg滸南梢1银足右代启愷如湘囱电稈话自动讣F?nir玄汝現氓底地产开板皙比細南主计学32003: L京融耳创科扌史有限云司儿京上政管理12010建华国务髙尔丈球会:匕京工彥昔理22OD0壬沁丘科医院克限吳司|當库医学42010壬津n世纪巨連科质有馭彌聿网猜工程32010无洼伟讣盪码倒打右$无洼由呂里语22000宝天诉食品科扯（天律）1天崖i 一政莒理12010訓渤钢賈易郁肱司Xii对外巫詔22ODQT1*专业号Ijnn町柿*若去星血门时间 C ntine )统计分折返旦图2.4.5需求信息界面公司弓(CUO ) +*2.4.

18、6发布需求信息界面图2.4.6发布需求信息界面2.4.7统计信息界面该界面应用了三个ADODC控件，与数据库中的demandsfor表连接后，记录 源分别选择各年记录，使界面运行时在DataGride中显示各年的需求信息。年需或信息ch：=jti eciires emrL：=JTi enqnt i m e卜EB川恒祥科技有限必司四川市境营销102008湖北唯斯特科技垸展有限三湖北翩络工程42003畏浊效瑞房地严开垸有限/湖南会计学32008鸿华国氐高尔夫球会北京工商管理22008天洼天地伟业数码科技有卩天逵商若英语22008奏弛圧津）国翩貿易有限三天津对外汎语22008曲年需求信息ch：=jt

19、i eciires emrL：=JTi enqnt i m e厂东罗戍药业有限公司厂东葯学152009广茶丰田汽车有限吳司广东机械设计制诰展自动化52009上海仕信信息拽术有限上海计算杭科学与拽耒32009东华软件股扮公司陕西计算机软件32009青岛融富投资咨谊有限址咗山东经济学32009北京华團教育集团北京计算机科学与技术3200910需求信息cn：=JTiHciires emrL：=JTi enqnt i m eJk四川长虹集团四川工商管理122010二上海恒游冶金设备有限公f上海市场营销82010南茎汽车集团广东过程装备与控制工程72010北京立思远科技有限公司北京网络工程62010泰廉

20、人寿f呆险有限公司浙I前江保险52010武汉盛博辉自动化技术有卩电弓工程及自动化52010湖南祥阳银星有佟冶炼有卩湖南申弓T稈用口动化52010T返回2.4.7统计信息界面2.4.8专业信息界面该界面可进行专业信息的维护，对专业号、专业名、就业方向进行查询、添 加、修改、删除，同时连接到数据库中的major表。图2.4.8专业信息维护界面249数据备份与恢复界面为了防止因意外对系统数据库造成的破坏，设置了数据库的备份和恢复操作。口回区话选择驼动斟 | i-话选择主件夹r淀护信岂住m姐护洁层.frxfrm 河求信.息L. r iittHffi-P - hrm 囲 il4 4L. JPmSSCCP

21、RJ. SCCFrojectl. vtp Fi oiectl vlw 帮Pl. FinSSWl. frx 葫旳叩7忘忤和廣岂朴和&丽依忘1y 菲单1”m车鱼卄菲单I吃V|1厂备ffi卡咄表I -古学生眈址雲谊.芬.蛻注朋用P US请隹择諛毎备份姿数塞恢皇选顶”数站备份C懲据恢盘确定图2.4.9数据备份与恢复界面2.4.10关于本系统该页面给出了本系统的相关介绍，点击“确定”按钮即可进入“帮助”页 面，点击“退出”按钮即返回主菜单。口回匡大学生就业咨 询系统为大学生提 供了一个很好的就 业平合，用户可以 从这里得到更全面 的就业信息，方便 就业，此系统有不 完善之处，还请大 家套多包涵，左1匕

22、感谢大家使用本系 统口技术支持：QQ： 1052171861TEL: 15154136673三、取得的结果开发的大学生就业咨询系统基本上能完成预期的目标：1) 对用人单位的基本信息进行录入、修改、删除等。2) 实现毕业生专业信息的维护。3) 定时发布用人单位的毕业生需求信息。4) 方便的实现对人才需求信息的检索。5) 对用人单位的级别能够自动进行变更。可选6) 能够对历年的毕业需求信息进行统计、分析。7) 具有数据备份和数据恢复功能。可选不过因为专业知识有限，也有一些不足之处需要好好改进。四、总结与体会4.1问题及解决过程(1) 确定“大学生就业咨询系统”课题后，设计数据库需要具体数据信息，因

23、 没有现成的数据表格，必须自己创造数据，同时又必须合理。毕业生信息就 利用了同学资源，将她们的信息加以修改作为数据源，单位信息则是从招聘 网站上搜集来的，专业信息也是从网上搜集后整理的。(2) 数据备份与恢复是可选模块，因为不熟悉这方面的内容，为了完成此任务， 上网搜集、查阅书籍找相关资料，顺利完成任务。数据备份与恢复功能代码：4.2错误及原因分析(1) 程序运行时出现如下错误提示：原因分析：运行前忘记与数据库连接。解决方法：设置该界面ADO控件属性，与数据库中的表连接。（2）进行删除操作时，弹出窗口问是否真要删除，点击“否”后，信息仍然被删除，发生错误。后来分析发现代码有误，更改如下：yn

24、= MsgBox（真要删除? , vbYesNo,信息提示）If yn = vbYes ThenAdodcl.Recordset.DeleteMsgBox（删除信息成功）End If（3）数据库设计时，在向表里添加数据时，一直出现错误提示，后来发现是设 计表时数据长度设置不够，更改后成功输入。4.3设计体会和收获经过一周多的努力，课程设计基本完成了。在整个课程设计的实践中，我 学到很多有用的知识，也积累了不少宝贵的开发经验。比如用 ADO 链接数据库， SQL语句的应用，VB语言应用等。本设计通过自己的努力，基本满足了大学生就 业咨询的基本需要，实现了用户使用的方便以及管理员管理的方便，在界面

25、上力 求做到简单实用，在操作方面尽量做到满足用户使用的习惯，但由于自己的水平 有限和时间的不足，在很多方面还不完善，有些功能没有在全局上把握好。在今 后的学习当中将继续完善此系统，使其功能更加强大，满足用户的更多需求。1、这次课程设计要求一个人开发一个完整的系统，这对我来说是一个相当大的挑战。从数据库设计到设计界面再到程序的编写、调试并运行，都花费了很 多心思，界面的设计相对简单，对于我来说真正困的是程序代码的设计和程 序调试，通过这次课程设计将VB语言重新复习巩固了一遍，尤其加强了对 其应用的能力。在这次设计中遇到了很多实际性的问题，在实际设计中才发 现，书本上理论性的东西与在实际运用中的还

26、是有一定的出入的，所以有些 问题不但要深入地理解，而且要不断地更正以前的错误思维。一切问题必须 要靠自己一点一滴的解决，而在解决的过程当中你会发现自己在飞速的提 升。2、这次课程设计让我重新认识了“三人行，必有我师”，设计期间让我感受颇深的一件事就是，我在一个很简单的问题上耗费了一个下午的时间去调试修 改都找不到错误原因，这时同学帮我看了一下马上就指出了错误原因，我后 悔没有早让她看看，感觉这就是合作中的优势互补，大家会做的地方可能有 所不同，在交流中互相帮助学习就会大大提高效率。3、通过这次设计，我懂得了学习的重要性，了解到理论知识与实践相结合的重要意义，学会了坚持、耐心和努力，这将为自己今

27、后的学习和工作做出了最 好的榜样。课程设计期间，用到的很多知识并不全是课本上有的或是老师讲 到的，这也考验了我们的自学能力，借助参考书、上网查资料、与同学交流 等都是我们学习的途径。4、这次课程设计是很有意义的，重要的是如何把自己平时所学的东西应用到实际中。虽然自己对于这门课懂的并不多，很多基础的东西都还没有很好的掌握，觉得很难，也没有很有效的办法通过自身去理解，但是靠着这几周的“学习”，成功完成任务心中涌起一股成就感，渐渐对这门课逐渐产生了些许的 兴趣，自己开始主动学习并逐步从基础慢慢开始弄懂它。五、主要参考文献王珊，萨师煊数据库系统概论(第四版)M.高等教育出版社吴昌平.Visual Ba

28、sic程序设计(第二版)M.人民邮电出版社明日科技王春才，高春艳，李俊民.Visual Basic数据库系统开发完全手册M.人民邮电出版社六、附录(主要代码)(1)毕业生信息“查询”Private Sub Check_Click()Set myConn = New ADODB.ConnectionmyConn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial。8上810=大学生就业咨询系统;Data Source=GL3_34Set myRecor

29、d = New ADODB.RecordsetmyConn.OpenmySql = select * from students where sno = & & Text2.Text & myRecord.Open mySql, myConn, adOpenDynamic, adLockOptimisticIf myRecord.BOF = True And myRecord.EOF = True ThenMsgBox 没有此学号myConn.CloseElseText3.Text = myRecord.Fields(sname).ValueText4.Text = myRecord.Fiel

30、ds(ssex).ValueText5.Text = myRecord.Fields(mno).ValueText6.Text = myRecord.Fields(sderee).ValueText7.Text = myRecord.Fields(sage).ValueText8.Text = myRecord.Fields(stime).ValueText9.Text = myRecord.Fields(school).ValueEnd IfEnd Sub（2）毕业生信息“添加”Private Sub Add_Click（）Set myConn = New ADODB.Connectionm

31、yConn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial。8上810=大学生就业咨询系统;Data Source=GL3_34Set myRecord = New ADODB.RecordsetmyConn.OpenmySql = insert into students values （ & & Text2.Text & & , & & Text3.Text & & , & & Text4.Text & & , & & Text5.Text

32、& & , & & Text6.Text & & , & & Text7.Text & & , & & Text8.Text & & , & & Text9.Text & & ）myConn.Execute mySqlmyConn.CloseMsgBox （添加信息成功）Adodc1.RefreshEnd Sub（3）毕业生信息“修改”Private Sub Update_Click（）Set myConn = New ADODB.ConnectionmyConn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;P

33、ersist Security Info=False;Initial。8上810=大学生就业咨询系统;Data Source=GL3_34Set myRecord = New ADODB.RecordsetmyConn.OpenmySql = update students set sno = & & Text2.Text & & , & sname = & & , & Text3.Text & & , & ssex = & & Text4.Text & & , & mno = & & Text5.Text & & , & sderee = & & Text6.Text & & , & sag

34、e = & & Text7.Text & & , & stime = & & Text8.Text & & , & school = & & Text9.Text & & where sno = & & Text2.Text & myConn.Execute mySqlmyConn.CloseMsgBox （更新信息成功）Adodc1.RefreshEnd Sub（4）毕业生信息“删除”Private Sub delete_Click（）Set myConn = New ADODB.ConnectionmyConn.ConnectionString = Provider=SQLOLEDB.1;

35、Integrated Security=SSPI;Persist Security Info=False;Initial。8上810=大学生就业咨询系统;Data Source=GL3_34Set myRecord = New ADODB.RecordsetmyConn.OpenmySql = delete from students where sno = & & Text2.Text & myConn.Execute mySql myConn.CloseMsgBox (删除信息成功)Adodc1.RefreshEnd Sub(5) 数据备份与恢复界面代码： Dim StrCnn As Ne

36、w Connection定义连接Dim itmX As ListItem定义一个 ListItem 对象Dim key, list, sql As String定义字符串变量Private Sub Form_Load()Option1.Value = True设置 Option1 的值为真Dir1_ChangeEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.Path 添加数据备份卡到列表中ListView1.ListItems.ClearIf File1.ListCount 0 ThenA = 0给变量 a 设置初值Do While Fil

37、e1.ListIndex File1.ListCount - 1 File1.ListIndex = A赋值给变量 akey = File1.FileNameSet itmX = ListView1.ListItems.Add(, , key, 1)A = A + 1LoopEnd IfFile1_ClickEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label1.Caption = Dir1.Path & & File1.FileName获得路径End Su

38、bPrivate Sub ListView1_Click()Label1.Caption = Dir1.Path & & ListView1.SelectedItem获得路径End SubPrivate Sub CmdBackup_Click()If Text1.Text = ThenMsgBox (备份设备不能为空)ElseDim SDim m As StringIf Option1.Value = True Then备份数据库m = Format(Time, hh-nn-ss)S = Dir1.Path & & Date & - & m & .BAKIf Label1.Caption =

39、S ThenMsgBox 数据备份卡已存在！Exit SubElseStrCnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= 大 学 生 就 业 咨 询 系 统 ;Data Source=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大学生就业咨询系统;Data Source=GL3_34数据备份语句sql = exec

40、 sp_addumpdevice disk, + Trim(Text1.Text) + , + S + aql = backup DATABASE 就业咨询 TO disk= + Trim(Text1.Text) + with initStrCnn.Execute (sql)执行 SQL 语句StrCnn.CloseMsgBox 数据库备份成功！key = Date & - & m & .BAKSet itmX = ListView1.ListItems.Add(, , key, 1)ListView1.RefreshFile1.RefreshEnd IfEnd IfEnd IfIf Opti

41、on2.Value = True Then 恢复指定路径下的数据库If File1.ListCount 0 ThenIf Label1.Caption ThenStrCnn.Open Provider=MSDASQL.1;Persist Security Info=False;Data Source=gl2_48;Initial。8上810=大学生就业咨询系统sql = RESTORE DATABASE 就业咨询 from disk= & Labell.Caption & StrCnn.Execute (sql)执行 SQL 语句StrCnn.CloseMsgBox 数据库恢复成功！, , 提示窗口ElseMsgBox 请选择要恢复的数据备份卡！, , 提示窗口End IfElseMsgBox 请选择要恢复的数据备份卡！, , 提示窗口 End IfEnd IfEnd SubPrivate Sub CmdEnd_Click()Unload Me菜单.ShowEnd Sub