- 14
- 0
- 约1.83千字
- 约 18页
- 2017-02-04 发布于江苏
- 举报
制作一张新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)