亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? 年級限制表.frm

?? VB做的排課
?? FRM
?? 第 1 頁 / 共 4 頁
字號: 
         Name            =   "宋體"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   615
      Left            =   2040
      TabIndex        =   30
      Top             =   960
      Width           =   2295
   End
End
Attribute VB_Name = "Frmgradelimit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dbcourse As DAO.Database
Dim rstgradecourse As DAO.Recordset
Dim db As DAO.Database
Dim rstmajor As DAO.Recordset
Dim rstmajorcourse As DAO.Recordset
Dim rstclasscourse As DAO.Recordset
Dim rstclass As DAO.Recordset

Option Explicit






Private Sub Cmdedit_Click()
On Error Resume Next
Label2.Caption = "系統正在處理數據，請稍等!"
Set rstgradecourse = dbcourse.OpenRecordset("select * from coursegrade")
rstgradecourse.Filter = "gradeid='" & txtgrade.Text & "'"
Set rstgradecourse = rstgradecourse.OpenRecordset()

If Chk11.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("11") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("11") = "1"
    rstgradecourse.Update
End If
If chk12.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("12") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("12") = "1"
    rstgradecourse.Update
End If
If Chk13.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("13") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("13") = "1"
    rstgradecourse.Update
End If
If Chk14.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("14") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("14") = "1"
    rstgradecourse.Update
End If
If Chk21.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("21") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("21") = "1"
    rstgradecourse.Update
End If
If Chk22.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("22") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("22") = "1"
    rstgradecourse.Update
End If
If Chk23.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("23") = "a"
    rstgradecourse.Update
 Else
    rstgradecourse.edit
    rstgradecourse.Fields("23") = "1"
    rstgradecourse.Update
End If
If Chk24.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("24") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("24") = "1"
    rstgradecourse.Update
End If
If Chk31.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("31") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("31") = "1"
    rstgradecourse.Update
End If
If Chk32.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("32") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("32") = "1"
    rstgradecourse.Update
End If
If Chk33.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("33") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("33") = "1"
    rstgradecourse.Update
End If
If Chk34.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("34") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("34") = "1"
    rstgradecourse.Update
End If
If Chk41.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("41") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("41") = "1"
    rstgradecourse.Update
    End If
If Chk42.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("42") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("42") = "1"
    rstgradecourse.Update
End If
If Chk43.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("43") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("43") = "1"
    rstgradecourse.Update
End If
If Chk44.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("44") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("44") = "1"
    rstgradecourse.Update
End If
If Chk51.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("51") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("51") = "1"
    rstgradecourse.Update
End If
If Chk52.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("52") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("52") = "1"
    rstgradecourse.Update
End If
If Chk53.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("53") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("53") = "1"
    rstgradecourse.Update
End If
If Chk54.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("54") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("54") = "1"
    rstgradecourse.Update
End If
Set rstmajor = db.OpenRecordset("select * from major")
rstmajor.Filter = "gradeid='" & txtgrade.Text & "'"
Set rstmajor = rstmajor.OpenRecordset()
rstmajor.MoveFirst
Do Until rstmajor.EOF
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
Set rstmajorcourse = rstmajorcourse.OpenRecordset()
If Chk11.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("11") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("11") = "1"
    rstmajorcourse.Update
End If
If chk12.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("12") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("12") = "1"
    rstmajorcourse.Update
End If
If Chk13.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("13") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("13") = "1"
    rstmajorcourse.Update
End If
If Chk14.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("14") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("14") = "1"
    rstmajorcourse.Update
End If
If Chk21.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("21") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("21") = "1"
    rstmajorcourse.Update
End If
If Chk22.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("22") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("22") = "1"
    rstmajorcourse.Update
End If
If Chk23.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("23") = "a"
    rstmajorcourse.Update
 Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("23") = "1"
    rstmajorcourse.Update
End If
If Chk24.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("24") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("24") = "1"
    rstmajorcourse.Update
End If
If Chk31.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("31") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("31") = "1"
    rstmajorcourse.Update
End If
If Chk32.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("32") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("32") = "1"
    rstmajorcourse.Update
End If
If Chk33.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("33") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("33") = "1"
    rstmajorcourse.Update
End If
If Chk34.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("34") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("34") = "1"
    rstmajorcourse.Update
End If
If Chk41.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("41") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("41") = "1"
    rstmajorcourse.Update
    End If
If Chk42.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("42") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("42") = "1"
    rstmajorcourse.Update
End If
If Chk43.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("43") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("43") = "1"
    rstmajorcourse.Update
End If
If Chk44.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("44") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("44") = "1"
    rstmajorcourse.Update
