个人纪律管理.vb

一个功能强大的学生公寓管理系统 界面非常友好 十分强大

        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(48, 128)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(88, 21)
        Me.TextBox8.TabIndex = 4
        Me.TextBox8.Text = ""
        '
        'Label10
        '
        Me.Label10.AutoSize = True
        Me.Label10.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label10.Location = New System.Drawing.Point(160, 128)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(39, 22)
        Me.Label10.TabIndex = 26
        Me.Label10.Text = "备注"
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(208, 88)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(88, 21)
        Me.TextBox9.TabIndex = 3
        Me.TextBox9.Text = ""
        '
        'Label11
        '
        Me.Label11.AutoSize = True
        Me.Label11.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label11.Location = New System.Drawing.Point(160, 88)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(39, 22)
        Me.Label11.TabIndex = 24
        Me.Label11.Text = "原因"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(48, 88)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(88, 21)
        Me.TextBox10.TabIndex = 2
        Me.TextBox10.Text = ""
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label12.Location = New System.Drawing.Point(8, 88)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(39, 22)
        Me.Label12.TabIndex = 22
        Me.Label12.Text = "扣分"
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(208, 48)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(88, 21)
        Me.TextBox11.TabIndex = 1
        Me.TextBox11.Text = ""
        '
        'Label13
        '
        Me.Label13.AutoSize = True
        Me.Label13.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label13.Location = New System.Drawing.Point(160, 48)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(39, 22)
        Me.Label13.TabIndex = 20
        Me.Label13.Text = "姓名"
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(48, 48)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.Size = New System.Drawing.Size(88, 21)
        Me.TextBox12.TabIndex = 0
        Me.TextBox12.Text = ""
        '
        'Label14
        '
        Me.Label14.AutoSize = True
        Me.Label14.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label14.Location = New System.Drawing.Point(8, 48)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(39, 22)
        Me.Label14.TabIndex = 18
        Me.Label14.Text = "学号"
        '
        '个人纪律管理
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.Silver
        Me.ClientSize = New System.Drawing.Size(696, 441)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.DataGrid1)
        Me.MaximizeBox = False
        Me.Name = "个人纪律管理"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "个人纪律管理"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Ds1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub 个人纪律管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            OleDbDataAdapter1.SelectCommand.CommandText = "select * from 个人纪律"
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If Button1.Text = "添加" Then
                Me.BindingContext(Ds1, "个人纪律").AddNew()
                Button1.Text = "确定"
                Button2.Enabled = False
                Button3.Enabled = False
                Button5.Enabled = False
                Button6.Enabled = False
                Button8.Enabled = False


            Else
                If Button1.Text <> "确定" Then
                    Exit Sub
                End If
                Me.BindingContext(Ds1, "个人纪律").EndCurrentEdit()
                OleDbDataAdapter1.Update(Ds1.个人纪律)
                MsgBox("添加成功!")
                Button1.Text = "添加"
                Button2.Enabled = True
                Button3.Enabled = True
                Button5.Enabled = True
                Button6.Enabled = True
                Button8.Enabled = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            If MsgBox("你真的要删除此记录吗?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                Me.BindingContext(Ds1, "个人纪律").EndCurrentEdit()
                OleDbDataAdapter1.Update(Ds1.个人纪律)
            Else
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Me.BindingContext(Ds1, "个人纪律").EndCurrentEdit()
            OleDbDataAdapter1.Update(Ds1.个人纪律)
            MsgBox("更改成功!")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(Ds1, "个人纪律").CancelCurrentEdit()
        Button1.Text = "添加"
        Button2.Enabled = True
        Button3.Enabled = True
        Button5.Enabled = True
        Button6.Enabled = True
        Button8.Enabled = True

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Try
            OleDbDataAdapter1.SelectCommand.CommandText = "select * from 个人纪律"
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Try
            Dim ComStr As String
            ComStr = "select * from 个人纪律 where "
            ComStr &= "学号 like " & "'" & Trim(TextBox12.Text) & "%" & "'"
            ComStr &= "and 姓名 like " & "'" & "%" & Trim(TextBox11.Text) & "%" & "'"
            ComStr &= "and 扣分 like " & "'" & Trim(TextBox10.Text) & "%" & "'"
            ComStr &= "and 原因 like " & "'" & "%" & Trim(TextBox9.Text) & "%" & "'"
            ComStr &= "and 时间 like " & "'" & Trim(TextBox8.Text) & "%" & "'"
            If Trim(TextBox7.Text) <> "" Then
                ComStr &= "and 备注 like " & "'" & "%" & Trim(TextBox7.Text) & "%" & "'"
            End If

            OleDbDataAdapter1.SelectCommand.CommandText = ComStr
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)

        Catch ex As Exception
            MsgBox("没有您需要的数据!")
        End Try


    End Sub
End Class