📄 form3.vb
字号:
str = conn()
oconn = New SqlClient.SqlConnection(str)
Dim i As Integer
i = bindpage.Position
oconn.Open()
Try
objds.Tables(0).Rows(bindpage.Position).BeginEdit()
Catch ex As Exception
MessageBox.Show("该表无记录或新增记录请注销！")
End Try
strsql = "update xs set name='" & TextBox1.Text & "',class='" & ComboBox2.Text & "',sex='" & ComboBox1.SelectedItem & "',number='" & TextBox4.Text & "',jianjie='" & RichTextBox1.Text & "'where xuhao='" & TextBox6.Text & "'"
ocmd = New SqlClient.SqlCommand(strsql, oconn)
ocmd.ExecuteNonQuery()
objds.Tables(0).Rows(bindpage.Position).EndEdit()
objds.Tables(0).Rows(i).AcceptChanges()
oconn.Close()
End If
bindpage.Position = i
n = 0
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
MessageBox.Show("记录修改成功！")
RichTextBox1.Text = rtextbox
save.Enabled = False
Button8.Enabled = False
TextBox5.Text = bindpage.Count
TextBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox1.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
RichTextBox1.Enabled = False
g = 0
Case 4
Dim oconn As SqlClient.SqlConnection
Dim ocmd As SqlClient.SqlCommand
Dim str As String
Dim strsql As String
str = conn()
oconn = New SqlClient.SqlConnection(str)
oconn.Open()
strsql = "delete from xs where name='" & TextBox1.Text & "'"
ocmd = New SqlClient.SqlCommand(strsql, oconn)
ocmd.ExecuteNonQuery()
Try
objds.Tables("xs").Rows(bindpage.Position).Delete()
Catch ex As Exception
MessageBox.Show("该表无记录！")
End Try
objds.Tables("xs").AcceptChanges()
objda.Update(objds, "xs")
oconn.Close()
MessageBox.Show("删除成功！")
n = 0
TextBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox1.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
save.Enabled = False
Button8.Enabled = False
TextBox5.Text = (bindpage.Count)
n = 0
Button12.Enabled = True
Button13.Enabled = True
Button15.Enabled = False
RichTextBox1.Enabled = False
End Select
Button18.Enabled = False
End Sub
Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Select Case n
Case 2
bindpage.RemoveAt(bindpage.Position)
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
save.Enabled = False
Button8.Enabled = False
RichTextBox1.Enabled = False
bindpage.Position = i
i = 0
TextBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox1.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox5.Text = (bindpage.Count)
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
With PictureBox1 '显示 Image
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
ms2.Close()
Label1.Text = TextBox1.Text
Case 3
TextBox1.Text = text1 '还原以前得到的ｔｅｘｔ内容
ComboBox2.Text = text2
ComboBox1.SelectedItem = combobox
TextBox4.Text = text4
RichTextBox1.Text = richtextbox
Dim i As Integer
i = bindpage.Position
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
save.Enabled = False
Button8.Enabled = False
RichTextBox1.Enabled = False
bindpage.Position = i
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
With PictureBox1 '显示 Image
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
i = 0
TextBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox1.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
Case 4
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
save.Enabled = False
Button8.Enabled = False
RichTextBox1.Enabled = False
bindpage.Position = i '指针回到以前定位的地方
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
With PictureBox1 '显示 Image
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
i = 0 '复位指针ｉ
TextBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox1.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
n = 0 '复位指针ｎ
End Select
Button12.Enabled = True
Button13.Enabled = True
Button15.Enabled = False
Button18.Enabled = False
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Close()
Form9.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Me.BindingContext(objds.Tables(0)).Position = bindpage.Position - 1
If bindpage.Position = 0 Then
MessageBox.Show("已到第一条记录！")
Else
bindpage.Position = bindpage.Position - 1
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
'显示 Image
With PictureBox1
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
ms2.Close()
Label1.Text = TextBox1.Text
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form5.Show()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Form6.Show()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Form7.Show()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
bindpage.Position = 0
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
With PictureBox1 '显示 Image
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
ms2.Close()
Label1.Text = TextBox1.Text
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
bindpage.Position = bindpage.Count - 1
Dim arrPicture() As Byte = CType(objds.Tables(0).Rows(bindpage.Position)("photo"), Byte())
Dim ms2 As New IO.MemoryStream(arrPicture)
With PictureBox1 '显示 Image
.Image = Image.FromStream(ms2)
.BorderStyle = BorderStyle.Fixed3D
End With
ms2.Close()
Label1.Text = TextBox1.Text
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
g = 1 '判定更新操作的指针
End If
End Sub
Private Sub Button14_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim aryfilename() As String = Split(OpenFileDialog1.FileName, "\")
Array.Reverse(aryfilename)
Dim ms1 As New IO.MemoryStream
PictureBox1.Image.Save(ms1, PictureBox1.Image.RawFormat)
Dim arrimage() As Byte = ms1.GetBuffer
ms1.Close()
Dim conn2 As New SqlClient.SqlConnection("Data Source=x34;" & "Initial Catalog=student;" & "User ID=sa;" & "Password=;")
Dim sql1 As New SqlClient.SqlCommand("insert into xs(photo) values(@imagedata)", conn2)
Dim para1 As New SqlParameter
para1 = sql1.Parameters.Add("@imagedata", SqlDbType.Image)
sql1.Parameters("@imagedata").Value = arrimage
conn2.Open()
sql1.ExecuteNonQuery()
conn2.Close()
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Form8.Show()
Me.Close()
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.ForeColor = Color.Yellow
Timer1.Interval = 1200
If Label2.ForeColor = Color.Yellow Then
Timer1.Enabled = False
Timer2.Enabled = True
Label2.ForeColor = Color.Red
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.ForeColor = Color.Yellow
If Label2.ForeColor = Color.Yellow Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
' OpenFileDialog2.Filter = "txt"
If OpenFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(OpenFileDialog2.FileName, RichTextBoxStreamType.PlainText)
End If
End Sub
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
Public Sub change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter, Button2.MouseEnter, Button3.MouseEnter, Button4.MouseEnter, Button5.MouseEnter, Button6.MouseEnter, Button8.MouseEnter, Button9.MouseEnter, Button10.MouseEnter, Button11.MouseEnter, Button12.MouseEnter, Button13.MouseEnter, Button15.MouseEnter, Button16.MouseEnter, Button17.MouseEnter, Button18.MouseEnter, save.MouseEnter
sender.backcolor = Color.GreenYellow
PlaySoundFromResource()
End Sub
Public Sub change2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave, Button4.MouseLeave, Button5.MouseLeave, Button6.MouseLeave, Button8.MouseLeave, Button9.MouseLeave, Button10.MouseLeave, Button11.MouseLeave, Button12.MouseLeave, Button13.MouseLeave, Button15.MouseLeave, Button16.MouseLeave, Button17.MouseLeave, Button18.MouseLeave, save.MouseLeave
sender.backcolor = Color.White
End Sub
Public Sub click_sound(ByVal sender As System.Object, ByVal e As Windows.Forms.MouseEventArgs) Handles Button1.MouseDown, Button2.MouseDown, Button3.MouseDown, Button4.MouseDown, Button5.MouseDown, Button6.MouseDown, Button8.MouseDown, Button9.MouseDown, Button10.MouseDown, Button11.MouseDown, Button12.MouseDown, Button13.MouseDown, Button15.MouseDown, Button16.MouseDown, Button17.MouseDown, Button18.MouseDown, save.MouseDown
PlaySoundFromResource()
End Sub
Sub PlaySoundFromResource() '播放点击button的声音
Dim sndPing As New Media.SoundPlayer(My.Resources.click)
sndPing.Play()
End Sub
End Class⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -