PB資料視窗
阿新 • • 發佈:2018-12-30
資料視窗小結
資料視窗進行刪除資料時:
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