PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX INFORMATICA - NOVO METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK
WX INFORMATICA - NOVO METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK
Débuté par BOLLER, 13 juil. 2019 06:11 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 13 juillet 2019 - 06:11
METODO CREATE DATABASE HFSQL CLIENT/SERVER VIA WEBSERVICE COM DIRETIVAS OK

Procedure ws_create_database(Token,Nome,Email,Telefone,Database,Usermaster,PasswordMaster)

ok is string

IF Token <> "" AND Token = "abre-ti-cesamo" AND Database <> "" AND Nome <> "" AND Telefone <> ""

HOpenConnection(MyConnection)
HChangeConnection("*",MyConnection)

Database.Nome = Nome
Database.Telefone = Telefone
Database.Database = Database
HAdd(Database)

HCloseConnection(MyConnection)

Myconn is Connection
Myconn..Server = "localhost"
Myconn..User = "admin"
Myconn..Password = "jujuba110287"
Myconn..Database = Database
Myconn..Provider = hAccessHFClientServer
IF HOpenConnection(Myconn) = True THEN
IF HChangeConnection("*",Myconn) = True THEN
HModifyStructure("*")
HCreationIfNotFound("*")
ok = "Database criada com Sucesso!"

HUser.Login = Usermaster
HUser.Password = PasswordMaster
HUser.FullName = Nome +" / "+ Usermaster
HUser.Email = Email
HUser.Phone = Telefone
HUser.Groups = "ClientWebDev"
HUser.EnabledAccount = True

IF HModifyUser(Myconn,Usermaster) = True THEN
ok += " = Usuario: "+Usermaster+" foi atribuido ao Banco de dados"
END

HModifyServerRights(Myconn,Usermaster,hRightsChangePassword,hAllowed)
HModifyServerRights(Myconn,Usermaster,hRightsChangeRights,hAllowed)
HModifyServerRights(Myconn,Usermaster,hRightsCreateDB,hAllowed)
HModifyServerRights(Myconn,Usermaster,hRightsManageUser,hAllowed)
HModifyServerRights(Myconn,Usermaster,hRightsSeeUser,hAllowed)
HModifyServerRights(Myconn,Usermaster,hRightsManageServer,hAllowed)

HModifyDatabaseRights(Myconn,Usermaster,hRightsAutoModif,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeLink,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeOwner,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsChangeRights,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsConnection,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateFile,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsCreateView,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsDebug,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsDelete,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteDB,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsDeleteFile,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsEncryptedConnection,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsInsert,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsLock,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsMaintenance,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsManageDuplicate,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsManageIntegrity,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsManageProcedure,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsManageTask,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsNoDatabaseAccess,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsRead,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsRunProcedure,hAllowed,Database)
HModifyDatabaseRights(Myconn,Usermaster,hRightsUpdate,hAllowed,Database)

ok += ", Diretivas adicionadas com Sucesso!"

HCloseConnection(Myconn)
END
END

END

arrResultado is array of string

Add(arrResultado,ok)

RESULT ok


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/