📄 к+

📁 我做的第一个学生管理系统
💻
字号:

<%
CategoryID=Request("CategoryID")
%>

<!--#include virtual="/school/public/print2.asp"-->

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生基本档案资料录入 欢迎使用欣科软件包</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body background="../images/di2001.jpg" topmargin="0">

<p><font size="6" color="#0000ff">学生基本档案资料录入
<OBJECT align=baseline classid=ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33 
height=14 id=RDS1 width=7 border = 0>
	<PARAM NAME="ExecuteOptions" VALUE="2">
	<PARAM NAME="FetchOptions" VALUE="3">
	<PARAM NAME="SortDirection" VALUE="-1">
	<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>

<OBJECT align=baseline classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 
height=14 id=RDS2 width=14 border = 0>
	<PARAM NAME="ExecuteOptions" VALUE="2">
	<PARAM NAME="FetchOptions" VALUE="3">
	<PARAM NAME="SortDirection" VALUE="-1">
	<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT></font><br><img src="Stripe1.gif" width"700">

<div align="center">

<table border="1" cellspacing="1" width="100%" height="290">
  <tr>
    <td width="100%" valign="top" height="156">
            <OBJECT align=baseline 
            classid=clsid:00028CD1-0000-0000-0000-000000000046 
            CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
            
            dataSrc=#rds1 height=165 id=grid1 
            style="HEIGHT: 165px; LEFT: 0px; TOP: 0px; WIDTH: 623px" width=623 
            VIEWASTEXT border = 0></OBJECT>
    </td>
    <td width="185" valign="top" height="166"><img id="photoid" datasrc="#rds1"
    Datafld="图片" width="120" height="145" alt="学生相片"> </td>
  </tr>
  <tr>
    <td width="100%" valign="top" height="153">
            <OBJECT align=baseline 
            classid=clsid:00028CD1-0000-0000-0000-000000000046 
             CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
            dataSrc=#rds2 height=165 id=grid2 
            style="HEIGHT: 165px; LEFT: 0px; TOP: 0px; WIDTH: 621px" width=621 
            VIEWASTEXT caption = ttt border = 0></OBJECT>
    </td>
    <td width="185" rowspan="2" height="130" valign="middle">
    <p align="center"><input type="button" value="新增数据" name="B1" onclick="recordadd()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
    <input type="button" value="保存数据" name="B2" onclick="SubmitChanges()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px">
    <input type="button" value="取消数据" name="B3" onclick="CancelUpdate()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px">
    <input type="button" value="删除数据" name="B4" onclick="recorddelete()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px">
    
    <input type="button" value="打印档案" name="B7" onclick="printing()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px">
    
    <input type="button" value="返    回" name="B6" onclick="backing()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px"></p></td>
  </tr>
  <tr>
    <td width="488" height="1">&nbsp;&nbsp;学号:<input name="code_id" size="10" > &nbsp;姓名:<input name="name_id" size="8" >&nbsp;<input type="button" value="查询数据"
    name="B3" onclick="recordfind()" style="FONT-FAMILY: 宋体; FONT-SIZE: 14px"></td>
  </tr>
  <script language="vbscript">

  rds1.server="http://<%=Request.ServerVariables("Server_name")%>"
  rds1.connect="database=school;uid=sa;pwd=;dsn=school"
  rds1.sql="select * from student"
  rds1.executeoptions=1
  rds1.refresh

  rds2.server="http://<%=Request.ServerVariables("Server_name")%>"
  rds2.connect="database=school;uid=sa;pwd=;dsn=school"
  rds2.sql="select * from <%=CategoryID%> where ltrim(rtrim(学号))='1000'"    '&ltrim(rtrim(grid1.columns.item(0)))&"'"
  rds2.executeoptions=1
  rds2.refresh

  'msgbox code_id.value
  
  

  'grid2.AllowAddnew=true
 ' grid2.AllowDelete=true
  'grid2.AllowUpdate=true
  'grid2.allowarrows=true

</script>



<script language="vbscript">
public titlename

