1,请高人解释一下:
var
LocateParams:TLocateParams;
begin
LocateParams:=webdm.dsa_custinfo.LocateParamsList.Add;
LocateParams.AddParam('custName',FqName);
LocateParams.AdapterName:=webdm.dsa_custinfo.Name;
if not webdm.dsa_custinfo.Locate then
adpQuery.Errors.AddError('找不到'+FqName+'的资料!');
end;每一行的意思,我不明白?它的查询原理是什么?2,我想在页面的grid中使用复选框来选定记录,保存时将选定的记录的修改保存回数据库。这个能实现吗?如何实现?3,在DataSetAdapter1中的加入field 在onGetDisplayText中加入
valeu:='<a href=".......">'+field.Value+'</a>',但怎样使打开的页面中的数据定位到
点击的记录呢?4,DataSetAdapter1中grid的列宽如何控制,我的自己会变。
var
LocateParams:TLocateParams;
begin
LocateParams:=webdm.dsa_custinfo.LocateParamsList.Add;
LocateParams.AddParam('custName',FqName);
LocateParams.AdapterName:=webdm.dsa_custinfo.Name;
if not webdm.dsa_custinfo.Locate then
adpQuery.Errors.AddError('找不到'+FqName+'的资料!');
end;每一行的意思,我不明白?它的查询原理是什么?2,我想在页面的grid中使用复选框来选定记录,保存时将选定的记录的修改保存回数据库。这个能实现吗?如何实现?3,在DataSetAdapter1中的加入field 在onGetDisplayText中加入
valeu:='<a href=".......">'+field.Value+'</a>',但怎样使打开的页面中的数据定位到
点击的记录呢?4,DataSetAdapter1中grid的列宽如何控制,我的自己会变。
解决方案 »
- 请问在DELPHI哪个GRID控件可以做到XLS数据透视表那种效果
- 是不是delphi2009的bug?
- 帮我看看哪里错了,关于动态显示窗口的.
- 简单的问题 时间延迟函数或则怎么实现程序等待200毫秒后继续执行
- 请问分辨率问题
- 关于IFormDesigner接口的问题
- 插入数据时报错“查询值的数目与目标字段中的数目不同”,求教!
- Query1的filter的属性设置问题
- 当用平常的方法进不来csdn时,用这种进入csdn的方法...
- 谁知道在DBGrid表格控件中如何为某一字段自动求总和,这问题我问了三天了,但仍未解决,我都快疯了,是指当数据表中的数值发生变化时该字段的的结果也自动发生变化。高手,高手帮忙!!,公司老板快逼死我了。
- 急!!!怎样才能在空的记录后面最加多条记录?
- 谁有文件和文件夹的拷贝、删除等相关功能的代码
<!--#include file="../Connections/MySiteConnection.asp" -->
<!--#include file="../function.asp" -->
<html>
<head>
<title>
<%
'定义链接类型
if request("Type")=empty then
ThisType="MyLink"
else
ThisType=request("Type")
end if
if ThisType="MyLink" then
TypeStr="常去的老地方"
else
TypeStr="临时链接"
end if
'输出标题
if ThisType="MyLink" then
response.Write("常去的老地方")
else
response.Write("保存的临时链接")
end if
%>
</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../MySite.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#3399CC">
<form name="gb" id="gb">
<div align="center"><%=TypeStr%>:<a href="AddURL.asp?Type=<%=ThisType%>">添加新的链接</a>
</div>
<p>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="73%"><div align="center">链接名称</div></td>
<td width="16%"><div align="center">固定顶端</div></td>
<td width="11%"><div align="center">删除</div></td>
</tr>
<%
'删除URL
if request("dz")="Del" then
Lib_DelURL request("DelID")
end if
'返回URL集合
Set rsURL = Lib_ReadURL(ThisType)
If rsURL Is Nothing Then
response.Write "读取数据失败!"
response.End()
end if
'显示URL
while not rsURL.eof
response.Write "<tr>"
response.Write "<td><div align=center>"
response.Write "<a href="&rsURL("Address")&" target=_blank>"
response.Write rsURL("LinkName")&"</a>"
response.Write "</div></td>"
response.Write "<td><div align=center>"
'response.Write rsURL("IsTop")
if rsURL("IsTop")="Yes" then
response.Write "<input type=checkbox value=固定 id=IsTop"&rsURL("ID")&" onClick=""window.open('ChangeIsTop.asp?to=Not&id="&rsURL("ID")&"','改变固定顶端','width=10,height=10')"" checked>"
else
response.Write "<input type=checkbox value=不固定 id=IsTop"&rsURL("ID")&" onClick=""window.open('ChangeIsTop.asp?to=Yes&id="&rsURL("ID")&"','改变固定顶端','width=10,height=10')"">"
end if
response.Write "</div></td><td><div align=center>"
response.Write "<a href=ShowMyLink.asp?DelID="&rsURL("ID")&"&Type="&ThisType&"&dz=Del>删除</a>"
response.Write "</div></td></tr>"
rsURL.movenext
wend
%>
<tr>
<td colspan="3"><div align="center"><a href="#a" OnClick="location.reload();">手动刷新</a>
自动刷新
<input name="rload" type="checkbox" id="rload" value="auto" alt="选中将不会每次修改自动刷新" checked>
</div>
<div align="center"></div></td>
</tr>
</table>
</form>
</body>
</html>
ChangeIsTop.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/MySiteConnection.asp" -->
<!--#include file="../function.asp" -->
<%
ChangeTo =request("to")
ID =request("ID")
'response.Write ChangeTo&ID
Lib_ChangeIsTop ID,ChangeTo
%>
<script language="JavaScript">
if(window.opener.gb.rload.checked)
window.opener.location.reload();
close();
</script>
<html>
<head>
<title>改变</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#3399CC"></body>
</html>
var
LocateParams:TLocateParams;
begin
LocateParams:=webdm.dsa_custinfo.LocateParamsList.Add;//Add 方法创建并添加一个TLocateParams 实例
LocateParams.AddParam('custName',FqName);//定位到 custName字段值为 FqName 的记录
LocateParams.AdapterName:=webdm.dsa_custinfo.Name;//从webdm.dsa_custinfo相联的数据表中定位
if not webdm.dsa_custinfo.Locate then//开始定位
adpQuery.Errors.AddError('找不到'+FqName+'的资料!');//添加一个错误信息,在Script 中可用 Adapter.Errors 枚举对象读出
end;
在 Adapter 中添加一个 AdapterBooleanField 字段,将它添加到你的 Grid 中,其InputType 属性置为 iftCheckBox。当提交时,检查此字段值
<a href="url?ID=XXX">
在页模块的 BeforeDispatch 事件中,用 WebContext.Request.QueryFields.Values['ID']取得此 ID 值,然后用上述的 Locate 方法定位记录
页面中的adaptergrid已经连接到一个datasetadapter,如何在连接adapter呢?还有第五个问题,如何解决?谢谢,意思意思,请笑纳
选中新添加的字段,设置其 FieldName 属性为该 AdapterBooleanField 字段,再设置 InputType 属性,。至于 ImageProducer 属性,我一时想不起来怎么用了。
还有:
在 AdapterBooleanField 的OnGetValue 中的处理代码,我没弄过所以~~你就贴一个例子吧!谢谢
因为我不用 AdapterPageProducer ,我只用 PageProducer,然后自己写 Server-side Script。它其实就是 <a href=""..><img .....></a>OnGetValue 中,你只要 Value:=False 或 Value:=True 就行了,因为这只不过给出一个初始值,其最终结果将由 IE 用户选择。
[email protected]在线等待~
点 IE 的 工具|Internet 选项,在 “Internet 临时文件”部分点“设置”按钮,选中“每次访问此页时检查”
Access violation at address 004908D9 in module 'P_webcust.exe'. Read of address 00000000 --------------------------------------------------------------------------------
/P_webcust.adcust/relation
比如,上回我在结果集里用了lookup字段,但lookup 的那个key字段为空,就报这样的错。当然,你也问题也可能是其它原因导制的,你最好仔细查查。
我是用AdapterPageProducer,自已写服务器端脚本调用各Adapter,
我也有个问题PageProducer如何调用Adapter呢?我试了,把PageProducer换成AdapterPageProducer,好象不行啊
我都郁闷了几个礼拜了,我还要研究文字图形混排,没做过就是菜啊。我得qq:84533116