frmwarn.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmWarn 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "提示列表"
   ClientHeight    =   4680
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   8010
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4680
   ScaleWidth      =   8010
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton OKButton 
      Caption         =   "关闭"
      Height          =   375
      Left            =   6360
      TabIndex        =   0
      Top             =   3960
      Width           =   1215
   End
   Begin VB.CommandButton cmdWarnInfo 
      Caption         =   "查看"
      Height          =   375
      Left            =   4860
      TabIndex        =   5
      Top             =   3960
      Width           =   1215
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   3960
      Width           =   1215
   End
   Begin VB.CommandButton cmdModify 
      Caption         =   "修改"
      Height          =   375
      Left            =   1860
      TabIndex        =   3
      Top             =   3960
      Width           =   1215
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删除"
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   3960
      Width           =   1215
   End
   Begin MSComctlLib.ListView lvListView 
      Height          =   3015
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   7455
      _ExtentX        =   13150
      _ExtentY        =   5318
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "系统中当前提示列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   300
      Left            =   2400
      TabIndex        =   6
      Top             =   240
      Width           =   2835
   End
End
Attribute VB_Name = "frmWarn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmdAdd_Click()
  '新增人员
  Dim objWarn As cWarning
  If frmAddWarn.RetriveWarn(objWarn, vtadd) = False Then Exit Sub

  If objWarn.AddNew = AddNewOK Then
    AddWarnToLvw objWarn, lvListView, False
  Else
    MsgBox "错误"
  End If
End Sub

Private Sub cmdDel_Click()
  '删除人员
  If MsgBox("要删除提醒？", vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub

  Dim objWarn As cWarning
  If GetWarnFromControl(lvListView, objWarn) = False Then Exit Sub

  If objWarn.Delete = DeleteOK Then
    lvListView.ListItems.Remove (lvListView.SelectedItem.Index)
  Else
    MsgBox "错误"
  End If
End Sub

Private Sub cmdModify_Click()
  '编辑人员
  Dim objWarn As cWarning
  
  If GetWarnFromControl(lvListView, objWarn) = False Then Exit Sub
  
  If frmAddWarn.RetriveWarn(objWarn, vtModify) = False Then Exit Sub

  If objWarn.Update = UpdateOK Then
    AddWarnToLvw objWarn, lvListView, True
  Else
    MsgBox "错误"
  End If
End Sub

Private Sub cmdWarnInfo_Click()
  '编辑人员
  Dim objWarn As cWarning
  If GetWarnFromControl(lvListView, objWarn) = False Then Exit Sub
  If frmAddWarn.RetriveWarn(objWarn, vtInfo) = False Then Exit Sub
  
  If frmAddWarn.ViewType = vtModify Then
    If objWarn.Update = UpdateOK Then
      AddWarnToLvw objWarn, lvListView, True
    Else
      MsgBox "错误"
    End If
  End If
End Sub

Private Sub Form_Load()
  ListAllWarnings lvListView
End Sub

Private Sub lvListView_DblClick()
  cmdWarnInfo_Click
End Sub

Private Sub OKButton_Click()
  Unload Me
End Sub


Private Sub RefreshWarn()
  ListAllWarnings lvListView
End Sub