robinhocne

não deu certo! Como ele vai contar? Eu tenho que mandar ele fazer alguma função? Só assim não resolveu! Me especifique melhor!

Valeu Jonas mas, não deu certo vou mostrar um exemplo do visual: Ord. Data Horário Instrutor 01 13/08/07 09:00 02 02 14/08/07 09:00 02 03 15/08/07 09:00 02 04 16/08/07 09:00 02 05 17/08/07 09:00 02 Então esse é o visual do meu grid aparece as aulas marcadas, agora gostaria de saber como posso colocar esses numeros de ordem.

Olá pessoal, Estou querendo fazer uma contage em meu programa, é assim tenho uma tabela para a marcação de aulas e eu gostaria de quando eu marcar as aulas o programa fazer a contage das aulas e mostar em um grid e em edits. Alguém pode me ajudar?

Robosa O seu caso é parecido com o do Danilo de uma olhada no que eu passei para ele e verifique se corresponde ao seu problema. No caso aqui se você não tem uma unit de fuções e procedimentos crie uma em: File>New>Unit E e salva ela como funcoes: No caso vai ser assim a Unit: unit Unit1; interface implementation end. E ai você deixa assim sua Unit unit funcoes; interface uses dialogs, forms, controls, windows, classes, variants, SysUtils; procedure excluirregistro (ptabela, pcondicao : string); function pergunta (mensagem : string) : boolean; implementation Uses FDtmiza; // Aqui você vai colocar em uso o seu banco de dados para manter conexão com ele em hora de exclusão. procedure excluirregistro (ptabela, pcondicao : string); var instrucaosql :string; begin instrucaosql:= 'delete from ' +ptabela; if (pcondicao<>'') then begin instrucaosql:= instrucaosql+ ' where ' + pcondicao; end; // showmessage (instrucaosql); with [b]dtmiza.qryiza[/b] do // esse em negrito no caso eu uso um IbDataBase e IbQuery, mas para teste seu e visualização apague do showmessage ate o Penultimo end; begin close; sql.Clear; sql.add (instrucaosql); execsql; end; end; function pergunta (mensagem : string) : boolean; begin Result:=(application.messagebox(pchar(mensagem),pchar ('confirmação'), mb_yesno)= idyes); //esta função é para perguntar para o usuario. end; procedure mensagem(msg:string); begin showmessage(msg); end; Esse vai ser o codigo da Sua Unit de Funções, agora no Formulario seu que você quer excluir registros click duas vezes no botão excluir e coloque os seguintes codigos procedure Tfrmcadinst.spbexcClick(Sender: TObject); begin if (not pergunta('Tem certeza que deseja excluir este registro?')) then exit; excluirregistro ('instrutores','codigo=' + txtcod.text); inherited; end; Não se esqueça de colocar em baixo da implementação do formulario a unit Funcoes em uso, por exemplo ..... implementation {$R *.dfm} uses funcoes; ...... Espero que isso possa Lhe ajudar.

Danilo Tenho uma função parecida ao que você necessita verifica se vai corresponder à sua precisão: No caso aqui se você não tem uma unit de fuções e procedimentos crie uma em: File>New>Unit E e salva ela como funcoes: No caso vai ser assim a Unit: unit Unit1; interface implementation end. E ai você deixa assim sua Unit unit funcoes; interface uses dialogs, forms, controls, windows, classes, variants, SysUtils; procedure excluirregistro (ptabela, pcondicao : string); function pergunta (mensagem : string) : boolean; implementation Uses FDtmiza; // Aqui você vai colocar em uso o seu banco de dados para manter conexão com ele em hora de exclusão. procedure excluirregistro (ptabela, pcondicao : string); var instrucaosql :string; begin instrucaosql:= 'delete from ' +ptabela; if (pcondicao<>'') then begin instrucaosql:= instrucaosql+ ' where ' + pcondicao; end; // showmessage (instrucaosql); with [b]dtmiza.qryiza[/b] do // esse em negrito no caso eu uso um IbDataBase e IbQuery, mas para teste seu e visualização apague do showmessage ate o Penultimo end; begin close; sql.Clear; sql.add (instrucaosql); execsql; end; end; function pergunta (mensagem : string) : boolean; begin Result:=(application.messagebox(pchar(mensagem),pchar ('confirmação'), mb_yesno)= idyes); //esta função é para perguntar para o usuario. end; procedure mensagem(msg:string); begin showmessage(msg); end; Esse vai ser o codigo da Sua Unit de Funções, agora no Formulario seu que você quer excluir registros click duas vezes no botão excluir e coloque os seguintes codigos procedure Tfrmcadinst.spbexcClick(Sender: TObject); begin if (not pergunta('Tem certeza que deseja excluir este registro?')) then exit; excluirregistro ('instrutores','codigo=' + txtcod.text); inherited; end; Não se esqueça de colocar em baixo da implementação do formulario a unit Funcoes em uso, por exemplo ..... implementation {$R *.dfm} uses funcoes; ...... Espero que isso possa te ajudar.

