📄

📁 我的图书管理系统
💻
字号:
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="tjh" content="Microsoft FrontPage Express 2.0">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>档案基本项目设置</title>
</head>

<body background="arcadia.gif">

<p><object id="RDS1"
classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33"
align="baseline" border="0" width="25" height="4"><param
name="AllowAddnew" value="true"><param name="AllowDelete"
value="true"><param name="AllowUpdate" value="true"><param
name="allowarrows" value="true"></object> <object id="RDS2"
classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33"
align="baseline" border="0" width="26" height="14"><param
name="AllowAddnew" value="true"><param name="AllowDelete"
value="true"><param name="AllowUpdate" value="true"><param
name="allowarrows" value="true"></object> <font size="5">档案基本项目设置<script
language="vbscript">
   public  text11
    RDS1.Server = "http://127.0.0.1"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"

    RDS1.SQL = "select * from recordsort_set"

    rds1.ExecuteOptions = 1

    RDS1.Refresh

   ' RDS2.Server = "http://127.0.0.1"

    'RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"

</script></font></p>

<hr>

<p><object id="grid1" name="grid1"
classid="clsid:00028CD1-0000-0000-0000-000000000046"
align="baseline" border="0" width="620" height="278"
datasrc="#rds1"></object></p>

<p><script language="vbscript">

 PUBLIC  x(20,3)
 
 public  y(40,3)

 public  z(40,3)
  
 PUBLIC l_button

 l_button="1"
   
 PUBLIC row_1

 public l_count

 public l_delete

 l_delete=0

 public l_tag

 l_tag="1"



   
   
sub grid1_BeforeColEdit(colindex,a,b)

   
   grid1.editactive = true

   
   db_table=rtrim(grid1.columns.item(2))

    msgbox db_table

    RDS1.Server = "http://127.0.0.1"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"

    RDS1.SQL = "select * from "&db_table&""

	rds1.ExecuteOptions = 1

    RDS1.Refresh
 ' document.write "<object id=grid1 name=grid1 classid=clsid:00028CD1-0000-0000-0000-000000000046 align=baseline border=0 width=620 height=278 datasrc=#rds1></object>"
 ' document.write "<input type=button value=第一条 onclick=movefirst()>"

end sub

sub recordadd()

  
   row_1=0
  
   grid1.editactive=true
   
   rds1.recordset.addnew
 
   rds1.recordset.movelast
    
   
end sub




SUB GRID1_BeforeColUpdate(colindex,oldvalue,cancle)
	new_value = grid1.columns.item(colindex)
	select case colindex
	case 0
		if len(trim(new_value)) =0 then
		    msgbox "序号不能为空！请重新输入"
		    cancle = true
		    exit sub
		end if	
		rds2.sql = "select 序号  from   recordsort_set where rtrim(序号) ='" & trim(new_value) & "'"
		rds2.ExecuteOptions = 1	
		rds2.refresh
		if rds2.recordset.recordCount>0 then
		    msgbox "序号重复！请重新输入"
		    cancle = true
			exit sub
		end if
	case 1				
		if len(trim(new_value)) =0 then
		    msgbox "档案文件名不能为空！请重新输入"
		    cancle = true
			exit sub
		end if
		
	'	rds2.sql = "select 序号  from   baseitem_set where rtrim(序号) ='" & trim(new_value) & "'"
	'	rds2.ExecuteOptions = 1	
	'	rds2.refresh
		

	case 2

        if len(trim(new_value))=0 then

		   msgbox "档案文件名不能为空!"
         
        end if
	  

     
     case 3

	 
	 case 4

		
	end select

END sub
    
	 


sub recorddelete()

     l_ok = msgbox("你真的要删除此项目吗!",1,"提示")
   
    
 
   if l_ok  = 1 then
    
      if grid1.row=0  then

	     msgbox "对不起! 此档案项目不能删除!"

		 exit sub
       end if

      if l_tag="1" then
	  
	    

      else
           l_tag="1"
        
		   l_delete=0

	  end if	        
	     

	    z(l_delete,0)=grid1.columns.item(2)
	   
'	    msgbox z(0,0)

		 
	    l_delete=l_delete+1

	'	msgbox z(1,0)
       

	    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
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

 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

</script> <input type="button"
value="第一条" onclick="movefirst()"> <input type="button"
value="上一条" onclick="MovePrevious()"> <input type="button"
value="下一条" onclick="MoveNext()"> <input type="button"
value="最后一条" onclick="MoveLast()">  <input type="button"
value="添   加" onclick="recordadd()"> <input type="button"
value="删   除" onclick="recorddelete()"> <input type="button"
value="保   存" onclick="submitchanges()"> <input type="button"
value="返   回" onclick="cancleupdate()"></p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -