[数据库初步]合并和分解易数据库

﹏╮终究是虚伪

易本身的数据库操作有时较麻烦，比如合并或分解易数据库，要在两个数据库之间往返手工操作，所以用代码加载较方便一点。但一般的用代码操作易数据库的合并或分解，只针对固定的数据库文件名、固定的记录条件和字段范围。为了使这两项的操作更方便，下面提供比较通用的合并和分解易数据库的例程。
    由于嫌麻烦，这里只提供例程代码，先不作解说，等以后再慢慢补充：
  窗口程序集：窗口程序集1
------------------------------
子程序：_按钮1_被单击
载入 (窗口1, , 真)
------------------------------
子程序：_按钮2_被单击
载入 (窗口2, , 真)

窗口程序集：复制记录程序集
------------------------------
子程序：_按钮1_被单击
局部容器：记录号范围1   数据类型：整数型
局部容器：记录号范围2   数据类型：整数型
局部容器：数据名称      数据类型：文本型
局部容器：复制条件      数据类型：文本型
局部容器：字段范围      数据类型：文本型
局部容器：当前数据库    数据类型：文本型
当前数据库 ＝ 编辑框4.内容
打开 (当前数据库, , , , , , )
数据名称 ＝ 编辑框3.内容
记录号范围1 ＝ 文本到数值 (编辑框1.内容)
记录号范围2 ＝ 文本到数值 (编辑框2.内容)
复制记录 (数据名称, 取记录号 () ＞ 记录号范围1 且 取记录号 () ＜ 记录号范围2, 字段范围)
如果真 (复制记录 (数据名称, 取记录号 () ＞ 记录号范围1 且 取记录号 () ＜ 记录号范围2, 字段范围) ＝ 真)
    信息框 (“复制成功！”, 0, “操作成功”)
如果真结束

子程序：_按钮3_被单击
通用对话框1.打开 ()
编辑框4.内容 ＝ 通用对话框1.文件名

   
窗口程序集：添加记录程序集
------------------------------
子程序：_按钮1_被单击
局部容器：记录号范围1   数据类型：整数型
局部容器：记录号范围2   数据类型：整数型
局部容器：数据名称      数据类型：文本型
局部容器：复制条件      数据类型：文本型
局部容器：字段范围      数据类型：文本型
局部容器：当前数据库    数据类型：文本型
当前数据库 ＝ 编辑框4.内容
打开 (当前数据库, , , , , , )
数据名称 ＝ 编辑框3.内容
记录号范围1 ＝ 文本到数值 (编辑框1.内容)
记录号范围2 ＝ 文本到数值 (编辑框2.内容)
添加 (数据名称, 取记录号 () ＞ 记录号范围1 且 取记录号 () ＜ 记录号范围2, 字段范围)
如果真 (添加 (数据名称, 取记录号 () ＞ 记录号范围1 且 取记录号 () ＜ 记录号范围2, 字段范围) ＝ 真)
    信息框 (“添加成功！”, 0, “操作成功”)
如果真结束

子程序：_按钮3_被单击
通用对话框1.打开 ()
编辑框4.内容 ＝ 通用对话框1.文件名
   






出处：热度资源网
网址：http://www.reduxz.com