📄 web示例.htm

📁 lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件
💻 HTM
字号:
<HTML>
	<HEAD>
		<TITLE></TITLE>
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie4">
		<META name="VI60_defaultClientScript" content=VBScript>
		<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

		<SCRIPT LANGUAGE="vbscript">
<!--
public sub ok()
  on error resume next
  dim wwidth
  wwidth=window.screen.width -lgxgrid1.width
  if wwidth>770 then'
    wwidth=770
  end if
  if (wwidth -lgxgrid1.width)/2>0 then
    Datab.style.left =(wwidth -lgxgrid1.width)/2 & "px"
  else
    Datab.style.left ="0px"
  end if  
  '学生基本情况
  lgxgrid1.hadd "学校名称",2,1500,true
  lgxgrid1.hadd "学籍号",1,1000,true
  lgxgrid1.hadd "姓名",1,600,true
  lgxgrid1.hadd "性别",1,450,true
  lgxgrid1.hadd "出生年月",1,800,true
  lgxgrid1.hadd "班别",1,600,true
  lgxgrid1.hadd "户口所在地",1,1500,true
  lgxgrid1.hadd "实际住址",1,1500,true
  '监护人情况
  lgxgrid1.hadd "姓名",1,600,true
  lgxgrid1.hadd "工作单位",1,1500,true
  lgxgrid1.hadd "联系电话",1,1000,true
  '合并表头
  lgxgrid1.Unite "学生基本信息",0,0,0,7,1
  lgxgrid1.Unite "就读学校",1,0,1,0,1
  lgxgrid1.Unite "学籍号",1,1,1,1,1
  lgxgrid1.Unite "姓名",1,2,1,2,1
  lgxgrid1.Unite "性别",1,3,1,3,1
  lgxgrid1.Unite "出生年月",1,4,1,4,1
  lgxgrid1.Unite "班别",1,5,1,5,1
  lgxgrid1.Unite "户口所在地",1,6,1,6,1
  lgxgrid1.Unite "实际住址",1,7,1,7,1
  lgxgrid1.Unite "监护人信息",0,8,0,10,1
  lgxgrid1.Unite "姓名",1,8,1,8,1
  lgxgrid1.Unite "工作单位",1,9,1,9,1
  lgxgrid1.Unite "联系电话",1,10,1,10,1
  
  Datab.style.top = "88px"
  datab.style.visibility ="visible"
  if err.number <>0 then 
    if msgbox("    你没有安装LGXGRID2.0控件，如果要正常查看网页，必须下载安装这个控件。你想下载安装这个控件吗？（控件下载后，必须手动运行setup.exe来进行安装。）",1,"LGXGRID2.0控件没有安装！")=1 then
      window.location.href ="lgxgrids/LgxGridsV21.rar"
    end if  
  end if   

end sub

sub zdx()
  dim zfram
  set zfram=window.frames.item(0)
  zfram.cd1.style.backgroundColor ="#d4d2c9"
  zfram.cd1.style.color ="#000000"
  zfram.p1.src ="h2.bmp"
  zfram.cd2.style.backgroundColor ="#d4d2c9"
  zfram.cd2.style.color ="#000000"
  zfram.cd3.style.backgroundColor ="#d4d2c9"
  zfram.cd3.style.color ="#000000"
  zfram.p3.src ="p2.bmp"
  zfram.cd4.style.backgroundColor ="#d4d2c9"
  zfram.cd4.style.color ="#000000"
  zfram.cd5.style.backgroundColor ="#d4d2c9"
  zfram.cd5.style.color ="#000000"
  zfram.cd6.style.backgroundColor ="#d4d2c9"
  zfram.cd6.style.color ="#000000"
  zfram.cd7.style.backgroundColor ="#d4d2c9"
  zfram.cd7.style.color ="#000000"
end sub

//-->
		</SCRIPT>
<SCRIPT LANGUAGE="vbscript" FOR="lgxgrid1" EVENT="MouseDown(Button,Shift,x,y)">
<!--
  if button=2 then
    cd.style.left=mid(datab.style.left,1,len(datab.style.left)-2)+x+3
    cd.style.top =mid(datab.style.top,1,len(datab.style.top)-2)+y+3
    cd.style.visibility ="visible"  
  else  
    cd.style.visibility ="hidden"
    zdx
  end if  
//-->
</SCRIPT>


<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub document_onclick
 cd.style.visibility ="hidden"  
 zdx
End Sub

-->
</SCRIPT>
</HEAD>
	<BODY onload="ok">
		<div id="cd" align="left" style="Z-INDEX: 1; LEFT: 14px; VISIBILITY: hidden; WIDTH: 334px; POSITION: absolute; TOP: 150px; HEIGHT: 62px">
	</div>
		<div align="center" id="bt"><STRONG><FONT face="黑体" color="mediumblue" size="6">中小学生学籍管理系统</FONT></STRONG>
			<br>
			（请用鼠标右键单击表格，弹出菜单进行操作）
		</div>
		<p id="Datab" style="VISIBILITY: hidden; POSITION: absolute; TOP: 88px">
<OBJECT id=lgxgrid1 style="FONT-SIZE: 9pt; WIDTH: 768px; HEIGHT: 288px;left:0px" 
height=288 width=768 classid=clsid:4DC4980D-D9B2-43C8-A535-A78C396E9DBA><PARAM NAME="_ExtentX" VALUE="20320"><PARAM NAME="_ExtentY" VALUE="7594"><PARAM NAME="slwok" VALUE="0"><PARAM NAME="backcolor" VALUE="16777215"><PARAM NAME="forecolor" VALUE="0"><PARAM NAME="hforecolor" VALUE="0"><PARAM NAME="hbackcolor" VALUE="-2147483633"><PARAM NAME="linecolor" VALUE="-2147483636"><PARAM NAME="txtsnap" VALUE=""><PARAM NAME="CloseAdd" VALUE="0"><PARAM NAME="RowHeight" VALUE="270"><PARAM NAME="AutoEdit" VALUE="0"><PARAM NAME="EditAspect" VALUE="0"><PARAM NAME="RowsMode" VALUE="0"></OBJECT>
		</p>
<SCRIPT LANGUAGE=vbscript>
<!--
cd.innerHTML="<IFRAME style='WIDTH: 100px; HEIGHT: 151px' id=lodyes name=iframe1 src='cd.htm' frameBorder=0 width=60 scrolling=no height=100></IFRAME>"
-->
</SCRIPT>

	</BODY>
</HTML>
⌨️ 快捷键说明

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