frmmain.vb

比较简单的图书管理系统

        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 343)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2, Me.StatusBarPanel3})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(656, 22)
        Me.StatusBar1.TabIndex = 2
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.BorderStyle = System.Windows.Forms.StatusBarPanelBorderStyle.Raised
        Me.StatusBarPanel1.Icon = CType(resources.GetObject("StatusBarPanel1.Icon"), System.Drawing.Icon)
        Me.StatusBarPanel1.MinWidth = 50
        Me.StatusBarPanel1.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw
        Me.StatusBarPanel1.Text = "StatusBarPanel1"
        Me.StatusBarPanel1.Width = 200
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.MinWidth = 50
        Me.StatusBarPanel2.Text = "大小写状态"
        Me.StatusBarPanel2.Width = 200
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.MinWidth = 50
        Me.StatusBarPanel3.Text = "时间"
        Me.StatusBarPanel3.Width = 300
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.ListView1)
        Me.Panel1.Controls.Add(Me.Splitter1)
        Me.Panel1.Controls.Add(Me.TreeView1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 42)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(656, 301)
        Me.Panel1.TabIndex = 3
        '
        'ListView1
        '
        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListView1.LargeImageList = Me.ImageList2
        Me.ListView1.Location = New System.Drawing.Point(124, 0)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(532, 301)
        Me.ListView1.SmallImageList = Me.ImageList2
        Me.ListView1.TabIndex = 2
        '
        'ImageList2
        '
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(121, 0)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 301)
        Me.Splitter1.TabIndex = 1
        Me.Splitter1.TabStop = False
        '
        'TreeView1
        '
        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.TreeView1.ImageList = Me.ImageList2
        Me.TreeView1.Indent = 19
        Me.TreeView1.Location = New System.Drawing.Point(0, 0)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("全部图书", 0, 0)})
        Me.TreeView1.Size = New System.Drawing.Size(121, 301)
        Me.TreeView1.TabIndex = 0
        '
        'FrmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 365)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "FrmMain"
        Me.Text = "图书管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim MyFrmBookIn As New FrmBookIn
        MyFrmBookIn.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim intReturnValue As Int32
        intReturnValue = MessageBox.Show("你是否要退出本系统", "退出警告", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        If intReturnValue = MsgBoxResult.Yes Then
            End
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is ToolBar1.Buttons(0) Then
            Dim MyFrmBookIn As New FrmBookIn
            MyFrmBookIn.Show()
        End If
    End Sub


    Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myNode As New TreeNode
        myNode.Text = "book"
        myNode.ImageIndex = 0
        TreeView1.Nodes(0).Nodes.Add(myNode)
        '使用代码添加树节点
        Dim i As Int32
        '添加到数据库
        '定义如何联接
        Dim connStr As String
        connStr = "Server=BJS1;Database=BookSystem;User ID=sa;Password=;Trusted_Connection=False"
        '定义一个连接对象,连接到数据库
        Dim myBookConn As New SqlConnection(connStr)
        myBookConn.Open()
        '定义一个执行对象,用于Sql语句执行
        Dim myBookCommand As New SqlCommand("select * from bookcat")
        '执行Sql语句
        myBookCommand.Connection = myBookConn
        '获取数据
        Dim myReader As SqlDataReader
        myReader = myBookCommand.ExecuteReader(CommandBehavior.CloseConnection)
        '在列表框上显示
        Do While myReader.Read
            Dim mySubNode As New TreeNode
            mySubNode.Text = myReader.Item("catName")
            mySubNode.ImageIndex = 1
            mySubNode.SelectedImageIndex = 2
            myNode.Nodes.Add(mySubNode)
        Loop
        'For i = 1 To 50
        '    Dim myNode As New TreeNode
        '    myNode.Text = "book" & i.ToString
        '    myNode.ImageIndex = 0
        '    TreeView1.Nodes(0).Nodes.Add(myNode)


        '    Dim j As Int32

        '    For j = 1 To 10
        '        Dim mySubNode As New TreeNode
        '        mySubNode.Text = "章节" & j.ToString
        '        mySubNode.ImageIndex = 1
        '        mySubNode.SelectedImageIndex = 2
        '        myNode.Nodes.Add(mySubNode)
        '    Next
        'Next
        '使用代码添加列表
        '先设置view属性=View.SmallIcon和绑定smallImagelist属性为一个imagelist控件
        'ListView1.View = View.SmallIcon
        '先设置view属性=View.LargeIcon和绑定LargeImagelist属性为一个imagelist控件
        'ListView1.View = View.LargeIcon
        '若要使用详细列表视图，则设置view属性为listview1.View=View.Details

        '=============详细列表=======================================
        ' 设置为详细列表视图
        ListView1.View = View.Details
        ' 添加一个宽100像素,左对齐的列
        ListView1.Columns.Add("书名", 300, HorizontalAlignment.Left)

        ListView1.Columns.Add("作者", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("出版时间", 200, HorizontalAlignment.Left)
        For i = 1 To 100
            '添加项
            Dim myItem As New ListViewItem
            myItem.Text = "book" & i.ToString
            myItem.ImageIndex = 0
            '添加两个子项
            myItem.SubItems.Add("作者" + i.ToString)
            myItem.SubItems.Add(Now.ToShortDateString)
            ListView1.Items.Add(myItem)
        Next
        '===========大图标代码==================================
        ''ListView1.View = View.LargeIcon

        ''For i = 1 To 50
        ''    Dim myItem As New ListViewItem
        ''    myItem.Text = "book" & i.ToString
        ''    myItem.ImageIndex = 0
        ''    ListView1.Items.Add(myItem)
        ''Next
        '===========小图标代码==================================
        ''ListView1.View = View.SmallIcon

        ''For i = 1 To 50
        ''    Dim myItem As New ListViewItem
        ''    myItem.Text = "book" & i.ToString
        ''    myItem.ImageIndex = 0
        ''    ListView1.Items.Add(myItem)
        ''Next
    End Sub


    Private Sub MnuBookCat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuBookCat.Click
        Dim myMenu As New FrmBookCat
        myMenu.Show()
    End Sub

    Private Sub MnuBookSubCat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuBookSubCat.Click
        Dim myFrm As New FrnBookSubCat
        myFrm.Show()
    End Sub
End Class