robinhocne

Estou com um erro em uma tabela que eu busco o cliente e ai eu cadastro exames, mas na hora que eu salvo dá esse erro Erro arithmetic execption, numeric overflow, or string trincation. Ok, Resolvido, tinhas mais caracteres no campo do edit do que o permitido.

Olá pessoal, sobre a questão de cima ainda não consegui resolver, mas estou com outro problema mais urgente, Pois tenho um relátorio que tenho que fazer a busca do Instrutor até aki Ok. Outro é a busca da Data Inicial até a data Final Ex.: do dia 02/09/07 até 08/09/07. Bom, faço a busca da data incial e final, mas no relátorio em vez de aparecer a data, 02/09/07, 03/09/07, 04/09/07 ..... 04/09/07: Ex.: Em Véz de aparecer assim: Domingo Segunda Terça Quarta Quinta Sexta Sábado 03/09/07 04/09/07 05/09/07 06/09/07 07/09/07 08/09/07 09/09/07 Ele aparece assim: Domingo Segunda Terça Quarta Quinta Sexta Sábado 02/09/07 02/09/07 02/09/07 02/09/07 02/09/07 02/09/07 02/09/07 Como eu faço sobre essa questão.

Ok, Resolvido, Declarei uma variavel no private como inteiro e coloquei no fim da minha tabela que é em tempo de execução. Mas agora deu outro problema, quando o programa rodando se eu clico no dbgrid e as a ordem mundo ou fica tudo da mesma cor, acho que deve estar acontecendo isso por causa q eu fiz até aki no forum, sobre o movimento da barra de rolagem com a bolinha do mouse, bom não consiguo descobrir, ai vai o codigo do dbgrid zebrado e o da bolinha para ver se tem sentido. procedure Tfrmpraticas.DbgRelDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Begin If odd(linha) then // coloque aqui a sua query ou table begin DbgRel.Canvas.Font.Color:= clBlack; DbgRel.Canvas.Brush.Color:= cl3DLight; end else begin DbgRel.Canvas.Font.Color:= clBlack; DbgRel.Canvas.Brush.Color:= clMoneyGreen; end; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawColumnCell(Rect, DataCol, Column, State); if ( DataCol = 4 ) then inc( linha ); end; Ambas partes tem referencia no fim do form create da minha tabela:

agora chegamos na questão!Esta questão da resolução do erro de compilação, já poderia ter sido sanado lá no post#8 e tivemos que chegar até o post#14 <_< Bom, se você souber depurar (utilizar break-point e tal), você poderá observar que o que eu mencionei no post anterior, então, é verdade: "Mas, tenho quase certeza de que RecNo para estes componentes, retornará sempre -1" Logo, é por isso que não acontece nada - o Odd(-1) retorna sempre o mesmo resultado, logo não há o efeito zebrado. Alternativa? Bom, eu teria que pesquisar, porque se não me engano já vi uma - só não lembro onde. Então como posso fazer?

Ok, Churc, entedi e mudei as coisas aki mas me ajude a implementar, pois ele abre o form normal, e falta duas coisas: 1 - Tenho que também fazer uma checagem do Usuário. 2 - Digitando a senha correta o Projeto abre normal mas a tela de login não feche. Me ajude a implementar esses dois dados nesse codigo meu pois já tentei de varias maneiras e não to sabendo como fazer. procedure TFrmLogin.SpbOkClick(Sender: TObject); Begin with dtmiza do begin qryiza.Close; qryiza.SQL.Clear; qryiza.SQL.Add('SELECT * from Usuarios'); qryiza.Open; if qryiza.RecordCount = 0 then ShowMessage('Usuário inválido') else if (LowerCase(TxtSen.Text) = LowerCase(qryiza.FieldbyName('Senha').asString)) then FrmPrincipal.ShowModal else ShowMessage('Usuário ou Senha Inválida!'); end; End;

