删除课程界面的代码.txt

数据库实习学生选课系统

string course_no=""
if trim(sle_1.text)="" then
	messagebox("提示","请输入课程号")
else 
	select 课程编号 into :course_no from 课程表 where 课程编号=:sle_1.text;
	if course_no="" then
		messagebox("提示","无此课程，请查证")
	else
		delete from 课程表 where 课程编号=:course_no;
	if sqlca.sqlcode=0 then
		  messagebox("恭喜","删除成功")
	else
		messagebox("提示","删除失败")
		end if
	end if
end if
dw_1.retrieve()