[Form]
TYPE=INPUT
FONT=24
SCR01= 2, 7,"删过期数据"
SCR02= 5, 1,"是否确定要删除？ "
SCR03= 7, 1,"按Ｆ１键删除 "
SCR04= 8, 1,"按ＥＳＣ键返回 "

TXT01= 9, 1,"   ","select m13code, mname1, mplu_no from t_base_merchandise where m13code = '!!1';",1

[Options]


[Events]
;OK="insert into s_data ( TT, DATA,  UU, ZZ ) values('!!1' & '@@@' & !!2 & '@@@' & !!3 & '@@@' & '!!ID' & '@@@' & '!!FID', '!!DATE', '!!UID','A');",1
OK="EXE"
F1="EXE"
F2="EXE"
SCAN=NEXT
ESC=2000,5
CLS=1

[!@@)$!!$$]
SCAN>0




