frm_main.vb

图书管理系统 VB加SQL 数据库在文件里的DATA里 进到SQL里附加进去就可以使用了

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Frm_Main
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents MenuS0 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuS6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuI0 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuI1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuI2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuI3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuD0 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuD1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuD2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuD3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuD4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuW0 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuW1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuW2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuW3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuW4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuH0 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuH1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuS0 = New System.Windows.Forms.MenuItem
        Me.MenuS1 = New System.Windows.Forms.MenuItem
        Me.MenuS2 = New System.Windows.Forms.MenuItem
        Me.MenuS3 = New System.Windows.Forms.MenuItem
        Me.MenuS4 = New System.Windows.Forms.MenuItem
        Me.MenuS5 = New System.Windows.Forms.MenuItem
        Me.MenuS6 = New System.Windows.Forms.MenuItem
        Me.MenuI0 = New System.Windows.Forms.MenuItem
        Me.MenuI1 = New System.Windows.Forms.MenuItem
        Me.MenuI2 = New System.Windows.Forms.MenuItem
        Me.MenuI3 = New System.Windows.Forms.MenuItem
        Me.MenuD0 = New System.Windows.Forms.MenuItem
        Me.MenuD1 = New System.Windows.Forms.MenuItem
        Me.MenuD2 = New System.Windows.Forms.MenuItem
        Me.MenuD3 = New System.Windows.Forms.MenuItem
        Me.MenuD4 = New System.Windows.Forms.MenuItem
        Me.MenuW0 = New System.Windows.Forms.MenuItem
        Me.MenuW1 = New System.Windows.Forms.MenuItem
        Me.MenuW2 = New System.Windows.Forms.MenuItem
        Me.MenuW3 = New System.Windows.Forms.MenuItem
        Me.MenuW4 = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuH0 = New System.Windows.Forms.MenuItem
        Me.MenuH1 = New System.Windows.Forms.MenuItem
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuS0, Me.MenuI0, Me.MenuD0, Me.MenuW0, Me.MenuH0})
        '
        'MenuS0
        '
        Me.MenuS0.Index = 0
        Me.MenuS0.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuS1, Me.MenuS2, Me.MenuS3, Me.MenuS4, Me.MenuS5, Me.MenuS6})
        Me.MenuS0.Text = "系统管理(&S)"
        '
        'MenuS1
        '
        Me.MenuS1.Index = 0
        Me.MenuS1.Text = "用户管理(&U)"
        '
        'MenuS2
        '
        Me.MenuS2.Index = 1
        Me.MenuS2.Text = "罚款设置(&F)"
        '
        'MenuS3
        '
        Me.MenuS3.Index = 2
        Me.MenuS3.Text = "修改密码(&P)"
        '
        'MenuS4
        '
        Me.MenuS4.Index = 3
        Me.MenuS4.Text = "备份数据(&B)"
        '
        'MenuS5
        '
        Me.MenuS5.Index = 4
        Me.MenuS5.Text = "恢复数据(&R)"
        '
        'MenuS6
        '
        Me.MenuS6.Index = 5
        Me.MenuS6.Text = "退出系统(&E)"
        '
        'MenuI0
        '
        Me.MenuI0.Index = 1
        Me.MenuI0.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuI1, Me.MenuI2, Me.MenuI3})
        Me.MenuI0.Text = "资料管理(&I)"
        '
        'MenuI1
        '
        Me.MenuI1.Index = 0
        Me.MenuI1.Text = "图书管理(&B)"
        '
        'MenuI2
        '
        Me.MenuI2.Index = 1
        Me.MenuI2.Text = "学生管理(&R)"
        '
        'MenuI3
        '
        Me.MenuI3.Index = 2
        Me.MenuI3.Text = "图书类别管理(&C)"
        '
        'MenuD0
        '
        Me.MenuD0.Index = 2
        Me.MenuD0.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuD1, Me.MenuD2, Me.MenuD3, Me.MenuD4})
        Me.MenuD0.Text = "日常管理(&D)"
        '
        'MenuD1
        '
        Me.MenuD1.Index = 0
        Me.MenuD1.Text = "借出图书(&L)"
        '
        'MenuD2
        '
        Me.MenuD2.Index = 1
        Me.MenuD2.Text = "归还图书(&R)"
        '
        'MenuD3
        '
        Me.MenuD3.Index = 2
        Me.MenuD3.Text = "续借图书(&C)"
        '
        'MenuD4
        '
        Me.MenuD4.Index = 3
        Me.MenuD4.Text = "逾期管理(&O)"
        '
        'MenuW0
        '
        Me.MenuW0.Index = 3
        Me.MenuW0.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuW1, Me.MenuW2, Me.MenuW3, Me.MenuW4, Me.MenuItem1})
        Me.MenuW0.Text = "窗口管理(&W)"
        '
        'MenuW1
        '
        Me.MenuW1.Index = 0
        Me.MenuW1.Text = "窗口层叠(&C)"
        '
        'MenuW2
        '
        Me.MenuW2.Index = 1
        Me.MenuW2.Text = "水平平铺(&H)"
        '
        'MenuW3
        '
        Me.MenuW3.Index = 2
        Me.MenuW3.Text = "垂直平铺(&V)"
        '
        'MenuW4
        '
        Me.MenuW4.Index = 3
        Me.MenuW4.Text = "排列图标(&A)"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 4
        Me.MenuItem1.Text = "-"
        '
        'MenuH0
        '
        Me.MenuH0.Index = 4
        Me.MenuH0.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuH1})
        Me.MenuH0.Text = "帮助(&H)"
        '
        'MenuH1
        '
        Me.MenuH1.Index = 0
        Me.MenuH1.Text = "关于图书管理系统"
        '
        'ToolBar1
        '