表单学习笔记第四集ppt课件

1、表单学习笔记表单学习笔记 第四第四集集jh0101北京金和软件股份地址：北京市海淀区上地东路1号盈创动力大厦A座4层Add: 4F, Creative Power A, No.1 Shangdi East Road, Haidian District, 100085Faxh0101 2021年9月北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/2那么如今我们来一同整理整理grid控件的功能吧！ Grid Gr

2、id表可以用来显示数据集的数据表可以用来显示数据集的数据，其所关联的业务功能内容有很多种，其所关联的业务功能内容有很多种，如，如gridgrid表内联动，表内联动，gridgrid表弹出明细，表弹出明细，多表传值等。多表传值等。北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/3内容目录lgrid表美化l 自定义grid表标题l grid背景颜色控制l 删除grid空白行lgrid功能函数l grid列只读和可编辑l grid表单联动l grid中弹出窗口选择部门l

3、 grid表传送数据到另一个grid表l excel导入到grid表l grid导出到excel l l 北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/4自定义grid表标题我们做表单时是不是经常遇到这样的需求：1、需求将grid表标题某列跨列2、需求将grid表标题某行跨列3、需求自定义grid表标题背景颜色其实实现方法很简单 ！北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真F

4、ax址：http:/5自定义grid表标题恳求人信息恳求人信息申购部门填写申购部门填写行政部门填写行政部门填写序号序号恳求部门恳求部门恳求人恳求人恳求日期恳求日期物料称号物料称号规格规格数量数量用途用途申购时间要求申购时间要求采购完成时间采购完成时间数量数量价钱价钱小计小计总计总计备注备注 bgcolor=#ffffb0：grid标题背景颜色设置标题背景颜色设置colspan=4：grid标题某列所跨列数标题某列所跨列数 rowspan=1： grid标题某列所跨列数标题某列所跨列数留意行列的配置北京金和软件股份有限公司Beijing JinherSoftware

5、Co., Ltd.电话Tel传真Fax址：http:/6grid背景颜色控制函数：函数：/低于可用数背风光控制低于可用数背风光控制function SetBackColor()function SetBackColor() var t = document.getElementById(t);var t = document.getElementById(t);var len = t.childNodes(1).childNodes.length;var len = t.childNodes(1).childNodes.length;fo

6、r(var i = 1;ilen;i+)for(var i = 1;ilen;i+) var Flag = t.childNodes(1).childNodes(i).childNodes(9).innerText;var Flag = t.childNodes(1).childNodes(i).childNodes(9).innerText;if(Flag 600)if(Flag 600) t.childNodes(1).childNodes(i).childNodes(9).style.backgroundColor = t.childNodes(1).childNodes(i).chil

7、dNodes(9).style.backgroundColor = #ff0000;#ff0000; 效果图：效果图：北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/7grid背景颜色控制北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/8 删除grid空白行北京金和软件股份有限公司Beijing JinherSoftware Co.,

