|
3#
楼主 |
发表于 2006-7-3 15:10:08
|
只看该作者
GUI_load("F:\\工作测试\ykyf\\yfrk\\药库管理.GUI");
# 药库管理
set_window ("药库管理", 2);
datawindow_text_click ("dw_left", "药品入库");
# 药品入库
set_window ("药品入库", 2);
obj_type ("dw_master.Fellowname","0<kReturn_E>");
# 单位选择
set_window ("单位选择", 1);
tbl_activate_cell ("dw_1", "OfficeId=239", "OfficeName");
# 药品入库
set_window ("药品入库", 3);
tbl_set_selected_cell ("dw_1", "#1", "mediname");
obj_type ("dw_1.mediname","0<kReturn_E>");
# 选择药品或材料
set_window ("选择药品或材料", 1);
tbl_activate_cell ("dw_main", "#6", "nameAndSpec");
# 药品入库
set_window ("药品入库", 1);
obj_type ("dw_1.InOutNum","22<kReturn_E>");
obj_type ("dw_1.ActPri","44<kReturn_E>");
obj_type ("dw_1.Discount","44<kReturn_E>");
obj_type ("dw_1.JobPri","44<kReturn_E>");
db_record_check("list1.cvr", DVR_ONE_OR_MORE_MATCH, record_num);
db_record_check("list2.cvr", DVR_ONE_MATCH, record_num);
button_press ("F8 保存");
# 信息
set_window ("信息", 1);
button_press ("确定");
该操作的目的是检测界面的数据是否被写到数据库中 |
|