sub printing

  rds2.sql="select * from <%=CategoryID%>  "   'where ltrim(rtrim(学号))='1000'"    '&ltrim(rtrim(grid1.columns.item(0)))&"'"
  rds2.executeoptions=1
  rds2.refresh
  
  if RDS2.Recordset.recordcount>0 then
  
     grid2.allowaddnew=true

     titlename=inputbox("请输入需要打印的表头","提示窗口")
     
     call printer2()
     

  else
  
      msgbox "没有可打印的记录",,"提示窗口"

  end if

end sub



  sub recorddelete()
  
  if rds2.recordset.recordcount=1 then
     msgbox "不能再进行数据删除,因为只有一条数据",,"提示窗口"
     exit sub
  end if
     

   if grid2.row<0 then

      msgbox "没有数据可删除",,"提示窗口"
      exit sub

	else

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

        grid2.rebind
       
     
  end if

 end if 

end sub

'==============



Sub SubmitChanges()

    moveflag = true

	
	
	if grid2.row > 1 then

      grid2.row = grid2.row -1

	else

 
       rds2.recordset.movenext
   
	'	grid2.row =grid2.row +1

		moveflag = false

	end if

'	grid2.Editactive = False
  

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

' l_tag="0"

 End If

 
 if  moveflag then
      grid2.row = grid2.row +1
 else
      RDS1.Recordset.MovePrevious    
     ' grid2.row = grid2.row -1
 end if
   

end sub

sub recordadd()

    
   

  ' grid2.editactive=true
   
   rds2.recordset.addnew
 
   rds2.recordset.movelast
    
   grid2.columns.item(0).value=grid1.columns.item(0)
  
  grid2.AllowAddnew=true
  grid2.AllowDelete=true
  grid2.AllowUpdate=true
 ' grid2.allowarrows=true

   
end sub

sub grid1_dblclick()

     rds2.sql="select * from <%=CategoryID%> where ltrim(rtrim(学号))='"&ltrim(rtrim(grid1.columns.item(0)))&"'"
     rds2.executeoptions=1
     rds2.refresh

end sub
   
Sub CancelUpdate()
   On Error Resume Next
   RDS2.CancelUpdate
   If Err.Number <> 0 Then
      'RDS1.CancelUpdate
      MsgBox "无法恢复原来数据！"
   End If
   Grid2.Rebind
End Sub


sub grid1_beforecoledit(colindex,oldvalue,cancle)

   msgbox "不能在此编辑基本资料",,"提示窗口"
   cancle=true

end sub


sub recordfind()

 

  if  len(trim(code_id.value))<>0 then
	grid1.row=0

	ef=false

  '  msgbox ef
	 
	while not ef
	 

	   if ltrim(rtrim(grid1.columns.item(0)))=ltrim(rtrim(code_id.value)) then

	      rds2.sql="select * from <%=CategoryID%> where ltrim(rtrim(学号))='"&ltrim(rtrim(grid1.columns.item(0)))&"'"
          rds2.executeoptions=1
          rds2.refresh

		  ef=true

       else
         
             If Not RDS1.Recordset.EOF Then

                 RDS1.Recordset.MoveNext
			   
			     

             End If

			 if  rds1.recordset.eof=true then
		       msgbox "没有找到此学生!"
               ef=flase  
			   exit sub
             end if

      end if

   wend

 elseif  len(trim(name_id.value))<>0 then

   grid1.row=0

	ef=false

  
	 
	while not ef
	 

	   if ltrim(rtrim(grid1.columns.item(2)))=ltrim(rtrim(name_id.value)) then

	      rds2.sql="select * from <%=CategoryID%> where ltrim(rtrim(学号))='"&ltrim(rtrim(grid1.columns.item(0)))&"'"
         
		  rds2.executeoptions=1
          rds2.refresh

		  ef=true

       else
         
             If Not RDS1.Recordset.EOF Then

                 RDS1.Recordset.MoveNext
			   
			     

             End If

			 if  rds1.recordset.eof=true then
		       msgbox "没有找到此学生!"
               ef=flase  
			   exit sub
             end if

      end if

   wend

  else

     msgbox "请输入查寻条件学号或者姓名!"

 end if

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

</table>
</div>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</SCRIPT>
</body>
</html>
⌨️ 快捷键说明

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