【微博导航 源码】【mxy源码】【影院 源码】pb accepttext源码

2024-12-26 23:49:33 来源:查题php源码 分类:探索

1.PB中 tab页问题
2.pb判断一下当前有没有资料可修改或删除

pb accepttext源码

PB中 tab页问题

       哥们 我的源码是这么做的,希望可以帮助到你。源码微博导航 源码

       tab_1.tabpage_1.dw_tabpage_basicinfo.accepttext()

       tab_1.tabpage_2.dw_tabpage_articbuyin.accepttext()

       tab_1.tabpage_3.dw_tabpage_articsale.accepttext()

       tab_1.tabpage_4.dw_tabpage_articprov.accepttext()

       if tab_1.tabpage_1.dw_tabpage_basicinfo.getnextmodified(0,源码mxy源码primary!) > 0 then

        choose case messagebox('提示','基商品信息未保存,是源码影院 源码否先保存数据!',Question!,YesNoCancel!,3)

         case 1

          if tab_1.tabpage_1.dw_tabpage_basicinfo.event sy_save() <> 1 then return 1

         case 2

          return 0

         case 3

          return 1

        end choose

       end if

       if tab_1.tabpage_2.dw_tabpage_articbuyin.getnextmodified(0,primary!) > 0 then 

        choose case messagebox('提示','进货类商品信息未保存,是源码源码加固否先保存数据!',Question!,YesNoCancel!,3)

         case 1

          if tab_1.tabpage_2.dw_tabpage_articbuyin.event sy_save() <> 1 then return 1

         case 2

          return 0

         case 3

          return 1

        end choose

       end if

       if tab_1.tabpage_3.dw_tabpage_articsale.getnextmodified(0,primary!) > 0 then 

        choose case messagebox('提示','销售类商品信息未保存,是源码stockranker源码否先保存数据!',Question!,YesNoCancel!,3)

         case 1

          if tab_1.tabpage_3.dw_tabpage_articsale.event sy_save() <> 1 then return 1

         case 2

          return 0

         case 3

          return 1

        end choose

end if

        

       if tab_1.tabpage_4.dw_tabpage_articprov.getnextmodified(0,primary!) > 0 then 

        choose case messagebox('提示','商品的供应商信息未保存,是源码否先保存数据!',Question!,YesNoCancel!,3)

         case 1

          if tab_1.tabpage_4.dw_tabpage_articprov.event sy_save() <> 1 then return 1

         case 2

          return 0

         case 3

          return 1

        end choose

end if

        

        

        

        

pb判断一下当前有没有资料可修改或删除

       数据窗的吗?如果是 就用DeletedConut()和ModifiedCount()这两个函数分辨判断是否删除和修改数据.

       例子在窗口的closeQuery事件中写如下代码:

       dw_1.AcceptText()

       IF dw_1.DeletedCount() + dw_1.ModifiedCount() > 0 THEN

        IF MessageBox("系统提示","数据已修改,是源码否保存?",Question!,YesNo!,1) = 1 THEN

        if dw_1.Update() =1 then

        commit;

        messagebox("","保存成功!")

        else

        rollback;

        messagebox("",源码"保存失败!")

源码

        END IF

源码

       else

源码

        Return 0 //关闭窗口

源码

       END IF

源码

本文地址:http://581.net.cn/html/85b358696328.html 欢迎转发