📄 退选课程界面的代码.txt
字号:
string s_select,cj_cno,cj_sno,check_cno
dw_1.settransobject(sqlca)
cj_cno=sle_1.text
cj_sno=s_sn
select 成绩表.课程编号 into :check_cno from 成绩表
where 成绩表.课程编号=:cj_cno and 成绩表.学号=:cj_sno;
if sle_1.text<>"" then
if check_cno<>""then
delete from 成绩表
where 成绩表.课程编号=:cj_cno and 成绩表.学号=:cj_sno;
if sqlca.sqlcode=0 then
messagebox("提示","课程退选成功!")
commit ;
else
messagebox("提示","课程退选失败!")
rollback;
end if
else
messagebox("提示","你没有选择此门课!")
sle_1.text=""
sle_1.setfocus()
return
end if
else
messagebox("提示","请输入要退选的课程编号!")
sle_1.setfocus()
return
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -