学生宿舍管理系统设计文档(8)

objDa.SelectCommand = objComm

Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objDa) objConn.Open()

objDa.Fill(objds, \)

objXSTable = objds.Tables(\) objConn.Close()

DataGridView1.DataSource = objXSTable End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click wherestr = \

If Trim(TextBox1.Text) <> \ Then

wherestr = \学号like'%\ & Trim(TextBox1.Text) & \ End If

objXSTable.Clear()

bindgridview(wherestr) End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim response As MsgBoxResult

response = MsgBox(\确实要添加纪录吗?\, vbOKCancel + vbQuestion, \系统提示\)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objXSTable.NewRow() myRow(\学号\) = TextBox2.Text myRow(\姓名\) = TextBox3.Text myRow(\宿舍号\) = TextBox4.Text myRow(\专业名\) = TextBox5.Text

myRow(\晚归时间\) = DateTimePicker1.Text myRow(\晚归原因\) = TextBox6.Text objXSTable.Rows.Add(myRow) refreshdata() End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim response As MsgBoxResult

response = MsgBox(\确实要修改记录吗?\, vbOKCancel + vbQuestion, \系统提示\)

If response = MsgBoxResult.Ok Then

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(0) = TextBox2.Text

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1) = TextBox3.Text

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2) = TextBox4.Text

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3) = TextBox5.Text

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4) = DateTimePicker1.Text

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(5) = TextBox6.Text

refreshdata() End If End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim response As MsgBoxResult

response = MsgBox(\确实要删除记录吗?\, vbOKCancel + vbQuestion, \系统提示\)

If response = MsgBoxResult.Ok Then

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Delete() refreshdata() End If End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick TextBox2.Text =

DataGridView1.CurrentRow.Cells.Item(0).Value.ToString TextBox3.Text =

DataGridView1.CurrentRow.Cells.Item(1).Value.ToString TextBox4.Text =

DataGridView1.CurrentRow.Cells.Item(2).Value.ToString TextBox5.Text =

DataGridView1.CurrentRow.Cells.Item(3).Value.ToString DateTimePicker1.Text =

DataGridView1.CurrentRow.Cells.Item(4).Value.ToString TextBox6.Text =

DataGridView1.CurrentRow.Cells.Item(5).Value.ToString End Sub

End Class

5) 访问管理界面为：

6) 访问管理的代码为： Public Class fwgl

Dim objds As New DataSet

Dim objXSTable As New DataTable

Dim objDa As New OleDb.OleDbDataAdapter Dim wherestr As String Public Sub refreshdata()

objDa.Update(objds, \) objXSTable.Clear()

bindgridview(wherestr) End Sub

Public Sub bindgridview(ByVal strXH As String) Dim objConn As New OleDb.OleDbConnection Dim objComm As New OleDb.OleDbCommand 'Dim wherestr As String

objConn.ConnectionString = My.Forms.Form1.DBconn

objComm.CommandText = \学号,姓名,性别,访问时间,被访问者,宿舍号,访问原因from fwb \

If Trim(strXH) <> \ Then

objComm.CommandText = objComm.CommandText & strXH End If

objComm.Connection = objConn objDa.SelectCommand = objComm

Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objDa) objConn.Open()

objDa.Fill(objds, \)

objXSTable = objds.Tables(\) objConn.Close()

DataGridView1.DataSource = objXSTable End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click wherestr = \

If Trim(TextBox1.Text) <> \ Then

wherestr = \学号like'%\ & Trim(TextBox1.Text) & \ End If

objXSTable.Clear()

bindgridview(wherestr) End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim response As MsgBoxResult

response = MsgBox(\确实要添加纪录吗?\, vbOKCancel + vbQuestion, \系统提示\)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objXSTable.NewRow() myRow(\学号\) = TextBox2.Text myRow(\姓名\) = TextBox3.Text myRow(\性别\) = ComboBox1.Text

myRow(\访问时间\) = DateTimePicker1.Text myRow(\被访问者\) = TextBox6.Text myRow(\宿舍号\) = TextBox4.Text myRow(\访问原因\) = TextBox5.Text objXSTable.Rows.Add(myRow) refreshdata() End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生宿舍管理系统设计文档(8)在线全文阅读。