基于Delphi XE10实现数据库的实时备份和恢复

’‘　…　’’’●‘　‘　’’　‘‘…‘　…‘　’…　。　‘‘…　‘…●　……～…　实用第一　智慧密集　…　…　．　．。．　…　…　．　，　基于Ｄｅｌｐｈｉ　ＸＥ１０实现数据库的实时备份和恢复　张存平，罗郁霞，吴铁堤，梁宁，卢英杰　（广州市殡葬服务中心电脑部，广州５１０５０７）　摘要：提出一种用程序在客户端实现数据库的实时备份和恢复的编程方法，方法独特、新颖，且不仅不增加客户　本方法只是基于两层架构，当然也很容易改为三层架构，编程难度不大、易　端编程量，反而大大缩减了编程量懂、易于实现，稍懂数据库编程的人都能学会，不失为解决数据库安全的好办法　．　关键词：Ｄｅｌｐｈｉ　ＸＥＩＯ语言；Ｏｒａｃｌｅ数据库；ＭｙＳＱＬ语言；数据库实时备份；数据库恢复；客户端快速直连数据库　现在大多数的软件系统都会利用数据库存储数据，随着　业务的不断进行。数据库的数据一直都连续地发生变化。如　何实时备份数据库。是广大系统维护人员最为关心的问题。　数据是软件的处理结果，也是软件所在单位的财富，特别是　大数据的背景之下，数据的重要性更加突出。　传统的实时备份是一些大型商业数据库的核心技术，往　往需要购买高级的Ｔ具，还要复杂的配置才能实现。并且对　程序来说，这一切一点都不透明，这多少让程序员有点力不　从心的感觉。作为一个长期编写客户端程序的人来说，经过　深入思考和编程试验，找到了一种用程序来实现数据库的实　时备份和恢复的方法．原理如下：　在Ｄｅｌｐｈｉ　ＸＥ编程环境里，对数据库的操作都是以事务为　单位向数据库提交数据改变请求的。而每一个事务又是一系　列ＳＱＬ语句和参数组成．如果能把这些语句和参数在执行事　务提交的同时，保存下来。不是就可以对数据库进行备份了　吗？似乎有点相当于增量备份。　保存ＳＱＬ语句没有任何闲难．关键是参数的保存和以后　的复用有点难，冈为通常在这种提交方式下，我们采用的方　法都是根据数据段类型逐一对Ｑｕｅｒｙ控件的参数动态传值，很　散乱，如果编程的时候郁先保存再执行，编程量太大了，也　无法复用。所以，首先必须改变这种一个个参数的赋值方法，　把所有参数的值和类型合成一个字符串，然后调用一个函数　动态解析并逐一赋值给Ｑｕｅｒｙ控件．所以设计出一个数据库事　务调用函数是解决问题的关键。下面用一个例子来详细叙述　实现过程。　ｌ建立例子程序的环境　安装好一个Ｏｒａｃｌｅ数据库．建立一个用户ｔｅｓｔ，密码１２３，　两张表：　ｔａｂ１，含有以　字段：Ｓｎ员工编号、ｎａｍｅ姓名、ａｄｄｒ住　址、ｄｅｐａｆｌ—ｓｎ部门编号、ｌ＿ｄａｔｅ髓记日期。　Ｔａｂ２，含有以下字段：ｄｅｐａ￣一Ｓｌｌ部门编号，ｄｅｐａｒｔ—ｎａｍｅ　部门名称　打开Ｄｅｌｐｈｉ　ＸＥ１０．新建一个ＶＣＬ的应用项目．主窗口设　为ｆｒｍ—ｍａｉｎ，编译一下，然后增加一个数据模块ＤＭ，在ＤＭ　的窗口ｆｆｍ—ｄｎｌ星放５个控件：ＦＤＰｈｖｓ０ｒａｃｋＤ　ｒｉｖｅｒＬｉｎｋ１，　２０１７．０１　］＝＝Ｉ　蕊　堆　ＦＤＧＵｌｘＷａｉｔＣｕｒｓｏｒｌ，ＦＤＣｏｎｎｅｃｔｉｏｎ　１，ＤａｔａＳｏｕｒｃｅ　１，ＦＤＱｕｅｒｙ　ｌ，　Ｊ＂巴ｏｒａｃｌｅ的４个连接库文件０ｃｉ．ｄｌｌ，ｏｒａｏｅｃｉ　１　１．ｄｌ１．ｏｒａｏｃｉｅｉ　１　１．　ｄｌｌ，ｏｒａｓｑｌ１１．ｄｌｌ拷贝在编译后的运行文件所在的目录下。选中　ＦＤＰｈｖｓ０ｒａ（　ＩｅＤｒｉｖｅｒＬｉｎｋ　ｌ控件，设置其ＶｅｎｄｏｒＬｉｂ指向（，ｃｉ．ｄｌｌ，　选中ＦＤＣｏｎｎｅｃｔｉｏｎｌ，在其Ｐａｒａｍｓ属性里输入以下内容：　ＤｒｉｖｅｒｌＤ＝０ｒａ　Ｄａｔａｂａｓｅ＝（ＤＥＳＣＲＩＰＴＩＯＮ＝（ＡＤＤＲＥＳＳ　ＬＩＳＴ＝（ＡＤ—　ＤＲＥＳＳ：（ＰＲＯＴＯＣＯＬ＝ＴＣＰ）（ＨＯＳＴ＝１７２．１６．１．９５）｛ＰＯＲＴ＝　１　５２１）））（ＣＯＮＮＥＣＴ＿ＤＡＴＡ＝（ＳＥＲＶＥＲ＝ＤＥＤＩＣＡＴＥＤ）｛ＳＥＲ－　ＶＩＣＥ—ＮＡＭＥ＝ｏｒｃ１）））　Ｕｓｅｒ＿Ｎａｍｅ＝ｔｅｓｔ　Ｐａｓｓｗｏｒｄ＝１　２３　ＣｈａｒａｃｔｅｒＳｅｔ＝ＵＴＦ８　注意：Ｄａｔａｂａｓｅ行中不能有分行符。通过ＦＤＣ连接数据　库，不需要安装客户端，只要有相应的库就行了。　设女　后，选择其ｃｏｎｎｅｃｔｅｄ屙ｌ生为ｔｒｕｅ，连接成功。　将ＦＤＱｕｅｒｙ　ｌ的ｃｏｎｎｅｃｔｉｏｎ属性指定为ＦＤＣｏｎｎｅｃｔｉｏｎ　ｌ，　ＤａｔａＳｏｕｒｃｅＩ的ＤａｔａＳｅｔ属性指定为ＦＤＱｕｅｒｙ１．并在ＦＤＱｕｅｒｙ１　的ＳＱＬ属性编辑框里输入ｓｅｌｅｃｔ　ｆｒｏｍ　ｔａｂｌ语句　用其他连接　Ｏｒａｃｌｅ数据库的工具，比如说ＰＬ　ＳＱＬ连接数据库，在ｔａｂｌ输　入两条记录．在主窗口放ＤＢＧｒｉｄ１控件，其ＤａｔａＳｏｕｒｃｅ设为　ＤＭ巾的ＤａｔａＳｏｕｒｃｅＩ，将ＦＤＱｕｅｒｙｌ的ｃｏｎｎｅｃｔｅｄ属性置为　ｔｒｕｅ，数据库的记录就会显示在ＤＢＧｒｉｄ１中，到此，环境设置　完毕。　２全新数据库事务提交函数设计　（１）编写一个字符串这分割函数。　ｆｕｎｃｔｉｏｎ　ＳｐｌｉｔＳｔｒＺｃｐ（ｓｏｕｒｃｅ＿ｓｔｒ：ｓｔｒｉｎｇ；ｓｐｌｉｔ＿ｓｔｒ：ｓｔｒｉｎｇ）：　ＴｓｔｒｉｎｇＬｉｓｔ；　Ｖａｒ　ｉ：ｉｎｔｅｇｅｒ；　Ｓｐｌｉｔｔｅｄ：ＴＡｒｒａｙ＜Ｓ　ｎｇ＞：　ｂｅｇｉｎ　作者简介：张存平（１９６９一），男，硕士，研究方向：软件　设计　收稿日期：２０１６－０９—０５　

　．…．　Ｄ＾Ｔ＾ＢＡＳＥ＆ＩＨｆ０Ｂ啊＾ＴＩＯＮ　ＭＡＮＡＧＥ－　∥的日期格式　ｐａｒａ—Ｌ：：ＳｐｌｉｔＳｔｒＺｃｐ（ｐａｒａ，　：　）　，／将字符串分割为数组　Ｒｅｓｕｆｔ：＝ＴｓｔｒｉｎｇＬｉｓｔ．Ｃｒｅａｔｅ（）；　Ｓｐｌｉｔ（ｓｐｌｉｔ—ｓｔｒ）；　Ｓｐｌｉｔｔｅｄ：＝ｓｏｕｒｃｅｓｔｒ。＿ｆｏｒ　ｉ：＝Ｌｏｗ（Ｓｐｌｉｔｔｅｄ）ｔｏ　Ｈｉｇｈ（Ｓｐｌｉｔｔｅｄ）ｄｏ　Ｒｅｓｕｌｔ．Ａｄｄ（ＳｐＮｔｔｅｄ［ｉ］）；　ｅｎｄ；　ｔｙｐｅ：＝ＴＳｔｒｉｎｇＬｉｓｔ．Ｃｒｅａｔｅ；∥提取字段类型　ｚｉｄｕａｎｄａｔａ：＝ＴＳ　ｎｇＬｉｓｔ．Ｃｒｅａｔｅ；∥提取字段值　ｚｉｄｕａｎ—＿——ｆｏｒ　ｉ：＝０　ｔｏ　ｐａｒａＬ．Ｃｏｕｎｔ一１　ｄＯ　—ｂｅｇｉｎ　（２）编写一个从ＳＱＬ语句ｆｆ１提取字段名称的函数，供后　ｉｆ｛ｉ　ｍｏｄ　２）＝０　ｔｈｅｎ　面使用。　ｆｕｎｃｔｉｏｎ　ｇｅｔ＿ｚｉ＿ｄｕａｎ（ｓｑｌ—ｓ：ｓｔｍｇ）：Ｔｓｔ　ｇＬｉｓｔ：　Ｖａｒ　ｉ，ｌｅｎ，ｐｏ：ｉｎｔｅｇｅｒ；　ｓ：ｓｔｒｉｎｇ；　ｂｅｇｉｎ　／／ｂ，ＳＱＬ语句中提取字段　Ｒｅｓｕ　Ｊｔ：＝Ｔｓｔ　ｒｉｎｇＬｉｓｔ．Ｃｒｅａｔｅ；　ｌｅｎ：＝ｓｑ１．—Ｓ．Ｌｅｎｇｔｈ；　ｐＯ：＝０：　ｆｏｒ　ｉ：＝０　ｔｏ　ｌｅｎ一１　ｄｏ　ｂｅｇｉｎ　ｓ：＝ｓｑｌ＿ｓ．Ｓｕｂｓｔｒｉｎｇ（ｉ，１）：　ｉｆ　ｓｑｌ—Ｓ．Ｓｕｂｓｔｒｉｎｇ（ｉ．１）＝　：　ｔｈｅｎ　ｐ０：＝ｉ：　ｉｆ　ｐｏ＞０ｔｈｅｎ　ｂｅｇｉｎ　ｉｆ（（ｓｑｌ＿ｓ．Ｓｕｂｓｔｒｉｎｇ（ｉ，１）－　）ｏｒ（ｓｑＬｓ．Ｓｕｂｓｔｒｉｎｇ（ｉ，１）：　，　１Ｏｒ　（ｓｑｌ—Ｓ．Ｓｕｂｓｔｒｉｎｇ（ｉ，１）＝　）　））ｔｈｅｎ　ｂｅｇｉｎ　Ｒｅｓｕｌｔ．Ａｄｄ（ｓｑｌ—Ｓ．Ｓｕｂｓｔｒｉｎｇ（ｐｏ＋１，ｉ－ｐｏ－１））：　ｐＯ：＝０：　ｅｎｄ；　ｉｆ（（ｉ＝ｌｅｎ一１）ａｎｄ《ｐｏ＞０））ｔｈｅｎ　ｂｅｇｉｎ　Ｒｅｓｕｌｔ．Ａｄｄ（ｓｑｌ—Ｓ．Ｓｕｂｓｔ　ｒｉｎｇ（ｐｏ＋１，ｉ－ｐｏ））：　ｐＯ：＝Ｏ：　ｅｎｄ；　ｅｎｄ；　ｅｎｄ；　ｅｎｄ；　（３）将受赋值的参数，按照ＳＱＩ　句中ＪＩ｛现的　序，先值后类型　朋“：”号连接为一个字符串，和ＳＱＬ　句一起　传送给以下过程，实现对每一个Ｑｕｅｒｙ赋值　ｐｒｏｃｅｄｕｒｅ　Ｔｆｒｍ—ｄｍ．ｚｉ—ｄｕａｎ—ｄｅａｌ（ｓｑｌ—ｓ：ｓｔｒ１ｎｇ：ｐａｒａ：ｓｔｒｉｎｇ：ｑｕ：ＴＦＤＱｕｅｒｙ）；　Ｖａｒ　ｐａｒａ——Ｌ，ｚｉｄｕａｎ—ｎａｍｅ。ｚｉ——ｄｕａｎｔｙｐｅ．ｚｉｄｕａｎｄａｔａ：＿—＿ＴＳｔｒｉｎｇＬｉｓｔ；　ｉ：ｉｎｔｅｇｅｒ；　ＡＦｏｒｍａｔ：ＴＦｏｒｍａｔＳｅｔｔｉｎｇｓ；　ｂｅｇｉｎ　ＡＦｏｒｍａｔ．ＳｈｏｒｔＤａｔｅＦｏｒｍａｔ：＝　ＹＷＹ—ｍｍ—ｄｄ　：　ＡＦｏｒｍａｔ．ＤａｔｅＳｅＤａｒａｔＯｒ：＝　一　ＡＦｏｒｍａｔ．ＬｏｎｇＴｉｍｅＦｏｒｍａｔ：＝　ｈｈ：ｍｍ：ｓｓ　：Ｎｏｒａｃｌｅ　ｚｉｄｕａｎｄａｔａ，Ａｄｄ（ｐａｒａ＿＿Ｌ［ｉｌ．Ｒｅｐｌａｃｅ（　［ｍａｏｌ　，　：，））／／处理含有“：”　ｅｌｓｅ　ｚｉ—ｄｕａｎ＿ｔｙｐｅ　Ａｄｄ（ｐａｒａ一　】．Ｒｅｐｌａｃｅ（　［ｍａｏ］　，　：　））：　ｅｎｄ；　ｚｉｄｕａｎｎａｍｅ：＝ｇｅｔ—ｚｉ———ｄｕａｎ（ｓｑｌ—ｓ）；ｆ获取字段名称　ｆｏｒ　ｉ：＝０　ｔｏ　ｚｉ　ｄｕａｎ　ｎａｍｅ．Ｃｏｕｎｔ一１　ｄｏ　ｂｅｇｉｎ／／根据字段类型给ＦＤＱｕｅｒｙ参数动态赋值　ｉｆ　ｚｉ—ｄｕａｎｔｙｐｅ［ｉ］＝　ｉｎｔ　ｔｈｅｎ　ｂｅｇｉｎ　ｑｕ．ｐａｒａｍｂｙｎａｍｅ（ｚｉ—ｄｕａｎ—ｎａｍｅ［ｉ］）．Ａｓｌｎｔｅｇｅｒ：＝　ｓｔｒｔｏｉｎｔ（ｚｉ—ｄｕａｎ—ｄａｔａ［ｉ］）　ｅｎｄ　ｅｌｓｅ　ｉｆ　ｚｉ—ｄｕａｎ＿ｔｙｐｅ…＝　ｓｔｒ　ｔｈｅｎ　ｂｅｇｉｎ　ｑｕ．ｐａｒａｍｂｙｎａｍｅ（ｚｉ——ｄｕａｎ——ｎａｍｅ［ｉ］）．ＡｓＳｔｒｉｎｇ：＝　ｚｉ＿ｄｕａｎ—ｄａｔａ［ｉ］；　ｅｎｄ　ｅｌｓｅ　ｉｆ　ｚｉ—ｄｕａｎ＿ｔｙｐｅ［ｉ］＝　ｄａｔｅ　ｔｈｅｎ　ｂｅｇｉｎ　ｑｕ．ｐａｒａｍｂｙｎａｍｅ（ｚｉ——ｄｕａｎ——ｎａｍｅｌｉ］）．ＡｓＤａｔｅ：＝　ｓｔｒｔｏｄａｔｅ（ｚｉ＿ｄｕａｎ——ｄａｔａ［ｉ］．ＡＦｏｒｍａｔ）；　ｅｎｄ　ｅｌｓｅ　ｉｆ　ｚｉ—ｄｕａｎ＿ｔｙｐｅ【ｉｌ＝　ｆｌｏａｔ　ｔｈｅｎ　ｂｅｇｉｎ　ｑｕ．ｐａｒａｍｂｙｎａｍｅ（ｚｉ——ｄｕａｎ——ｎａｍｅ［ｉ］）．ＡｓＦＩｏａｔ：＝　ＳｔｒＴｏＦｌｏａｔ（ｚｉ＿ｄｕａｎ—ｄａｔａｌｉ］）；　ｅｎｄ　ｅｌｓｅ　ｉｆ　ｚｉ—ｄｕａｎ＿ｔｙｐｅ［ｉ］＝　ｄａｔｅｔｉｍｅ　ｔｈｅｎ　ｂｅｇｉｎ　ｑｕ．ｐａｒａｍｂｙｎａｍｅ（ｚｉ——ｄｕａｎ——ｎａｍｅｌｉ］）ＡｓＤａｔｅＴｉｍｅ：＝　ＳｔｒＴｏＤａｔｅＴｉｍｅ（ｚｉ——ｄｕａｎ——ｄａｔａ［ｉ］，ＡＦｏｒｍａｔ）；　ｅｎｄ；　ｅｎｄ；　ｅｎｄ；　此过程．，尢埘参数分解为字段类型千＂字段ｆｌＩ｛＿，然后　用　ｇｅｔ＿ｚｉｄｕ　（ｓｑｌ一　函数，捩收　段　，最后依次埘Ｑｕｍｙ赋值。　（４）考虑刮一般情况卜，每次事务总足包　数个ＱｕｅＬｗ提　交，还要每虑事务的容错、『ｌＩＩ滚，所以，这样　丫Ｌ次处娌并小　能很好地使用、昕以对事务的ｉＪ；￣ｌ　Ｊ－ｔｊ小能　接ｉｔｊ这个过　，还　要设计一个事务处理函数来ｉｌ，ｑＪｌｌ这个过程：　ｆｕｎｃｔｉｏｎ　Ｔｆｒｍ—ｄｍ．ｄｍ—ｄｂ—ｔｒａｎｓａｃｔ　ｏｎ（ｓｑｌ—ｓｎ：ｉｎｔｅｇｅｒ；　ｄｍ—ｐａｒａｍ—Ｌ：ＴｓｔｎｎｇＬｉｓｔ）：ｓｔｎｎｇ；　ｖａｒ　ｉ，ｎ：ｉｎｔｅｇｅｒ；　６１　　　　　

