frmfindrepair_repairperson.vb

Visual Basic 2005数据库通用模块开发与系统移植 物业管理信息系统

Friend Class FrmFindRepair_RepairPerson
    Inherits System.Windows.Forms.Form

    Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)
        Me.Close()

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        Dim TempDBRepair As New DBRepair
        TempDBRepair.RepairPerson = Me.TxtRepairPerson.Text
        DGVResult.DataSource = TempDBRepair.LoadRepair(4)
    End Sub
End Class