robinhocne

Ok, Resolvido. Muito Obrigado Micheus.

Sim, Fiz assim mas dá erro no A: With QryPraA do Begin Close; Sql.Clear; Sql.Add ('Select P.Aluno, P.Instrutor, P.Data, P.Horario, P.Categoria, P.Aluno From Praticas P,' +'Instrutores I Where P.Aluno=' + TxtMat.Text + 'AND P.Categoria= 'A' AND P.Status=1 AND I.Codigo=P.Instrutor ORDER BY P.Data, P.Horario'); Open; end;

Ok, Micheus, mas eu gostaria: Tenho uma IbQuery para a categoria A e outra para B então gostaria de ter tipo essa instrução SQL para uma e outra: With QryPraB do Begin Close; Sql.Clear; Sql.Add ('Select P.Aluno, P.Instrutor, P.Data, P.Horario, P.Categoria, P.Aluno From Praticas P,' +'Instrutores I Where P.Aluno=' + TxtMat.Text + 'AND P.Status=1 AND I.Codigo=P.Instrutor ORDER BY P.Data, P.Horario'); Open; end

OLá pessoal, estou fazendo uma instrução sql, mas gostaria de fazer busca de só uma determinada "categoria": Quer Dizer tenho uma Tabela chamada Praticas que marcos aulas nela de categoria determinada categoria do Usuário, nessa tabela eu faço a busca dessa categoria, mas aki eu só busca normais, tenho dois grids uma para Por exemplo moto e outra carro: Esses são os dados: With QryPraB do Begin Close; Sql.Clear; Sql.Add ('Select P.Aluno, P.Instrutor, P.Data, P.Horario, P.Categoria, P.Aluno From Praticas P,' +'Instrutores I Where P.Aluno=' + TxtMat.Text + 'AND P.Status=1 AND I.Codigo=P.Instrutor ORDER BY P.Data, P.Horario'); Open; end;

Cara to seguindo pela essa dica mas nato to entendendo esta parte onde eu faco isso?

Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro. OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro. Ae deu certo, instalei o Firebird e tudo ocorreu certo. Resolvido Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro. OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro. Ae deu certo, instalei o Firebird e tudo ocorreu certo. Resolvido Cara agora outra coisa, você poderia me indicar um instalador para que possa já instalar o firebird e o programa já no disco certo e pasta?

Jhonas, não deu certo: Mas algumas duvidas! Pois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro. e agora?

Ponha no post mesmo pois se alguém precisar, já tem.

Jhonas fiz um exemplo do meu projeto dê uma olhada: Teste Patch

Eu fiz do jeito que estava no segundo post mas tá dando erros: procedure Tfrmprincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if FrmPrincipal.DbaIza.Connected = false then FrmPrincipal.DbaIza.Connected := true; if not FrmPrincipal.DbaIza.Active then FrmPrincipal.DbaIza.Active := true; end; end. e ..... var Caminho : TextFile; Line : string; begin Application.Initialize; Application.CreateForm(Tdtmiza, dtmiza); Application.CreateForm(Tfrmprincipal, frmprincipal); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TFrmSplash, FrmSplash); FrmSplash.show; // exibe a tela FrmSplash FrmSplash.Refresh; // dá um refresh na tela sleep(0000); // aguarda 02 segundo - incluir na unit o SysUtils na Uses FrmSplash.Release; // Elimina a tela da memoria FrmSplash := nil; // anula a referencia ao ponteiro do objeto //FrmLogin.ShowModal; AssignFile(Caminho, 'C:\cfc\Net.Txt'); // Diretorio onde foi salvo o arquivo Net.txt Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FrmPrincipal.FdtmIza.DatabaseName := Line; end; CloseFile(Caminho); Application.Run; Dá esses erros. O Meu banco de dados é ligado com um datamodule, no datamodule tenho um IBDataBase, IBQuery e IBTransaction.

Me Desculpe mas é o Delphi 07 e Firebird

Como faz um arquivo patch, para eu configurar o bando de dados e só usar eles sem fazer instalações.

Ok, Resolvido. Ai vai os dados: unit FLogin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, psvBasiclbl, psvBorderLabel, DB, pngimage, ExtCtrls, Menus; type TFrmLogin = class(TForm) txtusu: TEdit; psvBorderLabel2: TpsvBorderLabel; psvBorderLabel3: TpsvBorderLabel; txtsen: TEdit; SpbOk: TSpeedButton; SpbCan: TSpeedButton; Image1: TImage; psvBorderLabel1: TpsvBorderLabel; procedure SpbOkClick(Sender: TObject); Procedure LeAcesso (Nivel : String); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure SpbCanClick(Sender: TObject); private Acessos : Integer; Liberado : Boolean; public Login : Boolean; end; var FrmLogin: TFrmLogin; implementation {$R *.dfm} Uses Funcoes, FPrincipal; procedure TFrmLogin.LeAcesso(Nivel: String); var Menu : Array[1..43] of TMenuItem; // Não esquecer de colocar na clausula uses 'Menus' i : Integer; begin Menu[01] := FrmPrincipal.Cadastro1; Menu[02] := FrmPrincipal.Alunos1; Menu[03] := FrmPrincipal.Instrutores1; Menu[04] := FrmPrincipal.Cidades1; Menu[05] := FrmPrincipal.Veiculos1; Menu[06] := FrmPrincipal.Materias1; Menu[07] := FrmPrincipal.Niveis1; Menu[08] := FrmPrincipal.Usuarios2; Menu[09] := FrmPrincipal.Empresa1; Menu[10] := FrmPrincipal.Lancamentos1; Menu[11] := FrmPrincipal.Parcelas1; Menu[12] := FrmPrincipal.Pagar1; Menu[13] := FrmPrincipal.Caixa3; Menu[14] := FrmPrincipal.Exames2; Menu[15] := FrmPrincipal.Exames1; Menu[16] := FrmPrincipal.Agendamentos1; Menu[17] := FrmPrincipal.Teoricas1; Menu[18] := FrmPrincipal.Praticas1; Menu[19] := FrmPrincipal.Relatorios; Menu[20] := FrmPrincipal.Matricula1; Menu[21] := FrmPrincipal.Moto1; Menu[22] := FrmPrincipal.Carro1; Menu[23] := FrmPrincipal.Caminhao1; Menu[24] := FrmPrincipal.Onibus1; Menu[25] := FrmPrincipal.Carreta1; Menu[26] := FrmPrincipal.AulasPraticas1; Menu[27] := FrmPrincipal.AulasTeoricas2; Menu[28] := FrmPrincipal.Contrato1; Menu[29] := FrmPrincipal.Diario1; Menu[30] := FrmPrincipal.Semanal1; Menu[31] := FrmPrincipal.Diario2; Menu[32] := FrmPrincipal.Semanal2; Menu[33] := FrmPrincipal.Presenca1; Menu[34] := FrmPrincipal.Certificacao1; Menu[35] := FrmPrincipal.Presenca2; Menu[36] := FrmPrincipal.Certificacao2; Menu[37] := FrmPrincipal.Parcelas2; Menu[38] := FrmPrincipal.Carne1; Menu[39] := FrmPrincipal.CaixaDiario2; Menu[40] := FrmPrincipal.Exames; Menu[41] := FrmPrincipal.Utilitarios1; Menu[42] := FrmPrincipal.Backup1; Menu[43] := FrmPrincipal.Sistema1; For i := 1 to High (Menu) do Begin Menu[i].Enabled := (Nivel[i]='1'); End; Liberado := True; Close; end; procedure TFrmLogin.SpbOkClick(Sender: TObject); Begin If ( (Length(Trim(TxtUsu.Text))=0) or (Length(Trim(TxtSen.Text))=0) ) then Begin ShowMessage ('Usuário / senha inválido!'); Exit; end; If ( ConsultaRegistros ('Usuarios U, Nivel N', 'U.Senha, N.Acesso','U.Nome='+ #39 + TxtUsu.Text + #39)) then Begin If (LeDados ('Senha')<>TxtSen.Text) then Begin Inc(Acessos); ShowMessage ('Senha incorreta!'); If (Acessos >2) Then Application.Terminate;// se o usuario digitar 3 x a senha errada é finalizada a aplicação Exit; end; LeAcesso (LeDados('Acesso')); end else Begin Inc(Acessos); ShowMessage ('Usuário Inexistente!'); If (Acessos >2) Then Application.Terminate;// se o usuario digitar 3 x a senha errada é finalizada a aplicação end; End; procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction); begin If (Liberado) then Begin Action := caFree; end else begin Application.Terminate; end; end; procedure TFrmLogin.FormCreate(Sender: TObject); begin Liberado := False; end; procedure TFrmLogin.SpbCanClick(Sender: TObject); begin Close; end; End. No View Source: ..... {$R *.res} begin Application.Initialize; Application.CreateForm(Tdtmiza, dtmiza); Application.CreateForm(Tfrmprincipal, frmprincipal); Application.CreateForm(TFrmLogin, FrmLogin); FrmLogin.ShowModal; Application.CreateForm(TFrmSplash, FrmSplash); FrmSplash.show; // exibe a tela FrmSplash FrmSplash.Refresh; // dá um refresh na tela sleep(0000); // aguarda 02 segundo - incluir na unit o SysUtils na Uses FrmSplash.Release; // Elimina a tela da memoria FrmSplash := nil; // anula a referencia ao ponteiro do objeto Application.Run; end.

