退选课程界面的代码.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