当前位置:首页 >> 机械/仪表 >>

03 设计一张Easyflow新表单(双档)


制作一张 新Easyflow双档表单 (高级)
神州数码管理系统公司

前言
? 设计Easyflow双档表单是easyflow电子 设计Easyflow双档表单是easyflow电子 Easyflow双档表单是easyflow 表单向导提供的功能之一 ? 双档的含义:表单数据需要使用一张以 双档的含义: 上的数据表保存,例如: 上的数据

表保存,例如:订单数据包含 表单单头数据和订单明细物料数据。 表单单头数据和订单明细物料数据。因 此,一般我们称之为主要表和明细表

双档电子表单

使用电子表单向导,在Step4时候,选 择【主要明细文件资料】

使用电子表单向导, 时候, 使用电子表单向导,在Step5时候,输 时候 入数据表名称

使用电子表单向导, 时候, 使用电子表单向导,在Step6时候,选择【引入文件】, 时候 选择【引入文件】 装载表单背景表格图片

使用电子表单向导,在Step7时候,设计表单对象 使用电子表单向导, 时候, 时候 首先:选择主要资料表(此处是Dou001),并开始设计表单的单头部分字段(例如: ),并开始设计表单的单头部分字段 首先:选择主要资料表(此处是 ),并开始设计表单的单头部分字段(例如: 本表单的助理姓名、业务单位等), ),直到设计完成所有表单单头字段 本表单的助理姓名、业务单位等),直到设计完成所有表单单头字段

表单单单头字段部分

其次:选择明细资料表(此处是 ),并开始设计表单的明细部分字段 其次:选择明细资料表(此处是Dou002),并开始设计表单的明细部分字段(例 ),并开始设计表单的明细部分字段( 本表单的品号、品名、数量等), ),直到设计完成所有表单明细字段 如:本表单的品号、品名、数量等),直到设计完成所有表单明细字段

将明细字段的名称修改为易于理解的名称,例如: 将明细字段的名称修改为易于理解的名称,例如: 品号字段——txtid,以此类推 品号字段 以此类推

我们设定的屏幕 明细字段名称

列表的中文表头

本字段在列表 中的列顺序

本字段在列表 中的列宽及对 齐方式

选择字段设定

按【更新】保存 更新】
在屏幕上画一个Grid对象,然后鼠标左键双击 对象, 在屏幕上画一个 对象 弹出属性窗口

OK!画上3个button,开始设定程序代 !画上 个 , 设定功能分别为: 码,设定功能分别为: 【添加】、【删除】、【修改】 添加】 删除】 修改】

按【检视程序代码】按钮 检视程序代码】
选择【常用Button Click事件 事件】 选择【常用Button Click事件】 选择【新增Grid资料】 选择【新增Grid资料】 Grid资料 设定grid名称为屏幕Grid grid名称为屏幕Grid对象的 设定grid名称为屏幕Grid对象的 名称,此处为grid1 名称,此处为grid1

点击【工具箱】 点击【工具箱】 按【产生范例程序代码】 产生范例程序代码】

用鼠标左键将代码全部选中, 选择代码对象,此处选择了button1,即屏幕上的 用鼠标左键将代码全部选中, 选择代码对象,此处选择了 即屏幕上的 button1功能为:为Grid1增加一行数据 功能为: 按鼠标邮件将代码拷贝到剪贴板增加一行数据 功能为 将刚才复制到剪贴板的代码粘贴进 Button1_onclick事件中 事件中

同理,完成button2,button3的代码生成和粘贴动作 同理,完成button2,button3的代码生成和粘贴动作 button2,button3 按【储存】保存按钮代码 储存】

按【关闭】退出代码状态 关闭】

高级代码:累加求和函数
Grid名 ? 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 合计字段名

高级代码:累加求和函数
? 三个按钮函数的结束处均须呼叫求和函 数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("efst j007").value*document.all("efstj008").value else document.all("efstj009").value="0" end if end sub

? 如设计代码时遇到问题,可参考系统自 带《杂项请购单》CheckFieldData.asp文 件

恭喜!代码部分结束了, 恭喜!代码部分结束了,继 下一步】 续【下一步】吧

将button显示标题修改为汉字 显示标题修改为汉字

讨论与沟通


相关文章:
更多相关标签: