cyfx2288的博客

Excel + VBA 制作的家谱录入、校对表。录入页码后，可以根据页码链接谱书照片。 附有演示链接谱书照片链接的示例数据。 生卒年月可自动查询夏商周至当代所有年号，免去老谱中年号核的困惑。

ExcelVBA编写的家谱表，虽不如WinApp桌面程序漂亮，但是符合录谱人员的需求，实用为主。本次上传修正了一些以前的错误。

去年我发布了生成世系图的改进版，现在我把自己真正使用的家谱录入表发布出来，供大家参考。表中使用的家族成员数据是真实的，只是为避免泄漏个个隐私，把所有姓名都改成了字母和数字。 此表中的家族成员约1.48万，生成一次世系全图约需几十秒（看电脑配置了）。右侧家族树可以随意点选，点那个名字，就自动查询并以此名字为录入起点。任何时候点“世系图生成”都自动从当前起点生成之后家族世系图。第17行是一些选项，可选择世次范围、繁简模式、录入、校对模式。其中父系、母系功能刚开始修改，尚未完成母系功能。 这个表的界面可能比不上专门的Windows应用程序，但实用性绝对比那些专有程序高。至少我自己是实在受不了那种拍脑代编出来的程序后，才专门给自己做了这个家谱录入表，用来完成本家族的家谱整理、录入事宜。

制作这个VBA之前，我参考过“聚宝瓶”家谱制作。针对其缺点，彻底重写了VBA，改进如下： 1.生成世系图的过程改为由下至上，从而达到了简化逻辑的效果。 2.紧密位图。若无必要，家族成员间不插入空列。 3.尽可能使用数组操作，减少直操作Excel表，加快速度。 4.代码中包含删除空白列的功能（以数组操作实现）。 经实际测试，在我的机器上，家族成员为1500时，“聚宝瓶”生成世系全图约需30分钟，而下面这个改进后 的VBA，家族成员为6500人时，生成世系全图只需1分钟。 注意： 1.为简化逻辑，子号与行号相同，且数据已经按世次、家族成员编码排序。 2.家族成员编码包含每个人从始祖到自己的排行信息，请用公式生或VBA生成(表中前3行含公式)。 3.测试数据与族谱表结构完全相同，是一个完全真实的家谱，因隐私原因，姓名全部改成了“测试”。 4.由于Excel2003有256列的列宽限制，所以此代码必须在Office2007以上版本运行。 5.代码中注释了打印设置相关的内容，必须接有打印机的才能使用相关控制。 长夜飞翔 2015.7.17

带中文注释可成功编译运行的Linux0.11＋Bochs2.62实验环境说明 此注释以网上获得的“linux带中文注释的0.11版本”为基础，对照赵炯博士《Linux内核完全注释(0.11) 》V3.0版（http://oldlinux.org/download/clk011c-3.0.pdf）编辑而成。作为对赵博士感谢，以及对Linux初学者的回馈，特发布在CSDN上。 此注释可以在http://oldlinux.org/Linux.old/bochs/提供的Linux-0.11-devel-XXXXXX实验环境下正确编译成功，使用:"make disk"命令重启Bochs虚拟机后，新编译源码直接生效，便于学习者直接阅读源码，直接进行实验。 注意事项： 1、为了使注释版与实验环境上的Linux0.11内核保持一致，达到对应文件可以互换的目的，与Linux0.11原始版本相比，加入了15个系统调用函数（参见include/Linux/sys.h第78－92行。赵博士原书没有这部分注释，我不敢班门弄斧），其它相关的文件加入了相应的定义。新加入的代码只有函数体定义，没有具体实现，对其它原始代码没有改变、没有影响。 2、键盘定义改成了美式键盘（原始代码中是芬兰键盘，会导致个别键出问题，调试的时候我曾被迷糊了好久，以为自己把程序搞乱了）。 3、把网上VC版的注释统一改成了 “/* */” 格式的注释。经测试，在Linux0.11实验环境中（gcc1.40)，只有标准C注释语法可以正常编译。 4、由于《Linux内核完全注释(0.11) 》原书版本更新的原因，注释中提到的图、表可能与V3.0版书中不一致。 5、由于代码中加入注释，代码行号发生变化，注释中提到的代码行号会出现不一致，建议对照3.0版查询对应内容。 6、实验方法：请先安装附带的Bochs2.62版安装包，双击Test.bxrc即可启动实验系统，执行命令：sh t，即可完成对linuxcn的编译。 7、linux目录中是此实验系统中/usr/src/linux提取出来的不含中文注释的linux0.11源码(此版本比原始的0.11版多15个系统调用函数)，linuxcn是加入了中文注释的源码。 8、diskb.img是实验系统与Windows环境下进行文件交换的1.44M软盘映像，执行脚本命令"sh t"时会自动从此映像中读取linux.tar、linuxcn.tar包，解包并编译，编译结果在:/usr/root/zw/linuxcn目录下。为了方便文件交换，建议使用7zip为压缩/解压缩工具（7zip可以直接生成tar包）,用WinImage实现Windows环境与软件映像交换文件。 9、实验系统下 .profile中加入了几个命令，请读者注意。 10、若实验环境的启动盘被破坏，请用压缩包中的bootimage-0.11-hd覆盖对应文件即可。 11、若实验环境的要命文件系统被破坏，请用压缩包中的hdc-0.11-new.img覆盖对应文件即可。 2014-5-4 cyfx2288

