华表CELL组件的应用技能提升( 二 ) _生活百科

strFun := '"天相函数" Double txGetDb(double n)';
Cell1.DefineFunctions(strFun);
End;
在Cell的自定义函数事件CalcFunc中定义函数的实现功能。 CalcFunc事件根据表格中输入内容确认时立即触发的机制实现与开发环境的互动。而Cell内置函数对CalcFunc事件无效，华表公司在这点上设计的非常合理。
procedure TForm1.Cell1CalcFunc(Sender: TObject; const name: WideString;
rettype, paranum: Integer);
begin
if name=’ txInterFace’ then //执行界面操作的自定义函数
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;
Cell1.SetFuncResult(1, '调用窗体成功！', 1);
//由于函数定义返回类型为string，所以实际返回‘调用窗体成功！’
end;
if name='txGetDb' then //执行数据库操作的自定义函数
with DataModal do
begin
if spTmp.Active then spTmp.Close;
// spTmp是ADOStoredProc的实例。返回从存储过程获取的数据
spTmp.ProcedureName:= 'PJC_SET_TRPT';
spTmp.Parameters.Refresh;
spTmp.Parameters.ParamValues['@XBH']:= '1010';
spTmp.Parameters.ParamByName('@RBH').Direction:= pdOutput;
spTmp.ExecProc;
Cell1.SetFuncResult(spTmp.Parameters.ParamValues['@RBH'], '', 0);
spTmp.Close;
end;
end;
下面是实际使用情况。

文章插图

在Cell表格中输入“=”号，弹出公式框，通过“？”按钮选择txInterFace函数或直接输入txInterFace函数，最后选择“√” 按钮，将立即触发CalcFunc事件中的txInterFace函数执行体，弹出Form2窗体，在Form2窗体你可以尽情地做自己的事啦。
使用自定义函数的另一个好处就是别人没法拷走你的表格，因为没有你的程序配合就无法实现表格独特的功能。
总而言之，我们已经利用Cell组件的强大功能解决了许多实际问题。

华表CELL组件的应用技能提升( 二 )

推荐阅读

柑橘保存方法和技巧视频柑橘保存方法和技巧

特别委屈的昵称，忧伤的昵称大全

关于初恋过去的句子

苹果13控制中心如何添加便捷功能？苹果13控制中心自定义方法介绍

家庭净资产100万什么水平家庭净资产是指什么

男孩取名带君字好吗男孩君字配什么字好听

腿纹/臀纹不对称就是髋关节发育有问题？学会自查方法，越早发现越好

花枝是什么电视剧花枝的电视剧介绍

李梦阳个人资料信息及简介

合肥高新社保余额查询怎么查，如何查询社保账户呢？

2022年4月出生的男孩起名用字读音有气势的名字

馄饨汤汁怎么调制

肉香肠怎么做的肉香肠的做法

空气炸锅烤虾的做法

十二星座应当王牌御史的哪个角色

起面油饼怎样做酥软方法很简单

花菜焯水大概2分钟就可以了,时间太久会影响它的口感,还可能导花菜焯水要多长时间

哪些星座的感情能够破镜重圆？

小龙虾怎么吃法步骤小龙虾怎么吃

大众suv有哪几款车型上汽大众suv有几款