设计一张Easyflow新表单(双档.pptVIP

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
制作一张 新Easyflow双档表单 (高级) 神州数码管理系统公司 前言 设计Easyflow双档表单是easyflow电子表单向导提供的功能之一 双档的含义:表单数据需要使用一张以上的数据表保存,例如:订单数据包含表单单头数据和订单明细物料数据。因此,一般我们称之为主要表和明细表 双档电子表单 使用电子表单向导,在Step4时候,选择【主要明细文件资料】 使用电子表单向导,在Step5时候,输入数据表名称 使用电子表单向导,在Step6时候,选择【引入文件】, 装载表单背景表格图片 使用电子表单向导,在Step7时候,设计表单对象 首先:选择主要资料表(此处是Dou001),并开始设计表单的单头部分字段(例如:本表单的助理姓名、业务单位等),直到设计完成所有表单单头字段 表单单单头字段部分 其次:选择明细资料表(此处是Dou002),并开始设计表单的明细部分字段(例如:本表单的品号、品名、数量等),直到设计完成所有表单明细字段 将明细字段的名称修改为易于理解的名称,例如:品号字段——txtid,以此类推 在屏幕上画一个Grid对象,然后鼠标左键双击弹出属性窗口 选择字段设定 我们设定的屏幕明细字段名称 列表的中文表头 本字段在列表中的列顺序 本字段在列表中的列宽及对齐方式 按【更新】保存 OK!画上3个button,开始设定程序代码,设定功能分别为: 【添加】、【删除】、【修改】 按【检视程序代码】按钮 点击【工具箱】 选择【常用Button Click事件】 选择【新增Grid资料】 设定grid名称为屏幕Grid对象的 名称,此处为grid1 按【产生范例程序代码】 用鼠标左键将代码全部选中, 按鼠标邮件将代码拷贝到剪贴板 选择代码对象,此处选择了button1,即屏幕上的button1功能为:为Grid1增加一行数据 将刚才复制到剪贴板的代码粘贴进Button1_onclick事件中 按【储存】保存按钮代码 同理,完成button2,button3的代码生成和粘贴动作 按【关闭】退出代码状态 高级代码:累加求和函数 Sub CalcGrid() Dim GridArray, i, s1 GridArray = Grid1.GetGridArray s1 = 0 If IsArray(GridArray) = True Then For i = 0 To UBound(GridArray, 1) s1 = s1 + GridArray(i, 6) Next End If document.all(“total).Value = s1 End Sub 哪一列求和 合计字段名 Grid名 高级代码:累加求和函数 三个按钮函数的结束处均须呼叫求和函数Call CalcGrid,搞定求和 btnAdd_onclick btnDel_onclick btnEdit_onclick Sub btnDel_onclick() Grid1.DelItem Call CalcGrid End Sub 示例:依据单价和数量计算金额 sub efstj007_onchange() call sumof_efstj009 end sub sub efstj008_onchange() call sumof_efstj009 end sub sub sumof_efstj009() if isnumeric(document.all(efstj007).value) and isnumeric(document.all(efstj008).value) then document.all(efstj009).value=document.all(efstj007).value*document.all(efstj008).value else document.all(efstj009).value=0 end if end sub 数量字段名 单价字段名 金额字段名 如设计代码时遇到问题,可参考系统自带《杂项请购单》CheckFieldData.asp文件 将button显示标题修改为汉字 恭喜!代码部分结束了,继续【下一步】吧 讨论与沟通

文档评论(0)

ipad0c + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档