小弟我用Delphi+intraweb9.0.15+Javascript开发一个B/S系统时发现的有关问题
发布时间:2011-06-24 19:37:25 文章来源:www.iduyao.cn 采编人员:星星草
我用Delphi+intraweb9.0.15+Javascript开发一个B/S系统时发现的问题。
我想通过点击checkbox1后,checkbox2变成未选状态。可是下面的代码并不改变checkbox2 ^_^
<html><head>
<style type="text/css">
.IWCHECKBOX1CSS {position:absolute;left:80;top:104;z-index:100;font: 10pt;}
.IWCHECKBOX2CSS {position:absolute;left:80;top:160;z-index:100;font: 10pt;}
.IWLABEL1CSS {position:absolute;left:88;top:48;z-index:100;font: 10pt;}
</style>
<script language="Javascript1.2">
function FormDefaultSubmit()
{return false;}
function Validate() {return true;}
var GURLBase="";
var GAppID="6C45DF00FFE730FFB490E340";
history.go(1);
function Checkbox2uncheck(){
IWLABEL1.innerHTML='lxyang';
Checkbox(IWCHECKBOX2).checked=true;
}
function IWCHECKBOX1_onClick(ASender) {
Checkbox2uncheck()
}
var IWCHECKBOX1IWCL;
var IWCHECKBOX2IWCL;
var IWLABEL1IWCL;
function InitIWCLObjects() {
IWCHECKBOX1IWCL = new CreateIWCLObject(IWCLForm, "IWCHECKBOX1", "IWCHECKBOX1IWCL");
if (IWCHECKBOX1IWCL.Item != null) {
IWCHECKBOX1IWCL.SetAlign(alNone);
IWCHECKBOX1IWCL.SetAnchors(new CreateAnchors(true, false, true, false));
}
IWCHECKBOX2IWCL = new CreateIWCLObject(IWCLForm, "IWCHECKBOX2", "IWCHECKBOX2IWCL");
if (IWCHECKBOX2IWCL.Item != null) {
IWCHECKBOX2IWCL.SetAlign(alNone);
IWCHECKBOX2IWCL.SetAnchors(new CreateAnchors(true, false, true, false));
}
IWLABEL1IWCL = new CreateIWCLObject(IWCLForm, "IWLABEL1", "IWLABEL1IWCL");
if (IWLABEL1IWCL.Item != null) {
IWLABEL1IWCL.SetAlign(alNone);
IWLABEL1IWCL.SetAnchors(new CreateAnchors(true, false, true, false));
}
Body_OnResize();
}
function Initialize() {
InitSubmitter();
StaticInit();
if (document.body.leftMargin < 0 && document.body.topMargin < 0) {
document.body.leftMargin = 0;
document.body.topMargin = 0;
}
InitRects(349, 296);
InitIWCLObjects();
}
</script>
<meta name="GENERATOR" content="IW5.0.43 Serial 0">
<script language=Javascript src="/js/IWCommon.js_5.0.43"></script>
<script language=Javascript src="/js/IWCL.js_5.0.43"></script>
<script language=Javascript src="/js/IWCSData.js_5.0.43"></script>
<script language=Javascript src="/js/IWExplorer.js_5.0.43"></script>
</head>
<body onload="Initialize()" onblur="GSubmitting = false;" onresize="return Body_OnResize();"><form onsubmit="return FormDefaultSubmit();" name="SubmitForm" action="/EXEC/1/6C45DF00FFE730FFB490E340" method="POST"><input type="HIDDEN" name="IW_Action">
<input type="HIDDEN" name="IW_ActionParam">
<span id="IWCHECKBOX1" name="IWCHECKBOX1_CHECKBOX" class="IWCHECKBOX1CSS"><input type="CHECKBOX" name="IWCHECKBOX1" id="IWCHECKBOX1_CHECKBOX" onclick="return IWCHECKBOX1_onClick(this);">
IWCheckBox1</span>
<span id="IWCHECKBOX2" name="IWCHECKBOX2_CHECKBOX" class="IWCHECKBOX2CSS"><input type="CHECKBOX" name="IWCHECKBOX2" id="IWCHECKBOX2_CHECKBOX">
IWCheckBox2</span>
</form>
<span id="IWLABEL1" class="IWLABEL1CSS">IWLabel1</span>
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
delphi 绘图
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (CheckBox1.Checked) then
begin
ADOQuery2.A...
-
键列信息不足或不正确,更新影响到过多的行
我把csv文件内的很多记录,要使用ado写入到excel中,结果报如题错误
问题该怎么解决啊
...
-
dax error : access violation at address
<OBJECT classid="clsid:A318A9AC-E75F-424C-9364-6B40A848FC6B" width=20 height=20 ...
-
c# 操作excel 去掉单元格已有的边框
如题,excel有黑色边框,怎么样才能把边框去掉?
------解决方案--------------------
SQL code
...
-
为什么现在delphi写的程序都会被杀软误报?
360杀毒,金山毒霸都误报有毒,没有写任何代码,生成都误报毒,SysConst.dcu只有12kb,自己没有...
-
关于Delphi7 调用C++ dll 传参问题。
C++ DLL h文件:C/C++ code
extern "C" __declspec(dllexport) unsigned int __stdcall W...
-
求高手封装成一个方法
C# code
private void Form1_Load(object sender, EventArgs e)
{
PrintDocument pr...
-
delphi7 dbexpress sqlserver2005
本人新手,请问delphi7可以用dbexpress中的sqlconnection组件连接sqlserver2005中的数据库吗?自己...
-
动态生成多个button并触发该事件 急!急!急!!!
在asp.net中,在指定位置动态生成了多个button,怎么样获取他所对应的ID
我的做法是:
在页面...
-
c#关于窗体间传值的问题
我在网上下了个代码,它的代码:在窗体A中能使用窗体B中定义的东西(它定义的是个委托)。
我却发现个很奇怪的事...