【導(dǎo)讀】長期以來，中國人記錄家庭、家族事項的方法不外乎兩種：一種是日記，一種是家譜。人一家之力便可輕易完成。個人或者一個家庭留下片言只語。詳細地記載自己的家，記載家中每一個成員生命中的重要。事項，是每一個中國人的夢想。與其他相關(guān)樹中的同一個人聯(lián)接起來，共同構(gòu)成一個巨大的數(shù)字家譜。人們可以通過軟件去。尋求自己家庭和家族的起源和歷程、查閱家庭成員的信息，這已成為當(dāng)今社會的一種趨勢。論文對整個系統(tǒng)的分析、設(shè)計和實現(xiàn)做了詳細的描述。管理系統(tǒng)采用SQLServer2020。由于本系統(tǒng)的數(shù)據(jù)不是通常的線性結(jié)構(gòu)，因此數(shù)據(jù)處理具有。較大難度，很多處理都需要自己設(shè)計算法來實現(xiàn)。用戶管理和系統(tǒng)用戶管理等功能模塊。系統(tǒng)操作簡便、界面友好、靈活、實用。完善就可以投入家庭進行使用，隨著功能的逐步完善，系統(tǒng)的推廣很有應(yīng)用前景。

　　

【正文】 為選中 = True Else 39。當(dāng)所有節(jié)點的狀態(tài)都一樣時，父節(jié)點狀態(tài)等于節(jié)點狀態(tài) = nodeChecked End If CheckAllFatherNodes(, ) End If node = Nothing End Sub Private Sub TreeView1_AfterCheck(ByVal sender As Object, ByVal e As ) Handles If Is聯(lián)動 Then If Then If 0 Then (, ) End If If = True Then Call ShowDetail() Else Call DeleteDetail() End If CheckAllFatherNodes(, ) End If Else If = True Then Call ShowDetail() Else Call DeleteDetail() End If End If End Sub Private Sub ShowDetail(ByVal Nod As TreeNode) 39。判斷傳入的是否是葉節(jié)點，如果是，則顯示詳細信息 Dim Itm As New ListViewItem Dim Img As Bitmap Dim ID As Integer XX 學(xué)院 2020 屆本科生畢業(yè)設(shè)計 25 Try 數(shù)據(jù) .() 數(shù)據(jù) .Selin(家譜管理系統(tǒng) .str, select * from 成員 where 用戶編號 =39。 amp。 amp。 39。) 數(shù)據(jù) .(數(shù)據(jù) .Selds) (0).Text = 數(shù)據(jù) .(0).Rows(0).Item(2) (數(shù)據(jù) .(0).Rows(0).Item(1).ToString) (數(shù)據(jù) .(0).Rows(0).Item(3).ToString) (數(shù)據(jù) .(0).Rows(0).Item(4).ToString amp。 月 amp。 數(shù)據(jù) .(0).Rows(0).Item(5).ToString amp。 日 ) (數(shù)據(jù) .(0).Rows(0).Item(6).ToString) (數(shù)據(jù) .(0).Rows(0).Item(7).ToString) (數(shù)據(jù) .(0).Rows(0).Item(8).ToString) (數(shù)據(jù) .(0).Rows(0).Item(11).ToString) (數(shù)據(jù) .(0).Rows(0).Item(9).ToString) (數(shù)據(jù) .(0).Rows(0).Item(16).ToString) (數(shù)據(jù) .(0).Rows(0).Item(17).ToString) = Try ID = Img = 讀圖 (ID) (Img) (Img) = 1 Catch ex As Exception End Try (Itm) 數(shù)據(jù) .() 數(shù)據(jù) .() Catch ex As Exception MsgBox() End Try End Sub Private Function 讀圖 (ByVal ID As Integer) As Image Dim conn As conn = New (家譜管理系統(tǒng) .str) Try () Dim DS As DataSet Dim adp As Dim cmd As Dim filename As String XX 學(xué)院 2020 屆本科生畢業(yè)設(shè)計 26 Dim size() As Byte Dim stream As DS = New DataSet() adp = New () cmd = New () = conn = = select 頭像地址 ,頭像 from 成員 where [用戶編號 ]= 39。 amp。 ID amp。 39。 = cmd (DS, 成員 ) filename = CType((成員 ).Rows(0).Item(0), String) If ( amp。 \ amp。 filename) = True Then Try ( amp。 \ amp。 filename) Catch er As GoTo t End Try End If size = (成員 ).Rows(0).Item(1) Try stream = New ( amp。 \ amp。 filename, ) Catch err As () Return Nothing End Try (size, 0, ) () () () Dim bitmap As Bitmap t: bitmap = New Bitmap( amp。 \ amp。 filename) Return bitmap Catch () () Return Nothing End Try End Function Private Sub DeleteDetail(ByVal Nod As TreeNode) 39。判斷傳入的是否是葉節(jié)點，如果是，則取消顯示詳細信息 For Each Row1 As ListViewItem In If = Then (Row1) XX 學(xué)院 2020 屆本科生畢業(yè)設(shè)計 27 Exit Sub End If Next End Sub Private Sub 詳細信息和小頭像 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 詳細信息和小頭像 = End Sub Private Sub 大頭像 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 大頭像 = End Sub Private Sub ToolStripComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles If = 0 Then Is聯(lián)動 = True Else Is聯(lián)動 = False End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try If 家譜管理系統(tǒng) . = 管理員 Then () () Dim dr As Dim Nod As TreeNode (家譜管理系統(tǒng) .str, select * from 成員 where 家族 like 39。% amp。 家族 .Text amp。 %39。 and 代數(shù) = amp。 amp。 order by 家內(nèi)排行 asc) dr = While () Nod = New TreeNode = (2) = (0) (Nod) = True Call ShowDetail(Nod) End While () () () Else MsgBox(您不是管理員，無法進行此操作！ ) XX 學(xué)院 2020 屆本科生畢業(yè)設(shè)計 28 End If Catch End Try End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Try If 家譜管理系 統(tǒng) . = 管理員 Then () () Dim dr As Dim Nod As TreeNode Dim Conn1 As New SqlConnection With {.ConnectionString = 家譜管理系統(tǒng) .str} Dim SqlStr1 As String = select * from 成員 where 家族 like 39。% amp。 家族 .Text amp。 %39。 and 出生日期 =@日期 order by 家內(nèi)排行 asc Dim Cmd1 As New SqlCommand With {.Connection = Conn1, .CommandText = SqlStr1} (New SqlParameter(@日期 , )) () dr =