Comentários do Blog

o problema é, vende-se, compras-se na hora de suporte some-se

nao desmerecendo vc o desenvolveu para sua empresa, otimo, louvavel, mas vender um produto sem uma base para quando der os primeiros problemas ter um suporte rapido e eficiente, fica complicado, isso da para provedores de pequena escala, provedores com grande escala fica complicado né

Postado originalmente por clicknet

Ficou a dica, da forma que você ta expondo os dados, não é seguro. Se alguém alterar incorretamente lá aquele arquivo txt, de alguma forma a base de dados não vai abrir, o código que lhe passei caso o programa não ache o arquivo mdb, abri-se uma caixa de dialogo para que o usuário aponte para o arquivo mdb...


Quanto à segurança das senhas, não há nenhuma pois qualquer pessoa pode copiar todas as senhas dos servidores mikrotik... Bastando abrir o arquivo Banco.mdb no access e acessar a tabela Servidor.

Obrigado pelas dicas pessoal...
Essa é uma copia DEMO, todas essas alterações eu ja fiz no sistema aqui, estarei postando nova copia de demonstração para apreciação de todos.

O sistema encontra-se em constante evolução....

Postado originalmente por GivigiRJ

por qto vc pretende vender o sistema?

350,00 sem taxa de manutenção.

Postado originalmente por 4CJINFOR

amigo qual a senha pra teste ??
Ele ja esta sendo executado aqui ;
[email protected]

Usuario: ADMIN
Senha: 1234

Ficou a dica, da forma que você ta expondo os dados, não é seguro. Se alguém alterar incorretamente lá aquele arquivo txt, de alguma forma a base de dados não vai abrir, o código que lhe passei caso o programa não ache o arquivo mdb, abri-se uma caixa de dialogo para que o usuário aponte para o arquivo mdb...


Quanto à segurança das senhas, não há nenhuma pois qualquer pessoa pode copiar todas as senhas dos servidores mikrotik... Bastando abrir o arquivo Banco.mdb no access e acessar a tabela Servidor.

Postado originalmente por clicknet

Amigo se você pretende comercializa-lo deve saber que nem todos usa a mesma configuração de tela, por exemplo na minha configuração nao deu certo, outro detalhe deve flexibilizar o caminho do banco de dabos pois nem todos tem o disco C:, sou programador em delphi tambem... por isso tou de contribuindo com este codigo para seu sistema,

procedure TFrmPrincipal.FormCreate(Sender: TObject);
var
ArquivoIni: TStringList;
CaminhoDoAplicativo: String;
begin
ArquivoIni := TStringList.Create;
CaminhoDoAplicativo := ExtractFilePath(Application.ExeName);

try
if not FileExists(CaminhoDoAplicativo + 'iSComercio.ini') then //Se Arquivo de Inicialização do Aplicativo não existir cria um com o nome
begin
ArquivoIni.Add('PATH=' + CaminhoDoAplicativo + 'Base\Dados.mdb'); // Caminho da Base de Dados Padrão
ArquivoIni.SaveToFile(CaminhoDoAplicativo + 'iSComercio.ini');
end;


ArquivoIni.LoadFromFile(CaminhoDoAplicativo + 'iSComercio.ini'); //Se o arquivo existir


if not FileExists(ArquivoIni.Values['PATH']) then
begin
Application.MessageBox('Não foi possível localizar a Base de Dados.','iSComercio', 48);
if OpenDialog1.Execute then
begin
ArquivoIni.Values['PATH'] := OpenDialog1.FileName;
ArquivoIni.SaveToFile(CaminhoDoAplicativo + 'iSComercio.ini');
end
else
FatalAppExit(0, 'Erro de conexão à Base de Dados.');
end;


if FileExists(ArquivoIni.Values['PATH']) then
begin
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
+ ArquivoIni.Values['PATH']
+ ';Mode=Share Deny None;Extended Properties="";Persist Security Info=False;'
+ 'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password=MAGIC;'
+ 'Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'
+ 'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'
+ 'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'
+ 'Jet OLEDB:Compact Without Replica Repair=False;'
+ 'Jet OLEDB:SFP=False';
ADOConnection1.Open;

end
else
FatalAppExit(0, 'Erro de conexão à Base de Dados.');
finally
ArquivoIni.Free;
end;
end;

bom dia amigo,

O programa já faz isso, dentro da pasta do mesmo tem um arquivo TXT onde o usuario pode definir o caminho do banco de dados, sendo possivel faze-lo rodar em rede...

Com relação a Tela, realmente, estou fazendo algumas modificações aqui para que ele se encaixe melhor com qualquer resolução definida.

Att,

Nalvo

Postado originalmente por GivigiRJ

por qto vc pretende vender o sistema?

350,00

Não quero aqui apontar os Defeitos de seu sistema, mas contribuir, por isso vai mais uma diga, cria uma função para criar o campo cod, pois em rede o AutoInc não é recomendado em ADO...

Vi que seu banco de dados não tem senha já é uma vulnerabilidade pois quem quiser pode pegar teu arquivo MDB e acessar todos teus servidores, bastaria abrir o aquivo pelo Access, ir na Tabela Servidor, lá tem o IP, a Porta, o Nome de Usuário, e a Senha em texto puro.. Na Tabela Usuários Tambem tem o nome de usuário e a senha.. Nesse caso pode-se adaptar-se o código fonte acima, onde tem Password=MAGIC; vc bota Password=;

Onde tem essa carinha é um ": D" Sem o espaço no meio e onde tem Password=MAGIC, você coloca sua senha no lugar de MAGIC..