[delphi-br] Auto- incremento Banco Interbase

2005-12-06 Por tôpico Alexandre Leite
Bom dia Galera, 
Como faço para que no meu banco iNTERBASE, os indices sejam automaticos??? se 
alguem puder postar algum godigo que faça esse trabalho ficarei gratou 
ou como fazer direto no banco, eu uso o IBExpert, para a manipulação do banco, 
o que vier ficarei grato 
Abraços.





Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Acces violation, como pode :(

2005-11-28 Por tôpico Alexandre Leite
Seguinte galera olhem esse codigo 

unit uClassMarca;

interface

uses
  uDatamodule, SysUtils;

type
  Marca = class(TObject)

  private
   ID_MARCA: integer;
   DESCRICAO: string;

  public

   function getID_MARCA: integer;
   function getDESCRICAO: String;
   function setID_MARCA(ID_MARCA: Integer): boolean;
   function setDESCRICAO(DESCRICAO: string): boolean;
   function incluir: boolean;

   end;

implementation

uses
DataModule;

function Marca.getID_MARCA: Integer;
begin
result:= ID_MARCA;
end;

function Marca.getDESCRICAO: String;
begin
result:= DESCRICAO;
end;

function Marca.setID_MARCA(ID_MARCA: Integer): boolean;
begin
if ID_MARCA  0 then
  begin
  Self.ID_MARCA:= ID_MARCA;
  Result:= true;
  end
else Result:= False;
end;

function Marca.setDESCRICAO(DESCRICAO: string): boolean;
begin
self.DESCRICAO:= DESCRICAO;
end;

Function Marca.incluir: boolean;
begin
try
  dModule.dtMARCA.Open;
  dModule.dtMARCA.Append;
  dModule.dtMARCA.FieldByName('ID_MARCA').AsInteger:= ID_MARCA;   semprara 
a aplicacao aki e dah um erro ja nao sei o que fazer 
em todas, toda vez que vou incluir dah esse erro e para bem nessa linha, se 
alguem souber de algo pra resolver ficarei muito grato  :(
  dModule.dtMARCA.FieldByName('DESCRICAO').AsString:= DESCRICAO;
  dModule.dtMARCA.Post;
  dModule.T1.CommitRetaining;
  result:= true;
  except
  result:= false;
  end;

  end;


end.









Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] Acces violation, como pode :(

2005-11-28 Por tôpico Alexandre Leite
pior que ele esta :(


begin
  try
  MessageDlg('aki foi depois do try', mtInformation, [mbOK], 0);
  dModule:= TdModule.create(Application);
  MessageDlg('agora foi o dm criado', mtWarning, [mbOK], 0);
  dModule.DB1.Connected:= true;
  MessageDlg('agora conectou no bancou'+#13+#10+'ou deixou true', mtWarning, 
[mbOK], 0);
except
  MessageDlg('Erro durante a conecxao', mtError, [mbOK], 0);
  exit;
  end;

eu coloquei umas menssagens pra testar mas tah tudo normal

Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo São vicente de Paula, 1333 10º andar sl. 100

  - Original Message - 
  From: Daniel Polistchuck 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 28, 2005 9:49 AM
  Subject: RE: [delphi-br] Acces violation, como pode :(


  É possível que o seu Datamodule não tenha sido criado quando você chama o 
método incluir

  Daniel Polistchuck
  Consulting Services Manager
  Borland Software Corporation
  Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
  [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ 

  A Borland Software Corporation é líder global em soluções independentes de 
plataforma para o Software Delivery Optimization, auxiliando nossos clientes a 
resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
para maximizar o valor do negócio de seu software



  

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Alexandre Leite
  Sent: Sunday, November 27, 2005 10:12 PM
  To: delphi-br@yahoogrupos.com.br
  Subject: [delphi-br] Acces violation, como pode :(


  Seguinte galera olhem esse codigo 

  unit uClassMarca;

  interface

  uses
uDatamodule, SysUtils;

  type
Marca = class(TObject)

private
 ID_MARCA: integer;
 DESCRICAO: string;

public

 function getID_MARCA: integer;
 function getDESCRICAO: String;
 function setID_MARCA(ID_MARCA: Integer): boolean;
 function setDESCRICAO(DESCRICAO: string): boolean;
 function incluir: boolean;

 end;

  implementation

  uses
  DataModule;

  function Marca.getID_MARCA: Integer;
  begin
  result:= ID_MARCA;
  end;

  function Marca.getDESCRICAO: String;
  begin
  result:= DESCRICAO;
  end;

  function Marca.setID_MARCA(ID_MARCA: Integer): boolean;
  begin
  if ID_MARCA  0 then
begin
Self.ID_MARCA:= ID_MARCA;
Result:= true;
end
  else Result:= False;
  end;

  function Marca.setDESCRICAO(DESCRICAO: string): boolean;
  begin
  self.DESCRICAO:= DESCRICAO;
  end;

  Function Marca.incluir: boolean;
  begin
  try
dModule.dtMARCA.Open;
dModule.dtMARCA.Append;
dModule.dtMARCA.FieldByName('ID_MARCA').AsInteger:= ID_MARCA;   
semprara a aplicacao aki e dah um erro ja nao sei o que fazer 
  em todas, toda vez que vou incluir dah esse erro e para bem nessa linha, se 
alguem souber de algo pra resolver ficarei muito grato  :(
dModule.dtMARCA.FieldByName('DESCRICAO').AsString:= DESCRICAO;
dModule.dtMARCA.Post;
dModule.T1.CommitRetaining;
result:= true;
except
result:= false;
end;

end;


  end.









  Alexandre Leite
  Suporte Less
  www.less.com.br
  45-3252-1993
  45-9917-5062
  Less Internet
  Av. Largo São vicente de Paula, 1333 10º andar sl. 100

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






  Yahoo! Grupos, um serviço oferecido por:  
  PUBLICIDADE

  
http://br.rd.yahoo.com/SIG=12felkq78/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1133179759/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/
 

  

  Links do Yahoo! Grupos


  *  Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
  *  Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] 
  
  *  O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo! http://br.yahoo.com/info/utos.html . 




  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse

[delphi-br] Tabela pagamento

2005-11-13 Por tôpico Alexandre Leite
Boa noite galera, eu sou novo no delphi estou estudando mas estou com uma 
duvida aki...
ai vai ela

estou fazendo um propraminha basico pra facul um que na verdade eh um projeto 
pra uma empresa mas ele eh muito basico
soh cadastro declientes, data de pagamento essas coisas
mas ae empaquei  em um problema...

tipo preciso que o sistema pra cada usuario, liste no banco os 12 meses do ano 
para informar se o cliente esta em dia com suas prestacoes


bom acho que nao ficou bem claro

Eu tenho, que marcar qual mes o cliente pagou ou nao, se ele nao pagar durante 
2 meses consecultivos, ele tem seu servico suspendido pela empresa
mas eu nao consegui fazer nada depois do que esta feito ai na foto  :(


segue em anexo o der da foto  se puderem me ajudar ficarei grato. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] OO

2005-09-29 Por tôpico Alexandre Leite
Valeu
Vou comprar esse livro  :)
abs...







Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo Sao vicente de Paula, 1333 10º andar sl 100



- Original Message - 
From: Artur Guerra [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 28, 2005 8:36 PM
Subject: Re: [delphi-br] OO


Cara, o melhor jeito é estudando !!!
Eu utilizei este livro para adaptar os meus antigos sistemas em Delphi
procedural para O.O.

Programacao Orientada a Objetos Usando Delphi
Isaias Camilo Boratti
2a. Edicao
Visual Books

É um livro relativamente barato, e de excelente didática. Dá uma olhada,
vale a pena ter esse para futuras consultas.

Abraço !!!

Em 28/09/05, Alexandre Leite [EMAIL PROTECTED] escreveu:

 Boa tarde galera,
 seguinte to com um problemao, tenho um projeto da faculdade pra
 impelementar
 esse semestre mas tem que ser orientado a objetos
 e tem que ter heranca, polimorfismo e encapsulamento.
 sendo assim galera nao sei por onde começar se alguem tiver algum material
 pra me disponibilizar sobre o assunto ficarei muito grato, pois soh achei
 algumas coisas em c, e fiquei meio desorientado entaum galera eh isso ae
 abraço a todos.







 Alexandre Leite
 Suporte Less
 www.less.com.br http://www.less.com.br
 45-3252-1993
 45-9917-5062
 Less Internet
 Av. Largo Sao vicente de Paula, 1333 10º andar sl 100






 ___
 Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
 muito mais. Instale agora!
 www.yahoo.com.br/messenger/ http://www.yahoo.com.br/messenger/




 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










--


Artur Rodrigo Guerra
mail: [EMAIL PROTECTED]
skype: arturguerra



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por:




Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!.







___ 
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora! 
www.yahoo.com.br/messenger/




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] OO

2005-09-28 Por tôpico Alexandre Leite
Boa tarde galera,
seguinte to com um problemao, tenho um projeto da faculdade pra impelementar 
esse semestre mas tem que ser orientado a objetos
e tem que ter heranca, polimorfismo e encapsulamento.
sendo assim galera nao sei por onde começar se alguem tiver algum material 
pra me disponibilizar sobre o assunto ficarei muito grato, pois soh achei 
algumas coisas em c, e fiquei meio desorientado entaum galera eh isso ae 
abraço a todos.







Alexandre Leite
Suporte Less
www.less.com.br
45-3252-1993
45-9917-5062
Less Internet
Av. Largo Sao vicente de Paula, 1333 10º andar sl 100 






___ 
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e 
muito mais. Instale agora! 
www.yahoo.com.br/messenger/




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html