📄 宿舍纪律.vb
字号:
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("栋号", System.Data.OleDb.OleDbType.VarWChar, 50, "栋号"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("房号", System.Data.OleDb.OleDbType.VarWChar, 50, "房号"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("时间", System.Data.OleDb.OleDbType.VarWChar, 50, "时间"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("扣分", System.Data.OleDb.OleDbType.VarWChar, 50, "扣分"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("原因", System.Data.OleDb.OleDbType.VarWChar, 50, "原因"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 50, "备注"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT 栋号, 房号, 时间, 扣分, 原因, 备注 FROM 宿舍纪律 ORDER BY 时间 DESC, 栋号, 房号"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE 宿舍纪律 SET 栋号 = ?, 房号 = ?, 时间 = ?, 扣分 = ?, 原因 = ?, 备注 = ? WHERE (房号 = ?) AND" & _
" (时间 = ?) AND (栋号 = ?) AND (原因 = ? OR ? IS NULL AND 原因 IS NULL) AND (备注 = ? OR ?" & _
" IS NULL AND 备注 IS NULL) AND (扣分 = ? OR ? IS NULL AND 扣分 IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("栋号", System.Data.OleDb.OleDbType.VarWChar, 50, "栋号"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("房号", System.Data.OleDb.OleDbType.VarWChar, 50, "房号"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("时间", System.Data.OleDb.OleDbType.VarWChar, 50, "时间"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("扣分", System.Data.OleDb.OleDbType.VarWChar, 50, "扣分"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("原因", System.Data.OleDb.OleDbType.VarWChar, 50, "原因"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 50, "备注"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_房号", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "房号", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_时间", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "时间", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_栋号", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "栋号", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_原因", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "原因", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_原因1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "原因", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_扣分", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "扣分", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_扣分1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "扣分", System.Data.DataRowVersion.Original, Nothing))
'
'宿舍纪律
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.Color.Silver
Me.ClientSize = New System.Drawing.Size(704, 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.Da1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub 宿舍纪律_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
OleDbDataAdapter1.SelectCommand.CommandText = "select * from 宿舍纪律"
Da1.Clear()
OleDbDataAdapter1.Fill(Da1)
Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Conn As New System.Data.OleDb.OleDbConnection
Dim Cmd As New System.Data.OleDb.OleDbCommand
Dim DataReader As System.Data.OleDb.OleDbDataReader
Try
Conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=学生公寓管理系统.mdb"
Conn.Open()
Cmd.CommandText = "Select Distinct 栋号 from 房源库 order by 栋号"
Cmd.Connection = Conn
DataReader = Cmd.ExecuteReader
While DataReader.Read()
ComboBox1.Items.Add(DataReader.Item(0))
ComboBox4.Items.Add(DataReader.Item(0))
End While
DataReader.Close()
Conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
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 宿舍纪律"
Da1.Clear()
OleDbDataAdapter1.Fill(Da1)
Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
Catch ex As Exception
MsgBox(ex.Message)
End Try
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
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(Da1, "宿舍纪律").AddNew()
Button1.Text = "确定"
Button2.Enabled = False
Button3.Enabled = False
Button6.Enabled = False
Button8.Enabled = False
Else
If Button1.Text <> "确定" Then
Exit Sub
End If
Me.BindingContext(Da1, "宿舍纪律").EndCurrentEdit()
OleDbDataAdapter1.Update(Da1.宿舍纪律)
MsgBox("添加成功!")
Button1.Text = "添加"
Button2.Enabled = True
Button3.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
Da1.宿舍纪律.Rows(Me.BindingContext(Da1, "宿舍纪律").Position).Delete()
OleDbDataAdapter1.Update(Da1.宿舍纪律)
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(Da1, "宿舍纪律").EndCurrentEdit()
OleDbDataAdapter1.Update(Da1.宿舍纪律)
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(Da1, "宿舍纪律").CancelCurrentEdit()
Button1.Text = "添加"
Button2.Enabled = True
Button3.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 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(ComboBox4.Text) & "%'"
ComStr &= "and 房号 like '" & Trim(ComboBox3.Text) & "%'"
ComStr &= "and 时间 like '" & "%" & Trim(TextBox8.Text) & "%'"
ComStr &= "and 扣分 like '" & "%" & Trim(TextBox7.Text) & "%'"
ComStr &= "and 原因 like '" & "%" & Trim(TextBox6.Text) & "%'"
If Trim(TextBox5.Text) <> "" Then
ComStr &= "and 备注 like '" & "%" & Trim(TextBox5.Text) & "%'"
End If
OleDbDataAdapter1.SelectCommand.CommandText = ComStr
Da1.Clear()
OleDbDataAdapter1.Fill(Da1)
Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
Catch ex As Exception
MsgBox("没有您要查询的数据!")
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub ComboBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ComboBox1.Validating
If ComboBox1.Text = "" Then
Exit Sub
End If
Dim Conn As New System.Data.OleDb.OleDbConnection
Dim Cmd As New System.Data.OleDb.OleDbCommand
Dim DataReader As System.Data.OleDb.OleDbDataReader
Dim ComString As String
ComString = "Select Distinct 房号 from 房源库 Where 栋号=" & "'" & ComboBox1.Text & "'" & "order by 房号"
Try
Conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=学生公寓管理系统.mdb"
Conn.Open()
Cmd.CommandText = ComString
Cmd.Connection = Conn
DataReader = Cmd.ExecuteReader
DataReader.Read()
ComboBox2.Items.Clear()
While DataReader.Read()
ComboBox2.Items.Add(DataReader.Item(0))
End While
DataReader.Close()
Conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
End Sub
Private Sub ComboBox4_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ComboBox4.Validating
If ComboBox4.Text = "" Then
Exit Sub
End If
Dim Conn As New System.Data.OleDb.OleDbConnection
Dim Cmd As New System.Data.OleDb.OleDbCommand
Dim DataReader As System.Data.OleDb.OleDbDataReader
Dim ComString As String
ComString = "Select Distinct 房号 from 房源库 Where 栋号=" & "'" & ComboBox4.Text & "'" & "order by 房号"
Try
Conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=学生公寓管理系统.mdb"
Conn.Open()
Cmd.CommandText = ComString
Cmd.Connection = Conn
DataReader = Cmd.ExecuteReader
DataReader.Read()
ComboBox3.Items.Clear()
While DataReader.Read()
ComboBox3.Items.Add(DataReader.Item(0))
End While
DataReader.Close()
Conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -