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