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

        ins.disabled=true
        del.disabled=true

	    rds1.recordset.delete

        grid1.rebind
       
'	   msgbox z(l_delete,0)

	    'RDS1.SubmitChanges
     
   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
'  msgbox text1.value
'  msgbox rtrim(text2.value)+"("&rtrim(text3.value)&+")"
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
   
  for row_2=1 to rds1.recordset.recordcount
       '
     

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

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

     if row_2=rds1.recordset.recordcount then

      
     else
      
	    grid1.row = grid1.row+1     
 
     end if

  next

  
 '找出被删除的数据

  for  row_3=1 to l_delete
     
	 

      rds2.sql = "select *  from  recordsort_set  where ltrim(rtrim(档案文件))='"&ltrim(rtrim(z(row_3-1,0)))&"'"       	    

		     rds2.ExecuteOptions = 1	

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

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

	   rds2.refresh
       
	   rds2.sql="drop table "&ltrim(rtrim(z(row_3-1,0)))&""

       rds2.ExecuteOptions = 1	

	   rds2.refresh
       
	 
	 end if 

  next



' 找出新增的数据

  for row_2=0 to grid1.row

        rds2.sql = "select *  from  recordsort_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

	    

' 新建档案项目表表结构

   if rtrim(y(row_2,0))=" " or len(trim(y(row_2,0)))=0 then
     
	   msgbox "档案文件名不能为空"
	   exit sub

   else


      rds2.sql = "create table "&rtrim(y(row_2,0))&"_p(序号  char(3)  not null,项目名称 char(20)  null, 类型 char(10)  null, 宽度  char(2)  null, 小数  char(2) null, constraint PK1_"&rtrim(y(row_2,0))&" primary key (序号))"
     
	  
      RDS2.ExecuteOptions = 1	

      rds2.refresh
      
	  rds2.sql="insert "&rtrim(y(row_2,0))&"_p(序号,项目名称,类型,宽度) values('1','学号','char','10')"
	  
	  rds2.executeoptions=1
	 
	  rds2.refresh
	  
	  rds2.sql="create table  "&rtrim(y(row_2,0))&"(学号  char(10)  not null, constraint PK_"&rtrim(y(row_2,0))&" primary key (学号))"
	  
	  rds2.executeoptions=1

	  rds2.refresh
	    
    end if
   end if
 next

 	   

   ' row_1=0

    moveflag = true
	if grid1.row > 0 then

       grid1.row = grid1.row -1

	elseif grid1.row=0 then

	    grid1.row=0
     
	 elseif  grid1.row>1 then

		grid1.row =grid1.row +1

		moveflag = false

	end if

	grid1.Editactive = False
   
   On Error resume next

   RDS1.SubmitChanges
   
   rds1.executeoptions=1

   rds1.refresh

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

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

 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>


<p align="right"><img src="../images/xkrj.gif" border="0" width="80" height="25"></p>
</body>
</html>