Comentários do Blog

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;

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.

por qto vc pretende vender o sistema?

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]

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