OK. Resolvido. Era dois valores que estavam salvando mas não poderiam salvar. if ( not rdbHab.Checked ) then begin add ('cnh'); add ('cnh_cat'); end;

Uso o Delphi 7, não sei se tem como instalar no 6

Ok, Resolvido: Como eu Fiz: Criei uma Procedure: Procedure ConsultaAula: With QryPra do Begin Close; Sql.Clear; Sql.Add ('Select P.Aluno, P.Instrutor, P.Data, P.Horario, P.Aluno From Praticas P,' +'Instrutores I Where P.Aluno=' + txtcod.Text + ' AND I.Codigo=P.Instrutor ORDER BY P.Data, P.Horario'); Open; end; Ai apos que eu marco as aulas já pesso para atualiza.

Você já fez o Bando de Dados? Depende quais campos você queira colocar nesse cadastro ou já colocou no Bando de Dados, por exemplo o Banco de Dados: Create Table Funcionarios ( Codigo Numeric (3,0) Not Null Primary Key, Dt_Cadastro Date Not Null, Nome Varchar (50) Not Null, Apelido Varchar (20), Cidade Varchar (30), Cep Numeric (8,0), Estado Char (2), // Aqui você poderia usar as siglas como 'PR','SP' etc. Endereço Varchar (50), Numero Numeric (5,0), Bairro Varchar (20), Complemento Varchar (20) ) Vamos para o Delphi: Aqui você adciona os Labels e Edits conforme o Banco de Dados: Me informa como você quer no delphi, Quaisquer coisa me passa o seu MSN que posso te falar como faremos no Delphi.

Ok, Micheus, mas isso não deu certo acrescentei os demais mais uma vez apos a minha instrução SQL e não deu certo. Uma duvida, apos que eu marco as aulas ai que eu deveria fazer tipo uma consulta para atualizar o a minha query? Não deu certo!!

Mas como e onde eu faço isso Micheus?

Olá pessoal fiz a seguinte instrução SQL para buscar os meus dados para o grid: Até aqui tudo bem, mas onde eu uso essa instrução SQL eu uso uma tabela em tempo de execução para a marcação de aulas, 'O problema é que quando eu marca as aulas não atualiza no grid' e terei que atualiza!, eu marcos as aulas em edits e nesses edits aparece o codigo do aluno, até ai Ok, no caso eu teria que marcar e apos marcado a aula realizar uma consulta para mostar no grid, eu tenho uma procedure para consultar esses agendamentos mas utilizei ela e não deu certo. Alguém pode me ajudar.

Estou com esse erro aqui, quando eu faço a busca dos dados e edito eles no formulário, ai eu tento salvar e dá esse erro ai? Qual é?

Ok, Resolvido. As vezes se prestar atenção em que você esta fazendo é muito bom! Muito obrigado.

Exemplifica melhor

Esse é o erro:

Resolvido, o problema era os espaços mesmo, valeu Micheus

Project Loja.exe raised exception class EDatabaseError with message 'QryLoja:Field'Codigo ' not found'. Process stopped. Use Step or Run to continue.

Ok, Micheus entendi, e consegui achar o erro, só não estava relacionando certo os vvlr e vcpo. Resolvido.

Erro Dentro do Delphi:

Ai vou salvar os dados do formulário, e eu uso Firebird

Olá pessoal estou fazendo uns comandos do Botão Salvar: Esse é o codigo do Botão Salvar: Esse é o erro:

Alguém tem um programinha com exemplo de codigo de barras para eu entender melhor.

Ok, funcionou, mas ai o Botão fica normal, diferente do Skin mas esta 10, Resolvido.

Olá pessoal, Ok, arrumei um componente de codigo de barra, ele pe cvjbarcode, tem o codigo de barra normal, mas não sei utiliza-lo Os numeros para sem gerado o codigo de barra como eu faço, para por exemplo ser gerado automatico, como eu faço?