frmaddwarn.vb

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

    Me.lnkCancel.ImageIndex = 2
    Me.lnkCancel.ImageList = Me.imglistTask
    Me.lnkCancel.Location = New System.Drawing.Point(16, 96)
    Me.lnkCancel.Name = "lnkCancel"
    Me.lnkCancel.Size = New System.Drawing.Size(88, 16)
    Me.lnkCancel.TabIndex = 2
    Me.lnkCancel.TabStop = True
    Me.lnkCancel.Text = "取消"
    Me.lnkCancel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'imglistTask
    '
    Me.imglistTask.ImageSize = New System.Drawing.Size(16, 16)
    Me.imglistTask.ImageStream = CType(resources.GetObject("imglistTask.ImageStream"), System.Windows.Forms.ImageListStreamer)
    Me.imglistTask.TransparentColor = System.Drawing.Color.Transparent
    '
    'lnkOK
    '
    Me.lnkOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
    Me.lnkOK.ImageIndex = 1
    Me.lnkOK.ImageList = Me.imglistTask
    Me.lnkOK.Location = New System.Drawing.Point(16, 68)
    Me.lnkOK.Name = "lnkOK"
    Me.lnkOK.Size = New System.Drawing.Size(88, 16)
    Me.lnkOK.TabIndex = 1
    Me.lnkOK.TabStop = True
    Me.lnkOK.Text = "确定"
    Me.lnkOK.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'lnkModify
    '
    Me.lnkModify.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
    Me.lnkModify.ImageIndex = 0
    Me.lnkModify.ImageList = Me.imglistTask
    Me.lnkModify.Location = New System.Drawing.Point(16, 40)
    Me.lnkModify.Name = "lnkModify"
    Me.lnkModify.Size = New System.Drawing.Size(88, 16)
    Me.lnkModify.TabIndex = 0
    Me.lnkModify.TabStop = True
    Me.lnkModify.Text = "修改"
    Me.lnkModify.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'frmAddWarn
    '
    Me.AcceptButton = Me.lnkOK
    Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
    Me.BackColor = System.Drawing.SystemColors.Window
    Me.CancelButton = Me.lnkCancel
    Me.ClientSize = New System.Drawing.Size(554, 319)
    Me.Controls.Add(Me.xplTask)
    Me.Controls.Add(Me.fraWarn)
    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 = "frmAddWarn"
    Me.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.ShowInTaskbar = False
    Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
    Me.Text = "添加定时提醒"
    Me.fraWarn.ResumeLayout(False)
    Me.xplTask.ResumeLayout(False)
    Me.xpdWarnTask.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub
#End Region

  Private OK As Boolean '确定用户按了OK还是CANCEL按钮
  Private m_dmWarn As New clientMgrBusiness.WarningDataModel
  Public m_ViewType As clientMgrBusiness.dmViewType
  Private m_WarnType As clientMgrBusiness.dmWarnType

  Private Sub lnkModify_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkModify.LinkClicked
    m_ViewType = clientMgrBusiness.dmViewType.vtModify
    SetStatus()
  End Sub

  Private Sub lnkOK_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkOK.LinkClicked
    OK = True
    '如果是新增状态，则新建立一个“WarningDataModel”对象
    If m_ViewType = clientMgrBusiness.dmViewType.vtadd Then m_dmWarn = New clientMgrBusiness.WarningDataModel
    Call SaveValue()
    Me.Hide()
  End Sub

  Private Sub lnkCancel_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkCancel.LinkClicked
    '按了取消按钮
    OK = False
    Me.Hide()
  End Sub

  '设置对话框状态
  Private Sub SetStatus()
    '根据是“新增”还是修改，确定显示内容
    txtWarnMsg.BorderStyle = BorderStyle.Fixed3D
    txtWarnMsg.ScrollBars = ScrollBars.Vertical
    txtWarnMsg.ReadOnly = False
    lnkModify.Visible = False
    dtpWarnDate.Enabled = True

    '设置控件默认值
    Call SetDefaultValue()

    Select Case m_ViewType
      Case clientMgrBusiness.dmViewType.vtadd '添加提醒信息
        lnkCancel.Visible = True
        lnkOK.Text = "确定"
        Me.Text = "添加定时提醒"
      Case clientMgrBusiness.dmViewType.vtModify '修改提醒信息
        lnkCancel.Visible = True
        lnkOK.Text = "保存"
        Me.Text = "修改定时提醒"

      Case clientMgrBusiness.dmViewType.vtInfo '查看提醒信息
        lnkModify.Visible = True
        lnkCancel.Visible = False
        lnkOK.Text = "关闭"
        Me.Text = "查看定时提醒"

        txtWarnMsg.BorderStyle = BorderStyle.None
        txtWarnMsg.ScrollBars = ScrollBars.None
        txtWarnMsg.ReadOnly = True
        dtpWarnDate.Enabled = False
    End Select

  End Sub

  '打开对话框
  Public Function RetriveWarn(ByRef oWarn As clientMgrBusiness.WarningDataModel, ByVal eViewType As clientMgrBusiness.dmViewType) As Boolean
    m_dmWarn = oWarn

    m_ViewType = eViewType '对话框状态

    SetStatus() '根据新增或编辑状态设置显示内容

    OK = False
    Me.ShowDialog()
    If OK = False Then Exit Function

    oWarn = m_dmWarn
    RetriveWarn = True
    Me.Close()
  End Function

  '设置默认值
  Private Sub SetDefaultValue()
    Dim ctl As System.Windows.Forms.Control

    If m_dmWarn Is Nothing Then
      For Each ctl In Controls
        If TypeOf ctl Is System.Windows.Forms.TextBox Then
          ctl.Text = ""
        End If
      Next ctl
      m_WarnType = clientMgrBusiness.dmWarnType.CommonWarn
    Else
      With m_dmWarn
        txtWarnMsg.Text = .Msg
        dtpWarnDate.Value = .ShowDate
        labWarnObj.Text = .ClientName
        m_WarnType = .TypeID
      End With
    End If

  End Sub

  '检查输入有效性
  Private Function CheckValid() As Boolean
    '检验是否输入了名字，或是否正确输入了年龄
    If Not IsDate(dtpWarnDate.Value) Then
      MsgBox("请输入合法日期")
      CheckValid = False
    End If
    If Trim(txtWarnMsg.Text) = "" Then
      MsgBox("请输入提醒信息")
      CheckValid = True
    End If
  End Function

  '保存提醒对象
  Private Sub SaveValue()

    '给“提醒”对象赋值
    With m_dmWarn
      .ClientName = Me.labWarnObj.Text
      .Msg = txtWarnMsg.Text
      .ShowDate = dtpWarnDate.Value.Date
      .TypeID = m_WarnType
    End With

  End Sub

End Class