我的图书管理系统

		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

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 find_click()
  
    RDS2.SQL = "select 分类编号,主序号,次序号,借书证号,借出日期,还书日期,限借天数 from tjsdj where 借书证号='"&rtrim(jszh.value)&"'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh 

    
  if RDS2.Recordset.recordcount > 0 then
  
    RDS1.SQL = "select 分类编号,主序号,次序号,借书证号,借出日期,还书日期,限借天数 from tjsdj where 借书证号='"&rtrim(jszh.value)&"'"
    RDS1.ExecuteOptions = 1
    RDS1.Refresh 

  else
  
   msgbox "没有找到满足条件的记录",,"提示窗口"
   
     
  end if
  
end sub
 
SUB GRID1_BeforeColUpdate(colindex,oldvalue,cancle)
	L_YN=TRUE
end sub


sub backing()


  if l_yn = true then
  
   if l_update=false then
  
     l_OK=msgbox ("数据已被修改,是否保存!",1,"提示窗口")
   
     IF L_ok=1 then
     
      l_yn=TRUE
       exit sub
       
     else
      l_yn=false
      history.go(-1)
      
    end if
   else
      history.go(-1)
   end if  
    
  else
   history.go(-1)
   
 end if   

	
end sub
</script> </p>

<p>
<OBJECT classid="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB" height=32 id=PhotoDlg 
	style="HEIGHT: 68px; LEFT: 151px; TOP: 288px; WIDTH: 124px" width=32>
	<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>
</p>
<p align="right"><img src="../images/xkrj.gif">
</body>
</html>