I have used code below
C_TEXT($Struct_T)
ARRAY TEXT($Parts_atxt;0)
ut_TextToArray (Structure file;->$Parts_atxt;Folder separator)//this method
will place each part of path into array element to get structure name. You can
do this any way you want
$Struct_T:=$Parts_atxt{Size of array($Parts_atxt)}
$Struct_T:=Substring($Struct_T;1;Position(".";$Struct_T)-1)
C_TEXT($PathToEngineLink_txt;$Attribute_txt;$xml_txt;$elemref_txt)
C_TEXT($FilePath_T)
Case of
: (Application type=4D Remote mode)
$FilePath_T:=Get 4D folder(Active 4D Folder)+"Favorites
v15"+Folder separator+"Remote"+Folder separator+$Struct_T+".mdp"
If (Test path name($FilePath_T)=Is a document)
DELETE DOCUMENT($FilePath_T)
End if
: (Application type=4D Local mode)
$FilePath_T:=Get 4D folder(Active 4D Folder)+"Favorites
v15"+Folder separator+"Local"+Folder separator+$Struct_T+".mdp"
$PathToEngineLink_txt:=Get 4D folder(Active 4D
Folder)+"Favorites v15"+Folder separator+"Local"+Folder
separator+$Struct_T+".4dlink"
If (Test path name($FilePath_T)=Is a document)
DELETE DOCUMENT($FilePath_T)
End if
If (Test path name($PathToEngineLink_txt)=Is a document)
$xml_txt:=DOM Parse XML source($PathToEngineLink_txt)
$elemref_txt:=DOM Find XML
element($xml_txt;"database_shortcut")
DOM SET XML ATTRIBUTE($elemref_txt;"md5_password";"")
DOM SET XML ATTRIBUTE($elemref_txt;"user_name";"")
DOM REMOVE XML ATTRIBUTE($elemref_txt;"md5_password")
DOM REMOVE XML ATTRIBUTE($elemref_txt;"user_name")
DOM EXPORT TO FILE($xml_txt;$PathToEngineLink_txt)
End if
End case
------------------------------------------------------------------------------------------------
Chuck Miller Voice: (617) 739-0306
Informed Solutions, Inc. Fax: (617) 232-1064
mailto:cjmiller<AT SIGN>informed-solutions.com
Brookline, MA 02446 USA Registered 4D Developer
Providers of 4D and Sybase connectivity
http://www.informed-solutions.com
------------------------------------------------------------------------------------------------
This message and any attached documents contain information which may be
confidential, subject to privilege or exempt from disclosure under applicable
law. These materials are intended only for the use of the intended recipient.
If you are not the intended recipient of this transmission, you are hereby
notified that any distribution, disclosure, printing, copying, storage,
modification or the taking of any action in reliance upon this transmission is
strictly prohibited. Delivery of this message to any person other than the
intended recipient shall not compromise or waive such confidentiality,
privilege or exemption from disclosure as to this communication.
> On Dec 22, 2020, at 8:29 AM, Keisuke Miyako via 4D_Tech
> <[email protected]> wrote:
>
> Hi
>
> there is a checkbox in database settings / security
>
> Users can change their password
> Display User List in Password Dialog Box
**********************************************************************
4D Internet Users Group (4D iNUG)
New Forum: https://discuss.4D.com
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
