frmbtypeman.frm

在VB中开发的连接SQL的图书管理系统。

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmBTypeMan 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书类型管理"
   ClientHeight    =   4185
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6975
   Icon            =   "frmBTypeMan.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   6975
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdBack 
      Cancel          =   -1  'True
      Caption         =   "返　回"
      Height          =   495
      Left            =   4920
      TabIndex        =   4
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删　除"
      Height          =   495
      Left            =   3480
      TabIndex        =   3
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton cmdModi 
      Caption         =   "修　改"
      Height          =   495
      Left            =   2040
      TabIndex        =   2
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添　加"
      Height          =   495
      Left            =   600
      TabIndex        =   1
      Top             =   3360
      Width           =   1215
   End
   Begin MSComctlLib.TreeView tvwBType 
      Height          =   2895
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   5295
      _ExtentX        =   9340
      _ExtentY        =   5106
      _Version        =   393217
      HideSelection   =   0   'False
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      SingleSel       =   -1  'True
      Appearance      =   1
   End
End
Attribute VB_Name = "frmBTypeMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'窗体装载事件
Private Sub Form_Load()
  '为TreeView控件tvwBType对象装载图书类型名称
  tvwBType.Nodes.Clear
  Set tvwNode = tvwBType.Nodes.Add(, , "tvwAll", "全部分类")
  Call Add_BTypeToTree(tvwBType, "tvwAll")
  
  '给objBookType初始化
  objBookType.Init
End Sub

'单击tvwBType结点
Private Sub tvwBType_NodeClick(ByVal Node As MSComctlLib.Node)
  If Node.Text = Node.Root.Text Then
    objBookType.Init
  Else
    objBookType.GetInfo Trim(Node.Text)
  End If
End Sub

'添加按钮
Private Sub cmdAdd_Click()
  If objBookType.TypeID = 0 Then
    '根结点或没有选择
    frmBTypeEdit.lblUID = ""
    frmBTypeEdit.txtTypeName = ""
  ElseIf objBookType.UID = 0 Then
    '一级分类
    frmBTypeEdit.lblUID = Trim(objBookType.TypeName)
    frmBTypeEdit.txtTypeName = ""
  Else
    '二级分类
    MsgBox "此分类书目为二级分类" + vbCrLf + "不能在二级分类下面添加子分类", vbInformation, "信息提示"
    Exit Sub
  End If
  IsAdd = True
  frmBTypeEdit.Show 1
End Sub

'修改按钮
Private Sub cmdModi_Click()
  '根结点
  If objBookType.TypeID = 0 Then
    MsgBox "此分类为总分类" + vbCrLf + "不能修改总分类的名称", vbInformation, "信息提示"
    Exit Sub
  End If
  frmBTypeEdit.lblUID = objBookType.GetTypeName(objBookType.UID)
  frmBTypeEdit.txtTypeName = objBookType.TypeName
  IsAdd = False
  frmBTypeEdit.Show 1
End Sub

'删除按钮
Private Sub cmdDel_Click()
  '如果为根结点，则不能执行删除操作
  If tvwBType.SelectedItem.Key = "tvwAll" Then
    MsgBox "此项为根结点" + vbCrLf + "不能删除根结点", vbInformation, "信息提示"
    Exit Sub
  End If
  '如果选择的图书分类包含下一级图书分类，则不能删除
  If objBookType.HaveSubNode(objBookType.TypeID) Then
    MsgBox objBookType.TypeName + " 包含下级图书分类，不能删除", vbInformation, "信息提示"
    Exit Sub
  End If
  
  '确定删除
  Dim isDel As Integer
  isDel = MsgBox("是否确定要删除 " + Trim(tvwBType.SelectedItem.Text), vbYesNo _
        + vbQuestion + vbDefaultButton2, "是否删除")
  If isDel = vbNo Then
    Exit Sub
  Else
    If objBookType.HaveBookInfo(objBookType.TypeID) Then
      MsgBox "此图书分类下还有书籍" + vbCrLf + "不能删除此分类", _
             vbInformation, "信息提示"
      Exit Sub
    End If
    objBookType.Delete objBookType.TypeID
    MsgBox "删除成功！", vbInformation, "信息提示"
  End If
  
  '从TreeView控件tvwBType中删除当前选择的节点
  tvwBType.Nodes.Remove tvwBType.SelectedItem.index
  
  '刷新objBookType的值
  objBookType.TypeName = Trim(tvwBType.SelectedItem.Text)
  objBookType.GetInfo objBookType.TypeName
End Sub

'返回按钮
Private Sub cmdBack_Click()
  Unload Me
End Sub