powerbulilder pb datastore实现步骤完整源码.docx
需积分: 9 129 浏览量
2021-08-02
09:39:38
上传
评论
收藏 16KB DOCX 举报
pb datastore 实现步骤完整源码
1. 创建 datastore 名称：
datastore ds_sale
2. Datastore 实例化：
ds_sale = create datastore //将 Datastore 实例化
ds_sale.DataObject = "ds_sale_117" // ds_sale_117 为 datastore 表名
ds_sale.seransobject(sqlca)
3. 根据条件查询 datastore 中需要的数据：
ll_coupro = ds_sale.retrieve(ls_sotrno) //按照条件查询
4. 将 datastore 查询出来的数据显示在窗体的 dw 中：
ls_un = ds_sale.ge$temstring( ll_rowpro,'unit') //单位
dw_1.se$tem(ll_rowpro, "unit", ls_un)
5. 完整源码：
datastore ds_sale
if dw_master.accepext() = -1 then return 1
ls_sotrno = dw_2.ge$temstring(dw_2.getrow(),'saleno')
//读取销售出库
if not isnull(ls_sotrno) or ls_sotrno <> '' then
ds_sale = create datastore //将 Datastore 实例化
ds_sale.DataObject = "ds_invsaleod_inv117"
ds_sale.seransobject(sqlca)
ll_coupro = ds_sale.retrieve(ls_sotrno) //按照条件查询，注意此处需要在 datastore
表中对应字段设置接受 ls_sotrno 的参数
if isnull(ll_coupro) then ll_coupro = 0
if ll_coupro > 0 then
for ll_rowpro = 1 to ll_coupro
ls_ saleno = ds_sale.ge$temstring( ll_rowpro, saleno) //取出
datastore 中的产品编号
dw_1.se$tem(ll_rowpro, " saleno ", ls_ saleno) //将取出的数据放入
评论0