我的图书管理系统

		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 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 refreshing()

	if search_flag then
		rds1.sql = saveSQL
		
		RDS1.ExecuteOptions=1
		rds1.refresh
		ICh.value =""
	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 returning()
    history.go(-1)
end sub

sub find_click()
  
    RDS1.SQL = "select 借书证号,编号,姓名,IC号,借书本数,图片 from tjsz where IC号='"&rtrim(ICh.value)&"'"
    RDS1.ExecuteOptions = 1
    RDS1.Refresh 

    
  if RDS1.Recordset.recordcount <= 0 then
  
     MsgBox "没有找到满足条件的记录!",,"提示窗口" 
  
  end if
end sub    

</script>


<OBJECT classid=CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB id=PhotoDlg 
style="HEIGHT: 68px; LEFT: 151px; POSITION: center; TOP: 288px; WIDTH: 124px">
<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="FileName" 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="FontName" VALUE="">
<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="HelpFile" VALUE=""><PARAM NAME="HelpKey" VALUE="">
<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>

</body>

</html>