PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

MINI SAAS EXAMPLE
Publié par BOLLER
dans la catégorie Outils
Nouveautés



Description
MINI SAAS EXAMPLE

Software como serviço, do inglês Software as a service (SaaS), é uma forma de distribuição e comercialização de software. No modelo SaaS, o fornecedor do software se responsabiliza por toda a estrutura necessária à disponibilização do sistema (servidores, conectividade, cuidados com segurança da informação) .... outros sistemas, sem precisar de intervenção humana É CRIADA A NOVA BASE DE DADOS para cada Cliente.

//CODIGO GLOBAL

//SAAS
HOpenConnection(ConnCatalogo)
HChangeConnection(T000_SAAS_Config,ConnCatalogo)
HChangeConnection(T001_SAAS_Catalogo,ConnCatalogo)
HModifyStructure(T000_SAAS_Config,hmsBackgroundTask)
HModifyStructure(T001_SAAS_Catalogo,hmsBackgroundTask)
HCreationIfNotFound(T000_SAAS_Config)
HCreationIfNotFound(T001_SAAS_Catalogo)

//CLIENTES
//NAO ABRE A CONEXAO DOS CLIENTES SOMENTE ABRE NA TELA DE LOGIN


// CODIGO BOTAO

//Login na base do cliente
//exemplo carga SAAS CATALOGO
//1, 1, ADRIANO, 14421060000192, 0, ADRIANO, 123, CLAVIO MOLINARI, 1029, CAPAO DA IMBUIA, CURITIBA, PR, 82810210, adrianoboller@gmail.com, 41999491800, localhost, 4900, admin, SAAS_Adriano01, localhost, 4900, admin, SAAS_Adriano02

IF HReadSeek(T001_SAAS_Catalogo,T001_Cliente,EDT_Login,hIdentical) = True THEN

IF HFound(T001_SAAS_Catalogo) = True AND T001_SAAS_Catalogo.T001_Senha_Site = EDT_Senha

ConnCliente..Server = T001_SAAS_Catalogo.T001_SAAS_Server01
ConnCliente..User = T001_SAAS_Catalogo.T001_SAAS_User01
ConnCliente..Password = T001_SAAS_Catalogo.T001_SAAS_Password01
ConnCliente..Database = T001_SAAS_Catalogo.T001_SAAS_Database01
ConnCliente..Provider = hAccessHFClientServer

HOpenConnection(ConnCliente)

//todas as tabelas do programa 01
HChangeConnection(T001_Clientes,ConnCliente)
HChangeConnection(T002_Produtos,ConnCliente)

//todas as tabelas do programa 01
HModifyStructure(T001_Clientes,hmsBackgroundTask)
HModifyStructure(T002_Produtos,hmsBackgroundTask)

//todas as tabelas do programa 01
HCreationIfNotFound(T001_Clientes)
HCreationIfNotFound(T002_Produtos)

ELSE
Info("Senha Inválida!!!!")
END

ELSE
Info("Usuário não encontrado!!!!")
END


------------------estrutura sql--------------------

-- Script generated by WINDEV on 02/07/2019 13:23:21
-- Tables of Saas.wda analysis
-- for Oracle

-- Creating the T000_SAAS_Config table
CREATE TABLE T000_SAAS_Config (
T000_SAAS_ConfigID NUMERIC(19,0) PRIMARY KEY ,
T000_Descricao VARCHAR2(255) UNIQUE ,
T000_Valor CLOB );

-- Creating the T001_Clientes table
CREATE TABLE T001_Clientes (
T001_ID NUMERIC(19,0) PRIMARY KEY ,
T001_Cliente VARCHAR2(50) ,
T001_CNPJ VARCHAR2(20) DEFAULT '0',
T001_InscricaoEstadual VARCHAR2(20) ,
T001_Endereco VARCHAR2(50) ,
T001_Numero VARCHAR2(20) ,
T001_Bairro VARCHAR2(50) ,
T001_Cidade VARCHAR2(50) ,
T001_UF VARCHAR2(2) ,
T001_CEP VARCHAR2(10) ,
T001_Email VARCHAR2(50) ,
T001_Celular VARCHAR2(20) );
CREATE INDEX WDIDX_T001_Clientes_T001_00000 ON T001_Clientes (T001_Cliente);

-- Creating the T001_SAAS_Catalogo table
CREATE TABLE T001_SAAS_Catalogo (
T001_SAAS_Catalogo_ID NUMERIC(19,0) PRIMARY KEY ,
T001_Login_Site VARCHAR2(50) ,
T001_Senha_Site VARCHAR2(50) ,
T001_Cliente VARCHAR2(50) ,
T001_CNPJ VARCHAR2(20) DEFAULT '0',
T001_InscricaoEstadual VARCHAR2(20) ,
T001_Endereco VARCHAR2(50) ,
T001_Numero VARCHAR2(20) ,
T001_Bairro VARCHAR2(50) ,
T001_Cidade VARCHAR2(50) ,
T001_UF VARCHAR2(2) ,
T001_CEP VARCHAR2(10) ,
T001_Email VARCHAR2(50) ,
T001_Celular VARCHAR2(20) ,
T001_SAAS_Server01 VARCHAR2(50) ,
T001_SAAS_User01 VARCHAR2(25) ,
T001_SAAS_Password01 VARCHAR2(25) ,
T001_SAAS_Porta01 NUMERIC(10,0) DEFAULT 0,
T001_SAAS_Database01 VARCHAR2(25) ,
T001_SAAS_Server02 VARCHAR2(50) ,
T001_SAAS_Porta02 NUMERIC(10,0) DEFAULT 0,
T001_SAAS_User02 VARCHAR2(25) ,
T001_SAAS_Password02 VARCHAR2(25) ,
T001_SAAS_Database02 VARCHAR2(25) ,
T001_SAAS_Provider01 VARCHAR2(50) ,
T001_SAAS_Provider02 VARCHAR2(50) );
CREATE INDEX WDIDX_T001_SAAS_Catalogo_00001 ON T001_SAAS_Catalogo (T001_Cliente);

-- Creating the T002_Produtos table
CREATE TABLE T002_Produtos (
T002_ID NUMERIC(19,0) PRIMARY KEY ,
T002_Produto VARCHAR2(50) UNIQUE ,
T002_Unidade VARCHAR2(20) ,
T002_ValorUnitario NUMERIC(38,6) DEFAULT 0);

-----------------------------

Por que cada registro do catalogo tem a string de conexão?
R. Para poder colocar a base do cliente em outro servidor

Por que tenho conexão 1 e conexão 2 no catalogo?
R. Para saber onde esta o servidor master e o slave no caso de replicação.


Why does each catalog record have the connection string?
R. In order to place the client base on another server

Why do I have connection 1 and connection 2 in the catalog?
R.To know where the master and slave are in the case of replication.
Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Aucun avis ou commentaire ? Soyez le premier !
A PROPOS
EVALUATION :
00Aucune évaluation
TELECHARGEMENTS :
42
PUBLIÉE :
02 juillet 2019
VERSION :
24
CONCERNE :
WINDEV, WEBDEV
Version minimale : 24
TAILLE :
2,4 Mo