nalvo

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

Saudações amigos,
Usuario: ADMIN
Senha: 1234
No sistema, no menu configurações é possivel adicionar novos usuarios, adicionar servidores aos quais o programa terá acesso.

Qualquer coisa: [email protected]

por qto vc pretende vender o sistema?

Valor: R$ 350,00
Sem custos de manutenção e atualizações gratuitas por 01 ano.
O sistema esta em constante evolução, e estarei enviando a todos os que adiquirirem as novas versões sem custos adicionais.

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;

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

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=;

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

Postado originalmente por GivigiRJ

por qto vc pretende vender o sistema?

350,00

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