VB中UserControl间数据传递及数据库数据加载问题求助

问题说明 #

需实现：通过UserProfileCard控件从数据库获取候选人信息，传递至DataBankEditCandidate控件并显示；同时需在CandidateID/ID为0时弹出提示框。现有代码存在数据传递失效、未实现ID校验的问题。

现有代码核心问题分析 #

1. 实例生命周期错误：第一段代码中创建的databankEditcandidate实例是局部变量，赋值后未显示就被销毁；第二段代码的LoadCandidateData又重复创建实例，未操作实际要显示的控件实例。
2. 数据传递逻辑混乱：第二段代码中错误地用idTxt.Text作为查询参数，且未利用已传入的CandidateID属性。
3. 缺少ID校验逻辑：未在入口处判断CandidateID是否为0，无法触发提示。
4. 数据库连接不统一：两段代码分别使用不同的连接方式，易引发配置不一致问题。

修正后的代码实现 #

1. UserProfileCard控件端代码 #

Public Sub LoadCandidateData(candidateID As Integer)
    ' 先校验ID是否为0
    If candidateID = 0 Then
        MessageBox.Show("候选人ID无效，请选择正确的候选人！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If

    ' 获取要显示的DataBankEditCandidate控件实例（根据实际场景调整获取方式，比如从父容器中获取）
    Dim editCandidateCtrl As databankEditcandidate = Me.Parent.Controls.OfType(Of databankEditcandidate)().FirstOrDefault()
    If editCandidateCtrl Is Nothing Then
        editCandidateCtrl = New databankEditcandidate()
        ' 将控件添加到界面（根据你的布局调整容器）
        Me.Parent.Controls.Add(editCandidateCtrl)
        editCandidateCtrl.Dock = DockStyle.Fill
    End If

    Using connection As OleDbConnection = DatabaseManager.GetConnection()
        Try
            connection.Open()
            Dim query As String = "SELECT * FROM dataBank WHERE ID = @CandidateID"
            Using command As New OleDbCommand(query, connection)
                command.Parameters.AddWithValue("@CandidateID", candidateID)

                Using reader As OleDbDataReader = command.ExecuteReader()
                    If reader.Read() Then
                        ' 直接给目标控件的属性赋值
                        editCandidateCtrl.CandidateID = candidateID
                        editCandidateCtrl.ApplicantNameText = reader("applicantName").ToString()
                        editCandidateCtrl.id = reader("ID").ToString()
                        ' 调用控件自身的加载方法填充所有字段
                        editCandidateCtrl.LoadCandidateData()
                    Else
                        MessageBox.Show("未找到ID为" & candidateID & "的候选人信息！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    End If
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show("加载候选人数据失败: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            connection.Close()
        End Try
    End Using
    ' 确保编辑控件显示在最上层
    editCandidateCtrl.BringToFront()
End Sub

2. DataBankEditCandidate控件端代码 #

Private _candidateID As Integer

Public Property CandidateID As Integer
    Get
        Return _candidateID
    End Get
    Set(value As Integer)
        _candidateID = value
    End Set
End Property

Public Property ApplicantNameText As String
    Get
        Return applicantNameTxt.Text
    End Get
    Set(value As String)
        applicantNameTxt.Text = value
    End Set
End Property

Public Property id As String
    Get
        Return idTxt.Text
    End Get
    Set(value As String)
        idTxt.Text = value
    End Set
End Property

Public Sub LoadCandidateData()
    ' 利用已传入的CandidateID作为查询参数，避免依赖控件文本
    If _candidateID = 0 Then
        MessageBox.Show("候选人ID无效！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If

    Try
        ' 统一使用DatabaseManager获取连接，避免硬编码
        Using connection As OleDbConnection = DatabaseManager.GetConnection()
            connection.Open()
            Dim query As String = "SELECT * FROM dataBank WHERE ID = @ID"
            Using command As New OleDbCommand(query, connection)
                command.Parameters.AddWithValue("@ID", _candidateID)

                Using reader As OleDbDataReader = command.ExecuteReader()
                    If reader.Read() Then
                        ' 填充所有表单字段
                        applicantNameTxt.Text = reader("applicantName").ToString()
                        applicantNationalityTxt.Text = reader("applicantNationality").ToString()
                        applicantGenderTxt.Text = reader("applicantGender").ToString()
                        applicantAgeTxt.Text = reader("applicantAge").ToString()
                        applicantContactTxt.Text = reader("applicantContact").ToString()
                        applicantEmailTxt.Text = reader("applicantEmail").ToString()
                        applicantEducationTxt.Text = reader("applicantEducation").ToString()
                        applicantYearsofExperienceTxt.Text = reader("applicantYearsOfExperience").ToString()
                        applicantPreviouscompanyTxt.Text = reader("applicantPreviousCompany").ToString()
                        applicantPreviouspositionTxt.Text = reader("applicantPreviousPosition").ToString()
                        applicantAppliedTxt.Text = reader("applicantApplied").ToString()
                        applicantCurrentlocationTxt.Text = reader("applicantCurrentLocation").ToString()
                        ComboBox1.Text = reader("applicantLineupStatus").ToString()
                        applicantLineupremarksTxt.Text = reader("applicantLineupRemarks").ToString()
                        ComboBox2.Text = reader("applicantSource").ToString()
                        ComboBox4.Text = reader("applicantStatus").ToString()
                    Else
                        MessageBox.Show("未找到对应候选人信息！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MessageBox.Show("加载候选人数据失败: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

关键修正说明 #

• ID校验：在LoadCandidateData入口处判断CandidateID是否为0，直接弹出提示并终止执行。
• 实例正确传递：不再创建局部无用实例，直接获取或创建要显示的DataBankEditCandidate控件实例，确保数据赋值到实际显示的控件上。
• 统一数据源：使用CandidateID整数作为查询参数，避免字符串类型转换问题，同时统一通过DatabaseManager获取数据库连接。
• 逻辑简化：UserProfileCard端仅传递CandidateID并触发控件的加载方法，控件内部负责自身的字段填充，职责更清晰。

内容的提问来源于stack exchange，提问作者Unknown Source