Obrigado pelas informações robinhocne.A propriedade RecNo existe nos componentes da paleta IB, então tem algum "gato" aí. É impressão minha ou FDtmIza é o nome do datamodule? Se for, onde está a referência a seu dataset em odd(FDtmIza.RecNo)? Não estaria faltando algo aí no meio: odd(FDtmIza.<nome dataset>.RecNo)? Mas, tenho quase certeza de que RecNo para estes componentes, retornará sempre -1 - é conferir... Micheus se eu acrescentar = Ele compila mas no Grid não há diferença nenhuma, O que ocorre.? procedure Tfrmpraticas.DbgRelDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Begin if not odd(DtmIza.QryIza.RecNo) then begin DbgRel.Canvas.Brush.Color:= clMoneyGreen; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); if gdFocused in State then begin DbgRel.Canvas.Brush.Color:= clBlack; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); end; end;

Dados: Firebird 2.0.1 Data Module / Componentes IBTransaction, IBDataBase e IBQuery. E os Dados que estão em questão: procedure Tfrmpraticas.DbgRelDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if not odd(FDtmIza.RecNo) then begin DbgRel.Canvas.Brush.Color:= clMoneyGreen; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); if gdFocused in State then begin DbgRel.Canvas.Brush.Color:= clBlack; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); end; end; end;

Obrigado Bettega e Micheus, mas continua dando erro: E dá problema nesse RecNo.

Micheus eu Utilizei assim e fala que o RecNo, não foi declarado oque eu faço. if not odd(FDtmIza.RecNo) then begin DbgRel.Canvas.Brush.Color:= clMoneyGreen; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); if gdFocused in State then begin DbgRel.Canvas.Brush.Color:= clBlack; DbgRel.Canvas.FillRect(Rect); DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); end; end;

o erro diz que não há um identificador Praticas (pelo seu código uma tabela ou query) definido em FDtmIza (isto deveria ser um form ou datamodule - o que é?) Ok,até essa parte eu resolvi Micheus mas o problema é esse: Eu fiz desse tipo, mas aparece todo de uma cor só, será que tem como ser uma linha sim outra não?procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin DBGrid1.Canvas.Brush.Color:= clMoneyGreen; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); if gdFocused in State then begin DBGrid1.Canvas.Brush.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; end;

Eu fiz desse tipo, mas aparece todo de uma cor só, será que tem como ser uma linha sim outra não?

Ok, deu tudo certo, mas acontece algo. Mas deu certo assim: procedure TFrmLogin.SpbOkClick(Sender: TObject); Begin with dtmiza do begin qryiza.Close; qryiza.SQL.Clear; qryiza.SQL.Add('SELECT * from Usuarios'); qryiza.Open; if qryiza.RecordCount = 0 then ShowMessage('Usuário inválido') else if (LowerCase(TxtSen.Text) = LowerCase(qryiza.FieldbyName('Senha').asString)) then Close else ShowMessage('Senha inválida!'); end; End; Inicio o Programa e digito a senha e usuario tudo ok, mas não aparece o meu programa, quer dizer não entra no sistema e agora?

Esses são os dados do meu form de login: procedure TFrmLogin.SpbOkClick(Sender: TObject); label Erro; var S: String; begin dtmiza.qryiza.Open; if dtmiza.qryiza.Locate('Usuarios', TxtUsu.Text, []) Then begin S:=dtmiza.qryiza.FieldByName('Senha').AsString; If TxtSen.Text<>S Then Goto Erro; Close; Exit; FrmLogin.Close; end Else Goto Erro; Erro: begin MessageDlg('Você Não Tem Permisão', mtConfirmation, [mbOk], 0); Application.Terminate; end; End; procedure TFrmLogin.txtusuExit(Sender: TObject); begin dtmiza.qryiza.Open; If dtmiza.qryiza.Locate('UsuarioS', TxtUsu.Text, []) Then psvBorderLabel1.Caption:= dtmiza.qryiza.FieldByName('Nivel').AsString; end; procedure TFrmLogin.txtsenKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If (Key=vk_Return) Or (Key=vk_Down) Then Perform(WM_NEXTDLGCTL, 0, 0); end; e Esse é o erro: Empty SQL Sta Tement Qual é esse erro.?

