📄 form3.vb
字号:
'Label1
'
Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label1.ForeColor = System.Drawing.Color.DarkSalmon
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(40, 24)
Me.Label1.TabIndex = 9
Me.Label1.Text = "姓名"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(72, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(72, 21)
Me.TextBox1.TabIndex = 10
Me.TextBox1.Text = ""
'
'GroupBox6
'
Me.GroupBox6.Location = New System.Drawing.Point(8, 112)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(144, 48)
Me.GroupBox6.TabIndex = 2
Me.GroupBox6.TabStop = False
'
'GroupBox5
'
Me.GroupBox5.Location = New System.Drawing.Point(8, 56)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(144, 48)
Me.GroupBox5.TabIndex = 1
Me.GroupBox5.TabStop = False
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label6)
Me.GroupBox4.Controls.Add(Me.TextBox2)
Me.GroupBox4.Location = New System.Drawing.Point(8, 0)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(144, 48)
Me.GroupBox4.TabIndex = 0
Me.GroupBox4.TabStop = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label6.ForeColor = System.Drawing.Color.DarkSalmon
Me.Label6.Location = New System.Drawing.Point(8, 24)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(48, 16)
Me.Label6.TabIndex = 5
Me.Label6.Text = "IC卡号"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(56, 16)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(80, 21)
Me.TextBox2.TabIndex = 6
Me.TextBox2.Text = ""
'
'GroupBox13
'
Me.GroupBox13.Controls.Add(Me.Label4)
Me.GroupBox13.Controls.Add(Me.ComboBox1)
Me.GroupBox13.Location = New System.Drawing.Point(160, 112)
Me.GroupBox13.Name = "GroupBox13"
Me.GroupBox13.Size = New System.Drawing.Size(168, 48)
Me.GroupBox13.TabIndex = 7
Me.GroupBox13.TabStop = False
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label4.ForeColor = System.Drawing.Color.DarkSalmon
Me.Label4.Location = New System.Drawing.Point(16, 24)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 16)
Me.Label4.TabIndex = 18
Me.Label4.Text = "旷课"
'
'ComboBox1
'
Me.ComboBox1.Items.AddRange(New Object() {"否", "是"})
Me.ComboBox1.Location = New System.Drawing.Point(72, 16)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(80, 20)
Me.ComboBox1.Sorted = True
Me.ComboBox1.TabIndex = 24
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.Button4)
Me.GroupBox2.Location = New System.Drawing.Point(8, 232)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(232, 168)
Me.GroupBox2.TabIndex = 42
Me.GroupBox2.TabStop = False
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "学生考勤信息表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("IC卡号", "IC卡号"), New System.Data.Common.DataColumnMapping("班级", "班级"), New System.Data.Common.DataColumnMapping("学号", "学号"), New System.Data.Common.DataColumnMapping("姓名", "姓名"), New System.Data.Common.DataColumnMapping("上课时间", "上课时间"), New System.Data.Common.DataColumnMapping("下课时间", "下课时间"), New System.Data.Common.DataColumnMapping("旷课", "旷课"), New System.Data.Common.DataColumnMapping("出勤次数", "出勤次数"), New System.Data.Common.DataColumnMapping("日期", "日期")})})
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
'
'DataGrid1
'
Me.DataGrid1.DataMember = ""
Me.DataGrid1.DataSource = Me.DataSet11.学生考勤信息表
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(32, 16)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(584, 200)
Me.DataGrid1.TabIndex = 43
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT IC卡号, 班级, 学号, 姓名, 上课时间, 下课时间, 旷课, 出勤次数, 日期 FROM 学生考勤信息表"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 学生考勤信息表(IC卡号, 班级, 学号, 姓名, 上课时间, 下课时间, 旷课, 出勤次数, 日期) VALUES (@IC卡号, @班" & _
"级, @学号, @姓名, @上课时间, @下课时间, @旷课, @出勤次数, @日期); SELECT IC卡号, 班级, 学号, 姓名, 上课时间, 下课时间" & _
", 旷课, 出勤次数, 日期 FROM 学生考勤信息表"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IC卡号", System.Data.SqlDbType.VarChar, 50, "IC卡号"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班级", System.Data.SqlDbType.VarChar, 50, "班级"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学号", System.Data.SqlDbType.VarChar, 50, "学号"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 50, "姓名"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@上课时间", System.Data.SqlDbType.VarChar, 50, "上课时间"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@下课时间", System.Data.SqlDbType.VarChar, 50, "下课时间"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@旷课", System.Data.SqlDbType.VarChar, 50, "旷课"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@出勤次数", System.Data.SqlDbType.VarChar, 50, "出勤次数"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@日期", System.Data.SqlDbType.VarChar, 50, "日期"))
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=levono20;packet size=4096;user id=sa;data source=levono20;persist " & _
"security info=False;initial catalog=zjs"
'
'Form3
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.Color.DodgerBlue
Me.ClientSize = New System.Drawing.Size(664, 453)
Me.Controls.Add(Me.DataGrid1)
Me.Controls.Add(Me.ComboBox4)
Me.Controls.Add(Me.ComboBox3)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ComboBox5)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.GroupBox14)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GroupBox2)
Me.Name = "Form3"
Me.Text = "考勤信息管理"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox13.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Update()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "insert into 学生考勤信息表 (IC卡号,姓名,班级,学号) values('" & TextBox2.Text & "','" & TextBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "')"
SqlCommand1.ExecuteNonQuery()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "insert into 学生信息表 (IC卡号,姓名,班级,学号) values('" & TextBox2.Text & "','" & TextBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "')"
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Update()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Form7 As New Form7
Form7.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "delete from 学生考勤信息表 where 姓名='" & TextBox1.Text & "'or 班级='" & ComboBox2.Text & "'or 学号='" & ComboBox3.Text & "'or IC卡号='" & TextBox2.Text & "'or 日期='" & ComboBox5.Text & "'"
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Update()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "delete from 查询项"
SqlCommand1.ExecuteNonQuery()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "insert into 查询项 select * from 学生考勤信息表 where 姓名='" & TextBox1.Text & "' or 学号='" & ComboBox3.Text & "'or 班级='" & ComboBox2.Text & "'or IC卡号='" & TextBox2.Text & "' or 日期='" & ComboBox5.Text & "'"
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
Dim Form6 As New Form6
Form6.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SqlConnection1.Open()
SqlCommand1.Connection = SqlConnection1
SqlCommand1.CommandText = "update 学生考勤信息表 set 出勤次数='" & ComboBox4.Text & "', 旷课='" & ComboBox1.Text & "' where 姓名='" & TextBox1.Text & "' or 学号='" & ComboBox3.Text & "'and 日期='" & ComboBox5.Text & "'or IC卡号='" & TextBox2.Text & "'"
SqlCommand1.ExecuteNonQuery()
SqlConnection1.Close()
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Update()
End Sub
Private Sub GroupBox9_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs)
End Sub
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
End Sub
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -