我的图书管理系统

		rds2.sql = "select 编号  from tbj where rtrim(ltrim(编号))='"&rtrim(ltrim(new_value))&"'"
		rds2.ExecuteOptions = 1	
		rds2.refresh
		if rds2.recordset.recordCount>0 then
		    msgbox "编号重复！请重新输入"
		    cancle = true
		end if
	case 1
		
		rds2.sql = "select 班名  from tbj where rtrim(ltrim(班名))='"&rtrim(ltrim(new_value))&"'"
	
		rds2.ExecuteOptions = 1	
		rds2.refresh
		if rds2.recordset.recordCount>0 then
		    msgbox "班名重复! 请重新输入"
		    cancle = true
		end if
	
		
			
	end select
end sub

sub field_Gotfocus()
	if len(trim(condition_id.value)) = 0 then
		field_select = false
		compare_select = false
		express_select = false
		logic_select = false
	end if

	if colcount > 0 then
		exit sub
	end if 
	colcount = grid1.columns.count
	fieldname(0)="学号"
	for i=1 to colcount-1 
		  colcaption = grid1.columns.item(i).caption
		  fieldname(i) = colcaption
		  set oOption = document.createElement("OPTION")
		  oOption.text  = colcaption
	      oOption.value = cstr(i+1)
	      document.all.field_id.add(oOption)		
	next

end sub 

sub field_getSelect()

	if field_select then
		exit sub
	end if
	condvalue = condition_id.value
	condition_id.value = condvalue + fieldname(field_id.selectedindex)	
	field_select = true
	compare_select = false
	express_select = false
	logic_select = false
end sub

sub compare_getSelect()
	if compare_select then
		msgbox "已经输入比较操作符!"
		exit sub 
	end if 

	condvalue = condition_id.value
	if len(trim(condvalue)) = 0 then
		condvalue = "学号"
	end if
	select case compare_id.selectedindex
		case 0
			condvalue = condvalue + "="
		case 1
			condvalue = condvalue + ">"
		case 2
			condvalue = condvalue + "<"

		case 3
			condvalue = condvalue + "<="
		case 4
			condvalue = condvalue + ">="
		case 5
			condvalue = condvalue + "<>"
		case 6
			condvalue = condvalue + " like "
	end select 
	condition_id.value = condvalue
	compare_select = true
end sub

sub logic_getfocus()
    if len(trim(express_id.value))=0 then		
		msgbox "条件不能为空,请先输入条件表达式!"

	end if
end sub 

sub logic_getSelect()
	if logic_select then
		exit sub
	end if 
	condvalue = condition_id.value
	select case logic_id.selectedIndex
		case 0
			condvalue = condvalue + " and "
		case 1
			condvalue = condvalue + " or "
	end select
	condition_id.value=condvalue
	logic_select = true
	field_select = false
end sub

sub express_input()
	condvalue = condition_id.value
	if not compare_select then
		msgbox "请先输入比较操作符！"
		exit sub
	end if
	if len(trim(condvalue))=0 then
		condvalue = "学号="
	end if
	if len(trim(express_id.value))>0 and compare_id.selectedindex <> 6 then
		condvalue = condvalue + "'" + express_id.value + "'"
		condition_id.value = condvalue
    elseif len(trim(express_id.value))>0 and compare_id.selectedindex = 6 then
		condvalue = condvalue + "'%" + express_id.value + "%'"
		condition_id.value = condvalue
	else
		msgbox "条件不能为空,请重新输入条件表达式!"
	end if
end sub

sub freeOrder()

end sub




sub backing()

	if search_flag then
		rds1.sql = saveSQL
		rds1.refresh
	end if
	
end sub

sub returning()
    history.go(-1)
end sub    
</script> </p>




</body>
</html>