PB数据窗口

数据窗口小结
数据窗口进行删除数据时:

int zgxx_id=integer(sle_3.text)
PREPARE SQLSA
        FROM "DELETE FROM ZGXX WHERE id=?";
        EXECUTE SQLSA USING :zg_id2;
        messagebox("提示","删除完毕!")

应用场景:主要注意分号的使用不加上会报错误

int s,zgxx_id,zg_id2
zgxx_id=integer(sle_3.text)
s=dw_1.getrow()
zg_id2=dw_1.getitemNumber(s,"id")
st_4.text="当前数据:(现有"+string(dw_1.rowcount())+"条)"
if zgxx_id<>0 then
    if messagebox("删除","是否真要删除工号为"+string(zgxx_id)+"的数据",Question!,YesNo!,2)=1 then
        PREPARE SQLSA
        FROM "DELETE FROM ZGXX WHERE id=?";
        EXECUTE SQLSA USING :zgxx_id;
        messagebox("提示","删除完毕!")
    end if
ELSE
 if s>0 then
    //如果有数据
    //让用户确定是否真要删除数据
    if  messagebox("删除","是否真要删除姓名为"+dw_1.getitemstring(s,"xm")+"数据",Question!,YesNo!,2)=1 then
        //dw_1.deleterow(s)
        PREPARE SQLSA
        FROM "DELETE FROM ZGXX WHERE id=?";
        EXECUTE SQLSA USING :zg_id2;
        messagebox("提示","删除完毕!")
    end if
else 
    Beep(1)
    MessageBox("提示","请选择要删除的数据")
end if
END IF

猜你喜欢

转载自blog.csdn.net/qq_31681017/article/details/74295653