Olá pessoal achei este exemplo de DbGrid Zebrado em umas das apostilas minhas de programação, mas modifiquei do jeito que o meu projeto necessita, mas esta dando os seguinte erros: Esses são os dados: procedure Tfrmpraticas.DbgRelDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If Odd (FDtmIza.Praticas.RecNo) and (FDtmIza.Praticas.State <> dsInsert) Then Begin // Colocar a unit DB na clausula Uses na unit da tela DbgRel.Canvas.Brush.Color := clMoneyGreen; // muda a cor do pincel DbgRel.Canvas.FillRect(Rect); // Preenche o fundo com a cor especificada DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); // desenha as células da grade end; end; E ai dá este erro em Praticas // Praticas é a minha tabela que eu tenho o grid.

Ok, Micheus obrigado pela atenção mais um problema resolvido.

Ok, Resolvido até aqui, Outra questão nesse assunto, nessa tabela eu tenho os seguintes dados, codigo, data, horario, instrutor, categoria e resultado: E no relátorio aparece esses dados, como eu faço para aparecer os o nome do aluno, quer dizer fazer busca de outra tabela nesse relátorio?

Ok, Micheus deu certo, mas no formulário até os edits dá para você movimentar pelo o mouse, tem como deixar isso só focado para o grid.

Significa que a coluna DATA não existe na sua tabela EXAME. Tem certeza que o nome do campo é este mesmo? Verifique! Ok, Micheus você estava, esqueci que tinha mudado algumas coisas do meu banco de dados, mas outra questão é, Ok fiz a busca por data mas os dados que é para ser fornecido no relátorio não aparece digo que só aparece as datas, aqui mando os meus dados: A ConsultaRegistro é uma função: procedure TFrmRExames.spbexiClick(Sender: TObject); begin ConsultaRegistros ('Exame', 'Aluno, Dat_Exa, Hor_Exa, Tip_Exa, Cat_Exa, Instrutor, Res_Exa', 'Aluno>=' + TxtDatIn.Text + ' AND Aluno <=' + TxtDatFin.Text); With DtmIza.qryIza do Begin Close; Sql.Clear; Sql.Add('Select Dat_Exa From Exame'); Sql.Add('where (Dat_Exa >= :d1) and (Dat_Exa <= :d2)'); ParambyName('d1').value := FormatDateTime ('dd/mm/yyyy' , StrToDate (TxtDatIn.Text)); ParambyName('d2').value := FormatDateTime ('dd/mm/yyyy' , StrToDate (TxtDatfin.Text)); Open; End; With TFrmRelExames.Create(Application) do Try QuickRep1.Preview; Finally Free; End; end;

Deu esse erro: Project sistemacfc.exe raised exception class EIBInterBaseError with message "Dynamic SQL Error SQL error code = -206 Column unknown DATA'.Process stopped. Use Step or Run to continue.

Bom, Quero fazer buscas em um determinado relátorio cujo tem que ser feito por buscas, no Onclick do Botão Ok tenho esses codigos mas não consiguo visualizar nada aki tá dando erro nas datas: No caso acho que é essa minha instrução Sql. procedure TFrmRExames.spbexiClick(Sender: TObject); begin With DtmIza.qryIza do Begin Close; Sql.Clear; Sql.Add('Select Data From Exame ,' + FormatDateTime ('mm/dd/yyyy' , StrToDate (TxtDatIn.Text) )+ ',' + FormatDateTime ('mm/dd/yyyy' , StrToDate (TxtDatfin.Text)) + ')' ); Open; End; With TFrmRelExames.Create(Application) do Try QuickRep1.Preview; Finally Free; End; end;

Utilizei isso e a rodinha do mouse não funciona, só as teclas.

Olá pessoal, Qual procedimento que posso fazer para que a rodinha do mouse possa rolar a barra de rolagem de um grid?

Tenho o Mesmo problema e onde eu possa arrumar esse programa.

se era o seu caso, esta parte é justamente a que não lhe interessa. E qual seria ?

Exatamente o mesmo caso Micheus, mas o Problema que eu não entendi essa parte Onde eu faço isso?