set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER PROCEDURE [dbo].[OperRecordThree]
 --这里定义变量，可以通过外界依次传入参数，与变量匹配
  @File varchar(10),   --字段0
 @Operator varchar(2),--操作符0
 @Context varchar(10),--内容0
 
 @RelationOne varchar(3),--关系1
 @FileOne varchar(10), --字段1
 @OperatorOne varchar(2), --操作符1
 @ContextOne varchar(10),--内容1
 
 @RelationTwo varchar(3),--关系2
 @FIleTwo varchar(10),  --字段2
 @OperatorTwo varchar(2),--操作符2
 @ContextTwo varchar(10)--内容2
AS
 --这里定义临时变量
 DECLARE @TempSql varchar(500)
BEGIN
   --char(32)是空格，char(39)是单引号
 set @TempSql='select * from workingTeacher where '+char(32)
+@File+@Operator+char(39)+@Context+char(39)
+char(32)+@RelationOne+char(32)
+@FileOne+@OperatorOne+char(39)+@ContextOne+char(39)
+char(32)+@RelationTwo+char(32)
+@FIleTwo+@OperatorTwo+char(39)+@ContextTwo+char(39)
 --下面这一句是执行这个存储过程的语句。
 execute (@tempsql)
END

#Region "操作员工作纪律第三排记录"
    Public Function OperatorRecordThree(ByVal OperatorRec() As Entry.StuBaseInfoInq) As DataTable
        Dim sql As String = "OperRecordThree"
        Dim sqlcmd As SqlCommand = New SqlCommand(sql, con)
        Dim dt As New DataTable
        Dim dst As New DataSet
        Dim MyDataAdapter As New SqlDataAdapter
        sqlcmd.CommandType = CommandType.StoredProcedure
        '依次为存储过程的参数赋值
        sqlcmd.Parameters.Add("@File", SqlDbType.VarChar, 10).Value = OperatorRec(0).Field
        sqlcmd.Parameters.Add("@Operator", SqlDbType.VarChar, 2).Value = OperatorRec(0).Oper
        sqlcmd.Parameters.Add("@Context", SqlDbType.VarChar, 10).Value = OperatorRec(0).Context

        sqlcmd.Parameters.Add("@RelationOne", SqlDbType.VarChar, 3).Value = OperatorRec(1).Relation
        sqlcmd.Parameters.Add("@FileOne", SqlDbType.VarChar, 10).Value = OperatorRec(1).Field
        sqlcmd.Parameters.Add("@OperatorOne", SqlDbType.VarChar, 2).Value = OperatorRec(1).Oper
        sqlcmd.Parameters.Add("@ContextOne", SqlDbType.VarChar, 10).Value = OperatorRec(1).Context

        sqlcmd.Parameters.Add("@RelationTwo", SqlDbType.VarChar, 3).Value = OperatorRec(2).Relation
        sqlcmd.Parameters.Add("@FileTwo", SqlDbType.VarChar, 10).Value = OperatorRec(2).Field
        sqlcmd.Parameters.Add("@OperatorTwo", SqlDbType.VarChar, 2).Value = OperatorRec(2).Oper
        sqlcmd.Parameters.Add("@ContextTwo", SqlDbType.VarChar, 10).Value = OperatorRec(2).Context

        MyDataAdapter.SelectCommand = sqlcmd
        MyDataAdapter.Fill(dst, "workingTeacher")
        dt = dst.Tables("workingTeacher")
        con.Open()
        sqlcmd.ExecuteNonQuery().ToString()
        Return dt
        con.Close()
    End Function
#End Region