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

　　

【正文】 為選中 = True Else 39。當所有節(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聯動 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 學院 2020 屆本科生畢業(yè)設計 25 Try 數據 .() 數據 .Selin(家譜管理系統 .str, select * from 成員 where 用戶編號 =39。 amp。 amp。 39。) 數據 .(數據 .Selds) (0).Text = 數據 .(0).Rows(0).Item(2) (數據 .(0).Rows(0).Item(1).ToString) (數據 .(0).Rows(0).Item(3).ToString) (數據 .(0).Rows(0).Item(4).ToString amp。 月 amp。 數據 .(0).Rows(0).Item(5).ToString amp。 日 ) (數據 .(0).Rows(0).Item(6).ToString) (數據 .(0).Rows(0).Item(7).ToString) (數據 .(0).Rows(0).Item(8).ToString) (數據 .(0).Rows(0).Item(11).ToString) (數據 .(0).Rows(0).Item(9).ToString) (數據 .(0).Rows(0).Item(16).ToString) (數據 .(0).Rows(0).Item(17).ToString) = Try ID = Img = 讀圖 (ID) (Img) (Img) = 1 Catch ex As Exception End Try (Itm) 數據 .() 數據 .() Catch ex As Exception MsgBox() End Try End Sub Private Function 讀圖 (ByVal ID As Integer) As Image Dim conn As conn = New (家譜管理系統 .str) Try () Dim DS As DataSet Dim adp As Dim cmd As Dim filename As String XX 學院 2020 屆本科生畢業(yè)設計 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 學院 2020 屆本科生畢業(yè)設計 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聯動 = True Else Is聯動 = False End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try If 家譜管理系統 . = 管理員 Then () () Dim dr As Dim Nod As TreeNode (家譜管理系統 .str, select * from 成員 where 家族 like 39。% amp。 家族 .Text amp。 %39。 and 代數 = amp。 amp。 order by 家內排行 asc) dr = While () Nod = New TreeNode = (2) = (0) (Nod) = True Call ShowDetail(Nod) End While () () () Else MsgBox(您不是管理員，無法進行此操作！ ) XX 學院 2020 屆本科生畢業(yè)設計 28 End If Catch End Try End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Try If 家譜管理系 統 . = 管理員 Then () () Dim dr As Dim Nod As TreeNode Dim Conn1 As New SqlConnection With {.ConnectionString = 家譜管理系統 .str} Dim SqlStr1 As String = select * from 成員 where 家族 like 39。% amp。 家族 .Text amp。 %39。 and 出生日期 =@日期 order by 家內排行 asc Dim Cmd1 As New SqlCommand With {.Connection = Conn1, .CommandText = SqlStr1} (New SqlParameter(@日期 , )) () dr =