📄
字号:
<%
CategoryID=Request("CategoryID")
%>
<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 3.0">
<title>基本资料项目设置 欢迎使用欣科软件包</title>
</head>
<body background="../images/Bkg35.jpg">
<p><font size="6" color="#0000ff">档案项目设置</font><br>
<img src="../images/Stripe1.gif" width="600" height="1"><br>
<input type="button" value="第一条" onclick="movefirst()"
style="color: rgb(51,45,132); font-family: 楷体_GB2312; font-size: 15" id="button2"
name="button2"><input type="button" value="上一条" onclick="MovePrevious()"
id="button3" name="button3" style="font-family: 楷体_GB2312; font-size: 15"><input
type="button" value="下一条" onclick="MoveNext()" id="button4" name="button4"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button" value="添 加" id="ins"
onclick="recordadd()" id="button5" name="button5"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button" value="删 除" id="del"
onclick="recorddelete()" id="button6" name="button6"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button" value="保 存"
onclick="SubmitChanges()" id="button7" name="button7"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button" value="取 消"
onclick="cancleupdate()" id="button8" name="button8"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button"
value="最后一条" onclick="MoveLast()" id="button1" name="button1"
style="font-family: 楷体_GB2312; font-size: 15"><input type="button" value="返 回"
onclick="backing()" id="button9" name="button9"
style="font-family: 楷体_GB2312; font-size: 15">
<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="12">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
</p>
<script language="VBScript">
public text11
'msgbox <%=categoryid%>
RDS1.Server = "http://<%=Request.ServerVariables("Server_name")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
RDS1.SQL = "select * from <%=categoryid%>_p order by convert(int,序号)"
RDS1.Refresh
RDS1.Server = "http://<%=Request.ServerVariables("Server_name")%>"
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
</script>
<div align="left">
<table border="1" width="100%">
<tr>
<td valign="top" width="65%">
<object align="baseline" classid="clsid:00028CD1-0000-0000-0000-000000000046"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc="#rds1" height="329" id="grid1" name="grid1" style="LEFT: 0px; TOP: 0px"
width="450" border="0" VIEWASTEXT>
</object>
</td>
<td valign="top" width="35%"><h5> <font color="#0000FF"> </font><font
color="#0000FF" face="宋体"> </font><font color="#0000FF" size="2">使用说明</font></h5>
<h5><font color="#0000FF">(1)项目名称:字段名称
类型：字段数据类型 宽度：字段数据宽度
小数：字段小数位</font></h5>
<h5><font color="#0000FF">(2)项目名称严格按照字段名要求定义，不得重复</font></h5>
<h5><font color="#0000FF">(3)类型必须为字符型(char)位型(bit)、整数型(int)、日期时间型(datetime)、和精确数值型(decimal)</font></h5>
<h5><font color="#0000FF">(4)bit、int、datetime类型的宽度和小数为空,char型的宽度大于零、decimal型的宽度大于1、小数必须小于宽度</font></h5>
<h5><font color="#0000FF">(5)基本项目不能删改</font></h5>
</td>
</tr>
</table>
</div><script language="vbscript">
grid1.AllowAddnew=true
grid1.AllowDelete=true
grid1.AllowUpdate=true
grid1.allowarrows=true
</script>
<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()
grid1.editactive = true
end sub
sub recordadd()
row_1=0
RDS2.sql="select max(convert(int,序号)) from <%=categoryid%>_p "
RDS2.ExecuteOptions =1
RDS2.Refresh
ins.disabled=true
del.disabled=true
grid1.editactive=true
rds1.recordset.addnew
rds1.recordset.movelast
grid1.Columns.Item(0).Value=RDS2.Recordset.fields(0)+1
end sub
'sub grid1_click()
'msgbox grid1.row
'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 <%=categoryid%>_p where 序号 ='" & 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 <%=categoryid%>_p where 项目名称 ='" & oldvalue & "' or 项目名称='"&new_value&"' "
rds2.ExecuteOptions = 1
rds2.refresh
if rds2.recordset.recordCount>0 then
msgbox "此项目名称已存在表中！",,"提示窗口"
cancle = true
exit sub
end if
case 2
if rtrim(new_value)="bit" then
if len(trim(grid1.columns.item(3)))>0 then
msgbox "宽度和小数只能为空!"
end if
cancle=false
exit sub
elseif rtrim(new_value)="int" then
if len(trim(grid1.columns.item(3)))>0 then
msgbox "宽度和小数只能为空!"
end if
cancle=false
exit sub
elseif rtrim(new_value)="datetime" then
if len(trim(grid1.columns.item(3)))>0 then
msgbox "宽度和小数只能为空!"
end if
cancle=false
exit sub
elseif rtrim(new_value)="char" then
if len(trim(grid1.columns.item(4)))>0 then
msgbox "小数只能为空!"
end if
cancle=false
exit sub
elseif rtrim(new_value)="decimal" then
exit sub
else
msgbox "数据类型输入错误,请重新输入!"
cancle=true
exit sub
end if
case 3
if rtrim(grid1.columns.item(2))="int" or rtrim(grid1.columns.item(2))="bit" or rtrim(grid1.columns.item(2))="datetime" then
if len(trim(new_value))>0 then
msgbox "因为此记录的类型是int、bit和datetime其中的一个，所以宽度不需要录入!"
cancle=true
exit sub
end if
end if
if rtrim(grid1.columns.item(2))="char" or rtrim(grid1.columns.item(2))="decimal" then
if len(trim(new_value))=0 or rtrim(new_value)="0" then
msgbox "因为此记录的类型是char和decimal中的一个，所以宽度不能为空,必须大于0 !"
cancle=true
exit sub
end if
end if
case 4
if rtrim(grid1.columns.item(2))="decimal" and len(trim(new_value))=0 then
'if len(trim(new_value))=0 then
msgbox "小数不能为空!"
cancle=true
exit sub
' end if
elseif rtrim(grid1.columns.item(2))="decimal" and rtrim(grid1.columns.item(3))="1" then
if rtrim(new_value)>"1" then
msgbox "或者小数列只能为0 !"
end if
elseif rtrim(grid1.columns.item(2))="decimal" and rtrim(grid1.columns.item(3))>"1" then
if rtrim(new_value)>rtrim(grid1.columns.item(3)) or rtrim(new_value)=rtrim(grid1.columns.item(3)) then
msgbox "小数不能等于宽度或不能大于宽度!"
end if
end if
end select
END sub
sub recorddelete()
l_ok = msgbox("你真的要删除此项目吗!",1,"提示")
if l_ok = 1 then
if ltrim(rtrim(grid1.columns.item(1)))="学号" or ltrim(rtrim(grid1.columns.item(1)))="班号" or ltrim(rtrim(grid1.columns.item(1)))="姓名" then
msgbox "对不起! 基本项目不能删除!"
exit sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -