frmbookmessage.frm

图书管理系统 欢迎大家来使用 谢谢!

      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Line Line1 
      X1              =   2640
      X2              =   8040
      Y1              =   1080
      Y2              =   1080
   End
   Begin VB.Label Label6 
      Caption         =   "出版日期:"
      Height          =   255
      Left            =   5400
      TabIndex        =   11
      Top             =   1800
      Width           =   975
   End
   Begin VB.Label Label5 
      Caption         =   "类别:"
      Height          =   375
      Left            =   2880
      TabIndex        =   8
      Top             =   1200
      Width           =   615
   End
   Begin VB.Shape Shape1 
      Height          =   3735
      Left            =   2640
      Top             =   480
      Width           =   7215
   End
   Begin VB.Label Label4 
      Caption         =   "作者:"
      Height          =   255
      Left            =   5760
      TabIndex        =   6
      Top             =   1200
      Width           =   615
   End
   Begin VB.Label Label2 
      Caption         =   "书名:"
      Height          =   255
      Left            =   5760
      TabIndex        =   3
      Top             =   600
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   "书号:"
      Height          =   255
      Left            =   2880
      TabIndex        =   2
      Top             =   600
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "出版社:"
      Height          =   255
      Left            =   2760
      TabIndex        =   4
      Top             =   1800
      Width           =   735
   End
   Begin VB.Label Label7 
      Caption         =   "登记日期"
      Height          =   375
      Left            =   2668
      TabIndex        =   13
      Top             =   3720
      Width           =   735
   End
End
Attribute VB_Name = "Frmbookmessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Child, Child2 As Integer
 Dim nodx As Node
 Dim Booktype As String
Dim TreeChile As Integer
Dim Addcommand, Modycommand As Boolean

Private Sub Command1_Click()
Addcommand = True
DTPicker2.Visible = True
DTPicker1.Visible = True
For i = 0 To 7
Text(i).Locked = False
Text(i).BorderStyle = 1
'Text(i).BackColor = RGB(255, 255, 255)
Text(i).Appearance = 1
Text(i).Text = ""
Next i
CommandE
End Sub

Private Sub Command13_Click()
Full
For i = 0 To 7
Text(i).Locked = True
Text(i).BorderStyle = 0
Text(i).Appearance = 0
Next i
If Addcommand = True Then
cnn.AddNew
FilesText
cnn.Update
Addcommand = False

TreeVierRemove
End If



If Modycommand = True Then
FilesText
cnn.Update
TreeVierRemove
Modycommand = False
 message = MsgBox("修改成功！", 6, "修改信息")
End If
 CommandF
End Sub

Private Sub Command14_Click()
For i = 0 To 7
Text(i).Locked = True
Text(i).BorderStyle = 0
Text(i).Appearance = 0
Next i
 CommandF
End Sub

Private Sub Command2_Click()
DTPicker2.Visible = True
DTPicker1.Visible = True
For i = 0 To 7
Text(i).Locked = False
Text(i).BorderStyle = 1
'Text(i).BackColor = RGB(255, 255, 255)
Text(i).Appearance = 1
Next i
Modycommand = True
CommandE
End Sub

Private Sub Command3_Click()
cnn.Delete
TreeVierRemove
CommandE
End Sub

Private Sub Command4_Click()
Open_book_message
Dim Sqltxt As String
Dim id As String
id = InputBox("dsaf")


'message = MsgBox("显示", 4, "消息演示")

'Select Case message

'Case 1

'MsgBox "你按下了OK钮"

'Case 2

'MsgBox "你按下了Cancel按钮"

'Case 3

'MsgBox "你按下了Abort按钮"

'Case 4

'MsgBox "你按下了Retry按钮"

'Case 5

'MsgBox "你按下了Ignore按钮"

'Case 6

'MsgBox "你按下了Yes按钮"

'Case 7

'MsgBox "你按下了No按钮"

'End Select











Sqltxt = "select * from book_message where book_id=" & "'" & id & "'"
Set cnn = st.Execute(Sqltxt)
If cnn.EOF = True Then
Exit Sub
End If
TillText

'cnn.Find cnn.Fields(0).Value = Val(1002)
'cnn.Find "select * from book_message where book_id='1001'"
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Command6_Click()
  For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = True '展开所有节点
  Next i
End Sub

Private Sub Command7_Click()
  For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Expanded = False '收起所有节点
  Next i
End Sub

Private Sub Command8_Click()
 TreeView1.Sorted = True '排列顺序
End Sub

Private Sub Form_Load()
Child = 0
'TillText
  'TreeView1.LineStyle = tvwTreeLines '在兄弟节点和父节点之间显示线
  'TreeView1.ImageList = ImageList1 '链接图像列
'TreeView1.Style = tvwTreelinesPlusMinusPictureText
Open_book_type
  Do While cnn2.EOF = False
  If cnn2.EOF = True Then
  Exit Sub
  End If
  Set nodx = TreeView1.Nodes.Add(, , cnn2.Fields(1).Value, cnn2.Fields(1).Value, 1)
            Booktype = cnn2.Fields(1).Value
  '建立名称为"蒲子明"的父节点,选择索引为1的图像
         Set nodx = TreeView1.Nodes.Add(cnn2.Fields(1).Value, tvwChild, "child" & Child, "图书编号", 3)
                       Child2 = Child
  '在"蒲子明"父节点下建立"收件箱"子节点,选择索引为3的图像
               Child = Child + 1
 'Set nodx = TreeView1.Nodes.Add(cnn.Fields(1).Value, tvwChild, "child" & i, "院系具体描述", 3)
 'i = i + 1
                Open_book_message
                cnn.MoveFirst
                    Do While cnn.EOF = False
                        If cnn.EOF = True Then
                             Exit Sub
                        End If
                        If Trim(cnn.Fields(2).Value) = cnn2.Fields(1).Value Then
                            
                             Set nodx = TreeView1.Nodes.Add("child" & Child2, tvwChild, "child" & Child, cnn.Fields(0).Value, 3)
                             Child = Child + 1
                        End If
                              cnn.MoveNext
                    Loop
                    'cnn.Close

  '在"蒲子明"父节点下建立"发件箱"子节点,选择索引为3的图像
   ' Child = Child + 1
  cnn2.MoveNext
   Loop
  
  
  
  
  
  Open_book_message
  
  
  
    Set iStm = New ADODB.Stream
          With iStm
                  .Type = adTypeBinary           '二进制模式
                  .Open
                  .LoadFromFile App.Path + "\Img\2.BMP"
          End With
 
                cnn.MoveFirst
                'cnn.AddNew
                  cnn.Fields(8).Value = iStm.Read
                  cnn.Update
        
          
  
  
  
  
  
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.ExpandedImage = 2 '节点被展开时,选择索引为2的图像
'For i = 1 To TreeView1.Nodes.Count
'Label10.Caption = TreeView1.Nodes(i).Parent & "类的书共有："
'Next i
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

  If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
  
    For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(i).Selected Then
    TreeChile = Val(TreeView1.Nodes(i).Text)
'Label10.Caption = TreeView1.Nodes(i).Parent.Parent & "类的书共有："
     TillTree
     Command1.Enabled = True
     Command2.Enabled = True
     Command3.Enabled = True
     Command4.Enabled = True
     Command13.Enabled = False
     Command14.Enabled = False
       'MsgBox "您选择的是：“" & TreeView1.Nodes(i).Text & "”子节点！"
       
    
      End If
      Next i
      End If
      
      
'If TreeView1.SelectedItem.Children <> 1 Then
  ' For i = 1 To TreeView1.Nodes.Count
    '  If TreeView1.Nodes(i).Selected Then
      '    Label10.Caption = TreeView1.Nodes(i) & "类的书共有："
      'End If
   'Next i
'End If

End Sub

Public Sub TillText()
Dim i As Integer

For i = 0 To 7
Text(i).Text = cnn.Fields(i).Value
Next i
End Sub

Public Sub TillTree()
Open_book_message

cnn.MoveFirst
  Do While cnn.EOF = False

  If cnn.EOF = True Then
  cnn.Close
  Exit Sub
    End If
    If Val(cnn.Fields(0).Value) = Val(TreeChile) Then
    TillText
    Exit Sub
    End If
cnn.MoveNext
Loop
End Sub

Public Sub FilesText()
Text(5).Text = DTPicker1.Value
Text(7).Text = DTPicker2.Value
For i = 0 To 7
cnn.Fields(i).Value = Trim(Text(i).Text)
Next i
End Sub

Public Sub Full()
For i = 0 To 6
If i <> 5 Then
If Text(i).Text = "" Then
 MsgBox " 不能为空"
 Exit Sub
 End If
  End If
Next i
End Sub

Public Sub CommandE()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
TreeView1.Enabled = False
Command13.Enabled = True
Command14.Enabled = True
End Sub

Public Sub CommandF()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
TreeView1.Enabled = True
Command13.Enabled = False
Command14.Enabled = False
DTPicker2.Visible = False
DTPicker1.Visible = False
End Sub

Public Sub TreeVierRemove()
Open_book_type
Do While cnn2.EOF = False
If cnn2.EOF = True Then
Exit Sub
End If
TreeView1.Nodes.Remove 1
cnn2.MoveNext
Loop
Form_Load
End Sub