首 页 开发联盟 开发培训 下载中心 相关教程 点击排行 留言 开发手册
 
用户名:     密 码:     验证码:   
 
宏达软件开发网 > 文章中心 > 系统资料 >
利用脚本实现给某个字段赋值←赋值 主表 某个字段

利用脚本实现给某个字段赋值
发布时间: 2011/5/6 11:23:00

实现功能:通过功能按钮,实现主表中某个字段赋值。

实     例:将主表的‘打印’字段赋值“√”




脚本语句:
begin
DataMdl_Tabledoc.First
while not DataMdl_Tabledoc.eof do
begin
if not ((DataMdl_Tabledoc.state=dsedit) or (DataMdl_Tabledoc.state=dsinsert)) then DataMdl_Tabledoc.edit;
DataMdl_Tabledoc.Fieldbyname(’打印’).asstring:=’√’;
DataMdl_Tabledoc.post;
DataMdl_Tabledoc.next;
end;
end.

注释1:定位语句 

第一条:DataMdl_Tabledoc.First 

下一条:  DataMdl_Tabledoc.next 

最后一条:DataMdl_Tabledoc.eof

注释2:如果记录不是最后一条 执行下面的语句

while not DataMdl_Tabledoc.eof do
begin

执行语句

DataMdl_Tabledoc.next;
end;

注释3:如果主表不是编译或者插入状态,把主表置为编译状态。

if not ((DataMdl_Tabledoc.state=dsedit) or DataMdl_Tabledoc.state=dsinsert)then   DataMdl_Tabledoc.edit;

 

注释4:主表保存  

DataMdl_Tabledoc.post;

注释5:赋值   

DataMdl_Tabledoc.Fieldbyname(’打印’).asstring:=’√’;

36423581
上一篇:开发设计中应该注意的一些问题下一篇:没有了
关于我们 | 联系方式 | 合作方式 | 相关条款 | 常见问题
公司地址:山东省聊城市振兴路西路18号楼     邮政编码:252000    客服电话:0635-8386265
版权所有:HONGDA SOFTWARE    宏达软件     鲁ICP备09000001号