📄
字号:
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基本资料管理 </title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="Microsoft Theme" content="sumipntg 011">
<meta name="Microsoft Border" content="tlb, default">
</head>
<body background="../images/di2001.jpg" bgcolor="#FFFFFF" text="#808080" link="#3333CC"
vlink="#666699" alink="#990099">
<p align="center"><font color="#ff0000"><strong>教师基本资料录入</strong></font></p>
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="7" height="14">
<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="7" height="14">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
<!--mstheme--><div align="center"><center>
<table border="1" width="762" height="1" bordercolorlight="#C0C0C0"
bordercolordark="#003366">
<tr>
<td width="634" height="1" valign="top">
<object id="grid1" classid="clsid:00028CD1-0000-0000-0000-000000000046" width="619"
height="282" datasrc="#rds1" codebase="http://xk_server/test/tdbg6.ocx">
<param name="allowaddnew" value="0">
<param name="allowupdate" value="0">
</object>
<font color="#003366">查询条件</font><input type="text" id="condition_ID" size="55"><p>
<font color="#003366">查询栏目: <select id="field_id" size="1" onfocus="field_gotfocus()"
onblur="field_getSelect()">
<option selected value="1">教师代码</option>
</select>
比 较<select name="compare_id" size="1" onblur="compare_getSelect()">
<option value="1">等于 = </option>
<option value="2">大于> </option>
<option value="3">小于< </option>
<option value="4">小于等于<= </option>
<option value="5">大于等于>= </option>
<option value="6">不等于<> </option>
<option value="7">包含 </option>
</select>
条件<input type="text" name="express_id" size="10" onblur="express_input()">
逻 辑:<select id="logic_id" size="1" onfocus="logic_getfocus()"
onblur="logic_getSelect()">
<option value="1" selected>并且 </option>
<option value="2">或者 </option>
</select> </font><!--mstheme--></font></td>
<script language="VBScript">
dim fieldname(40)
colcount = 0
compare_select = false
field_select = false
express_input = false
logic_select = false
search_flag = false
RDS1.Server = vserver
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS1.SQL = "select * from teacher_base order by 教师代码"
saveSQL = RDS1.SQL
RDS1.Refresh
RDS2.Server = vserver
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS2.SQL = "select * from teacher_base order by 教师代码"
RDS2.Refresh
grid1.AllowAddnew = true
grid1.AllowDelete = true
grid1.AllowUpdate = true
</script>
<td valign="top" width="132"><img id="photoid"
datasrc="#rds1" Datafld="图片" width="119" height="160" alt="教师相片"><p
align="center"><input type="button" value="增加数据" name="insert_id"
style="font-family: 楷体_GB2312; font-size: 17" onclick="addrecord()"></p>
<p align="center"><input type="button" value="删除数据" name="delete_id"
style="font-family: 楷体_GB2312; font-size: 17" onclick="deleterecord()"></p>
<p align="center"><input type="button" value="保存数据" name="save_id"
style="font-family: 楷体_GB2312; font-size: 17" onclick="submitchanges()"></p>
<p align="center"><input type="button" value="查询数据" name="find_id"
style="font-family: 楷体_GB2312; font-size: 17" onclick="findrecord()"><!--mstheme--></font></td>
</tr>
<script language="vbscript">
Sub SubmitChanges()
moveflag = true
if grid1.row > 0 then
grid1.row = grid1.row -1
else
grid1.row =grid1.row +1
moveflag = false
end if
grid1.Editactive = ture
On Error resume next
RDS1.SubmitChanges
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法更新数据！"
End If
if moveflag then
grid1.row = grid1.row +1
else
grid1.row = grid1.row -1
end if
End Sub
Sub CancelUpdate()
On Error Resume Next
RDS1.CancelUpdate
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法恢复原来数据！"
End If
Grid1.Rebind
End Sub
sub addrecord()
' msgbox "不能运行增加功能，如要增加请运行学号管理模块！"
' exit sub
grid1.EditActive = true
rds1.recordset.addnew
grid1.col = 0
End sub
sub deleterecord()
'exit sub
yn = msgbox("是否删除此学生的信息？",4,"请特别注意！")
if yn = vbNo then
exit sub
end if
IF NOT rds1.recordset.EOF and NOT rds1.recordset.BOF then
rds1.recordset.delete
grid1.Rebind
else
msgbox "已经到数据库的末尾或开始！不能删除！"
end if
end sub
sub grid1_BeforeColUpdate(colindex,oldvalue,cancle)
new_value = grid1.columns.item(colindex)
select case colindex
case 0
rds2.sql = "select * from teacher_base where rtrim(教师代码)= '" & _
trim(new_value)&"'"
rds2.ExecuteOptions = 1
rds2.refresh
if rds2.recordset.recordCount>0 then
msgbox "教师代码重复!请重新输入!"
cancle = true
end if
case 1
if len(trim(new_value)) =0 then
msgbox "教师姓名不能为空！请重新输入"
cancle = true
end if
case 3
'sexpopup.popup
document.write "<select id='selid' datasrc='#RDS!' Datafld=' 姓名'>"
document.write "<Option value='男'>男</option>"
document.write "<Option value='女'>女</option>"
document.write "</select>"
if trim(new_value)<>"女" and trim(new_value)<>"男" then
msgbox "姓别输入错或不能为空！请重新输入"
cancle = true
end if
end select
end sub
SUB GRID1_headclick1(colindex)
if colindex >0 then
Grid1.Columns.Remove ColIndex
else
msgbox "不能删除第一列"
end if
END SUB
SUB GRID1_BeforDelete(A,b)
END SUB
sub field_getSelect()
if field_select then
exit sub
end if
condvalue = condition_id.value
condition_id.value = condvalue + fieldname(field_id.selectedindex)
field_select = true
compare_select = false
express_select = false
logic_select = false
end sub
sub compare_getSelect()
if compare_select then
msgbox "已经输入比较操作符!"
exit sub
end if
condvalue = condition_id.value
if len(trim(condvalue)) = 0 then
condvalue = "教师代码"
end if
select case compare_id.selectedindex
case 0
condvalue = condvalue + "="
case 1
condvalue = condvalue + ">"
case 2
condvalue = condvalue + "<"
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 field_Gotfocus()
if len(trim(condition_id.value)) = 0 then
field_select = false
compare_select = false
express_select = false
logic_select = false
end if
if colcount > 0 then
exit sub
end if
colcount = grid1.columns.count
fieldname(0)="教师代码"
for i=1 to colcount-1
colcaption = grid1.columns.item(i).caption
fieldname(i) = colcaption
set oOption = document.createElement("OPTION")
oOption.text = colcaption
oOption.value = cstr(i+1)
document.all.field_id.add(oOption)
next
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 findrecord()
if len(trim(condition_id.value))=0 then
msgbox "请先输入查询条件！"
exit sub
end if
rds1.sql =" select * from teacher_base 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
end sub
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 "性别"
'colsel.button = true
if grid1.columns.item(colindex).value = "男" then
grid1.columns.item(colindex).value = "女"
else
grid1.columns.item(colindex).value = "男"
end if
cancel = true
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
</script>
<OBJECT classid=CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB id=PhotoDlg
style="HEIGHT: 68px; LEFT: 151px; POSITION: center; TOP: 288px; WIDTH: 124px">
<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>
</table>
</center></div><!--mstheme--></font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -