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/ |
| |
| |
|