Obrigado PauloBergo, mas não é isso que eu quero para o meu projeto e para os olhos do usuarios, pois sendo um usuário que entende bem do assunto de cfc(Centro de Formação de Condutores) 'Auto Escola', no caso pois seria comodo para o usuário preencher os demais campos a não serem marcado aulas a tabela é assim: http://www.4shared.com/file/24235769/f0ef8...l?cau2=403tNull Dê uma olhada e analizada nessa imagem, ela é a tabela de marcação de aulas praticas. O Relátorio tem que aparecer os seguintes dados: [b]Cabeçalho[/b] Intrutor : 1 Robinho Domingo Segunda Terça Quarta Quinta Sexta Sábado Horário 09/09/07 10/09/07 11/09/07 12/09/07 13/09/07 14/09/07 15/09/07 08:00 ****** 000001 000001 000001 ****** 000001 000001 09:00 ****** 000001 000001 000001 ****** 000001 000001 10:00 ****** ****** 000003 11:00 ****** ****** 12:00 ****** ****** 13:00 ****** ****** ****** ****** ****** ****** ****** 14:00 ****** 000002 000002 000002 000002 000002 ****** 15:00 ****** 000003 000003 000003 000003 ****** 16:00 ****** ****** 17:00 ****** ****** 18:00 ****** ****** 18:50 ****** ****** 19:40 ****** ****** 20:30 ****** ****** 21:20 ****** ****** ****** ****** ****** ****** ****** No caso seria desse tipo que eu quero, os campos em branco ficarão assim mesmo do jeito que está na tabela

Dados da tabelas Praticas: Aluno > busca o codigo do aluno na tabela de alunos Instrutor > busca o codigo do instrutor na tabela de intrutores Categoria > busca o codigo de veiculo na tabela de veiculo Data Horario Status > 1 para desbloqueado 0 para bloqueado É Micheus e eu gostaria assim: 08:00 000001 = codigo do aluno 09:00 000003 = codigo do aluno 10:00 ****** = horário bloqueado 11:00 000002 = codigo do aluno

Cara não entendi.