网上下载了emule0.50a-Xtreme8.1-sources源码，声称可以在VS2008下直接编译成功，经我实际测试，系统会报错，其中第一类错误，由于系统中为了兼容VISTA/WIN7，增加了相关定义，而这些定义在XP/WIN2003环境下会报错，共771个错误，如： 错误 2 error C2065: “ITaskbarList3”: 未声明的标识符 d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 195 emule 错误 3 error C2146: 语法错误 : 缺少“;”(在标识符“m_thbButtons”的前面) d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 196 emule 错误 4 error C4430: 缺少类型说明符 - 假定为 int。注意: C++ 不支持默认 int d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 196 emule 错误 5 error C4430: 缺少类型说明符 - 假定为 int。注意: C++ 不支持默认 int d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 196 emule 错误 6 error C2146: 语法错误 : 缺少“;”(在标识符“m_currentTBP_state”的前面) d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 198 emule 错误 7 error C4430: 缺少类型说明符 - 假定为 int。注意: C++ 不支持默认 int d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 198 emule 错误 8 error C4430: 缺少类型说明符 - 假定为 int。注意: C++ 不支持默认 int d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 198 emule 错误 10 error C2065: “ITaskbarList3”: 未声明的标识符 d:\emule相关资料\emule0.50a-xtreme\emule0.50a-xtreme8.1-sources\srchybrid\emuleDlg.h 195 emule ...... 此类错误中，ITaskbarList3是VISTA/WIN7环境下与任务栏相关的变量，只要屏闭掉相关定义就能正常。 除此之外还报有下面 5 个错误（实际引起错误的位置只有两个）： 错误 135 error C2059: 语法错误 : “:” d:\eMule\srchybrid\BaseClient.cpp 1603 emule 错误 136 error C2065: “tagName”: 未声明的标识符 d:\eMule\srchybrid\BaseClient.cpp 1604 emule 错误 137 error C2228: “.WriteTagToFile”的左边必须有类/结构/联合 d:\eMule\srchybrid\BaseClient.cpp 1604 emule 错误 139 error C2001: 常量中有换行符 d:\eMule\srchybrid\BaseClient.cpp 4832 emule 错误 140 fatal error C1057: 宏展开中遇到意外的文件结束 d:\eMule\srchybrid\BaseClient.cpp 4832 emule 此类错误中，实际上是是两个语法错误，由于太过简单，我与网友都怀疑是作者故意制造的错误，若是完全不懂C++的人，即使拿到源码，编也会报错，从而止步于此。而稍懂C++的人（本人即是此类菜鸟），则可以找出错误之处。 为方便诸多象我一样的初学者，我把修正之后，可以在 XP/WIN2003 +VS2003SP1 环境下直接编译成功的emule0.50a-Xtreme8.1-sources源码发布上来，以便互相学习交流。

飞球2.06源代码，局域网自由通讯、传送文件，请学习参考。

PetShop4.0依赖关系 不够简洁，总比没有强。