|
3#
楼主 |
发表于 2006-3-31 10:41:09
|
只看该作者
如果是独立运行就没有问题
call "F:\QDTEST\MODULE\cltong"();
cltong为下面的内容...
# 未命名工程2
set_window ("未命名工程2", 0);
#选择定额
obj_mouse_click ("TSelfAdvStringGrid", 344, 46, LEFT);
# 未命名工程2
set_window ("未命名工程2", 2);
# 点砼换算按妞
obj_mouse_click ("TPanel_19", 386, 12, LEFT);
# 砼换算
set_window ("砼换算", 3);
button_set ("C25", ON);
obj_get_text("TListBox", textH, 63, 3, 81, 12); # C25
if (textH="C25")
tl_step("砼换算正确",0,"");
else
tl_step("砼换算错误C25",1,"");
# 砼换算
obj_mouse_click ("确定", 26, 9, LEFT);
# 未命名工程2
set_window ("未命名工程2", 3);
# 材料汇总
obj_mouse_click ("TPageControl_1", 242, 12, LEFT);
wait(2);#等待汇总结束
obj_get_text("TSelfAdvStringGrid_3", Adv3text, 41, 113, 139, 133); # 570100100159001
if (Adv3text="570100100159001")
tl_step("材料换算后编号错误"Adv3text,1,"");
# 未命名工程2
set_window ("未命名工程2", 3);
obj_mouse_click ("TSelfAdvStringGrid_3", 101, 243, LEFT);
#工程量输入 注:以下二步 才能实现 切换到工程量输入
obj_mouse_click ("TPageControl", 86, 11, LEFT);
obj_mouse_click ("TPageControl_1", 86, 11, LEFT);
# 未命名工程2
set_window ("未命名工程2", 1);
obj_mouse_click ("TSelfAdvStringGrid", 254, 27, LEFT);
obj_mouse_click ("TSelfAdvStringGrid", 259, 48, LEFT);
#取换算后材料编辑
obj_get_text("TSelfAdvStringGrid_7", textS, 199, 68, 219, 82); # C25
if (textH != textS)
tl_step("砼换算错误C25",1,"");
# 晨曦工程清单计价系统 - [未命名工程2]
win_activate ("晨曦工程清单计价系统 - [未命名工程2]");
# 未命名工程2
set_window("未命名工程2", 5); |
|