’　…　…　‘　…　＾’。　…‘…　…　一…，　实用第一　智慧密集　一．，　．　．…．　　，．　．　．　ｔｅｍ．—ＦＤＱｕｅｒｙ：ＴＦＤＱｕｅｒｙ；　ｓ１．ｐｌ：ｓｔｒｉｎｇ；　ｄｍ——ｓｑｌ——Ｌ：ＴＳｔｒｉｎｇＬｉｓｔ；　ｂｅｇｉｎ　ｄｍ—ｓｑｌ—Ｌ：＝ｇｅｔ＿ｓｑｌ（ｓｑｌ—ｓｎ）：ＩＩＺ数据库里提取ＳＱＬ语句　ｔｒｙ　ｔｅｒｎ——ＦＤＱｕｅｒｙ：＝ＴＦＤＱｕｅｒｙ．Ｃｒｅａｔｅ（ｓｅｌｆ）；　ｔｅｍ—ＦＤＱｕｅｒｙ．ＣＯｎｎｅｃｔｉＯｎ：＝ＦＤＣＯｎｎｅｃｔｉＯｎ１：　ＦＤＣＯｎｎｅｃｔｉＯｎ１．ＳｔａｒｔＴｒａｎｓａｃｔｉｏｎ；　ｔｒｙ　ｆｏｒ　ｊ：＝Ｏ　ｔｏ　ｄｍ—ｓｑｌ—Ｌ．Ｃｏｕｎｔ一１　ｄｏ　ｂｅｇｉｎ　ｓｌ：＝ｄｉｎ—ｓｑｌ—ＬＩｊ】：　ｐｌ：＝ｄｉｎ—ｐａｒａｍ—Ｌ【＿】＝　ｗｉｔｈ　ｔｅｍ—ＦＤＱｕｅｒｙ　ｄｏ　ｂｅｇｉｎ　ｃｌｏｓｅ；　ｓｑ１．Ｃｌｅａｒ；　ｓｑ１．Ａｄｄ（ｓ１）：　－ｆ　ｐｌ＜＞　【ｂｌａｎｋ］　ｔｈｅｎ　ｚｉ＿ｄｕａｎ＿ｄｅａｌ（ｓｌ，ｐ１．ｔｅｒｎ—ＦＤ—　Ｑｕｅｒｙ）；　ｐｒｅｐａｒｅ；　ＥｘｅｃＳＱＬ：　ｅｎｄ；　ｅｎｄ；　ＦＤＣｏｎｎｅｃｔｉｏｎ１．ＣＯｍｍ．ｔ：　Ｒｅｓｕｌｔ：＝　ｓｕｃｃｅｓｓ　：　ｅｘｃｅｐｔ　ｏｎ　Ｅ：Ｅｘｃｅｐｔｉｏｎ　ｄｏ／／数据库出错处理　ｂｅｇｉｎ　ＦＤＣＯｎｎｅｃｔｉＯｎ１．Ｒｏｌｌｂａｃｋ；　Ｒｅｓｕｌｔ：＝　ｅｒｒｏｒ　＋Ｅ　Ｍｅｓｓａｇｅ；　ｅｎｄ；　ｅｎｄ；　ｆｉｎａｌｌｙ　ｔｅｍ—ＦＤＱｕｅｒｙ．Ｄｅｓｔｒｏｙ；　ｅｎｄ；　ｅｎｄ；　为ＳＱＬ语句在程序巾都是同定的，变化的只是事务的　参数，所以为ｒ程序看起来清爽和以后的事务恢复，这里把　ＳＱＬ语句作为事务的参数存在数据库里，相关表ｓｑｌ＿ｌａｂ：ｓｎ　事务编号，ｎａＩｌｌｔ￣事务　称，ＳＱＬ＿ｓｎ语句编号，ｓｑＬｔｘ【语句内　容　相父　数：　ｆｕｎｃｔｉｏｎ　Ｔｆｒｍｄｍ．ｇｅｔ—＿ｓｑｌ（ｓｎ：ｉｎｔｅｇｅｒ）：ＴＳｔｒｉｎｇＬｉｓｔ；　ｂｅｇｉｎ　Ｒｅｓｕｌｔ：＝ＴｓｔｒｉｎｇＬｉｓｔ．Ｃｒｅａｔｅ（）；　ｗｉｔｈ　ｑｕ　ｔｅｍ　ｄｏ　ｂｅｇｉｎ　ｃｌｏｓｅ；　ｓｑ１．Ｃｌｅａｒ；　ｓｑ１．Ａｄｄ（　ｓｅｌｅｃｔ　ｓｑｌ＿ｔｘｔ　ｆｒｏｍ　ｓｑｌ＿ｔａｂ　ｗｈｅｒｅ　ｓｎ＝　６２　＂　－ｉＩ■垣醢＿柏巧与鼍　写鼍　ｉ＿　：ｓｎ　ｏｒｄｅｒ　ｂｙ　ｓｑｌｓｎ　—ｐａｒａｍｂｙｎａｍｅ（　ｓｎ，）．ＡｓＩｎｔｅｇｅｒ：＝ｓｎ：　ｐｒｅｐａｒｅ；　ｏｐｅｎ；　ｅｎｄ；　ｗｈｉｌｅ　ｎｏｔ　ｑｕ　ｔｅｍ．Ｅｏｆ　ｄｏ　ｂｅｇｉｎ　Ｒｅｓｕｌｔ．Ａｄｄ（ｑｕ　ｔｅｍ．Ｆｉｅｌｄｓ［Ｏ］．ａｓｓｔｒｉｎｇ）；　ｑｕ—ｔｅｍ．Ｎｅｘｔ；　ｅｎｄ；　ｅｎｄ；　实际的调用例子如下：　ｐｒｏｃｅｄｕｒｅ　Ｔｆｒｍ—ｍａｉｎ．Ｂｕｔｔｏｎｌ　Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　Ｖａｒ　ｐａｒａ—Ｌ：ＴＳｔｒｉｎｇＬｉｓｔ；　ｓ：ｓｔｒｉｎｇ；　ｂｅｇｉｎ　ｐａｒａ—Ｌ：＝ＴＳｔｒｉｎｇＬｉｓｔ．Ｃｒｅａｔｅ；　ｐａｒａ—Ｌ．ａｄｄ（　４：ｉｎｔ：测试２：ｓｔｒ：广州市：ｓｔｒ：ｌ：ｉｎｔ：２０１６—１１—２３：　ｄａｔｅ　）　ｐａｒａ＿Ｌ：Ａｄｄ（　１：ｉｎｔ：电脑部：ｓｔｒ　）：　ｓ：＝ｆｒｍ—ｄｍ．ｄｍ—ｄｂ＿ｔｒａｎｓａｃｔｉｏｎ（１，ｐａｒａ—Ｌ）：　ｉｆ　ｓ＝　ｓｕｃｃｅｓｓ　ｔｈｅｎ　ｂｅｇｉｎ　ｓｈｏｗｍｅｓｓａｇｅ（　成功执行事务　ｅｎｄ　ｅｌｓｅ　ｓｈｏｗｍｅｓｓａｇｅ（　出错了：　＋ｓ）：　ｅｎｄ；　此段程序对ｔａｂＩ，ｔａｂ２两个表插入各插入一条记录，代码　是如此的简洁．如果是多字段，更　示ｆｆ｛这种方法是多么节　省代码。对于不需要参数的，ｐａｒａ—Ｌ　加入【ｂｌａｎｋ］。　３事务参数的保存　备份事务的信息的保存足在两个库里．一个是在外部的　备份库，用来备份，另一份在主数据库里，用来对比，两个　表的内容差不多，但事务序号足完全一致的，在执行事务前，　先在备份库中保存事务的ＳＱＬ语句和参数信息。得到一个事　务序号，然后在主数据库的事务里嵌入日志记录过程，和主　数据库事务同时执行。在此备份库选择的是ＭｙＳＱＬ。　（１）新建两张表。　Ｂａｃｋ＿ｌｏｇ表：Ｌｏｇ＿＿ｓｎ事务序号．１ｏｇｉｎ＿ｓｎ登录者Ｔ号，　ｄｄａｔｅ时间点。　Ｂａｃｋｌｏｇ＿—ｐａｒａ表：Ｌｏｇ＿ｓｎ事务序号，ｉｔｅｍ—ＳＢ项目序号，　ｐａｒａ＿ｔｘｔ参数文本，ｓｑｌ—ｔｘｔ　ＳＱ［　语句。连接上ＭｙＳＱＬ数据库的　步骤如下：　将ｌｉｂｍｙＳＱＬ．ｄｌｌ这个库文件拷『ｊ１到执行文件所在的目录，　在ｆｒｍ—ｄｍ中放控件ＦＤＰｈｙｓＭｙＳＱＩ　ＤｒｉｖｅｒＬｉｎｋＩ，并把其Ｖｅｎ—　ｄｏｒＬｉｂ指向该文件。再放一个连接数据库控件ＦＤＣｏｎｎｅｃｔｉｏｎ２，　（下转第７１页）　

