制作家谱的方法如下：

1、铅笔画树。设想它看起来像什么，并计划你需要写多少空间来写所有的名字和绘制必要的连接线。用铅笔工作，这样如果画错了你可以在一个树枝上重新开始。

2、写下你的名字。因为这是你的家庭树，这一切由你开始。把你的名字写在页面的一个点上，周围可以写下所有的其他名字的大量空间。

写你的名字的地方就是树开始的地方。如果你把它写在页面底部，树枝就向上突出。你可以写在页面顶部，让其他部分向下分流，或把它写在页面的边上，让树在另一个方向上绽放。

如果你决定用一个实际的树的形状，行动起来，用铅笔线勾勒出的树的形状，把你的名字写在喜欢的地方。

3、添加你的父母和兄弟姐妹。把你父母的名字放在你名字的正上方或正下方，这取决于你想要让树往什么方向分流。把你的兄弟姐妹的名字写在你名字的同一水平线上，这样他们就从你父母的名字旁边延伸出来了。

如果你和你的兄弟姐妹有配偶或子女，也把他们写上。配偶的名字直接写在他们的伴侣旁边，孩子的名字写在父母的名字的下面。如果你愿意就把家长和他们的孩子用线连起来。

定制适合你家庭的家谱。如果你有一个父母，或两个以上的父母时，把他们都写上。在绘制包括继父母，继兄弟姐妹和其他你家庭的一部分的成员时，你要发挥创造力。家谱最重要的方面是确保每个人都包括在内。

4、写下你的阿姨和叔叔，表兄弟姐妹，祖父母和外祖父母。在这里树开始分裂成分支。在父亲这边的家谱上，写下他的兄弟姐妹的名字，他们的配偶和他们的孩子（你的表兄弟姐妹）。

把你父亲的父母的名字写在上一个水平线上，把一根线从他们身上延伸到他们的每一个孩子上。在你母亲那边的家谱上做同样的事，直到把所有的家庭成员都包括在内。

5、纳入更多的人。继续加入你伟大的叔叔阿姨的他们的配偶和孩子，你的曾祖父母的名字等等，只要你愿意在家谱上写的尽可能多写。

6、用更多的细节来丰满家谱。用黑色或彩色墨水把家谱重新描一遍，使名字和轮廓更加鲜明。您可以添加装饰和其他细节，使家谱更有趣。

1 介绍

电子家谱制作是指将家族祖先的家谱资料以电子方式进行编制和储存，从而达到保护、传承和共享家族文化遗产的目的。与传统的手写家谱相比，电子家谱制作更加安全可靠，方便易用，可以更好地传承家族文化。

2 制作准备

要制作一份电子家谱，首先需要准备好家谱资料。这些资料可以是家族成员提供的口述历史，也可以是祖先的遗物、文献等。其次，需要选择一款好用的家谱制作软件，并熟练掌握其使用方法。最后，要准备好计算机、扫描仪等必要的设备，以及足够的存储空间。

3 制作流程

将家族资料数字化是制作电子家谱的第一步。这一过程可以使用扫描仪、相机等设备完成，将手写资料、文献等数字化。之后，需要将这些数字化的资料整理成合适的格式，并将其输入到家谱制作软件中。在软件中，可以将家族关系、姓名、出生日期等信息进行编制和管理。最后，将制作好的电子家谱保存到安全的存储设备中，以备不时之需。

4 使用注意事项

在制作电子家谱的过程中，需要注意以下几点：

41 确保家族资料的真实性和准确性，避免错误信息的输入。

42 对于家谱中的隐私信息，需要进行保护处理，避免泄露。

43 在选择电子家谱制作软件时，需要选择一个功能完备、易用稳定、安全可靠的软件。

44 定期进行数据备份，以防数据丢失或损坏。

5 传承和分享

制作好的电子家谱可以方便地分享和传递给其他家族成员。可以将电子家谱分享到社交媒体、家族网站等平台上，在家族成员之间进行共享。此外，也可以选择将电子家谱上传到在线家谱专门网站上，与其他家谱进行比较、汇总、接龙，使家族文化更好地传承和发扬光大。

6 结论

电子家谱制作是一项传承家族文化、保护家族历史的重要任务。通过数字化的方式，可以更好地管理、保存和分享家族资料，以便更好地传承家族文化。在制作电子家谱时，需要注意数据的准确性、隐私保护及备份等方面，以便确保家族资料的安全可靠。

sub tree(parentid,istop)

if istop then

sql="select from tree where id=" & parentid & " and parentid=0"

else

sql="select from tree where parentid=" & parentid

end if

set rs=servercreateobject("adodbrecordset")

rsopen sql,conn,1,1

if not rseof then

redim arr_temp(rsrecordcount)

i=0

responsewrite "<table border=0 cellspacing=2 cellpadding=0><tr>"

while not rseof

arr_temp(i)=rs("id")

responsewrite "<td align='center' bgcolor='#CCCCCC'>" & rs("title") & "</td>"

i=i+1

rsmovenext

wend

responsewrite "</tr><tr>"

for j=0 to i-1

responsewrite "<td>"

Call tree(arr_temp(j),false)

responsewrite "</td>"

next

responsewrite "</tr></table>"

end if

end sub

call tree(1,true)

测试通过!~

要数据库+源码的,请下载:

http://wwwirichcn/images/treerar

请在5号前下载,,要不5号后我不担保还能不能下