main.vb

图书馆管理系统,是数据库的课程设计,报告里面包含了需求分析数据字典概念结构设计逻辑结构设计数据库物理设计数据库实施

Imports System.Data
'引入数据库操作类命名空间
Imports System.Data.OleDb
'引入ADO.NET操作命名空间

Public Class win_main
    Inherits System.Windows.Forms.Form
    Dim login As New library2.win_login

    Public listby As String, condition As String = "", listall As String, stuID As Integer, i As Integer
    'listby查询方式          condition查询条件    listall列出所有    stuID学生自动编号

    'Public dboard As String, dsplit() As String, i As Integer, ctrlboard As Boolean, hideinfo As Boolean, viewbookid As Long, viewbookname As String

    '图书馆基本配置
    Public canland As Integer, canlandnum As Integer, canlanddays As Integer, canreland As Integer, boardflash As Integer
    '标识图书馆是否开放      标识可以借出的图书总数目  标识图书借出天数        标识图书序借次数    公告刷新时间

    Public hadloadnum As Integer, landdays As Integer, dboard(20) As Object, ctrlboard As Boolean = True, hideinfo As Boolean = True, islock As Boolean = False
    'hadloadnum学生已借数目       landdays     图书馆公告信息 数组 最多为20条公告    公告控制             信息隐现控制      

    Public viewbookid As Integer, viewbookname As String = ""

    Dim sqlstr As String, sqlstr2 As String 'SQL语句标记
    Dim objDS As DataSet, objDS2 As DataSet '数据在内存中的缓存

#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 GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents btloanbooksinfo As System.Windows.Forms.Button
    Friend WithEvents btreland As System.Windows.Forms.Button
    Friend WithEvents btreturn As System.Windows.Forms.Button
    Friend WithEvents btallland As System.Windows.Forms.Button
    Friend WithEvents landinfo_info As System.Windows.Forms.CheckedListBox
    Friend WithEvents landinfo_cannum As System.Windows.Forms.Label
    Friend WithEvents landinfo_hadnum As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents hideuserinfo As System.Windows.Forms.Button
    Friend WithEvents user_lastlogin As System.Windows.Forms.Label
    Friend WithEvents user_logins As System.Windows.Forms.Label
    Friend WithEvents user_phone As System.Windows.Forms.Label
    Friend WithEvents user_class As System.Windows.Forms.Label
    Friend WithEvents user_learnid As System.Windows.Forms.Label
    Friend WithEvents user_name As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents btstop As System.Windows.Forms.Button
    Friend WithEvents board As System.Windows.Forms.Label
    Friend WithEvents list_book As System.Windows.Forms.ListView
    Friend WithEvents book_id As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_name As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_author As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_classify As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_concern As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_addtime As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_amount As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_remain As System.Windows.Forms.ColumnHeader
    Friend WithEvents book_loandegree As System.Windows.Forms.ColumnHeader
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents btland As System.Windows.Forms.Button
    Friend WithEvents show_book_loandegree As System.Windows.Forms.Label
    Friend WithEvents show_book_remain As System.Windows.Forms.Label
    Friend WithEvents show_book_amount As System.Windows.Forms.Label
    Friend WithEvents show_book_addtime As System.Windows.Forms.Label
    Friend WithEvents show_book_concern As System.Windows.Forms.Label
    Friend WithEvents show_book_classity As System.Windows.Forms.Label
    Friend WithEvents show_book_author As System.Windows.Forms.Label
    Friend WithEvents show_book_name As System.Windows.Forms.Label
    Friend WithEvents show_book_id As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents search As System.Windows.Forms.Button
    Friend WithEvents list_keyword As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents list_dy As System.Windows.Forms.ComboBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents list_listall As System.Windows.Forms.ComboBox
    Friend WithEvents list_condition As System.Windows.Forms.ComboBox
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents btchangpw As System.Windows.Forms.Button
    Friend WithEvents MainWinMenu As System.Windows.Forms.MainMenu
    Friend WithEvents Menu_byid As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_system As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_condition As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_exit As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_bywhat As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_bybookname As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byclassify As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byauthor As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byconcern As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byaddtime As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byamount As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byremain As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_loandegree As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_bycondition As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byjust As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_byantitone As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_boardctr As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_stop As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_bookinformation As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_land As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_landinformation As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_details As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_indinformation As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_hideinformation As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_changepw As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_help As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_about As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(win_main))
        Me.GroupBox6 = New System.Windows.Forms.GroupBox
        Me.btloanbooksinfo = New System.Windows.Forms.Button
        Me.btreland = New System.Windows.Forms.Button
        Me.btreturn = New System.Windows.Forms.Button
        Me.btallland = New System.Windows.Forms.Button
        Me.landinfo_info = New System.Windows.Forms.CheckedListBox
        Me.landinfo_cannum = New System.Windows.Forms.Label
        Me.landinfo_hadnum = New System.Windows.Forms.Label
        Me.Label20 = New System.Windows.Forms.Label
        Me.Label21 = New System.Windows.Forms.Label
        Me.Label23 = New System.Windows.Forms.Label
        Me.GroupBox5 = New System.Windows.Forms.GroupBox
        Me.btchangpw = New System.Windows.Forms.Button
        Me.hideuserinfo = New System.Windows.Forms.Button
        Me.user_lastlogin = New System.Windows.Forms.Label
        Me.user_logins = New System.Windows.Forms.Label
        Me.user_phone = New System.Windows.Forms.Label
        Me.user_class = New System.Windows.Forms.Label
        Me.user_learnid = New System.Windows.Forms.Label
        Me.user_name = New System.Windows.Forms.Label
        Me.Label18 = New System.Windows.Forms.Label
        Me.Label19 = New System.Windows.Forms.Label
        Me.Label16 = New System.Windows.Forms.Label
        Me.Label17 = New System.Windows.Forms.Label
        Me.Label14 = New System.Windows.Forms.Label
        Me.Label15 = New System.Windows.Forms.Label
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.btstop = New System.Windows.Forms.Button
        Me.board = New System.Windows.Forms.Label
        Me.list_book = New System.Windows.Forms.ListView
        Me.book_id = New System.Windows.Forms.ColumnHeader
        Me.book_name = New System.Windows.Forms.ColumnHeader
        Me.book_author = New System.Windows.Forms.ColumnHeader
        Me.book_classify = New System.Windows.Forms.ColumnHeader
        Me.book_concern = New System.Windows.Forms.ColumnHeader
        Me.book_addtime = New System.Windows.Forms.ColumnHeader
        Me.book_amount = New System.Windows.Forms.ColumnHeader
        Me.book_remain = New System.Windows.Forms.ColumnHeader
        Me.book_loandegree = New System.Windows.Forms.ColumnHeader
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.btland = New System.Windows.Forms.Button
        Me.show_book_loandegree = New System.Windows.Forms.Label
        Me.show_book_remain = New System.Windows.Forms.Label
        Me.show_book_amount = New System.Windows.Forms.Label
        Me.show_book_addtime = New System.Windows.Forms.Label
        Me.show_book_concern = New System.Windows.Forms.Label
        Me.show_book_classity = New System.Windows.Forms.Label
        Me.show_book_author = New System.Windows.Forms.Label
        Me.show_book_name = New System.Windows.Forms.Label
        Me.show_book_id = New System.Windows.Forms.Label
        Me.Label13 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.search = New System.Windows.Forms.Button
        Me.list_keyword = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.list_listall = New System.Windows.Forms.ComboBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.list_dy = New System.Windows.Forms.ComboBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.list_condition = New System.Windows.Forms.ComboBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.MainWinMenu = New System.Windows.Forms.MainMenu
        Me.Menu_system = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.Menu_exit = New System.Windows.Forms.MenuItem
        Me.Menu_condition = New System.Windows.Forms.MenuItem
        Me.Menu_bywhat = New System.Windows.Forms.MenuItem
        Me.Menu_byid = New System.Windows.Forms.MenuItem
        Me.Menu_bybookname = New System.Windows.Forms.MenuItem
        Me.Menu_byclassify = New System.Windows.Forms.MenuItem
        Me.Menu_byauthor = New System.Windows.Forms.MenuItem
        Me.Menu_byconcern = New System.Windows.Forms.MenuItem
        Me.Menu_byaddtime = New System.Windows.Forms.MenuItem
        Me.Menu_byamount = New System.Windows.Forms.MenuItem
        Me.Menu_byremain = New System.Windows.Forms.MenuItem
        Me.Menu_loandegree = New System.Windows.Forms.MenuItem
        Me.Menu_bycondition = New System.Windows.Forms.MenuItem
        Me.Menu_byjust = New System.Windows.Forms.MenuItem
        Me.Menu_byantitone = New System.Windows.Forms.MenuItem
        Me.Menu_boardctr = New System.Windows.Forms.MenuItem
        Me.Menu_stop = New System.Windows.Forms.MenuItem
        Me.Menu_bookinformation = New System.Windows.Forms.MenuItem
        Me.Menu_land = New System.Windows.Forms.MenuItem
        Me.Menu_landinformation = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.Menu_details = New System.Windows.Forms.MenuItem
        Me.Menu_indinformation = New System.Windows.Forms.MenuItem
        Me.Menu_hideinformation = New System.Windows.Forms.MenuItem
        Me.Menu_changepw = New System.Windows.Forms.MenuItem
        Me.Menu_help = New System.Windows.Forms.MenuItem
        Me.Menu_about = New System.Windows.Forms.MenuItem
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem8 = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.GroupBox6.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.btloanbooksinfo)
        Me.GroupBox6.Controls.Add(Me.btreland)
        Me.GroupBox6.Controls.Add(Me.btreturn)
        Me.GroupBox6.Controls.Add(Me.btallland)
        Me.GroupBox6.Controls.Add(Me.landinfo_info)
        Me.GroupBox6.Controls.Add(Me.landinfo_cannum)
        Me.GroupBox6.Controls.Add(Me.landinfo_hadnum)
        Me.GroupBox6.Controls.Add(Me.Label20)
        Me.GroupBox6.Controls.Add(Me.Label21)
        Me.GroupBox6.Controls.Add(Me.Label23)