📄 lscxdj_query.asp
字号:
'msgbox formatdatetime(date(),1)
l_date=trim(dateno.value)
if len(classno.value)<>0 then
rds1.SQL="execute kaoqin_class"+"'"+weekno.value+"',"+"'"+l_date+"',"+"'"+classno.value+"',"+"'"+kno.value+"'"
rds1.ExecuteOptions = 1
rds1.Refresh
elseif len(start_no.value)<>0 then
rds1.SQL="execute kaoqin_xh"+"'"+weekno.value+"',"+"'"+l_date+"',"+"'"+start_no.value+"',"+"'"+kno.value+"'"
rds1.ExecuteOptions = 1
rds1.Refresh
else
rds1.SQL="execute kaoqin_xm"+"'"+weekno.value+"',"+"'"+l_date+"',"+"'"+xm.value+"',"+"'"+kno.value+"'"
rds1.ExecuteOptions = 1
rds1.Refresh
end if
end sub
'==================================
sub modi_click()
if len(weekno.value)=0 then
msgbox "请输入周别......",,"提示窗口"
exit sub
end if
if len(classno.value)=0 and len(xm.value)=0 and len(start_no.value)=0 then
msgbox "请选择班级或者输入学号,姓名......",,"提示窗口"
exit sub
end if
'msgbox formatdatetime(date(),1)
l_date=trim(dateno.value)
'msgbox weekno.value
if len(classno.value)<>0 then
rds1.SQL="select * from kaoqin where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 班号='"&classno.value&"' and 课别='"&kno.value&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
elseif len(start_no.value)<>0 then
rds1.SQL="select * from kaoqin where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 学号='"&start_no.value&"' and 课别='"&kno.value&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
else
rds1.SQL="select * from kaoqin where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 姓名='"&xm.value&"' and 课别='"&kno.value&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
end if
end sub
'=================================
'保存数据修改
'================================
sub save_click()
if rds1.Recordset.recordcount<0 then
msgbox "没有数据保存......",,"提示窗口"
exit sub
end if
if grid1.row=0 then
' msgbox grid1.row
rds1.Recordset.movenext
else
rds1.Recordset.movenext
end if
grid1.Editactive = False
On Error resume next
RDS1.SubmitChanges
If Err.Number <> 0 Then
MsgBox "无法更新数据！"
exit sub
End If
rds1.Recordset.movefirst
for i=0 to rds1.Recordset.recordcount-1
l_week=trim(rds1.Recordset.fields(0))
l_date1=trim(rds1.Recordset.fields(1))
l_bh=trim(rds1.Recordset.fields(2))
l_xh=trim(rds1.Recordset.fields(3))
l_xm=trim(rds1.Recordset.fields(4))
l_kb=trim(rds1.Recordset.fields(5))
l_kk=rds1.Recordset.fields(6)
l_cd=rds1.Recordset.fields(7)
l_zt=rds1.Recordset.fields(8)
l_sj=rds1.Recordset.fields(9)
l_bj=rds1.Recordset.fields(10)
l_bz=rds1.Recordset.fields(11)
l_date=trim(dateno.value)
select case rds1.Recordset.fields(5)
case "早操"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*0.5
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*0.5
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*1
end if
if len(classno.value)<>0 then
' msgbox "ok1"
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 班号='"&trim(classno.value)&"' and 扣分项目='扣早操'"
' msgbox rds2.sql
rds2.ExecuteOptions =1
rds2.Refresh
elseif len(start_no.value)<>0 then
' msgbox "ok"
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 学号='"&start_no.value&"' and 扣分项目='扣早操'"
' msgbox rds2.sql
rds2.ExecuteOptions =1
rds2.Refresh
else
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 姓名='"&xm.value&"' and 扣分项目='扣早操'"
' msgbox rds2.sql
rds2.ExecuteOptions =1
rds2.Refresh
end if
case "正课"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*1
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*1
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*3
end if
if len(classno.value)<>0 then
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 班号='"&classno.value&"' and 扣分项目='扣正课'"
rds2.ExecuteOptions =1
rds2.Refresh
elseif len(start_no.value)=0 then
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 学号='"&start_no.value&"' and 扣分项目='扣正课'"
rds2.ExecuteOptions =1
rds2.Refresh
else
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 姓名='"&start_no.value&"' and 扣分项目='扣正课'"
rds2.ExecuteOptions =1
rds2.Refresh
end if
case "晚修"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*1
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*1
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*3
end if
if len(classno.value)<>0 then
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 班号='"&classno.value&"' and 扣分项目='扣晚修'"
rds2.ExecuteOptions =1
rds2.Refresh
elseif len(start_no.value)=0 then
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 学号='"&start_no.value&"' and 扣分项目='扣晚修'"
rds2.ExecuteOptions =1
rds2.Refresh
else
rds2.SQL="update xscxdjk set 扣分='"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"' where 周别='"&weekno.value&"' and 日期='"&l_date&"' and 姓名='"&start_no.value&"' and 扣分项目='扣晚修'"
rds2.ExecuteOptions =1
rds2.Refresh
end if
end select
'msgbox rds1.Recordset.fields(4)
rds1.Recordset.movenext
next
end sub
'=================================
'保存考勤数据录入
'=================================
sub update_click()
if rds1.Recordset.recordcount<0 then
msgbox "没有数据保存......",,"提示窗口"
exit sub
end if
rds1.Recordset.movefirst
for i=0 to rds1.Recordset.recordcount-1
if isnull(rds1.Recordset.fields(6)) and isnull(rds1.Recordset.fields(7)) and isnull(rds1.Recordset.fields(8)) and isnull(rds1.Recordset.fields(9)) and isnull(rds1.Recordset.fields(10)) then
else
l_week=trim(rds1.Recordset.fields(0))
l_date1=trim(rds1.Recordset.fields(1))
l_bh=trim(rds1.Recordset.fields(2))
l_xh=trim(rds1.Recordset.fields(3))
l_xm=trim(rds1.Recordset.fields(4))
l_kb=trim(rds1.Recordset.fields(5))
l_kk=rds1.Recordset.fields(6)
l_cd=rds1.Recordset.fields(7)
l_zt=rds1.Recordset.fields(8)
l_sj=rds1.Recordset.fields(9)
l_bj=rds1.Recordset.fields(10)
l_bz=rds1.Recordset.fields(11)
rds2.SQL="insert into kaoqin(周别,日期,班号,学号,姓名,课别,旷课,迟到,早退,事假,病假,备注) values('"&l_week&"','"&l_date1&"','"&l_bh&"','"&l_xh&"','"&l_xm&"','"&l_kb&"','"&l_kk&"','"&l_cd&"','"&l_zt&"','"&l_sj&"','"&l_bj&"','"&l_bz&"')"
' msgbox rds2.sql
rds2.ExecuteOptions = 1
rds2.Refresh
select case rds1.Recordset.fields(5)
case "早操"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*0.5
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*0.5
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*1
end if
rds2.SQL="insert into xscxdjk(周别,日期,班号,学号,姓名,扣分项目,扣分) values('"&l_week&"','"&l_date1&"','"&l_bh&"','"&l_xh&"','"&l_xm&"','扣早操','"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"')"
rds2.ExecuteOptions =1
rds2.Refresh
case "正课"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*1
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*1
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*3
end if
rds2.SQL="insert into xscxdjk(周别,日期,班号,学号,姓名,扣分项目,扣分) values('"&l_week&"','"&l_date1&"','"&l_bh&"','"&l_xh&"','"&l_xm&"','扣正课','"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"')"
rds2.ExecuteOptions =1
rds2.Refresh
case "晚修"
if isnull(l_cd) then
l_cd_kf=0
else
l_cd_kf=l_cd*1
end if
if isnull(l_zt) then
else
l_zt_kf=l_zt*1
end if
if isnull(l_kk) then
else
l_kk_kf=l_kk*3
end if
rds2.SQL="insert into xscxdjk(周别,日期,班号,学号,姓名,扣分项目,扣分) values('"&l_week&"','"&l_date1&"','"&l_bh&"','"&l_xh&"','"&l_xm&"','扣晚修','"&cdbl(l_cd_kf+l_zt_kf+l_kk_kf)&"')"
rds2.ExecuteOptions =1
rds2.Refresh
end select
'msgbox rds1.Recordset.fields(4)
end if
rds1.Recordset.movenext
next
end sub
'====================根据课程号,查询此课程所有类型成绩信息==============
sub score_allsearch()
'========================================================================
coursename = CourseNoArray(0,courseno.selectedIndex-1)
dim coursetype(5)
coursetype(0) = "平时成绩"
coursetype(1) = "期中成绩"
coursetype(2) = "期末成绩"
coursetype(3) = "总评成绩"
coursetype(4) = "补考成绩"
rds1.SQL = " Execute serach_alltypescore "+ classno.value
rds1.ExecuteOptions =1
rds1.Refresh
for typecount = 0 to 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -