frmwarn.vb

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

    Me.xpdOtherOp.CaptionText = "其他操作"
    Me.xpdOtherOp.CaptionTextAlign = XPanderControl.XPander.CaptionTextAlignment.Left
    Me.xpdOtherOp.ChevronStyle = XPanderControl.XPander.ChevronStyleEnum.Image
    Me.xpdOtherOp.CollapsedHighlightImage = CType(resources.GetObject("xpdOtherOp.CollapsedHighlightImage"), System.Drawing.Bitmap)
    Me.xpdOtherOp.CollapsedImage = CType(resources.GetObject("xpdOtherOp.CollapsedImage"), System.Drawing.Bitmap)
    Me.xpdOtherOp.Controls.Add(Me.lnkClose)
    Me.xpdOtherOp.DockPadding.Top = 25
    Me.xpdOtherOp.ExpandedHighlightImage = CType(resources.GetObject("xpdOtherOp.ExpandedHighlightImage"), System.Drawing.Bitmap)
    Me.xpdOtherOp.ExpandedImage = CType(resources.GetObject("xpdOtherOp.ExpandedImage"), System.Drawing.Bitmap)
    Me.xpdOtherOp.Location = New System.Drawing.Point(0, 192)
    Me.xpdOtherOp.Name = "xpdOtherOp"
    Me.xpdOtherOp.Size = New System.Drawing.Size(184, 102)
    Me.xpdOtherOp.TabIndex = 1
    Me.xpdOtherOp.Tag = 1
    Me.xpdOtherOp.TooltipText = Nothing
    '
    'lnkClose
    '
    Me.lnkClose.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
    Me.lnkClose.ImageIndex = 3
    Me.lnkClose.ImageList = Me.imglistUserOp
    Me.lnkClose.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline
    Me.lnkClose.Location = New System.Drawing.Point(14, 40)
    Me.lnkClose.Name = "lnkClose"
    Me.lnkClose.Size = New System.Drawing.Size(117, 25)
    Me.lnkClose.TabIndex = 1
    Me.lnkClose.TabStop = True
    Me.lnkClose.Text = "退出"
    Me.lnkClose.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'palTitle
    '
    Me.palTitle.Controls.Add(Me.Label1)
    Me.palTitle.Dock = System.Windows.Forms.DockStyle.Top
    Me.palTitle.Location = New System.Drawing.Point(184, 0)
    Me.palTitle.Name = "palTitle"
    Me.palTitle.Size = New System.Drawing.Size(394, 40)
    Me.palTitle.TabIndex = 9
    '
    'frmWarn
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
    Me.BackColor = System.Drawing.SystemColors.Control
    Me.CancelButton = Me.lnkClose
    Me.ClientSize = New System.Drawing.Size(578, 327)
    Me.Controls.Add(Me.tlvWarning)
    Me.Controls.Add(Me.palTitle)
    Me.Controls.Add(Me.xplTask)
    Me.Cursor = System.Windows.Forms.Cursors.Default
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
    Me.Location = New System.Drawing.Point(184, 250)
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    Me.Name = "frmWarn"
    Me.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.ShowInTaskbar = False
    Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
    Me.Text = "提示列表"
    Me.xplTask.ResumeLayout(False)
    Me.xpdWarnOp.ResumeLayout(False)
    Me.xpdOtherOp.ResumeLayout(False)
    Me.palTitle.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub
#End Region 

#Region "实用函数"
  Private Sub UpdateCmdUI()
    Dim bEnableModifyCmd As Boolean = False
    If Me.tlvWarning.SelectedItems.Count = 0 Then
      bEnableModifyCmd = False
    Else
      bEnableModifyCmd = True
    End If

    Me.lnkView.Enabled = bEnableModifyCmd
    Me.lnkModify.Enabled = bEnableModifyCmd
    Me.lnkDelete.Enabled = bEnableModifyCmd

  End Sub

  Private Sub RefreshWarn()
    ListAllWarnings(tlvWarning)
  End Sub

