frmaddrepair.vb

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

Class FrmAddRepair
    Inherits System.Windows.Forms.Form
    Public AddOrEditFlag As Boolean = True
    Public RepairNo As String
    
    Private Sub cancelCommand_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cancelCommand.Click
        Me.Close()
    End Sub



    


    Private Sub FrmAddHouse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If AddOrEditFlag = True Then
            Exit Sub
        Else
            BtnOK.Text = "维修完毕"
            Dim TempRepair As New DBRepair
            TempRepair.RepairNo = RepairNo
            Dim DTable As DataTable
            DTable = TempRepair.LoadRepair(1)
            Me.TxtEquipmentName.Text = DTable.Rows(0)("设备名称")
            Me.txtMemo.Text = DTable.Rows(0)("备注")
            Me.TxtRepairPerson.Text = DTable.Rows(0)("维修人员")
            Me.TxtRepairReason.Text = DTable.Rows(0)("报修原因")
            Me.TxtRepairFee.Text = DTable.Rows(0)("维修费用")
            Dim Tempstring(2) As String
            Tempstring = DTable.Rows(0)("房屋编号").ToString.Split("-")
            Me.ComboBuilding.Text = Trim(Tempstring(0))
            Me.ComboUnit.Text = Trim(Tempstring(1))
            Me.TxtRoom.Text = Trim(Tempstring(2))
            ComboBuilding.Enabled = False
            ComboUnit.Enabled = False
            TxtRoom.Enabled = False
            TxtEquipmentName.Enabled = False
        End If
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If Trim(Me.TxtRepairPerson.Text) = "" Then
            MsgBox("请输入维修人员！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            TxtRepairPerson.Focus()
            Exit Sub
        End If
        If Trim(TxtRepairReason.Text) = "" Then
            MsgBox("请输入维修原因！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            TxtRepairReason.Focus()
            Exit Sub
        End If
        If Trim(TxtRoom.Text) = "" Then
            MsgBox("请输入房间号！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "警告")
            TxtRoom.Focus()
            Exit Sub
        End If
        Dim TempRepair As New DBRepair
        TempRepair.RepairNo = RepairNo
        TempRepair.EquipmentName = Me.TxtEquipmentName.Text
        TempRepair.Memo = Me.txtMemo.Text
        TempRepair.RepairPerson = Me.TxtRepairPerson.Text
        TempRepair.RepairReason = Me.TxtRepairReason.Text
        TempRepair.RepairFee = Val(Me.TxtRepairFee.Text)
        TempRepair.HouseNo = Me.ComboBuilding.Text & "-" & Me.ComboUnit.Text & "-" & Me.TxtRoom.Text
        If AddOrEditFlag = True Then
            TempRepair.Result = "维修中"
            TempRepair.AddRepair()
        Else
            TempRepair.Result = "已维修"
            TempRepair.DelRepair()
            TempRepair.AddRepair()
        End If
    End Sub
End Class