mFamilyEdit.Show 1
      RefreshData
    End Sub
    
    Private Sub Cmd_Back_Click()
      Unload Me
    End Sub
    
    Private Sub Cmd_Del_Click()
      Dim TmpId As Long
      If Adodc1.Recordset.BOF = True Then
        MsgBox "请选择记录"
        Exit Sub
      End If
      
      TmpId = Adodc1.Recordset.Fields(0)
      If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
        Call MyFam.DeleteById(TmpId)
        MsgBox ("数据已删除")
      End If
      RefreshData
    End Sub
    
    Private Sub Cmd_Modi_Click()
      '初始化FrmFamilyEdit信息
      FrmFamilyEdit.OriId = Adodc1.Recordset.Fields(0)
      FrmFamilyEdit.txtName = Adodc1.Recordset.Fields(2)
      FrmFamilyEdit.ComboSex.Text = Adodc1.Recordset.Fields(3)
      FrmFamilyEdit.txtAge = Adodc1.Recordset.Fields(4)
      FrmFamilyEdit.txtRelation = Adodc1.Recordset.Fields(5)
      FrmFamilyEdit.txtWorkingOrg = Adodc1.Recordset.Fields(6)
      FrmFamilyEdit.VarEmpId = OriEmpId
      FrmFamilyEdit.Modify = True
      FrmFamilyEdit.Show 1
      RefreshData
    End Sub
    
    Private Sub Form_Load()
      RefreshData
    End Sub