8、 Ltd.电话Tel传真Fax址：http:/9grid列只读和可编辑Grid某列只读的函数某列只读的函数function sys_SetGridColReadOnly(gridobj,colindex)if (typeof gridobj = undefined | gridobj = | gridobj = null)alert(请指定要设置为只读数据列的请指定要设置为只读数据列的grid控件。控件。);return;if (typeof gridobj != object)gridobj = eval(document.all.+g

9、ridobj);var cols = gridobj.tab.childNodes.item(0).childNodes.length;if (!isNaN(colindex) colindex = parseInt(colindex,10);if (colindex cols) gridobj.tab.children0.childrencolindex.setAttribute(cz,null);elsealert(指定只读列号超出指定只读列号超出grid列数范围，请重新指定。列数范围，请重新指定。);return;北京金和软件股份有限公司Beijing JinherSoftware Co

10、., Ltd.电话Tel传真Fax址：http:/10grid列只读和可编辑Grid某列的可编辑函数某列的可编辑函数function sys_SetGridColReadOnly1(gridobj,colindex)if (typeof gridobj = undefined | gridobj = | gridobj = null)alert(请指定要设置为只读数据列的请指定要设置为只读数据列的grid控件。控件。);return;if (typeof gridobj != object)gridobj = eval(document.

11、all.+gridobj);var cols = gridobj.tab.childNodes.item(0).childNodes.length;北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/11grid表单联动简述：经过改动grid表中的下拉框的值，改动其他下拉框中的值。留意：普通参与到改动事件中，放到单击事件里能够会出问题。北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fa

12、x址：http:/12grid表内联动function liandong() grid1.onCellChange = function() /grid单元格改动触发事件if(event.newTD.cellIndex =2) /点击第二列 var curRow = event.newTD.parentNode.rowIndex ; /焦点所在的当前行获取鼠标所在行var curRowValue1 = grid1.tab.rows(curRow).cells(1).innerText ;/得到焦点(鼠标)在第1列当前行的值if(IsSpace(curRowValue

13、1) = false) grid1.tab.childNodes(0).childNodes(2).cz = 称号select name from shujubiao where danwei=+curRowValue1+否否2event.showlist=true; else grid1.tab.childNodes(0).childNodes(2).cz = 称号select distinct name(原来是danwei) from shujubiao否否2event.showlist=true /二级联动if(event.newTD.cellIndex =3) varcurRow =

14、event.newTD.parentNode.rowIndex ;/焦点所在的当前行var curRowValue1 = grid1.tab.rows(curRow).cells(1).innerText ;/得到焦点在第1列当前行的值var curRowValue2 = grid1.tab.rows(curRow).cells(2).innerText ;/得到焦点在第2列当前行的值if(IsSpace(curRowValue1) = false&IsSpace(curRowValue2) = false) grid1.tab.childNodes(0).childNodes(3).

15、cz = 规格select kucunliang from shujubiao where danwei=+curRowValue1+ and name=+curRowValue2+ 否否2event.showlist=true; else grid1.tab.childNodes(0).childNodes(3).cz = 规格select distinct danwei from shujubiao where否否2event.showlist=true 北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax

16、址：http:/13grid中弹出窗口选择部门 在grid中运用系统自带的弹出框选择部门，有时会出现前往到grid中的值不能及时更新，影响客户运用。我们可以在grid中调用以下函数来实现一样的功能。function SelectDept()var str = sys_showDeptListExt(1);var arr = str.split(,);DsSub.Fields.FieldDeptID.Value = arr0;DsSub.Fields.FieldDeptName.Value = arr1;DsSub.bEdit = true; DsSub.Update

17、(不检查);DsToGrid(grid1,否);sys_showDeptListExt(selectType)写入函数中即可，只需求调用SelectDept()北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/14grid中弹出窗口选择部门function sys_showDeptListExt(selectType) if (typeof selectType = undefined) selectType = 1; /selectType=0为多项选择,sele

18、ctType=1的时候为单项选择. var myObject = new Object(); myObject.selectType = + selectType;/0是多项选择，1是单项选择 myObject.roleDepts = ; myObject.OldValue = ; var backValue=window.showModalDialog(./././JHSoft.Web.NetCall/Dept.aspx,myObject,dialogWidth:600px; dialogHeight:500px;status:no;help:no;scroll:no); var deptI

19、D = ; var deptName = ; if(backValue!=null & backValue != ) var arr=backValue.split(|); deptID = arr0; deptName = arr1; return deptID + , +deptName;北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/15grid表传送数据到另一grid表/查询表单内调用函数function inite() /查询表单内填充数据 sq

20、l=select * from CustomModule_2021615145533609; /CustomModule_2021615145533609对应维护产品的表单名 dataset1.Open(sql);function add() /查询表里面数据传送到录入表的对应字段 top.opener.dataset2.Append(); / dataset2对该当前录入表单内的相应数据集 top.opener.dataset2.Fields.Fieldxh.Value=dataset1.Fields.Fieldcmpc.Value; /cmpc内数据传送到xh字段内 top.opener.

21、dataset2.Fields.Fieldjjxh.Value=dataset1.Fields.Fieldbz.Value; top.opener.dataset2.fset_cont(); CloseBill(); /封锁窗口北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/16grid表传送数据到另一grid表/录入表单内调用函数function adds() /弹出选择窗口 window.open(“./././JHSoft.Web.Module/fcefor

22、m/common/djframe.htm?djsn=cpwhcx_cd41a29a-a263-4f98-896d-1daccc20df3c&djtype=TT&opentype =1&DjName=232&httpAppID=-2&ModuleID=aaaaa&IsNew=1“,_blank “,“left=170,top=130,width=600,height=400,toolbar=no,menubar=no,scrollbars=no,resizable=yes,location=no,status=no);function init()

23、 /删除GRID下的空行，默许删除第一行 if(dataset2.Fields.Fieldxh.Value=) dataset2.ClearData();北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/17grid表传送数据到另一grid表北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/18excel导入到gridfunction R

24、eadExcel() DsSub.Delete();var tempStr = ; var filePath= document.all.upfile.value; if(filePath = ) alert(请选择要导入的文件！); return; var oXL = new ActiveXObject(Excel.application); var oWB = oXL.Workbooks.open(filePath); oWB.worksheets(1).select(); var oSheet = oWB.ActiveSheet; try var Year = ; var DeptID

25、= ; var DeptName = ; var CostType = ; var ItemCode = ; var ItemName = ; var Money = ; var Remark = ; var i = 2;while(CostType != null | ItemCode != null | ItemName != null) DsSub.Append(); Year = oSheet.Cells(i,1).value; DeptID = oSheet.Cells(i,2).value; DeptName = oSheet.Cells(i,3).value;北京金和软件股份有限

26、公司Beijing JinherSoftware Co., Ltd.电话Tel传真Fax址：http:/19excel导入到grid CostType = oSheet.Cells(i,4).value; ItemCode = oSheet.Cells(i,5).value; ItemName = oSheet.Cells(i,6).value; Money = oSheet.Cells(i,7).value; Remark = oSheet.Cells(i,8).value; DsSub.Fields.FieldYear.Value =

27、 (Year) ? Year : ;DsSub.Fields.FieldDeptID.Value = (DeptID) ? DeptID : ;DsSub.Fields.FieldDeptName.Value = (DeptName) ? DeptName : ;DsSub.Fields.FieldCostType.Value = (CostType) ? CostType : ;DsSub.Fields.FieldItemCode.Value = (ItemCode) ? ItemCode : ;DsSub.Fields.FieldItemName.Value = (ItemName) ?

28、ItemName : ;DsSub.Fields.FieldMoney.Value = (Money) ? Money : ;DsSub.Fields.FieldRemark.Value = (Remark) ? Remark : ;DsSub.bEdit = true; DsSub.Update(不检查不检查); DsToGrid(grid1,否否);i+; DsSub.Delete(); alert(导入完成！导入完成！); catch(e) alert(导入失败！导入失败！); oXL.Quit();北京金和软件股份有限公司Beijing JinherSoftware Co., Ltd.

29、电话Tel传真Fax址：http:/20grid导出到excel方法一：方法一：function sys_GridToExcel(gridobj) if (typeof gridobj = undefined gridobj = gridobj = null) alert(请指定要导出数据的请指定要导出数据的grid控件控件); return; if (typeof gridobj != object) gridobj = eval(document.all.+gridobj); var url = mpt(请输入文件

30、名，例如请输入文件名，例如:test.xls；假设输入完好途径；假设输入完好途径，那么保管在指定途径中，例如：，那么保管在指定途径中，例如：D:OAFilesxcp.xls。默许存储途径为：。默许存储途径为：C:,); if(url = url = null) alert(输入的途径无效输入的途径无效,无法导出到文件无法导出到文件); return; if(url.substring(1,3)!=:) url = c: + url; var strlong=gridobj.tab.outerHTML.toString(); strlong=meta -equiv= Content-Type content= text/html; charset=gb2312+strlong; gridobj.SaveExcel(url,strlong);北京金和软件股份有限公司B