问题描述

刚接触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="..pictureloginRMIS_OA_bg.jpg"')
p_market.picturename = "..picturelogo_OA.jpg"
elseif gnv_app.isrunas = 'WMS' then
p_market.picturename = "..picturelogo_WMS.jpg"

end if
if (fileexists("..picturemarket.jpg")) then
p_market.picturename = "..picturemarket.jpg"
p_enjoyit.visible = false
end if
p_market.visible = false

解决方案

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