📄 frmsubject.vb
字号:
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 课程信息(课程编号, 课程名称, 课程简称, 拼音码, 本学期课程, 教师, 开课系别, 学分) VALUES (@课程编号, @课程名称" & _
", @课程简称, @拼音码, @本学期课程, @教师, @开课系别, @学分); SELECT 课程编号, 课程名称, 课程简称, 拼音码, 本学期课程, 教师" & _
", 开课系别, 学分 FROM 课程信息 WHERE (课程编号 = @课程编号)"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程编号", System.Data.SqlDbType.Int, 4, "课程编号"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程名称", System.Data.SqlDbType.VarChar, 40, "课程名称"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程简称", System.Data.SqlDbType.VarChar, 40, "课程简称"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音码", System.Data.SqlDbType.VarChar, 6, "拼音码"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@本学期课程", System.Data.SqlDbType.VarChar, 2, "本学期课程"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@教师", System.Data.SqlDbType.VarChar, 10, "教师"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开课系别", System.Data.SqlDbType.VarChar, 30, "开课系别"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学分", System.Data.SqlDbType.Int, 4, "学分"))
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 课程信息 SET 课程编号 = @课程编号, 课程名称 = @课程名称, 课程简称 = @课程简称, 拼音码 = @拼音码, 本学期课程 = @本学" & _
"期课程, 教师 = @教师, 开课系别 = @开课系别, 学分 = @学分 WHERE (课程编号 = @Original_课程编号) AND (学分 = @O" & _
"riginal_学分 OR @Original_学分 IS NULL AND 学分 IS NULL) AND (开课系别 = @Original_开课系别 OR" & _
" @Original_开课系别 IS NULL AND 开课系别 IS NULL) AND (拼音码 = @Original_拼音码 OR @Original_" & _
"拼音码 IS NULL AND 拼音码 IS NULL) AND (教师 = @Original_教师 OR @Original_教师 IS NULL AND " & _
"教师 IS NULL) AND (本学期课程 = @Original_本学期课程) AND (课程名称 = @Original_课程名称) AND (课程简称 " & _
"= @Original_课程简称); SELECT 课程编号, 课程名称, 课程简称, 拼音码, 本学期课程, 教师, 开课系别, 学分 FROM 课程信息 W" & _
"HERE (课程编号 = @课程编号)"
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程编号", System.Data.SqlDbType.Int, 4, "课程编号"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程名称", System.Data.SqlDbType.VarChar, 40, "课程名称"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@课程简称", System.Data.SqlDbType.VarChar, 40, "课程简称"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音码", System.Data.SqlDbType.VarChar, 6, "拼音码"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@本学期课程", System.Data.SqlDbType.VarChar, 2, "本学期课程"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@教师", System.Data.SqlDbType.VarChar, 10, "教师"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开课系别", System.Data.SqlDbType.VarChar, 30, "开课系别"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@学分", System.Data.SqlDbType.Int, 4, "学分"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程编号", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学分", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学分", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开课系别", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开课系别", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音码", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_教师", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "教师", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_本学期课程", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "本学期课程", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程名称", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程简称", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程简称", System.Data.DataRowVersion.Original, Nothing))
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "DELETE FROM 课程信息 WHERE (课程编号 = @Original_课程编号) AND (学分 = @Original_学分 OR @Origina" & _
"l_学分 IS NULL AND 学分 IS NULL) AND (开课系别 = @Original_开课系别 OR @Original_开课系别 IS NUL" & _
"L AND 开课系别 IS NULL) AND (拼音码 = @Original_拼音码 OR @Original_拼音码 IS NULL AND 拼音码 IS" & _
" NULL) AND (教师 = @Original_教师 OR @Original_教师 IS NULL AND 教师 IS NULL) AND (本学期课程" & _
" = @Original_本学期课程) AND (课程名称 = @Original_课程名称) AND (课程简称 = @Original_课程简称)"
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程编号", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_学分", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "学分", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_开课系别", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "开课系别", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音码", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_教师", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "教师", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_本学期课程", System.Data.SqlDbType.VarChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "本学期课程", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程名称", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_课程简称", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "课程简称", System.Data.DataRowVersion.Original, Nothing))
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=cs;persis" & _
"t security info=False;initial catalog=eisbook"
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
'
'frmSubject
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(608, 277)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "frmSubject"
Me.Controls.SetChildIndex(Me.GroupBox1, 0)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub#End Region Public Overrides Sub Prepare()
Me.Text = "课程信息维护"
Me.Label1.Text = "课程编号"
Me.Label2.Text = "课程名称"
Me.Label3.Text = " 拼音码"
Dim dtTemp As DataTable = New DataTable
dtTemp.Columns.Add("display")
dtTemp.Columns.Add("value")
Dim dr As DataRow
dr = dtTemp.NewRow
dr(0) = "是"
dr(1) = "Y"
dtTemp.Rows.Add(dr)
dr = dtTemp.NewRow
dr(0) = "否"
dr(1) = "N"
dtTemp.Rows.Add(dr)
Me.cbbSubject.DataSource = dtTemp.DefaultView
Me.cbbSubject.DisplayMember = "display"
Me.cbbSubject.ValueMember = "value"
End Sub Public Overrides Sub LoadData()
Dim strFilter As String
If txbOne.Text.Trim.Length = 0 Then
If txbTwo.Text.Trim.Length = 0 Then
If txbThree.Text.Trim.Length = 0 Then
strFilter = ""
Else
strFilter = "where 拼音码 like '"
strFilter += txbThree.Text.Trim + "%'"
End If
Else
strFilter = "where 课程名称 like '"
strFilter += txbTwo.Text.Trim + "%'"
If txbThree.Text.Trim.Length <> 0 Then
strFilter += " and 拼音码 like '"
strFilter += txbThree.Text.Trim + "%'"
End If
End If
Else
strFilter = "where 课程编号 like '"
strFilter += txbOne.Text.Trim + "%'"
If txbTwo.Text.Trim.Length <> 0 Then
strFilter += " and 课程名称 like '"
strFilter += txbTwo.Text.Trim + "%'"
If txbThree.Text.Trim.Length <> 0 Then
strFilter += " and 拼音码 like '"
strFilter += txbThree.Text.Trim + "%'"
End If
Else
If txbThree.Text.Trim.Length <> 0 Then
strFilter += " and 拼音码 like '"
strFilter += txbThree.Text.Trim + "%'"
End If
End If
End If
'清空DataSet11
DataSet11.Clear()
SqlConnection1.ConnectionString = DataBase.sConn
Dim strSQL As String
SqlDataAdapter1.SelectCommand.CommandText _
= "select * from 课程信息 " + strFilter
'根据查询条件重新填充DataSet11
SqlDataAdapter1.Fill(DataSet11)
dtData = DataSet11.Tables("课程信息")
bmData = Me.BindingContext(DataSet11, "课程信息")
If bmData.Count <> 0 Then
bmData.Position = 0
End If
End Sub Public Overrides Sub SetDataGrid()
LoadData()
'定义一个DataGrid表样式
Dim ts As New DataGridTableStyle
Dim aColumnTextColumn As DataGridTextBoxColumn
Dim numCols As Integer = dtData.Columns.Count
Dim i As Integer
For i = 0 To numCols - 1
aColumnTextColumn = New DataGridTextBoxColumn
aColumnTextColumn.MappingName = _
dtData.Columns(i).ColumnName
aColumnTextColumn.HeaderText = _
dtData.Columns(i).ColumnName
aColumnTextColumn.NullText = ""
aColumnTextColumn.ReadOnly = True
ts.GridColumnStyles.Add(aColumnTextColumn)
Next
ts.AlternatingBackColor = Color.LightGray
ts.AllowSorting = False
ts.MappingName = dtData.TableName
dgdList.TableStyles.Clear()
dgdList.TableStyles.Add(ts)
Dim dv As DataView = dtData.DefaultView
dv.AllowNew = False
dv.AllowDelete = False
'dv.AllowEdit = False
'设置数据源
dgdList.DataSource = dtData.DefaultView
bmData = Me.BindingContext(DataSet11, "课程信息")
lblCount.Text = "记录数:" + dtData.Rows.Count.ToString()
End Sub Public Overrides Sub SetTextBoxState(ByVal bState As Boolean)
Me.GroupBox1.Enabled = Not bState
End Sub
Public Overrides Sub Clear() Me.txbCourseId.Text = ""
Me.txbCourseName.Text = ""
Me.txbCourseSName.Text = ""
Me.txbCreditHour.Text = ""
Me.txbDept.Text = ""
Me.txbPY.Text = ""
Me.txbTeacher.Text = ""
End Sub Public Overrides Sub SaveForAdd()
Dim dr As DataRow = DataSet11.Tables("课程信息").NewRow()
Try
dr("课程编号") = Me.txbCourseId.Text.Trim
dr("课程名称") = Me.txbCourseName.Text.Trim
dr("课程简称") = Me.txbCourseSName.Text.Trim
dr("拼音码") = Me.txbPY.Text.Trim
dr("教师") = Me.txbTeacher.Text.Trim
dr("开课系别") = Me.txbDept.Text.Trim
dr("学分") = Me.txbCreditHour.Text.Trim
dr("本学期课程") = Me.cbbSubject.SelectedValue
Catch ex As Exception
MessageBox.Show("数据格式不正确！")
Exit Sub
End Try
Try
DataSet11.Tables("课程信息").Rows.Add(dr)
If Me.DataSet11.HasChanges = True Then
SqlDataAdapter1.Update(DataSet11)
End If
Catch ex As Exception
MessageBox.Show("数据添加失败!")
End Try
LoadData()
dgdList.DataSource = dtData.DefaultView
End Sub Public Overrides Sub DeleteData()
Try
'删除当前行的数据
DataSet11.Tables("课程信息"). _
Rows(bmData.Position).Delete()
If Me.DataSet11.HasChanges = True Then
'更新DataSet11
SqlDataAdapter1.Update(DataSet11)
End If
Catch ex As Exception
MessageBox.Show("数据删除失败!")
End Try
End Sub Public Overrides Sub SaveForUpdate()
Try
Dim row As Integer
row = dgdList.CurrentCell.RowNumber
dgdList.CurrentCell = _
New DataGridCell((row + 1) Mod bmData.Count, 0)
'判断是否有更新的数据
If Me.DataSet11.HasChanges = True Then
SqlDataAdapter1.Update(DataSet11)
End If
Catch ex As Exception
MessageBox.Show("数据修改失败!")
End Try
End SubEnd Class⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -