frmmaintain.vb

图书馆管理系统原代码

        Me.Button2.Text = "确定"
        '
        'Button1
        '
        Me.Button1.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.ForeColor = System.Drawing.Color.Blue
        Me.Button1.Location = New System.Drawing.Point(272, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "更新"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.NumericUpDown1, Me.ComboBox1, Me.Label2, Me.Label1})
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox2.Location = New System.Drawing.Point(3, 17)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(402, 103)
        Me.GroupBox2.TabIndex = 0
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "借书数量参数设置"
        '
        'NumericUpDown1
        '
        Me.NumericUpDown1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.NumericUpDown1.Location = New System.Drawing.Point(136, 64)
        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {50, 0, 0, 0})
        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.NumericUpDown1.Name = "NumericUpDown1"
        Me.NumericUpDown1.Size = New System.Drawing.Size(168, 21)
        Me.NumericUpDown1.TabIndex = 3
        Me.NumericUpDown1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        Me.NumericUpDown1.Value = New Decimal(New Integer() {1, 0, 0, 0})
        '
        'ComboBox1
        '
        Me.ComboBox1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.ComboBox1.Items.AddRange(New Object() {"专科生", "本科生", "硕士生", "博士生", "助教", "讲师", "副教授", "教授"})
        Me.ComboBox1.Location = New System.Drawing.Point(136, 32)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(168, 20)
        Me.ComboBox1.TabIndex = 2
        Me.ComboBox1.Text = "本科生"
        '
        'Label2
        '
        Me.Label2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left)
        Me.Label2.ForeColor = System.Drawing.Color.Navy
        Me.Label2.Location = New System.Drawing.Point(16, 64)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(96, 24)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "借阅数量"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label1
        '
        Me.Label1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left)
        Me.Label1.ForeColor = System.Drawing.Color.Navy
        Me.Label1.Location = New System.Drawing.Point(16, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "读者类型"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'frmMaintain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(408, 349)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1})
        Me.Name = "frmMaintain"
        Me.Text = "数据字典设置"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public sqlstr As String
    Public ReadDS As DataSet

    Private ReadOnly Property MyLends(ByVal index As Integer) As OnceLends
        Get
            If index >= 0 Then
                Dim RS As String
                Me.ComboBox1.SelectedIndex = index
                RS = Trim(Me.ComboBox1.SelectedItem.ToString)
                sqlstr = "SELECT * FROM OnceLends WHERE ReaderStyle='" & RS & "'"
                ReadDS = New DataSet()
                ReadDS.Clear()
                ReadDS = GetDataFromDB(sqlstr)
                MyLends.LendBooks = CInt(ReadDS.Tables(0).Rows(0)("LendBooks"))
                MyLends.ReadStyle = Trim(ReadDS.Tables(0).Rows(0)("ReaderStyle"))
                Return MyLends
            End If
        End Get
    End Property

    Private Sub frmMaintain_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.SelectedIndex = 1
        Me.ComboBox1.Text = MyLends(1).ReadStyle
        Me.NumericUpDown1.Value = MyLends(1).LendBooks
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim index As Integer = Me.ComboBox1.SelectedIndex
        If index >= 0 Then
            Me.NumericUpDown1.Value = MyLends(index).LendBooks
        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        If Me.GroupBox2.Enabled = True Then
            Dim RS As String
            RS = Trim(Me.ComboBox1.SelectedItem.ToString)
            Dim num As Integer = Me.NumericUpDown1.Value
            sqlstr = "UPDATE OnceLends SET LendBooks='" & num & _
            "' WHERE ReaderStyle='" & RS & "'"
        End If
        If Me.GroupBox4.Enabled = True Then
            Dim Fine As Dictionary
            Fine = GetFine
            If Fine.ISBN = "" Then
                Exit Sub
            End If
            sqlstr = "UPDATE BookInfo SET FineBase='" & Fine.FineBase & "'," & _
            "FineMulti='" & Fine.FineMulti & "',FineFactor=" & _
            "'" & Fine.FineFactor & "' WHERE ISBN='" & Trim(Me.TextBox1.Text) & "'"
            UpdateDataBase(sqlstr)
            sqlstr = "UPDATE Dictionary SET FineBase='" & Fine.FineBase & "'," & _
            "FineMulti='" & Fine.FineMulti & "',FineFactor=" & _
            "'" & Fine.FineFactor & "' WHERE ISBN='" & Trim(Me.TextBox1.Text) & "'"
        End If

        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功更新了数据字典数据。", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新成功")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            If Trim(Me.TextBox1.Text) <> "" Then
                sqlstr = "SELECT FineBase,FineMulti,FineFactor FROM BookInfo " & _
                "WHERE ISBN='" & Trim(Me.TextBox1.Text) & "'"
                ReadDS = New DataSet()
                ReadDS.Clear()
                ReadDS = GetDataFromDB(sqlstr)
                If ReadDS Is Nothing Then
                    MsgBox("找不到该图书记录。", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Critical, "无此图书")
                Else
                    Me.TextBox2.Text = ReadDS.Tables(0).Rows(0)("FineBase")
                    Me.TextBox3.Text = ReadDS.Tables(0).Rows(0)("FineMulti")
                    Me.TextBox4.Text = ReadDS.Tables(0).Rows(0)("FineFactor")
                End If
            End If
        End If
    End Sub

    Private ReadOnly Property GetFine() As Dictionary
        Get
            Dim myFine As New Dictionary()
            myFine.ISBN = Trim(Me.TextBox1.Text)
            myFine.FineBase = CDbl(Me.TextBox2.Text)
            myFine.FineMulti = CDbl(Me.TextBox3.Text)
            myFine.FineFactor = CDbl(Me.TextBox4.Text)
            Return myFine
        End Get
    End Property

End Class