提交学生成绩的代码.txt

数据库实习学生选课系统

string th_kcbh
integer th_row,th_cj
 
th_row=dw_1.getselectedrow(0)
if th_row<1 then
	 messagebox("提示信息","请选择需要提交成绩的纪录！")
	 return
end if
th_kcbh=dw_1.getitemstring(th_row,"成绩表_课程编号")
th_cj=dec(em_1)
 messagebox("提示信息","确定提交成绩吗？")
//定义存储过程

/*declare ts_cjtj procedure for ts_成绩提交 (:th_cj,:th_kcbh);
//执行存储过程
execute ts_cjtj;*/
//****************************************************
string ts_select

dw_1.settransobject(sqlca)

ts_select="select 成绩表.学号,姓名,性别,院系,专业,成绩表.课程编号,课程表.课程名称,课程表.教师姓名,成绩 from 成绩表,学生表,课程表 where 学生表.学号=成绩表.学号 and 课程表.课程编号=成绩表.课程编号 and 课程表.教师编号=成绩表.教师编号 and "
 

//课程号模糊查询
//按课程编号查询
if ddplb_1.text="课程编号" then
	sle_1.text=trim(sle_1.text)
 //课程号模糊查询
 if cbx_1.checked=false then
  if trim(sle_1.text)<>"" then
	 //课程号不为空
	  ts_select=ts_select+"成绩表.课程编号 like'%"+sle_1.text+"%'"+"and "
	  ts_select=ts_select+"课程表.教师编号='"+s_sn+"'"
   else
	//课程编号为空
		ts_select=ts_select+"课程表.教师编号='"+s_sn+"'"
	   messagebox("提示","将显示出您所教的全部课程!")
   end if
 //精确查询 
 else
	if trim(sle_1.text)<>"" then
	 ts_select=ts_select+"成绩表.课程编号='"+sle_1.text+"'"
	 ts_select=ts_select+"and 课程表.教师编号='"+s_sn+"'"
   else
		messagebox("提示","进行精确查询时,课程编号不能为空!")
		sle_1.setfocus()
		return
   end if
end if
end if

//课程名称模糊查询
//按课程名称查询
if ddplb_1.text="课程名称" then
	sle_2.text=trim(sle_2.text)
 if cbx_1.checked=false then
  if trim(sle_2.text)<>"" then
	 //课程号不为空
	  ts_select=ts_select+"课程表.课程名称 like'%"+sle_2.text+"%'"
	  ts_select=ts_select+"and 课程表.教师编号='"+s_sn+"'"
   else
	//课程名称为空
		ts_select=ts_select+"课程表.教师编号='"+s_sn+"'"
	   messagebox("提示","将显示出您所教的全部课程!")
   end if
//精确查询 
 else
	if trim(sle_2.text)<>"" then
	 ts_select=ts_select+"课程表.课程名称='"+sle_2.text+"'"
	 ts_select=ts_select+"and 课程表.教师编号='"+s_sn+"'"
   else
		messagebox("提示","进行精确查询时,课程名称不能为空!")
		sle_2.setfocus()
		return
   end if
end if
end if

//SQL语
dw_1.setsqlselect(ts_select)
dw_1.retrieve()
//**********************************************************
messagebox("提示信息","提交成绩成功!")