PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → 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
Iniciado por BOLLER, jul., 13 2019 6:11 AM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 13 2019 - 6:11 AM
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/