-+-

我的图书管理系统

		  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 freeSearch()
	if len(trim(condition_id.value))=0 then
		msgbox "请先输入查询条件！"
		exit sub
	end if
	rds1.sql =savesql + " where " + condition_id.value
	'msgbox rds1.sql
	on error resume next
	rds1.ExecuteOptions = 1	
	rds1.refresh

	if rds1.recordset.recordcount = 0 then
		msgbox "对不起！没有找到符合条件的记录！"
		rds1.sql = saveSQL
		rds1.refresh
	else
		msgbox "总共找到 " + cstr(rds1.recordset.recordcount) +" 条符合条件的记录！"
		search_flag = true
	end if
end sub


sub backing()

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


sub grid1_BeforeColEdit(colindex,keyascii,cancel)
	set colsel = grid1.columns.item(colindex)
	select case colsel.caption
	
	case "图片" 
		photodlg.showopen

		if len(trim(photodlg.filename))>0 then

			'msgbox photodlg.filename

			grid1.columns.item(colindex).value = photodlg.filename

		end if		
				
		cancel = true	

	end select

end sub
sub backing()
    history.go(-1)
end sub    
    </script> 
<p align="right"><img src="../images/xkrj.gif">    
<object ID="PhotoDlg" WIDTH="35" HEIGHT="32"
CLASSID="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB">
  <param name="_ExtentX" value="847">
  <param name="_ExtentY" value="847">
  <param name="_Version" value="393216">
  <param name="CancelError" value="0">
  <param name="Color" value="0">
  <param name="Copies" value="1">
  <param name="DefaultExt" value="*.jpg;*.bmp;*.gif">
  <param name="DialogTitle" value="选择学生相片文件">
  <param name="Filter" value="图形文件 (*.jpg;*.bmp;*.gif)">
  <param name="FilterIndex" value="0">
  <param name="Flags" value="0">
  <param name="FontBold" value="0">
  <param name="FontItalic" value="0">
  <param name="FontSize" value="8">
  <param name="FontStrikeThru" value="0">
  <param name="FontUnderLine" value="0">
  <param name="FromPage" value="0">
  <param name="HelpCommand" value="0">
  <param name="HelpContext" value="0">
  <param name="InitDir" value="..\images">
  <param name="Max" value="0">
  <param name="Min" value="0">
  <param name="MaxFileSize" value="260">
  <param name="PrinterDefault" value="1">
  <param name="ToPage" value="0">
  <param name="Orientation" value="1">
</object>
</p>

</body>
</html>