山西省林业职业技术学院户籍管理

山西省林业职业技术学院户籍管理 太原理工大学成人教育学院毕业,,论文 第一章 户籍管理概述 1.1软件背景简介 山西省林业职业技术学院是我省为林业战线培养人才的专业化学院，学历层次以大专为主，兼有部分中专。学院下设园林、林学、信息工程、园艺和经贸共五个系，现有近三千名学生。学校的户籍管理部门是校保卫科，每年新生入学时户口的迁入，身份证办理基本依靠人工操作，资料保存在纸质媒介上，而当毕业生离校时迁移户口，手续繁杂，效率低下，任务繁重。 新生入学报到注册后，把户口迁移证交到保卫科后，保卫科按班级按地区把学生的户口信息进行手工登记编制成年度新生落户花名和新生落户统计表，而且要一式三份，交到当地派出所审核符合规定给予办理。整个过程中手工登记工作量大，重复工作多，又常出错需要反复检查。学生入学后，给学生们办理身份证，需要按班级统计没办身份证的，统计出来登记、收照片、交付派出所办理，整个工作十分繁杂。 学生毕业时，比入学办理户口更复杂的户口迁移，由于就业形式的多样化，每个毕业生的毕业去向情况都不同，办理手续过程特别杂乱繁忙，让保卫科的老师们头痛不已。但这一工作又关系重大，不管是对学生对学校，老师们只能是小心翼翼，尽心尽力地做了。 由于现在学校办公自动化、管理信息化越来越普及，其他各个部门的管理基本实现了信息化，而保卫科的户籍管理仍然依靠手工操作办理，显得与整个学校的信息化建设格格不入，所以急需一套针对户籍管理的软件系统以提高保卫科的工作效率。 1.2开发环境简介 户籍管理系统是一个单机用户下的管理信息系统，开发环境是Windows 2003 Server下用Delphi7.0编程实现的，后台数据库用Microsoft 的Access 2000实现，这样用Access实现可以使系统脱离Delphi开发工具环境去运行。 Microsoft Access 2000 是 Microsoft Office 2000 组件之一，是美国微软公司开发的Windows 环境下非常流行的桌面型数据库管理系统，是一个面向对象的、采用事件驱动机制的关系型数据库管理系统，它可以通过ODBC与其他数据库相连，实现数据交换和共享，也可以与Word、Excel等办公软件进行数据交换和共享，还可以通过对象链接声音、图像等多媒体数据。选择用Access 建立数据库主要是为了程序在编译后可以脱离开Delphi 环境去运行，同时也是为了利用Access 方便、快捷、高效地建好数据库，也方便系统与其他学校管理部门方便地交换和共享以 Word 或 Excel 等办公软件保存的数据。Microsoft Access 2000 系统的核心任务就是设计、创建和维护数据库。在创建户籍管理系统的各个库时，利用 Access 中的向导首先 计算机信息管理专业 第1页 太原理工大学成人教育学院毕业,设计,论文 建立了在校学生户籍库、毕业生户籍库、离校学生户籍库的雏形，然后利用各种设计工具对数据库进行修改以达到设计目标。基础数据库和补办信息库由于结构简单，就直接用向导创建出来，然后分别为各个库创建各自的表，并向表中添加数据。 在本系统开发中，我选择了 Borland 公司的 Delphi7.0 开发平台，因为 Delphi 在数据库系统开发中比较适合，效率高，后期维护任务比较小;在具体开发实现中充分利用了 Delphi 连接数据库的ADO控件，还利用了一些第三方控件的优点，例如，用 FastReport控件来快速创建各式各样的报表。 计算机信息管理专业 第2页 太原理工大学成人教育学院毕业,设计,论文 第二章 系统分析 2.1 户籍管理问的分析 户籍管理是一项学校学生工作中必不可少非常重要的环节，由于个别学生的种种原因在户口办理和身份证办理上无法做到一个年级、一个专业甚至是一个班所有学生的统一处理，只能是大部分统一办理，统一办理中需要多次手工统计每个学生的各种个人信息，重复工作多，操作量大，任务繁琐。当个别没有办理好的学生再去办理时，每次都因为一名或多名学生都要在大量的文档中去寻找该同学的班级整体信息，然后办理，加到这个文档中，查寻过程对人的手工操作来说非常困难且容易出错。当处理毕业生的户口迁出时，学生们的就业时间、就业去向各不相同，造成无法按班级集中办理，只能是单独处理每一个学生的迁移手续，统计在一个时间段中全校所有需要办理的同学资料，然后集中到派出所办理一次，还要保留每一个人的信息，以方便汇总及日后查询，总之处理过程比较复杂，而对于学生们来说，感觉是手续繁杂，效率极低。 由此可见，户籍管理比较适合用计算机为其整个过程进行模拟，设计出数据库保存每位学生的各种户籍信息，利用信息管理系统方便地进行管理与查询及打印各种报表，由于整个学校的学生总数及其具体的个人信息资料，相对于计算机系统强大的处理能力而言微不足道，处理速度和效率都会有极大的提高，能极大地方便具体分管老师的管理与日常维护，把他们从繁重的任务中解脱出来。 2.2 户籍管理系统的整体设计思路 该校户籍管理整个过程基本上分成两大块，一部分为新生落户管理，一部分为毕业生迁户管理。在这两大部分中又有些各自具体需要处理的问题及处理过程。 在新生落户管理这一基本处理模块中，首先根据新生入学注册信息及其交付的户口迁移证将新生的户口及个人信息按系别和班级的不同统计出各种报表，然后交给派出所由数据库中信息统计出的新生落户花名册，集中办理户口，然后已办理户口的信息再添加到数据库中的相关字段。需要补办户口的学生将个人信息提供经办老师，然后将信息加到补办信息库中，在这个库中可以统计出需要办理的学生名单，集中给他们办理，办完后将他们的信息转到在校学生户籍库中。对于身份证的办理，将在校学生户籍库中新生数据按班级统计出来，按班级集中办理，补办的只能单独处理。而在毕业生迁移户口这一基本处理模块中，我们只将前面已建好的在校学生户籍库的学生信息导入到毕业学生户籍库中，然后，根据统计每一次集中办理过程中需要办理迁出手续的学生名单，交给派出所集中办理，最后将他们的信息从毕业生户籍库导出，加入到离校学生户籍库中。这样就在毕业学生户籍库中只保留那些没有迁出户口的学生的信息，而在离校学生户籍库只保存已迁出户口的学生信息，并且保存迁出地信息，方便以后学校或个人的各种统计和查询。 计算机信息管理专业 第3页 太原理工大学成人教育学院毕业,设计,论文 第三章 系统具体设计与数据流图 3.1 数据库设计 本系统中设计了两个核心数据库:一个是在校学生户籍库(ZXXSHJ.mdb)，另一个是毕业生户籍库(BYSHJ.mdb);另外为了减少数据冗余，独立设计基础数据库，把学生的各种信息存放在基础数据库中的各张表中，以供其他库的调用;为毕业学生建立离校学生户籍库(LXXSHJ.mdb)以存储离校学生的各种信息方便查询，还有为补办户口和身份证的学生建立的补办信息库。 基础数据库由七个基本表组成，这七个表分别是部门(BM)表、班级(BJ)表、地市县(DSX)表、民族(MZ)表、血型(XX)表、文化程度(XW)表、宗教(ZJ)表。每个基本表都由简单的结构构成，其它库的部分信息是由视图关联到这七个表中，把具体信息加入库中，以减少数据冗余。这七个基本表的结构如下: 表:BM 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 1* ID Long 4 ? 编号 2 BMMC Text 50 ? 部门名称 表:BJ 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 1* BJNO Text 10 ? 班级号码 2 BJMC Text 50 ? 班级名称 3 BMID integer 2 自动 0 ? 系别编号 4 RXND integer 2 自动 0 ? 入学年度 5 XZ integer 2 自动 0 ? 学制 6 DZZID Long 4 自动 0 ? 大中专编号 7 BZ Memo 0 ? 备注 表:DSX 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 1* ID Text 4 ? 编号 2 MC Text 20 ? 地区、县市名 3 YB Text 6 ? 邮编 表:MZ 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 0* ID integer 2 自动 ? 编号 1 MC Text 16 ? 民族 2 ShortKey Text 8 ? 简称 表:XX 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 计算机信息管理专业 第4页 太原理工大学成人教育学院毕业,设计,论文 1* ID Long 4 ? 编号 2 MC Text 50 ? 血型名称 表:XW 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 1* ID Long 4 ? 编号 2 MC Text 50 ? 学位名称 在校学生户籍库由学校其他部门的新生全部数据导入再通过调用基础数据库来得到各方面的数据，该数据库由一张表ZXXSHJ构成，在该表中以字段学号(ID)作为主键进行各种报表查询。这张在校学生户籍表结构如下表: 表:ZXXSHJ 序号 字段名 类型 长度 精度 小数 默认值 允许空 说明 1* HJID Text 12 户籍编号(学号) 2 XM Text 20 ? 姓名 3 XMJM Text 20 ? 姓名简码 4 HZJGX Text 50 ? 户主或与户主关系 5 CYM Text 40 ? 曾用名 6 XB Text 2 ? 性别 7 CSD Text 100 ? 出生地 8 MZMC Text 50 ? 民族 9 JG Text 50 ? 籍贯 10 CSNYR Date 8 ? 出生年月日 11 QTZZ Text 100 ? 本市(县)其他住址 12 ZJMC Text 50 ? 宗教信仰 13 SFZHM Text 18 ? 身份证号码 14 SG Single 4 自动 0 ? 身高 15 XXMC Text 10 ? 血型 16 WHCDMC Text 50 ? 文化程度 17 FYZK Text 4 ? 婚姻状况 18 BYZK Text 50 ? 兵役状况 19 FWCS Text 100 ? 服务处所 20 ZY Text 50 ? 职业 21 DQMC Text 2 ? 学生来源(地区) 22 SXMC Text 4 ? 由何地迁来(市、县) 23 YHKD Text 60 ? 原户口所在地(名细) 24 YYCY Text 100 ? 何因迁移及原户口地址 25 BMMC Text 20 ? 部门编号 26 BJNO Text 20 ? 班级编号 27 BJMC Text 50 ? 班级名称 28 RXND Long 4 自动 0 ? 入学年度 29 XZ Long 4 自动 0 ? 学制 30 HKQYZH Text 20 ? 户口迁移证号 31 SY Boolean 1 False ? 市移(True/False) 32 HKLB Boolean 1 True ? 户口类别 34 HK Boolean 1 False ? 户口到否 35 SFZ Boolean 1 False ? 有无身份证 36 ZCRQ Date 8 ? 转出日期 37 ZCDZ Text 50 ? 转出地址 38 BYF Boolean 1 True ? 是否正常毕业 39 BZ Memo 0 ? 备注 计算机信息管理专业 第5页 太原理工大学成人教育学院毕业,设计,论文 毕业生户籍库由在校学生户籍库中每一年中按教学计划安排毕业生班级的学生户籍信息导入，该库中包含当年毕业生的户籍信息，另外这个库中还包含一些非正常毕业的学生的信息(例如:被开除的学生、转学等情况下要把户口迁移走的学生的信息)，由一张毕业生户籍表(BYSHJ)构成，在表中以字段户籍编号(学号)为主键来查询，该表结构如下表: 表:BYSHJ 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 0* HJID Text 12 户籍编号(学号) 1 XM Text 20 ? 姓名 2 XMJM Text 20 ? 姓名简码 3 HZJGX Text 50 ? 户主或与户主关系 4 CYM Text 40 ? 曾用名 5 XB Text 2 ? 性别 6 CSD Text 100 ? 出生地 7 MZ integer 2 自动 ? 民族 8 JG Text 50 ? 籍贯 9 CSNYR Date 8 ? 出生年月日 10 QTZZ Text 100 ? 本市(县)其他住址 11 ZJXY integer 2 自动 ? 宗教信仰 12 SFZHM Text 18 ? 身份证号码 13 SG Single 4 自动 ? 身高 14 XX integer 2 自动 ? 血型 15 WHCD Long 4 自动 ? 文化程度 16 FYZK Text 4 ? 婚姻状况 17 BYZK Text 50 ? 兵役状况 18 FWCS Text 100 ? 服务处所 19 ZY Text 50 ? 职业 20 DQ Text 2 ? 学生来源(地区) 21 SX Text 4 ? 由何地迁来(市、县) 22 BJNO Text 10 ? 班级编号 23 YHKD Text 60 ? 原户口所在地(名细) 24 YYCY Text 100 ? 何因迁移及原户口地址 25 HKQYZH Text 20 ? 户口迁移证号 26 SY Boolean 1 False ? 市移(True/False) 27 HKLB Boolean 1 True ? 户口类别 28 HK Boolean 1 False ? 户口到否 True:到 False:未到 29 SFZ Boolean 1 False ? 有无身份证 30 BZ Memo 0 ? 备注 离校学生户籍库(LXXSHJ.mdb)是由以往每一届毕业学生的信息构成，另外这个 计算机信息管理专业 第6页 太原理工大学成人教育学院毕业,设计,论文 库中还包含一些非正常毕业的学生的信息(例如:被开除的学生、转学等情况下把户口迁移走的学生的信息)。由毕业学生户籍库中完成了户口迁移的学生信息导入，再加上非正常毕业且迁移走户口的学生信息，再添加上每一个离校生的各种情况，由一张离校学生户籍表(LXXSHJ)构成，在表中以字段户籍编号(学号)为主键来查询。 表:LXXSHJ 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 0* HJID Text 12 户籍编号(学号) 1 XM Text 20 ? 姓名 2 XMJM Text 20 ? 姓名简码 3 HZJGX Text 50 ? 户主或与户主关系 4 CYM Text 40 ? 曾用名 5 XB Text 2 ? 性别 6 CSD Text 100 ? 出生地 7 MZ integer 2 自动 ? 民族 8 JG Text 50 ? 籍贯 9 CSNYR Date 8 ? 出生年月日 10 QTZZ Text 100 ? 本市(县)其他住址 11 ZJXY integer 2 自动 ? 宗教信仰 12 SFZHM Text 18 ? 身份证号码 13 SG Single 4 自动 ? 身高 14 XX integer 2 自动 ? 血型 15 WHCD Long 4 自动 ? 文化程度 16 FYZK Text 4 ? 婚姻状况 17 BYZK Text 50 ? 兵役状况 18 FWCS Text 100 ? 服务处所 19 ZY Text 50 ? 职业 20 DQ Text 2 ? 学生来源(地区) 21 SX Text 4 ? 由何地迁来(市、县) 22 BJNO Text 10 ? 班级编号 23 YHKD Text 60 ? 原户口所在地(名细) 24 YYCY Text 100 ? 何因迁移及原户口地址 25 HKQYZH Text 20 ? 户口迁移证号 26 SY Boolean 1 False ? 市移(True/False) 27 HKLB Boolean 1 True ? 户口类别 28 HK Boolean 1 False ? 户口到否 True:到 False:未到 29 SFZ Boolean 1 False ? 有无身份证 True:有 False:无 30 BZ Memo 0 ? 备注 计算机信息管理专业 第7页 太原理工大学成人教育学院毕业,设计,论文 最后，补办信息库是一个简单的表构成，表中只有需要办理户口或身份证的学生学号，而具体办理户口或身份证用逻辑真或假来区别，表结构简单，需要打出办理学生的详细信息时，根据学号到基础数据库中的各表中去查，然后直接调用。 表:BuHkSfz 序号 字段名 类型 长度 精度 小数位数 默认值 允许空 说明 1* HJID Text 12 ? 学号(户口编 号) 2* HkSfz Boolean 1 False ? 户口:False; 身份 证:True; 3.2 表间关系图 3.3 数据流图 计算机信息管理专业 第8页 太原理工大学成人教育学院毕业,设计,论文 计算机信息管理专业 第9页 太原理工大学成人教育学院毕业,设计,论文 第四章 关键问题分析 在本软件中关键性问题主要有以下三方面: 1、数据接口问题 数据接口问题主要是说该软件中的数据内容与林业职业技术学院中其他各科室的数据共享问题。由于该学校现在的网络系统还不健全，只能在单机系统间手工来完成数据的筛选工作，在网络完善以后可以将数据放入数据报务器中来共享数据。所以要留有数据的导入功能模块来完成此项任务。 2、数据的正确性与保密性 数据的正确性主要是说有关户籍的内容要保正数据的正确和准确，比如身份证号码。保密性是说在该软件中的数据不能被未经授权的用户所看到，由于时间问题我只做了用户名与密码的简单加密。 3、已迁移出去户口的回查问题 保留已迁移出去的户口信息是为了保证在户主丢失户口迁移证或者其他原因来学校查阅相关信息时提供依据。 计算机信息管理专业 第10页 太原理工大学成人教育学院毕业,设计,论文 第五章 户籍管理系统 5.1 系统功能的划分 户籍管理系统包含四大功能模块分别是:数据管理模块、新生管理模块、毕业生管理模块、辅助工具模块，在各个功能模块又有若干个子模块处理具体事务. 5.2 数据管理模块 数据管理模块包含基础数据、切换用户、退出系统三个子功能模块，其中以基础数据为主，基础数据中包括七张表，分别是部门、班级、地区市县、民族、血型、文化程度、宗教。 部门表中只包含两个字段，一个是编号，另一个是部门名称，全校部门分成园林系、林学系、信息工程系、园艺系、经贸系，教职工六大部门，分别编号为1—6。班级表把学校所有学生组成的班级全部包括在内，表中有班级号、名称、部门、入学年度、学制、类别、备注六个字段名，以班级号为主键。地区市县表该校学生生源地中所包含地区或市名的父表以及在该地区或市下面所包含的各个县名的子表，父表与子表是相互关联的，都只有两个字段分别是编号与名称，编号是主键。民族表也非常简单有两个字段，一个是编号，别一个是名称，编号是主键;血型表、文化程度表和宗教表也都与民族表类类似。 这些表的共同作用就是在别的库中遇到这些表中的信息内容不需要保存具体信息，只需要保存其编号，然后通过视图与这些基本数据表关联，将住信息引用过去，从而降低数据冗余，单击“基础数据”出现如下图的界面，分别点击每个表名就会出现表中的具体内容。 基础数据界面图: 计算机信息管理专业 第11页 太原理工大学成人教育学院毕业,设计,论文 “切换用户”是用来切换不同的用户，进入系统管理员所授权给用户的界面，得到了授权范围内的操作权限。退出系统命令有用来退出整个户籍管理系统。 5.3 新生管理模块 在新生管理这一菜单下包含四个小功能模块:录入编辑、新生落户、新生浏览、补办。单击“录入编辑”进入个人户口信息处理窗体，表中所列为全部在校学生户口信息，包括详细的个人信息资料，这是一个核心数据库。在这个数据库中可以方便地按学号、姓名简码、身份证号码进行查询，检索需要的信息，在这个窗体的右上角有追加按钮和编辑按钮，可以向库中追加学生信息，也可以更改学生信息，另外在表中任一条记录上单击右键可以把这条记录进行三种处理:删除学生、非正常离校、生成姓名简码。 在新生管理菜单下，单击“新生落户”出现新生落户信息窗体，在该窗体中选择了入学年度、学生来源和学生落户三个选项的任一个，就可以得到按条件的新生落户信息，还可以把新生落户信息打印出来。 计算机信息管理专业 第12页 太原理工大学成人教育学院毕业,设计,论文 单击“新生浏览”可以得到在校学生户口信息浏览和统计窗体，在这个窗体根据需要统计范围的大小不同按全部、部门或班级三种不同方式进行浏览与统计，还可以按寻上述条件下按有户口或无户口两种情况分别统计，并能把统计结果打印。 计算机信息管理专业 第13页 太原理工大学成人教育学院毕业,设计,论文 在这个菜单下，还有一个“补办”小功能模块，该模块用于统计办理身份证和户口的信息，可以很方便地给出条件进行查询、打印。 5.4 毕业生管理模块 在这一处理模块下有三个小功能模块:毕业生处理、毕业生浏览、迁移户口;“毕业生处理”是用来把该校每一年毕业班的户口资料按班级将其转入毕业生户籍库中。 计算机信息管理专业 第14页 太原理工大学成人教育学院毕业,设计,论文 “毕业生浏览”是用来根据给定的条件全部、部门或班级信息把毕业生户口信息浏览统计，且可以打印结果。 “迁移户口”用来将选中的班级中的个人户口信息从毕业生户籍库中转入到离校学生户籍库中。毕业生户口迁移运行图: 计算机信息管理专业 第15页 太原理工大学成人教育学院毕业,设计,论文 5.5 辅助工具模块 在该模块下包括五个具体功能:查询、用户管理、导入数据、备份数据、恢复数据。 查询功能是对个人户口信息资料按户口类别:在校学生、毕业学生、离校学生选择后，给出查询条件:姓名简码、籍贯、原户口所在地、身份证号码、出生年月日任选其一，设定条件，系统就能在库中查询到所需信息，且能打印。 用户管理功能是用来更改用户名、密码、增加用户，对不同的用户授予不同的操作权限以增加系统的保密性。 计算机信息管理专业 第16页 太原理工大学成人教育学院毕业,设计,论文 备份数据、恢复数据功能是为了系统中的数据的安全性而采取的一种常用的数据保护。 5.6 报表输出 在本系统中有关报表全部嵌入到了各模块中，下面列出了几个主要的报表。 计算机信息管理专业 第17页 太原理工大学成人教育学院毕业,设计,论文 计算机信息管理专业 第18页 太原理工大学成人教育学院毕业,设计,论文 第六章 结束语 山西省林业职业技术学院户籍管理系统经过几个月的努力，系统已投入了试运行，用户正在为库增加一些后续数据，从用户反馈回来的信息来看，系统基本上满足了用户的要求。综合来看，该户籍管理系统具有以下优点: , 充分考虑了户籍管理工作的具体情况; , 操作简单，手工输入信息量比以前降低了很多; , 提高了用户的工作效率。 我们深知一套实用的管理信息系统(MIS)只有在使用过程中不断的发现问题、解决问题，才能逐步完善起来，为了满足用户的新要求，要对系统进行不断的维护和升级。现阶段，需要改进的地方主要有以下两点:把系统设计成在INTERNET环境下运行与校园网相配合，提高系统中数据的安全保密性。 本论文是在我的导师郝桂芳的亲切关怀和悉心指导下完成的。在做毕业论文期间，郝老师始终给予我精心的指导，从导师身上，我不仅学到了专业知识，而且学到了严谨的治学态度，认真的工作作风和不断进取的精神。为此，我谨向郝老师表示最衷心的感谢。 十分感谢计算机信息管理专业的所有老师和各位领导，为我大学期间的学习和成长所提供的良好的教育和环境～ 计算机信息管理专业 第19页 太原理工大学成人教育学院毕业,设计,论文 参考文献 ,,,萨师煊 王 珊《数据库系统概论》,版-北京 高等教育出版社 ,,,傅清祥 王晓东《算法与数据结构》,版-北京 电子工业出版社 1998.1 ,,,甘 志 陈宜凯 李幼仪《Delphi应用案例开发篇》1版-北京 清华大学出 版社 2003.11 [ 4 ] 陈 省 《Delphi深度探索》2版-电子工业出版社 2004.1 [ 5 ] 袁晓君 《Delphi计算机语言函数应用》科学出版社 2000.1 计算机信息管理专业 第20页 太原理工大学成人教育学院毕业,设计,论文 附录1:用户、密码加密解密程序 //====文体加密函数(j^2-i^2+3)====// Function Encrypt(Str:string):String; Var i,j,k:integer; S1:string; Begin S1 := ''; j := length(Str); for i:=1 to j do begin k := j*j-i*i+3; S1 := S1+Chr(Ord(Str[i])+k); end; result := S1; End; //====文体解密函数(加密的反运算)====// Function Decrypt(Str:string):String; Var i,j,k:integer; S1:string; Begin S1 := ''; j := length(Str); for i:=1 to j do begin k := j*j-i*i+3; S1 := S1+Chr(Ord(Str[i])-k); end; result := S1; End; 计算机信息管理专业 第21页 太原理工大学成人教育学院毕业,设计,论文 附录2:备份、恢复数据程序 //====备份数据====// procedure TForm_Main.BFSJClick(Sender: TObject); var F: TShFileOpStruct; begin F.wnd := Handle; F.wFunc := Fo_COPY; {操作方式} F.pFrom := pAnsichar(ExtractFileDir(Application.ExeName) + '\Data\HJ.mdb' + #0); SaveDialog.Filter := 'ACCESS 文件(*.mdb)|*.mdb'; SaveDialog.Title := '选择备份路径和文件名'; SaveDialog.InitialDir := ExtractFileDir(Application.ExeName) + '\Backup'; SaveDialog.FileName := FormatDateTime('yyyymmdd', Now); if SaveDialog.Execute then Begin F.pTo := pAnsichar(SaveDialog.FileName + '.mdb'); F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION; {操作选项} if ShFileOperation(F) <> 0 then MessageBox(0, '数据文件备份失败～', '错误', MB_OK + MB_ICONSTOP) else MessageBox(0, '数据文件备份成功～', '成功', MB_OK + MB_ICONINFORMATION); End; end; //====恢复数据====// procedure TForm_Main.HFSJClick(Sender: TObject); var F: TShFileOpStruct; begin F.wnd := Handle; F.wFunc := Fo_Delete; {操作方式} F.pFrom := pAnsichar(ExtractFileDir(Application.ExeName) + '\Data\HJ.mdb' + #0); F.pTo := pAnsichar(''); F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION; {操作选项} {--- 断开连接 ---} try DM.ADOHKData.Connected := False; OpenDialog.Filter := 'ACCESS 文件(*.mdb)|*.mdb'; OpenDialog.InitialDir := ExtractFileDir(Application.ExeName) + 计算机信息管理专业 第22页 太原理工大学成人教育学院毕业,设计,论文 '\Backup\'; OpenDialog.Title := '选择备份文件'; if OpenDialog.Execute then If MessageBox(0, PChar('恢复数据文件后现有的数据内容将全部丢失～ '+#13#10#13#10+ '确认是否继续,'), '提示', MB_OKCANCEL + MB_ICONQUESTION+MB_DEFBUTTON2)<>IDOK Then Abort; if ShFileOperation(F) <> 0 then MessageBox(0, '删除原始数据文件失败～', '错误', MB_OK + MB_ICONSTOP) else if CopyFile(PChar(OpenDialog.FileName), PChar(ExtractFileDir(Application.ExeName) + '\Data\HJ.mdb'), False) then MessageBox(0, '数据文件恢复成功～', '成功', MB_OK + MB_ICONINFORMATION); {--- 恢复连接 ---} DM.ADOHKData.Connected := True; except MessageBox(0, '删除原始数据文件失败～', '错误', MB_OK + MB_ICONSTOP) end; end; 计算机信息管理专业 第23页