main_jcxx_tslbsz.frm

图书管理系统,vb开发

         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   180
         Width           =   1305
      End
      Begin VB.CommandButton CmdSave 
         BackColor       =   &H00C0C0C0&
         Caption         =   "[S]保存"
         Height          =   360
         Left            =   1725
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   180
         Width           =   1305
      End
      Begin VB.CommandButton CmdAdd 
         BackColor       =   &H00C0C0C0&
         Caption         =   "[A]添加"
         Height          =   360
         Left            =   435
         Style           =   1  'Graphical
         TabIndex        =   10
         Top             =   180
         Width           =   1305
      End
   End
End
Attribute VB_Name = "main_jcxx_tslbsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/08/31
'描    述：新版图书综合管理系统 Ver 2.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Dim i As Integer     '定义整型变量
Dim rs1 As New ADODB.Recordset     '定义数据集对象
Public Sub Tree_change()     '声明一个树状显示数据的过程
 Dim key, text As String
 rs1.Open "select * from tslbb order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
 If rs1.RecordCount > 0 Then
    With rs1
         .MoveFirst
         Do While .EOF = False
            If Len(.Fields("类别编号")) = 2 Then
               key = Trim(.Fields("类别名称"))
               text = "(" & Trim(.Fields("类别编号")) & ")" & Trim(.Fields("类别名称"))
               Set Node1 = TreeView1.Nodes.Add(, , key, text, Val(.Fields("级别")))
            End If
            If Len(.Fields("类别编号")) = 5 Then
               key = Trim(.Fields("类别名称"))
               text = "(" & Trim(.Fields("类别编号")) & ")" & Trim(.Fields("类别名称"))
               Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, Val(.Fields("级别")))
            End If
            If Len(.Fields("类别编号")) = 9 Then
               key = Trim(.Fields("类别名称"))
               text = "(" & Trim(.Fields("类别编号")) & ")" & Trim(.Fields("类别名称"))
               Set Node3 = TreeView1.Nodes.Add(Node2.Index, tvwChild, key, text, Val(.Fields("级别")))
            End If
            If Len(.Fields("类别编号")) = 14 Then
               key = Trim(.Fields("类别名称"))
               text = "(" & Trim(.Fields("类别编号")) & ")" & Trim(.Fields("类别名称"))
               Set Node4 = TreeView1.Nodes.Add(Node3.Index, tvwChild, key, text, Val(.Fields("级别")))
            End If
            If Len(.Fields("类别编号")) = 20 Then
               key = Trim(.Fields("类别名称"))
               text = "(" & Trim(.Fields("类别编号")) & ")" & Trim(.Fields("类别名称"))
               Set Node5 = TreeView1.Nodes.Add(Node4.Index, tvwChild, key, text, Val(.Fields("级别")))
            End If
            .MoveNext
         Loop
    End With
 End If
 rs1.Close
End Sub
Private Sub Form_Activate()
 '添加级别列表
 For i = 1 To 5
     Combo1.AddItem (i) & "级"
 Next i
 Combo1.ListIndex = 0
 '打开表
 rs1.Open "select * from tslbb order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
 If rs1.RecordCount > 0 Then
    For i = 1 To 3
     If rs1.Fields(i) <> "" Then Text1(i).text = rs1.Fields(i)     '将字段值赋给Text1控件数组
        Text1(i).Enabled = False
    Next i
    Combo1.text = rs1.Fields("级别")
 End If
 rs1.Close     '关闭表
 Call Tree_change     '调用显示数据过程
 CmdSave.Enabled = False
 CmdEsc.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
  '回车使控件获得焦点
  If KeyCode = vbKeyReturn And Index < 3 Then Text1(Index + 1).SetFocus
  If KeyCode = vbKeyReturn And Index = 3 Then CmdSave.SetFocus
  '按向上键使控件获得焦点
  If KeyCode = vbKeyUp And Index > 3 Then Text1(Index - 1).SetFocus
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  '按类别名称查询，并按类别编号排序
  rs1.Open "select * from tslbb where 类别名称='" + TreeView1.SelectedItem.key + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount > 0 Then
   For i = 1 To 3
       Text1(i).text = rs1.Fields(i)     '将字段值赋给Text1控件数组
   Next i
   Combo1.text = rs1.Fields("级别")     '赋值给combo1.text
  End If
  rs1.Close