Ｃｅｌｌｓ（６５５３６，１＋２）＝Ｃｅｌｌｓ（６５５３６，Ｉ＋２）４－Ｃｅｌｌｓ（６５５３６．ｍ）　Ｎｅｘｔ　Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ（“Ｓｔａｎｄａｒｄ”）．Ｖｉｓｉｂｌｅ：Ｔｒｕｅ　显示“工具栏”　Ａｐｐｌｉｃａｔｉｏｎ　ＣｏｍｍａｎｄＢａｒｓ（”Ｆｏｒｍａｔｔｉｎｇ”）．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｃｅｌｌｓ（６５５３６，ｔ　４－２）＝Ｃｅｌｌｓ（６５５３６，ｊ＋２）／（｝一ｉ１一ｉ２）　Ｃｅｌｔｓ（ｈ，Ｉ十２）＝Ｃｅｌｔｓ（６５５３６，Ｉ＋２）　Ｆｏｒ　ｍ：２　Ｔｏ　ｈ　显示“格式栏”　Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＦｏｒｍｕｌａＢａｒ＝Ｔｒｕｅ　显示“编辑栏”　Ｃｅｌｌｓ（ｍ，Ｉ＋３）：”＝ＲＡＮＫ（ＲＣ【一１】，Ｒ２Ｃ［一１】：Ｒ　＆ｈ＆“Ｃｉ一　１　ＡｃｔｉｖｅＷｉｎｄｏｗ．ＤｉｓｐｌａｙＷｏｒｋｂｏｏｋＴａｂｓ＝Ｔｒｕｅ　显示“工作表标签”　Ｃｅｌｌｓ（ｍ，Ｉ＋３）：Ｃｅｌｌｓ（ｍ　ｌ　４－３）　ＡｃｔｉｖｅＷｉｎｄｏｗ．ＤｉｓｐｌａｙＨｅａｄｉｎｇｓ＝Ｔｒｕｅ　Ｎｅｘｔ　显示“行列标”　Ｗｏｒｋｓｈｅｅｔｓ（１）．Ｐｒｏｔｅｃｔ　Ｐａｓｓｗｏｒｄ：＝”ｚｙｚ２９７８“　密码保护　Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｔｒｕｅ　ｌ灰复屏显　Ｅｎｄ　Ｓｕｂ　显示菜单栏各项　Ｄｉｍ　ｉ　Ａｓ　Ｌｏｎｇ　Ｆｏｒ　ｉ＝１　Ｔｏ　Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａ　ｒｓ（１）．Ｃｏｎｔｒｏｌｓ．Ｃｏｕｎｔ　Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ（１）．Ｃｏｎｔｒｏｌｓ（ｉ）．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｎｅｘｔ　４．８　【模块４一关闭程序】中的代码　Ｓｕｂ关闭系统０　Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ：Ｆａｌｓｅ　屏蔽屏显　Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭａｘｉｍｉｚｅｄ　应用程序窗口处　于“最大化”状态。　Ａｐｐｌｉｃａｔｉｏｎ．ＥｎａｂｌｅＥｖｅｎｔｓ＝Ｆａｌｓｅ　禁用应用程序事件　Ａｐｐｌｉｃａｔｉｏｎ．Ｑｕｉｔ　关闭　ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｃｌｏｓｅ　ｓａｖｅｃｈａｎｇｅｓ：＝Ｔｒｕｅ　保存　Ａｐｐｌｉｃａｔｉｏｎ．ＥｎａｂｌｅＥｖｅｎｔｓ＝Ｔｒｕｅ。Ｉ灰复应用程序事件　Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｔｒｕｅ　恢复屏显　Ｅｎｄ　Ｓｕｂ　—Ｓ屯—ｉ也．址—“—“　止ｊ止．址．ｉｌ上—Ｓ啦．址—Ｓ　—Ｓ上—址—址—＾ｌ上—Ｓ止—址　—址　ＡｃｔｉｖｅＷｉｎｄｏｗ．ＷｉｎｄｏｗＳｔａｔｅ：ｘｌＭａｘｉｍｉｚｅｄ　文件窗口处　于“最大化”状态。　Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ（１）．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　显示“菜单栏”　上－．　止—Ｓ止—Ｓ止—址．址　—Ｓ　—Ｓ止—址—址．址．Ｓ　—　—ｉｌ上—址　Ｌ．Ｓ上—　Ｌ—Ｓ上—址—Ｓ　—Ｓ　—Ｓ也—　上—址—址（上接第６２页）　诈住其ｐａｒａｍ　ｌｌｌ输入以下义奉：ＤｒｉｖｅｒｌＤ＝ＭｙＳＱＩ　Ｓｅｒｖｅｒ＝１７２．１６．１．９５　Ｐｏｒｔ＝３３０６　Ｄａｔａｂａｓｅ＝ｔｅｓｔ　ＣｈａｒａｃｔｅｒＳｅｔ＝ｕｔｆ８　Ｕｓｅｒ　Ｎａｍｅ＝ｒｏｏｔ　Ｐａｓｓｗｏｒｄ＝ｘｉｎｇＬｚｃｐ　ｅｘｉｔ；　ｅｎｄ；　ｔｒｖ…　（３）主数据库备份过程，只是一个Ｑｕｅｒｙ－提交，下面只给　ｍ定义，过程免　ｐｒｏｃｅｄｕｒｅ　Ｔｆｒｍｄｍ．１ｏｇｂａｃｋｕｐｉｎ（ｓｑｌ—ｓｎ，ｌｏｇ—ｓｎ：ｉｎｔｅｇｅｒ；　———ｐａｒａ——ｄｍ：ＴＳｔｒｉｎｇＬｉｓｔ；ｆｑｕ：ＴＦＤＱｕｅｒｙ）；　——去掉其Ｉ￣）ｇｉｎｌ　ｒｆ，ｒｎｐｔ属性，连接成功　、　（２）添加一个ｑｕ—ｂａ　ｋ的ＦＩ）Ｑｕｅｕ控件　数．返【『１］¨志序　ｆｕｎｃｔｉｏｎ　Ｔｆｒｍｄｍ．１ｏｇｂａｃｋｕｐｏｕｔ（ｓｑｌ—ｄｍ：ＴＳｔｒｉｎｇＬｉｓｔ；　—＿＿ｓｑ１ｓｎ为ＳＱＬ语句编号，ｌ（１ｇｈ　为事务执行序号　（－ｏｎｎｅｅｔｉｏｎ指　ｆ　ａ—ｔｈｎ为参数数绀，ｆｑｕ一为指向Ｑｕｅｒｙ控件。　务删用部分修改代码如下：　ｅｎｄ；　ｌｏｇｂａｃｋｕｐｉｎ（ｓｑｌ—ｓｎ，ｌｏｇｓｎ，ｄｍｐａｒａｍ—Ｌ，ｔｅｍＦＤＱｕｅｒｙ）　—定为ＦＤＣｏｎｎｃ‘－ｔｉｏｎ２．编写　个保存事务参数到ＭｙＳＱ［　的　ｐａｒａ—ｄｍ：ＴＳｔｒｉｎｇＬｉｓｔ）：ｓｔｄｎｇ；　＿———限于篇幅，这个　数不列…了。在主数据库执行事务前，　受凋川此函数，如果…错，就返回错误，不执行主数据库雷　务、修改后的代百ｌ５＿如下：　ｆｕｎｃｔｉ　ｏｎ　Ｔｆｒｍｄｍ．ｄｍｄｂｔｒａｎｓａｃｔｉｏｎ（ｓｑｌ—ｓｎ：ｉｎｔｅｇｅｒ；　——∥内部备份目志记录　ＦＤＣＯｎｎｅｃｔｉＯｎ１．ＣＯｍｍｉｔ：　Ｒｅｓｕｌｔ：＝　ｓｕｃｃｅｓｓ　：　—ｄｍｐａｒａｍ—Ｌ：ＴｓｔｒｉｎｇＬｉｓｔ）：ｓｔｒｉｎｇ：　—４实际布置策略及恢复步骤　果数据库的数据城大，建ｃ义每周作一次全备，清空备　份库平¨丰数据库的口志后开始运行．一旦主数据库崩溃．就　Ｖａｒ　ｉ．ｎ：ｉｎｔｅｇｅｒ；　ｔｅｒｎ——ＦＤＱｕｅｒｙ：ＴＦＤＱｕｅｒｙ；　—用一周　的备份恢复数据库，然后编一段程序，从备份库里　读…所　信息，渊川前而的事务过程执行一遍．就可以把数　据库恢复到崩溃前的一刻。如果数据量不大，一一个Ｊ１全备一　次也行的、　ｓ１，ｐｌ，ｌｏｇｓｎ：ｓｔｒｉｎｇ；　ｄｍｓｑｌＬ：ＴＳｔｒｉｎｇ　Ｌｉｓｔ；　————ｂｅｇｉｎ　ｄｍｓｑｌＬ：＝ｇｅｔｓｑｔ（ｓｑｌ—ｓｎ）：　———ｌｏｇｓｎ：＝ｆｒｍｄｍ．１ｏｇｂａｃｋｕｐｏｕｔ（ｄｍ—ｓｑｌ—Ｌ，ｄｍ—ｐａｒａｍ—Ｌ）：　————ｉｆ　ｔｏｇｓｎ．Ｓｕｂｓｔｒｉｎｇ（１，５）：　ｅｒｒｏｒ　ｔｈｅｎ　ｂｅｇｉｎ　Ｒｅｓｕｌｔ：＝ｌｏｇｓｎ；　—－｜一番２覆０日１７与．０覃１　＇ｉ　＇７１