流行模式

begin
if TableDoc.Fieldbyname('器具类别').asstring ='弹性元件式一般压力表、压力真空表和真空表' then
InputFormButtonClick('DInputFormTTabSheet0TButton1') ;
if TableDoc.Fieldbyname('器具类别').asstring ='电子天平' then
InputFormButtonClick('DInputFormTTabSheet0TButton0');
if TableDoc.Fieldbyname('器具类别').asstring ='热电阻(0-600℃);≤1.0级' then
InputFormButtonClick('DInputFormTTabSheet0TButton2');
if TableDoc.Fieldbyname('器具类别').asstring ='热电偶(0-1600℃);≤0.5级' then
InputFormButtonClick('DInputFormTTabSheet0TButton3');
if TableDoc.Fieldbyname('器具类别').asstring ='砝码(克组)' then
InputFormButtonClick('DInputFormTTabSheet0TButton4');
if TableDoc.Fieldbyname('器具类别').asstring ='砝码(公斤组)' then
InputFormButtonClick('DInputFormTTabSheet0TButton5');
if TableDoc.Fieldbyname('器具类别').asstring ='数字指示秤' then
InputFormButtonClick('DInputFormTTabSheet0TButton6');
end.

简述：一个录入窗口按钮较多，客户需要根据器具类别不同，自己判断去点哪个按钮跳转。
实现：在脚本中新增了一个函数，来模拟点击另一个按钮
可以用这个函数根据字段不同的内容模拟点击下面不同的按钮
把这些按钮隐藏起来，不看到。