End If
If Chk51.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("51") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("51") = "1"
    rstmajorcourse.Update

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲女同女同女同女同女同69| 972aa.com艺术欧美| 日韩一卡二卡三卡四卡| **性色生活片久久毛片| 国产一区二区在线看| 欧美一区二区三区视频免费播放| 亚洲自拍偷拍麻豆| 高清日韩电视剧大全免费| 欧美极品美女视频| 国产电影一区在线| 精品国产精品网麻豆系列| 韩国三级中文字幕hd久久精品| 欧美日韩亚洲综合| 亚洲成人精品一区二区| 欧美性生活久久| 日韩综合小视频| 91精品国产综合久久久久久久| 亚洲成人一区二区在线观看| 欧美日韩国产一区| 亚洲一区在线播放| 51午夜精品国产| 麻豆国产精品777777在线| 日韩女优毛片在线| av一区二区三区黑人| 国产精品的网站| 91黄色激情网站| 天堂va蜜桃一区二区三区漫画版| 欧美日韩另类一区| 国产麻豆精品视频| 亚洲在线免费播放| 国产日韩欧美不卡| 在线观看欧美精品| 国产毛片精品国产一区二区三区| 亚洲男人天堂一区| 精品久久免费看| 欧美日韩国产一区| av网站一区二区三区| 欧美a级理论片| 中文字幕在线免费不卡| 欧美日韩在线免费视频| 国产一区二区美女| 日韩精品亚洲专区| ...xxx性欧美| 国产精品久久久久四虎| 色婷婷综合久久久久中文| 亚洲制服欧美中文字幕中文字幕| 在线观看亚洲专区| 亚洲成av人片在www色猫咪| 国产精品视频一二三区| 欧美一区二区网站| 欧美日韩一区二区在线观看视频| 国产一区二区三区在线看麻豆| 亚洲国产精品精华液网站| 18欧美亚洲精品| 亚洲欧美成人一区二区三区| 久久亚洲一区二区三区明星换脸 | 欧美日韩中文一区| 色综合久久久久| 91丨九色丨蝌蚪丨老版| av毛片久久久久**hd| 成人国产精品免费观看动漫| 在线亚洲精品福利网址导航| 精品在线亚洲视频| 亚洲自拍偷拍av| 国产精品毛片久久久久久| 国产欧美综合在线观看第十页| 久久久精品蜜桃| 国产精品久久久久久久蜜臀| 欧美tickling挠脚心丨vk| 欧美一级淫片007| 久久久久久亚洲综合影院红桃| 久久久不卡网国产精品二区 | 成人午夜电影网站| 在线观看日韩电影| 7777精品伊人久久久大香线蕉经典版下载| 91精品国产福利在线观看 | 麻豆久久一区二区| 国产成人自拍在线| gogo大胆日本视频一区| 欧美日韩综合色| 国产区在线观看成人精品| 中文字幕中文在线不卡住| 男人的天堂久久精品| 91九色最新地址| 久久精品视频免费观看| 亚洲不卡在线观看| 不卡的av中国片| 久久综合狠狠综合久久激情| 亚洲视频一区在线| 国产真实乱偷精品视频免| 在线视频一区二区三| 中文字幕欧美日韩一区| 美脚の诱脚舐め脚责91 | 国产一区二区三区综合| 99re视频精品| 国产人久久人人人人爽| 国产一区二区美女| 亚洲午夜在线观看视频在线| 国产精品综合久久| 欧美一级国产精品| 国产精品久久久久久久第一福利| 亚洲精品欧美激情| 国产宾馆实践打屁股91| 欧美v国产在线一区二区三区| 亚洲超丰满肉感bbw| 色欧美日韩亚洲| 丝袜美腿成人在线| 欧美一区二区不卡视频| 视频在线观看一区二区三区| 欧美剧在线免费观看网站| 亚洲欧洲一区二区在线播放| 国产精品一区二区在线观看不卡| 91精品国产福利| 国内精品国产三级国产a久久| 日韩欧美综合一区| 青青草原综合久久大伊人精品 | 麻豆国产精品官网| 国产日本欧美一区二区| 粉嫩13p一区二区三区| 国产拍欧美日韩视频二区| 欧美在线制服丝袜| 久久精品久久99精品久久| 久久精品人人做人人综合| 成人高清免费观看| 日本一区中文字幕| 国产亚洲一区二区三区四区| 精品视频在线看| 国产成人精品三级| 亚洲美女区一区| 欧美一区二区在线不卡| 国产suv精品一区二区三区| 中文字幕一区视频| 精品处破学生在线二十三| 91丨九色丨蝌蚪富婆spa| 激情av综合网| 亚洲黄色免费网站| 国产精品理伦片| 26uuu久久天堂性欧美| 欧美色图一区二区三区| 94色蜜桃网一区二区三区| 老鸭窝一区二区久久精品| 亚洲国产aⅴ天堂久久| 国产精品免费观看视频| 精品国产一区二区三区av性色| 在线一区二区三区四区五区 | 亚洲欧美日韩成人高清在线一区| 7777精品伊人久久久大香线蕉 | 麻豆91在线播放免费| 一区二区欧美精品| 久久久www成人免费无遮挡大片| 日本一区二区三区久久久久久久久不 | 99久久精品久久久久久清纯| 看电影不卡的网站| 国产精品亚洲第一| 理论片日本一区| 天天爽夜夜爽夜夜爽精品视频| 日韩理论片在线| 夜夜亚洲天天久久| 无吗不卡中文字幕| 日韩成人免费看| 久久精品国产一区二区三| 美女诱惑一区二区| 国产高清亚洲一区| 成人app网站| 91在线一区二区| 欧美日韩另类国产亚洲欧美一级| 制服丝袜亚洲精品中文字幕| 91精品国产欧美一区二区18| 日韩欧美亚洲另类制服综合在线| 欧美一级在线观看| 久久精品水蜜桃av综合天堂| 国产精品久久三| 免费高清视频精品| 国产高清久久久| 99精品在线观看视频| 欧美一区二区日韩| 国产欧美日韩在线看| 亚洲最快最全在线视频| 日韩经典一区二区| 成人91在线观看| 7777精品伊人久久久大香线蕉最新版| 欧美大胆人体bbbb| 亚洲自拍都市欧美小说| 成人精品在线视频观看| 国产欧美一区二区精品秋霞影院| 伊人婷婷欧美激情| 成人av在线一区二区三区| 精品视频一区三区九区| 自拍偷拍国产亚洲| 狠狠色丁香婷婷综合| 日韩午夜三级在线| 日韩高清不卡一区二区三区| 97久久精品人人做人人爽50路| 欧美va日韩va| 精品影院一区二区久久久| 欧美一区二区三区爱爱| 亚洲电影欧美电影有声小说| 99精品欧美一区| 国产精品传媒视频| 国产成人免费视|