+

我做的第一个学生管理系统

       end if

      if l_tag="1" then
	  
	    

      else
           l_tag="1"
        
		   l_delete=0

	  end if	        
	     

	    z(l_delete,0)=grid1.columns.item(1)
	   

		 
	    l_delete=l_delete+1

        ins.disabled=true
        del.disabled=true
       

	    rds1.recordset.delete

        grid1.rebind
       

   end if
 
end sub

Sub CancleUpdate()
   On Error Resume Next
     RDS1.CancelUpdate
     Grid1.Rebind
     ins.disabled=false
     del.disabled=false
     
End Sub



Sub MoveFirst()

  RDS1.Recordset.MoveFirst

End Sub

Sub MovePrevious()
   If Not RDS1.Recordset.BOF Then
      RDS1.Recordset.MovePrevious
   End If
End Sub

Sub MoveNext()
   If Not RDS1.Recordset.EOF Then
      RDS1.Recordset.MoveNext
   End If
End Sub

Sub MoveLast()
   RDS1.Recordset.MoveLast
End Sub

Sub SubmitChanges()

 
   
 ' 修改中取值与 原来的比较
  'grid1.row=0

  rds1.recordset.movefirst
   
  for row_2=1 to rds1.recordset.recordcount
       'msgbox rds1.recordset.recordcount
     

 	 for col_2=1 to 4
      
         y(row_2-1,col_2-1)=grid1.columns.item(col_2)

    '	msgbox y(row_2-1,col_2-1)
   
     next

     if row_2=rds1.recordset.recordcount then

      
     else
      
	    'grid1.row = grid1.row+1   
		rds1.recordset.movenext  
        

     end if

  next

   for row_2=0 to   rds1.recordset.recordcount      'grid1.row
     
      '找出原来已存在数据被修改的字段
    
	'msgbox "ok"
	'msgbox  ltrim(rtrim(y(row_2,2)))
	'msgbox  ltrim(rtrim(y(row_2,1)))

	
	if ltrim(rtrim(y(row_2,1)))="char" or ltrim(rtrim(y(row_2,1)))="decimal" then

	    if len(trim(y(row_2,2)))=0  or ltrim(rtrim(y(row_2,2)))="0" then

	     msgbox "CHAR和DECIMAL类型的数据字段宽度必页大于0或不为空值!"
         
		 exit sub
		 end if
     
	 end if
      
   
           rds2.sql = "select *  from  baseitem_set  where (ltrim(rtrim(项目名称))='" & _
         	ltrim(rtrim(y(row_2,0)))&"'  and  ltrim(rtrim(宽度))<>'"&ltrim(rtrim(y(row_2,2)))&"') or (ltrim(rtrim(项目名称))='" & _
       	    ltrim(rtrim(y(row_2,0)))&"' and ltrim(rtrim(类型))<>'"&ltrim(rtrim(y(row_2,1)))&"') or (ltrim(rtrim(项目名称))='" & _
       	    ltrim(rtrim(y(row_2,0)))&"' and ltrim(rtrim(小数))<>'"&ltrim(rtrim(y(row_2,3)))&"')"
  

		     rds2.ExecuteOptions = 1	

		     rds2.refresh
         
        
	         '   msgbox rds2.recordset.recordcount

      if rds2.recordset.recordCount>0 then
      
	  
	      text_c=rtrim(y(row_2,1))+"("&rtrim(y(row_2,2))&+")"
	
 
        if rtrim(y(row_2,3))<>" " then
   
           text_c1=rtrim(y(row_2,1))+"("&rtrim(y(row_2,2))&+","&rtrim(y(row_2,3))&")"
      
         end if

         ' 改变表BASEINFO的表结构

         if rtrim(y(row_2,0))=" "  then
     
	         msgbox "项目名称不能为空"

             elseif rtrim(y(row_2,1))="int" or rtrim(y(row_2,1))="datetime" or rtrim(y(row_2,1))="bit"   then

             rds2.sql = "alter table baseinfo alter column "&rtrim(y(row_2,0))&" "&rtrim(y(row_2,1))&" null"
  
             RDS2.ExecuteOptions = 1	

             rds2.refresh

           elseif rtrim(y(row_2,1))="char" then
            
              rds2.sql = "alter table baseinfo alter column "&rtrim(y(row_2,0))&" "&text_c&"  null"
  
              RDS2.ExecuteOptions = 1	

               rds2.refresh
        else
         
		  rds2.sql = "alter table baseinfo alter column "&rtrim(y(row_2,0))&" "&text_c1&"  null"
  
          RDS2.ExecuteOptions = 1	

          rds2.refresh
   
   
     end if    
    end if
  next 
 
