[delphi-br] Auto- incremento Banco Interbase
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 :(
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 :(
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
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
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
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