frmeditrepair_repairperson.vb

由VB开发的基于SQL的小区物业管理系统

Friend Class FrmEditRepair_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

    Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
        Dim FrmObj As New FrmAddRepair
        FrmObj.AddOrEditFlag = False
        FrmObj.RepairNo = DGVResult.Rows(e.RowIndex).Cells(0).Value
        Me.WindowState = FormWindowState.Minimized
        FrmObj.ShowDialog(Me.Parent)
        Me.WindowState = FormWindowState.Normal
        Dim TempDBRepair As New DBRepair
        TempDBRepair.RepairPerson = Me.TxtRepairPerson.Text
        DGVResult.DataSource = TempDBRepair.LoadRepair(4)
    End Sub
End Class