'找出被删除的数据

  for  row_3=1 to l_delete
     
	 

      rds2.sql = "select *  from  baseitem_set  where ltrim(rtrim(项目名称))='"&ltrim(rtrim(z(row_3-1,0)))&"'"       	    

		     rds2.ExecuteOptions = 1	

		     rds2.refresh
       
	if rds2.recordset.recordCount>0 then

	    
       rds2.sql="alter table baseinfo  drop  column  "&ltrim(rtrim(z(row_3-1,0)))&"" 
	   
'	   msgbox rds2.sql   
       
       	     rds2.ExecuteOptions = 1	

		     rds2.refresh
     end if 

  next

' 找出新增的数据

  for row_2=0 to    rds1.recordset.recordcount-1     ' grid1.row

        rds2.sql = "select *  from  baseitem_set  where ltrim(rtrim(项目名称))='"&ltrim(rtrim(y(row_2,0)))&"'"
		  
 '   msgbox rds2.sql
	
	    rds2.ExecuteOptions = 1	

		rds2.refresh
         
        
	 
   if rds2.recordset.recordCount>0 then
      
	  else

	    text_c=rtrim(y(row_2,1))+"("&rtrim(y(row_2,2))&+")"
	
 'msgbox text_c

   if rtrim(y(row_2,3))<>"" then
   
      text_c1=rtrim(y(row_2,1))+"("&rtrim(y(row_2,2))&+","&rtrim(y(row_2,3))&")"
    '  msgbox text_c1     
   end if

' 改变表BASEINFO的表结构

   if rtrim(y(row_2,0))=""  or rtrim(y(row_2,1))=""  then
     
	  msgbox "项目名称不能为空或类型不能为空"
	  exit sub
	  

     elseif rtrim(y(row_2,1))="int" or rtrim(y(row_2,1))="datetime" or rtrim(y(row_2,1))="bit"   then

      
         rds2.sql = "alter table baseinfo add "&rtrim(y(row_2,0))&" "&rtrim(y(row_2,1))&" null"
  
       
         RDS2.ExecuteOptions = 1	

         rds2.refresh
	
          
     elseif rtrim(y(row_2,1))="char" then

            if text_c ="" or len(text_c)=0 then
            
               msgbox "有字符型的数据,宽度必须大于0",,"提示窗口"
               exit sub
            else
                rds2.sql = "alter table baseinfo   add "&rtrim(y(row_2,0))&"  "&text_c&" null "
      
                RDS2.ExecuteOptions = 1	

                rds2.refresh
             end if   
    elseif rtrim(y(row_2,1))="decimal" then 
                 
         if text_c1="" or len(text_c1)=0  or y(row_2,2)="" or y(row_2,3)="" then
         
		    msgbox "有DECIMAL型的数据,请输入宽度和长度",,"提示窗口"
		    exit sub
		    
		  else
		    
		    rds2.sql = "alter table baseinfo add "&rtrim(y(row_2,0))&" "&text_c1&"  null"
        
            RDS2.ExecuteOptions = 1	

            rds2.refresh
            
          end if
          
    end if    
    end if
 next

 	   

   ' row_1=0

    moveflag = true
	if grid1.row > 0 then
      grid1.row = grid1.row -1
	else
		grid1.row =grid1.row +1
		moveflag = false
	end if

	grid1.Editactive = False
   
   On Error resume next

   RDS1.SubmitChanges
 
   
 If Err.Number <> 0 Then
     'RDS1.CancelUpdate
      MsgBox "无法更新数据！"
  
      
 else

 l_tag="0"
 
       ins.disabled=false
       del.disabled=false
 End If

 
 if  moveflag then
      grid1.row = grid1.row +1
 else
      grid1.row = grid1.row -1
 end if
   

  


 '  l_button="1"

end sub

sub backing()
    history.go(-1)
    
end sub
</script> <!--<IMG alt=增加 height=20 onclick=recordadd() src="../images/增加.bmp" width=20>
       <IMG alt=保存 height=20 onclick=SubmitChanges() src="../images/保存.bmp" width=20>
       <IMG alt=删除 height=20 onclick=recorddelete() src="../images/剪切.bmp" width=20>
       <IMG alt=取消 height=20 onclick=cancleupdate() src="../images/取消.bmp" width=20>
       <IMG alt=上一条 height=20 onclick=MovePrevious() src="../images/right.BMP" width=20> 
       <IMG alt=下一条 height=20 onclick=MoveNext() src="../images/left.bmp" width=20>
       <IMG alt=第一条 height=20 onclick=movefirst() src="../images/last2.bmp">
       <IMG alt=最后一条 height=20  onclick=MoveLast() src="../images/last1.bmp">//--> </p>
</body>
</html>