排课(调课)系统课时表数据自动形成T-SQL代码

CREATE TABLE [dbo].[课时表] ( --课时表形成脚本
 [第几周] [int] NOT NULL ,
 [星期几] [int] NULL ,
 [第几课时] [int] NULL
) ON [PRIMARY]

declare @r1 int,@r2 int,@r3 int
set @r1=1 --第几周
set @r2=1--星期几
set @r3=1--第几课时
while @r1<=19  --某学期有19周
begin
  set @r2=1
  while @r2<=7--一星期7天
    begin
      set @r3=1
      while @r3<=9 --天9课时
        begin
          insert into 课时表 values(@r1 ,@r2 ,@r3) --往课时表导入数据
          set @r3=@r3+1         
        end
      set @r2=@r2+1
    end
set @r1=@r1+1
end