#End Region

#Region "命令按钮消息响应函数"


  Private Sub lnkAdd_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkAdd.LinkClicked
    '新增提醒设置
    Dim dmWarn As New clientMgrBusiness.WarningDataModel
    Dim frm As New frmAddWarn
    If frm.RetriveWarn(dmWarn, clientMgrBusiness.dmViewType.vtadd) = False Then Exit Sub

    Dim ErrMsg As String
    Dim warnObj As New clientMgrBusiness.Warning
    ErrMsg = warnObj.AddNew(dmWarn)
    If ErrMsg = "" Then
      mdlListView.AddWarnToLvw(dmWarn, tlvWarning, False)
    Else
      MsgBox(ErrMsg, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly)
    End If
  End Sub

  Private Sub ViewWarnInfo()
    '以列表形式查看
    Dim dmWarn As New clientMgrBusiness.WarningDataModel
    If GetWarnFromListView(tlvWarning, dmWarn) <> "" Then Exit Sub
    Dim frm As New frmAddWarn
    If frm.RetriveWarn(dmWarn, clientMgrBusiness.dmViewType.vtInfo) = False Then Exit Sub

    If frm.m_ViewType = clientMgrBusiness.dmViewType.vtModify Then
      Dim ErrMsg As String
      Dim warnObj As New clientMgrBusiness.Warning
      ErrMsg = warnObj.Update(dmWarn)
      If ErrMsg = "" Then
        AddWarnToLvw(dmWarn, tlvWarning, True)
      Else
        MsgBox(ErrMsg, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly)
      End If
    End If
  End Sub

  Private Sub lnkView_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkView.LinkClicked
    ViewWarnInfo()
  End Sub

  Private Sub lnkModify_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkModify.LinkClicked
    '编辑Warning
    Dim dmWarn As New clientMgrBusiness.WarningDataModel

    If GetWarnFromListView(tlvWarning, dmWarn) <> "" Then Exit Sub

    Dim frm As New frmAddWarn
    If frm.RetriveWarn(dmWarn, clientMgrBusiness.dmViewType.vtModify) = False Then Exit Sub

    Dim ErrMsg As String
    Dim warnObj As New clientMgrBusiness.Warning
    ErrMsg = warnObj.Update(dmWarn)
    If ErrMsg = "" Then
      AddWarnToLvw(dmWarn, tlvWarning, True)
    Else
      MsgBox(ErrMsg, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly)
    End If
  End Sub

  Private Sub lnkDelete_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkDelete.LinkClicked
    '删除Warning
    If MsgBox("要删除提醒？", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.No Then Exit Sub

    Dim dmWarn As New clientMgrBusiness.WarningDataModel
    If GetWarnFromListView(tlvWarning, dmWarn) <> "" Then Exit Sub

    Dim ErrMsg As String
    Dim warnObj As New clientMgrBusiness.Warning
    ErrMsg = warnObj.Delete(dmWarn.ID)
    If ErrMsg = "" Then
      tlvWarning.SelectedItems(0).Remove()
    Else
      MsgBox(ErrMsg, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly)
    End If
  End Sub

  Private Sub lnkClose_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkClose.LinkClicked
    Me.Close()
  End Sub
#End Region

  Private Sub frmWarn_Load(ByVal sender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    ListAllWarnings(tlvWarning)
    UpdateCmdUI()
  End Sub

#Region "TreeListView事件响应"

  Private Sub lvListView_DblClick(ByVal sender As System.Object, ByVal eventArgs As System.EventArgs) Handles tlvWarning.DoubleClick
    If Me.tlvWarning.SelectedItems.Count > 0 Then
      ViewWarnInfo()
    End If
  End Sub

  Private Sub tlvWarning_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tlvWarning.SelectedIndexChanged
    UpdateCmdUI()
  End Sub
#End Region

End Class