查询选课信息界面的代码.txt

数据库实习学生选课系统

string ts_select

dw_1.settransobject(sqlca)

ts_select="select *  from 课程表 where 教师编号='"+s_sn+"'"

sle_2.text=""
sle_3.text=""
sle_4.text=""
sle_5.text=""
sle_6.text=""
sle_8.text=""
 
	
	//sle_7.text<>""
	//模糊查询 
	if cbx_1.checked=false then
	sle_1.text=trim(sle_1.text)
	 ts_select=ts_select+" and 课程编号 like'%"+sle_1.text+"%'"
	//cbx_1.checked=true
	//精确查询  
   else
		 if trim(sle_1.text)="" then
			messagebox("提示","若要执行精确查询,课程编号不能为空!")
			sle_1.setfocus()
			return 1
		 else
			sle_1.text=trim(sle_1.text)
         ts_select=ts_select+"and 课程编号='"+sle_1.text+"'"
		 //输入分框 
	  select 课程表.课程名称,课程表.教师姓名,课程表.教室,课程表.时间,课程表.类别,已报人数 
	     into :sle_2.text,:sle_3.text,:sle_4.text,:sle_5.text,:sle_6.text ,:sle_8.text
	       from 课程表 
	         where 课程表.教师编号=:s_sn and 课程表.课程编号=:sle_1.text;
        if sqlca.sqlcode<> 0 then
		   messagebox("提示信息","输入错误！请重新输入")
		   sle_1.text=""
		   sle_1.setfocus()
		   return 1
		 end if
	 end if//精确查询
end if//模糊查询
//sql语句		
		dw_1.setsqlselect(ts_select)
     dw_1.retrieve() 
  if dw_1.RowCount()=0 then
  messagebox("提示!", "没有相关课程信息!")  //若查询结果为空，则提示
  end if