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