robinhocne, se você quer um exemplo mais específico, seria melhor você especificar:- banco de dados utilizado; - componente de acesso ao banco (ADO, DBE, DBExpress,...) - Nome das tabelas envolvidas (há uma que você define a qtd da parcela, mas dever haver a outra que corresponde às parcelas), bem como campos. O que o colega Vivendo&Aprendendo colocou é o básico da coisa, não tem mistério, você vai ter que adicionar um registro na tabela das parcelas para cada enlace do for. Banco de Dados = Firedird Componente de Conexão = IBQuery, IBTable, IBTransaction. Tabelas Envolvidas = Será no Caso duas a tabela de Alunos e Lancamentos. Dados da Tabela de Lancamento Codigo > Busca do ALuno na tabela Aluno Status > Se é Entrada ou saida. Parcelas > Quantidade de parcelas * onde vai falar a quantidade de parcelas a serem gerados Vencimento > Data de vencimento das parcelas (' no caso aki Micheus eu não sei como e o que fazer, digo queria assim: por exemplo um dia util de vencimento e ai gerar todas as parcelas apartir desse dia') Valor > Valor de cada parcela Emissão > Current_Date.

sobre esta consulta. Para tentar exemplificar o relatório, é preciso saber: - em que campos estão armazenados os dados referentes a Data e Hora, que campo será colocado na intercessão de ambos (lá onde tem os quadrinhos com 1)? - o relatório terá a seqüência de horas fixa, tipo 08:00, 09:00, 10:00, 11:00, 12:00, 14:00; ou apenas nas horas que tiverem registros? - haverão vários registros para mesma data e hora, ou será apenas 1? - Estão nos Campos da Tabela de Praticas. - Sim Ter que ser de horas fixa. - Será Apenas Um registro.

Como assim.... Dados da Tabela Aluno = Busca o nome do aluno na tabela de alunos Tipo = Entrada ou saida QtParcelas = Quantidade de parcelas Vencimento = 'No caso aqui seria um dia Util ex.: 15 de cada mes na "quantidade de parcelas"' Como poderia atribuir esses dados e favorecer nessa tabela?

Estou fazendo um cadastro de lançamento e gostaria de fazer assim: Tenho um campo que se chama quantidade de parcela e nesse campo por exemplo a gente coloca 6 parcela e tenho um botão para gerar essas parcelas, mas como eu faço isso para que o valor que eu colocar no campo gerar as quantidades de parcelas e mostrar no grid?

Ok, fico aguardando resposta

Fiz da seguinte maneira: http://www.4shared.com/file/23969805/8909d...l?cau2=403tNull

Entendi, o que você quiz dizer sim Micheus, eles estão ligados ao datasets sim, mas eu passei a consulta para você verificar se esta correta. pois acho que é ai que esta dando problema.

Micheus esses são dos dados que eu uso para as buscas. procedure TfrmLisRelPraSemanais.spbexiClick(Sender: TObject); begin With DtmIza.qryIza do Begin Close; Sql.Clear; Sql.Add('SELECT * FROM Praticas'); Sql.Add('where (Data >= :d1) and (Data <= :d2)'); ParambyName('d1').value := FormatDateTime ('dd/mm/yyyy' , StrToDate (TxtDtIni.Text)); ParambyName('d2').value := FormatDateTime ('dd/mm/yyyy' , StrToDate (TxtDtfin.Text)); Open; End; With TFrmPraticaSemanal.Create(Application) do Try QuickRep1.Preview; Finally Free; End; end;

Bom, não sei se isso vai te ajudar, mas eu uso o office 2007 também, ainda não utilizei delphi e office, mas andei observando na extenção dos arquivos gerados pelo office 2007 é outra extenção, por exemplo ai você expecificou: Andei observando que a extenção do office 2007 é .xls, verifica se é isso, mas você deve mudar o tipo de salvamento em mais comando do word 2007. Verifique, espero que seja isso.