添加课程界面的代码.txt

数据库实习学生选课系统

string sl_cno,sl_tname,sl_ckd, sl_cname,sl_classn,sl_time,sl_pop,sl_tno
 sl_cno=trim(sle_1.text)
 sl_tname=trim(sle_2.text)
 sl_tno=trim(sle_3.text)
 sl_ckd=trim(ddlb_1.text)
 sl_pop=trim(sle_4.text)
 sl_cname=trim(sle_5.text)
 sl_classn=trim(sle_6.text)
 sl_time=trim(sle_7.text)

	     
		string cno,tno="",tname
		
      //判断关键字(主码)(课程编号)不重复
		select 课程编号 into :cno from 课程表 where 课程编号 =:sle_1.text;
		IF sqlca.sqlcode = 0 Then
      	messagebox("提示信息","课程编号重复!")
  		     	return 1
      End If
		
      //判断课程信息不能为空
		if  sle_1.text="" OR ddlb_1.text = ''or sle_2.text="" or sle_4.text="" or sle_5.text="" or sle_6.text=""  or sle_7.text=""THEN
   		MESSAGEBOX("提示信息","所填信息不能为空!")
			return 1
	   end if	
		
		select 教师编号 into :tno from 教师表 where 教师编号 =:sle_3.text;
		IF tno="" Then
      	messagebox("提示信息","没有该课程编号!")
  		     	return 1
		else
			select 教师姓名 into :tname from 教师表 where 教师编号 =:sle_3.text;
		   IF tname<>sl_tname Then
      	   messagebox("提示信息","教师信息有错误!"+""+tno+"--"+tname)
				return 1
			end if
		end if	
		

      
    insert into 课程表(课程编号,课程名称,教师姓名,教师编号,类别,教室,时间,限制)
	 values(:sl_cno,:sl_cname,:sl_tname,:sl_tno,:sl_ckd,:sl_classn,:sl_time,:sl_pop);
	 
	 if sqlca.sqlcode<>0 then
		 messagebox("插入数据错误(insert into 课程表)!",sqlca.sqlerrtext)
		 rollback ;
		 return 1
	 else 
		 commit ;
		 messagebox("恭喜","添加成功!")

       dw_1.retrieve()
	end if