zypmuzi1 2015-10-20 08:13 采纳率: 0%
浏览 1413
已采纳

刚接触pb9代码中的一些字段不了解是什么含义,望大神们指教

string ls_userid
ulong ul_size = 300
is_currentdirectory = fill(char(0),300)
GetCurrentDirectoryA(ul_size,is_currentdirectory)

is_userinifile = is_currentdirectory+"\enjoy.ini"

if Len (is_userinifile) > 0 then
ls_userid = ProfileString (is_userinifile, "logon", "userid", "")
end if

sle_userno.text = ls_userid
if Len (sle_userno.text) > 0 then
if Len (sle_password.text) > 0 then
cb_in.SetFocus()
else
sle_password.SetFocus()
end if
else
sle_userno.SetFocus()
end if

uf_add_stores()
if ddlb_store.TotalItems( )=0 then
ddlb_store.visible = false
dw_1.object.t_stores.visible = '0'
end if

if gnv_app.sADUser<>'' then
if (not isnull(gnv_app.is_userno) and gnv_app.is_userno<>'') then
sle_userno.text = gnv_app.is_userno
sle_password.enabled = false
sle_userno.enabled = false
end if
end if

if gnv_app.isrunas = 'OA' then
//DW_1.MODIFY('P_1.filename="..\picture\loginRMIS_OA_bg.jpg"')
p_market.picturename = "..\picture\logo_OA.jpg"
elseif gnv_app.isrunas = 'WMS' then
p_market.picturename = "..\picture\logo_WMS.jpg"

end if
if (fileexists("..\picture\market.jpg")) then
p_market.picturename = "..\picture\market.jpg"
p_enjoyit.visible = false
end if
p_market.visible = false

  • 写回答

2条回答 默认 最新

  • threenewbee 2015-10-21 00:11
    关注

    字段的含义属于你的业务逻辑,你得问相关的人。大致来说,这些代码加载用户信息。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?