End Sub
Private Sub CmdAdd_Click()     '添加操作
  Dim bh  As Integer     '定义一个整型变量
  Dim lsbh As String     '定义一个字符串变量
  '设置本级编号和类别编号
  rs1.Open "select * from tslbb where 级别='" + Combo1.text + "'and 类别编号='" + Text1(2).text + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount > 0 Then
     If Not rs1.EOF Then rs1.MoveLast
     lsbh = rs1.Fields("类别编号")
     bh = Right(lsbh, Val(Combo1.text) + 1) + 1
     Text1(1).text = Format(bh, String(Val(Combo1.text) + 1, "0"))
     Text1(2).text = Left(lsbh, Len(lsbh) - Len(Text1(1).text)) & Text1(1).text
  Else
     Text1(1).text = Format(1, String(Val(Combo1.text) + 1, "0"))
     Text1(2).text = Text1(2).text & Format(1, String(Val(Combo1.text) + 1, "0"))
  End If
  rs1.Close
  '设置控件有效或无效
  CmdSave.Enabled = True
  CmdEsc.Enabled = True
  CmdAdd.Enabled = False
  CmdDelete.Enabled = False
  Text1(3).Enabled = True
  Text1(3).text = ""     '清空Text1(3)
  Text1(3).SetFocus     'Text1(3)获得焦点
End Sub
Private Sub CmdDelete_Click()     '删除图书类别信息
  rs1.Open "select * from tslbb where 类别名称='" + Text1(3).text + "'order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
  With rs1
  If .RecordCount > 0 Then
    a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
    If a = vbYes Then
       .Delete     '删除记录
       .Update     '更新记录
       For i = 1 To 3
           Text1(i).text = Adodc1.Recordset.Fields(i)     '将字段值赋给Text1控件数组
       Next i
       Combo1.text = Adodc1.Recordset.Fields("级别")
       '设置按钮有效或无效
       CmdSave.Enabled = False
       CmdEsc.Enabled = False
       CmdAdd.Enabled = True
       CmdDelete.Enabled = True
     End If
   Else
     MsgBox ("没有要删除的数据！")
  End If
  End With
  rs1.Close
  TreeView1.Nodes.Clear     '清空TreeView中的数据
  Call Tree_change     '调用过程
End Sub
Private Sub CmdSave_Click()     '保存图书类别信息
  '判断是否有空项
  If Combo1.text = "" Then
     MsgBox "系统不允许【级别】为空！"
     Exit Sub
  End If
  If Text1(1).text = "" Then
     MsgBox "系统不允许【本级编号】为空！"
     Exit Sub
  End If
  If Text1(2).text = "" Then
     MsgBox "系统不允许【类别编号】为空！"
     Exit Sub
  End If
   If Text1(3).text = "" Then
     MsgBox "系统不允许【类别名称】为空！"
     Exit Sub
  End If
  '添加图书类别信息
  rs1.Open "select * from tslbb order by 类别编号", Cnn, adOpenKeyset, adLockOptimistic
  rs1.AddNew
  For i = 1 To 3
   rs1.Fields(i) = Trim(Text1(i).text)
   Text1(i).Enabled = False
  Next i
  rs1.Fields("级别") = Combo1.text
  rs1.Update     '更新数据库
  rs1.Close     '关闭数据集对象
  TreeView1.Nodes.Clear
  Call Tree_change     '调用函数
 '设置控件状态
  CmdSave.Enabled = False
  CmdEsc.Enabled = False
  CmdAdd.Enabled = True
  CmdDelete.Enabled = True
End Sub
Private Sub CmdEsc_Click()     '取消操作
  '清空Text1控件数组
  For i = 1 To 3
      Text1(i).text = ""
  Next i
  '设置控件有效或无效
  Text1(3).Enabled = False
  CmdSave.Enabled = False
  CmdEsc.Enabled = False
  CmdAdd.Enabled = True
  CmdDelete.Enabled = True
End Sub
Private Sub CmdExit_Click()
 frm_main.Enabled = True
 Unload Me
End Sub