修改课程界面的代码.txt

数据库实习学生选课系统

int nowrow 
nowrow=dw_1.getrow()
string sl_cno,sl_tname,sl_ckd, sl_cname,sl_classn,sl_time,sl_pop,sl_tno
 sl_cno=trim(sle_1.text)
 sl_cname=trim(sle_2.text)
 sl_ckd=trim(sle_3.text)
 sl_pop=trim(sle_4.text)
 sl_classn=trim(sle_5.text)
 sl_tno=trim(sle_6.text)
 sl_tname=trim(sle_7.text)
 sl_time=trim(sle_8.text)

string s,ss

		
	//判断课程信息不能为空
		if  sle_1.text="" OR sle_3.text=""or sle_2.text="" or sle_4.text="" or sle_5.text="" or sle_6.text=""  or sle_7.text=""or sle_8.text=""THEN
   		MESSAGEBOX("提示信息","所填信息不能为空!")
			return 1
	   end if	
		
		  update  课程表
		    set 课程编号=:sl_cno,教师姓名=:sl_tname,教师编号=:sl_tno,类别=:sl_ckd,限制=:sl_pop,课程名称=:sl_cname,教室=:sl_classn,时间=:sl_time
		    where 课程编号=:sl_cno;
		         if sqlca.sqlcode<>0 then
		          messagebox("修改数据错误(update bookInfo)!",sqlca.sqlerrtext)
		         dw_1.scrolltorow(nowrow)
  
				  rollback ;
		        return 1
	          else 
		        commit ;
		          messagebox("恭喜","修改成功!")
					
	          end if
				  dw_1.retrieve()
				  dw_1.scrolltorow(nowrow)