字典管理.vb

图书管理系统 万千可以用于小规模的图书管理拉 用access作为数据库

        '
        Me.DataGrid3.DataMember = ""
        Me.DataGrid3.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid3.Location = New System.Drawing.Point(8, 80)
        Me.DataGrid3.Name = "DataGrid3"
        Me.DataGrid3.Size = New System.Drawing.Size(208, 176)
        Me.DataGrid3.TabIndex = 2
        '
        'ComboBox3
        '
        Me.ComboBox3.Location = New System.Drawing.Point(48, 8)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(64, 20)
        Me.ComboBox3.TabIndex = 0
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(88, 56)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(40, 23)
        Me.Button5.TabIndex = 1
        Me.Button5.Text = "添加"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(136, 56)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(40, 23)
        Me.Button6.TabIndex = 1
        Me.Button6.Text = "删除"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 32)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "可借天数"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(72, 32)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(112, 21)
        Me.TextBox3.TabIndex = 5
        Me.TextBox3.Text = ""
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Label6)
        Me.GroupBox4.Controls.Add(Me.Button7)
        Me.GroupBox4.Controls.Add(Me.TextBox4)
        Me.GroupBox4.Location = New System.Drawing.Point(16, 200)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(136, 64)
        Me.GroupBox4.TabIndex = 3
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "超期每天罚款金额"
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("隶书", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.Location = New System.Drawing.Point(80, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(48, 23)
        Me.Label6.TabIndex = 2
        Me.Label6.Text = "元"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(56, 40)
        Me.Button7.Name = "Button7"
        Me.Button7.TabIndex = 1
        Me.Button7.Text = "修改"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(0, 16)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(80, 21)
        Me.TextBox4.TabIndex = 0
        Me.TextBox4.Text = ""
        '
        '字典管理
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(584, 266)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.Name = "字典管理"
        Me.Text = "字典管理"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.DataGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim sqlstr As String
      Sub zidian()
        Dim nianjicomm As New OleDbCommand("select DISTINCT 年级 from 字典表 order by 年级 ", myconn) 'where 分类='" & 0 & "'
        Dim nianjibataad As OleDbDataAdapter = New OleDbDataAdapter(nianjicomm)
        Dim nianjidataset As DataSet = New DataSet
        nianjidataset.Clear()
        nianjibataad.Fill(nianjidataset)
        ComboBox1.DataSource = nianjidataset.Tables(0)
        ComboBox1.DisplayMember = "年级"
        DataGrid1.DataSource = nianjidataset.Tables(0)
        myconn.Close()
    End Sub
    Sub zidian1()
        Dim zhuanycomm As New OleDbCommand("select DISTINCT 专业代号,专业名 from 字典表1 order by 专业代号 ", myconn)
        Dim zhuanyebataad As OleDbDataAdapter = New OleDbDataAdapter(zhuanycomm)
        Dim zhuanyedataset As DataSet = New DataSet
        zhuanyedataset.Clear()
        zhuanyebataad.Fill(zhuanyedataset)
        ComboBox2.DataSource = zhuanyedataset.Tables(0)
        ComboBox2.DisplayMember = "专业代号"
        DataGrid2.DataSource = zhuanyedataset.Tables(0)
        myconn.Close()
    End Sub
    Sub zidian2()
        Dim jibiecomm As New OleDbCommand("select DISTINCT 级别代号,职称 from 字典表2 order by 级别代号 ", myconn)
        Dim jibiedataad As OleDbDataAdapter = New OleDbDataAdapter(jibiecomm)
        Dim jibiedataset As DataSet = New DataSet
        jibiedataset.Clear()
        jibiedataad.Fill(jibiedataset)
        ComboBox3.DataSource = jibiedataset.Tables(0)
        ComboBox3.DisplayMember = "级别代号"
        DataGrid3.DataSource = jibiedataset.Tables(0)
        myconn.Close()
    End Sub
    Sub zidian4()
        Dim jibiecomm As New OleDbCommand("select * from 字典表4  ", myconn)
        Dim jibiedataad As OleDbDataAdapter = New OleDbDataAdapter(jibiecomm)
        Dim jibiedataset As DataSet = New DataSet
        jibiedataset.Clear()
        jibiedataad.Fill(jibiedataset)
        TextBox4.Text = jibiedataset.Tables(0).Rows(0)("每天罚款金额")
        myconn.Close()
    End Sub
    Private Sub 字典管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            zidian()
            zidian1()
            zidian2()
            zidian4()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "insert into 字典表(年级) values ('" & ComboBox1.Text & "')"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "insert into 字典表1(专业代号,专业名) values ('" & ComboBox2.Text & "','" & TextBox1.Text & "')"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian1()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "insert into 字典表2(级别代号,职称,可借天数) values ('" & ComboBox3.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian2()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "delete * from 字典表 where 年级 like '" & ComboBox1.Text & "'"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "delete * from 字典表1 where 专业代号 like '" & ComboBox2.Text & "'"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian1()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Try
            If myconn.State <> ConnectionState.Open Then
                myconn.Open()
            End If
            sqlstr = "delete * from 字典表2 where 级别代号 like '" & ComboBox3.Text & "'"
            Dim myco As New OleDbCommand
            myco = New OleDbCommand(sqlstr, myconn)
            myco.CommandText() = sqlstr
            myco.ExecuteScalar()
            myconn.Close()
            zidian2()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Process.Start(Application.StartupPath & ("\13.txt"))
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        MsgBox(TextBox4.Text)
        sqlstr = "delete * from 字典表4 "
        myconn.Open()
        Dim mycomm As New OleDbCommand
        mycomm.Connection = myconn
        mycomm.CommandText() = sqlstr
        mycomm.ExecuteScalar()
        myconn.Close()
        sqlstr = "insert into 字典表4(每天罚款金额) values ('" & TextBox4.Text & "')"
        myconn.Open()
        mycomm.Connection = myconn
        mycomm.CommandText() = sqlstr
        mycomm.ExecuteScalar()
        myconn.Close()
        zidian4()
    End Sub
End Class