zypmuzi1
2015-10-20 08:13
采纳率: 20%
浏览 1.4k
已采纳

刚接触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
    已采纳

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

    已采纳该答案
    打赏 评论
  • binbin_1868 2016-07-24 01:58

    貌似些登录信息判断及赋值

    打赏 评论

相关推荐 更多相似问题