Re: [delphi-br] Abrir form antes do principal
Velhinho, não vou me alongar muito aqui, mas o que estou imaginando é que você
quer cadastrar a empresa que adquiriu seu software, certo?
Então faça o seguinte:
Crie um formulário chamado frmLicenca
Insira nele os campos necessários para cadastramento:
Por exemplo:
Nome
Data de aquisição
CGC/CNPJ
Endereço
Telefone
Contato
No evento OnCreate desse form, introduza um código mais ou menos assim:
cont
SUA_EMPRESA_KEY : 'SOFTWARE\SUA_EMPRESA\SEU_SISTEMA';
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(SUA_EMPRESA_KEY,false) then
begin
if Reg.ReadInteger('Licenciado') = 1 //está licensiado then
exit
else
MessageBox('O produto não está licensiado. Por favor, preencha o
formulário...','Produto não licenciado',MB_OK+MB_ICONWARNING);
end;
finally
Reg.Free;
end;
No evento OnClick do botão btnCadastro do seu form de cadastro da licença,
digite algo como:
procedue TfrmLicenca.btnCadastroClick(Sender: TObject);
var
Reg : TRegistry;
begin
// Procedimento igual ao anterior
Reg := TRegistry.Create;
try
Reg.RootKey = HKEY_LOCAL_MACHINE;
//true indica que a chave deve ser criada caso não exista
if Reg.OpenKey(SUA_EMPRESA_KEY,true) then
begin
//grava informações da empresa
Reg.WriteString('Empresa',edtNomeEmpresa.Text);
Reg.WriteBinary('DataAquisição',StrToDateTime(edtDataAquisicao.Text));
Reg.WriteBinary('CGC-CNPJ',edtCGC-CNPJ.Text);
Reg.WriteString('Endereco',edtEndereco.Text);
Reg.WriteString('Telefone',edtTelefone.Text);
Reg.WriteString('Contato',edtContato.Text);
//indica que está licenciado
Reg.WriteInteger('Licenciado',1);
end;
finally
Reg.Free;
end;
end;
Pronto. Cada vez que seu programa for executado o formulário de verificação de
licença será executado e, caso verifique que há uma licença válida, segue
carregando os demais forms.
Na unidade principal do seu projeto (program) utilize a mesma lógica que é
usada em splash forms no Delphi. Você encontra inúmeros exemplos na internet...
me recuso a colocar código aqui.
Espero ter ajudado.
Um abraço.
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
- Original Message -
From: Edison DRP
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, February 04, 2007 9:11 PM
Subject: Re: [delphi-br] Abrir form antes do principal
Simplificando ao máximo:
Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não
havendo, mostre o form de cadastramento. se já houver não mostre.
Edison
- Original Message -
From: nillgolv [EMAIL PROTECTED]
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Sunday, February 04, 2007 3:26 PM
Subject: [delphi-br] Abrir form antes do principal
Pessoal,
Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software.
Quero que após ter isntalado o projeto, que ao executa-lo após a instalação,
ele da show do form cadastro da empresa, sendo assim após já ter cadastrado
ele não apresente mais o form ao abrir o projeto e se precisar de abrir
depois que seja no menu.
Acredito que deu para entender.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Eduardo, agradeço pela atenção mas não é bem isto que preciso.
É que estou criando um sistema de cadastro de clientes, onde que tenho o form
dos dados da empresa.
Quero que após ter instalado e ao abrir o sistema pela primeira vez ele da show
do form empresa antes do principal.
E o outro detalhe é que os form receberão o caption da barra de ferramenta de
ocordo os campos referentes do cadastrados no form empresa.
Velhinho, não vou me alongar muito aqui, mas o que estou imaginando é que você
quer cadastrar a empresa que adquiriu seu software, certo?
Então faça o seguinte:
Crie um formulário chamado frmLicenca
Insira nele os campos necessários para cadastramento:
Por exemplo:
Nome
Data de aquisição
CGC/CNPJ
Endereço
Telefone
Contato
No evento OnCreate desse form, introduza um código mais ou menos assim:
cont
SUA_EMPRESA_KEY : 'SOFTWARE\SUA_EMPRESA\SEU_SISTEMA';
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(SUA_EMPRESA_KEY,false) then
begin
if Reg.ReadInteger('Licenciado') = 1 //está licensiado then
exit
else
MessageBox('O produto não está licensiado. Por favor, preencha o
formulário...','Produto não licenciado',MB_OK+MB_ICONWARNING);
end;
finally
Reg.Free;
end;
No evento OnClick do botão btnCadastro do seu form de cadastro da licença,
digite algo como:
procedue TfrmLicenca.btnCadastroClick(Sender: TObject);
var
Reg : TRegistry;
begin
// Procedimento igual ao anterior
Reg := TRegistry.Create;
try
Reg.RootKey = HKEY_LOCAL_MACHINE;
//true indica que a chave deve ser criada caso não exista
if Reg.OpenKey(SUA_EMPRESA_KEY,true) then
begin
//grava informações da empresa
Reg.WriteString('Empresa',edtNomeEmpresa.Text);
Reg.WriteBinary('DataAquisição',StrToDateTime(edtDataAquisicao.Text));
Reg.WriteBinary('CGC-CNPJ',edtCGC-CNPJ.Text);
Reg.WriteString('Endereco',edtEndereco.Text);
Reg.WriteString('Telefone',edtTelefone.Text);
Reg.WriteString('Contato',edtContato.Text);
//indica que está licenciado
Reg.WriteInteger('Licenciado',1);
end;
finally
Reg.Free;
end;
end;
Pronto. Cada vez que seu programa for executado o formulário de verificação de
licença será executado e, caso verifique que há uma licença válida, segue
carregando os demais forms.
Na unidade principal do seu projeto (program) utilize a mesma lógica que é
usada em splash forms no Delphi. Você encontra inúmeros exemplos na internet...
me recuso a colocar código aqui.
Espero ter ajudado.
Um abraço.
--
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
- Original Message -
From: Edison DRP
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, February 04, 2007 9:11 PM
Subject: Re: [delphi-br] Abrir form antes do principal
Simplificando ao máximo:
Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não
havendo, mostre o form de cadastramento. se já houver não mostre.
Edison
- Original Message -
From: nillgolv [EMAIL PROTECTED]
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Sunday, February 04, 2007 3:26 PM
Subject: [delphi-br] Abrir form antes do principal
Pessoal,
Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software.
Quero que após ter isntalado o projeto, que ao executa-lo após a instalação,
ele da show do form cadastro da empresa, sendo assim após já ter cadastrado
ele não apresente mais o form ao abrir o projeto e se precisar de abrir
depois que seja no menu.
Acredito que deu para entender.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Sim, e estes dados são para ser usado no caption da barra de titulo dos form, por exemplo: No campo EMPRESA: LOJAS BRASIL LTDA Quando abrir o form principal, vai estar lá o caption da barra de titulo LOJAS BRASIL LTDA Pra isto vem depois a função que será global para que os forms recebam os dados dos campos e coloquem na barra de titulo de acordo cada form. Isto ainda não fiz. Bom dia... pelo que entendi você quer abrir pra cadastrar a empresa caso ainda não tenha o registro no banco de dados, ok??? Acredito que você possa fazer da seguinte maneira... no evento Activate do form principal você faz o teste se existe o registro da empresa e caso não exista você chama o form de cadastro da empresa de forma modal (showmodal) e faz o cadastro. Depois segue o sistema normalmente. Na próxima vez o cadastro já vai existir e ele passa direto por essa rotina. Abraço. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: nillgolv To: delphi-br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Bom dia... pelo que entendi você quer abrir pra cadastrar a empresa caso ainda não tenha o registro no banco de dados, ok??? Acredito que você possa fazer da seguinte maneira... no evento Activate do form principal você faz o teste se existe o registro da empresa e caso não exista você chama o form de cadastro da empresa de forma modal (showmodal) e faz o cadastro. Depois segue o sistema normalmente. Na próxima vez o cadastro já vai existir e ele passa direto por essa rotina. Abraço. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: nillgolv To: delphi-br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Você pode também programar no DPR do seu projeto!! Procure no Google por forms de login no Delphi, normalmente é pra isso que se usa essa programação :) Abraços Henrique - Original Message - From: Claudiney Cogo - Listas To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:51 AM Subject: Re: [delphi-br] Abrir form antes do principal Bom dia... pelo que entendi você quer abrir pra cadastrar a empresa caso ainda não tenha o registro no banco de dados, ok??? Acredito que você possa fazer da seguinte maneira... no evento Activate do form principal você faz o teste se existe o registro da empresa e caso não exista você chama o form de cadastro da empresa de forma modal (showmodal) e faz o cadastro. Depois segue o sistema normalmente. Na próxima vez o cadastro já vai existir e ele passa direto por essa rotina. Abraço. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: nillgolv To: delphi-br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Abrir form antes do principal
Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Simplificando ao máximo: Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não havendo, mostre o form de cadastramento. se já houver não mostre. Edison - Original Message - From: nillgolv [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Abrir form antes do principal
Esqueci de colocar na msg anterior: vá ao source do projeto e determine que antes de criar o formulário principal do sistema, ele crie o data module ou algum formulario que permita cabrir e consultar a tabela de empresas. Ou seja, voce terá que determinar que as condições para realizar a consulta estejam presentes antes da abertura do formulario principal Edison - Original Message - From: nillgolv [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Abrir form antes do principal
É aqui que está dificil, sou iniciante e ainda não sei criar a linha de codigo. Simplificando ao máximo: Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não havendo, mostre o form de cadastramento. se já houver não mostre. Edison - Original Message - From: nillgolv [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
