-
Total de itens
359 -
Registro em
-
Última visita
Tudo que Pirambu! postou
-
Micheus, não encontro esta opção no evento do form "ShowPreview" procedure FormRelatorio.ShowPreview(CodFuncionario :LongInt); eu tentei criar um "procedure" mas dá erro na linha da "procedure" ou esteja faltando declarar alguma "Uses" como biblioteca
-
Micheus, o meu codigo já estar no form do relatório quando ele é criado em "OnCreate" ou será de outra forma? Eu não entendir direito este comentário, você poderia dá mais detalhes ?
-
Churc, valeu pela explicação, tudo ficou claro. Até a próxima.
-
eu não observei o detalhe no código , a gora funcionou direitinho, agora você pode me explica o codigo, porque o negócio só de copiar e colar não é minha praia. :huh: Copy(szLine, 1, Pos(Separator, szLine) -1); Este codigo dentro do primeiro ( szline,...,(...)...) estar identificando o valor a ser copiado? e o ( ...,1,...,(...)...) o que seguinifica este "1"? e o (...,...,pos(separador,szline),...) estar identificando o separador e valor a ser copiado? e o (...,...,(...),-1) o que siguinifica "-1"? mas valeu pela ajuda.:rolleyes:
-
Churc, dá uma olhada, e diz o que estar errado pois eu consigo gerar TXT com tres campos mais para ler só consigo ler apenas dois: procedure TForm1.BitBtn6Click(Sender: TObject); const Separator = '»'; var CSVFile: TextFile; begin try AssignFile(CSVFile, 'C:\Treinamento1.txt'); Rewrite(CSVFile); adotable1.First; while not ADOTABLE1.Eof do begin Writeln(CSVFile, adotable1funcionarioID.AsString + Separator + adotable1cursoID.AsString + Separator + adotable1Periodo.AsString); adotable1.Next; end; closefile(CSVFile); except Showmessage('Não Disponivel'); end; end; procedure TForm1.BitBtn7Click(Sender: TObject); const Separator = '»'; var CSVFile: TextFile; szLine: String; begin AssignFile(CSVFile, 'C:\Treinamento1.txt'); Reset(CSVFile); while not EOF(CSVFile) do begin Readln(CSVFile, szLine); table1.Append; table1codigofunc.Value := Copy(szLine, 1, Pos(Separator, szLine)-1); Delete(szLine, 1, Pos(Separator, szLine)); table1nomecurso.Value := Copy(szLine, 1, Pos(Separator, szLine) -1); Delete(szLine, 1, Pos(Separator, szLine)); table1periodo.Value := Copy(szLine, 1, Pos(Separator, szLine) -1); Delete(szLine, 1, Pos(Separator, szLine)); table1.Post; end; end;
-
Estou com um problema, ao abrir o Form de cadastro de um determinado funcionário clico no botão de visualizar a ficha do mesmo, quando eu faço a primeira visualização mostra normalmente o funcionário que estar selecionado no meu form, até ai tudo bem, mas quando eu fecho a tela do relatório, e no form eu visualizo outro funcionário estar mostrando o mesmo funcionário anterior, é como as informações ficassem na memória, mas no evento de fechar o form do relatório em ONDestroy--> action:= cafree; FormRela := nil; o meu banco de dados e paradox para as informações do relatório estou usando uma query que tem como params o matricula do funcionario da TBFuncionario.
-
Estou fazendo assim: function Espaco(linha:string;QTD:integer):String; var Tam:integer; begin Tam:=Length(linha); While Tam <= QTD do begin Linha:=Linha + ' '; Tam:= Tam + 1; end; Result:= linha; end; procedure TForm1.BitBtn1Click(Sender: TObject); var arq:textfile; begin try assignfile(arq,'C:\treinamento.txt'); rewrite(arq); adotable1.First; WHILE NOT ADOTABLE1.Eof DO BEGIN writeln(arq,Espaco(intTostr(adotable1funcionarioID.Value),6) ,espaco(intTostr(adotable1cursoID.value),10) ,espaco(adotable1Periodo.value,15) ,dateTostr(adotable1Datatermino.value), adotable1.Next; end; closefile(arq); except Showmessage('Não Disponivel'); end; end; pronto churc
-
Micheus, deu certo e eu também conseguir ligando a SubDetail a query da consulta da peça, e query da peça com params ao Num_Lan... Obrigado! Valeu pela força.
-
churc, eu tentei mais continua dando erro talvez seja isso quando eu crio o TXT eu preencho os espaços com a função abaixo: function Espaco(linha:string;QTD:integer):String; var Tam:integer; begin Tam:=Length(linha); While Tam <= QTD do begin Linha:=Linha + ' '; Tam:= Tam + 1; end; Result:= linha; end; eu preciso usar também para ler o TXT? ou seria outra forma?
-
Eu estou com um problema para ler um aruivo TXT, que estar dando erro na hora de importa para o paradox o campo que estar dando erro é de data, eu tentei assim: procedure TForm1.BitBtn4Click(Sender: TObject); var arq:textfile; linha:string; begin assignfile(arq,'C:\Treinamento.txt'); reset(arq); while not eof(arq) do begin readln(arq,linha); table1.Append; table1codigofunc.Value := copy(linha,1,6); table1nomecurso.Value := copy(linha,8,17); table1periodo.Value := copy(linha,19,34); table1datatermino.Value := copy(linha,35,44); table1.Post; end; end; no TXT a data Estar Assim " 15/02/2007" na tabela estar como "D" Alguém sabe como resolver este problema?
-
Micheus, Funcionou certinho , só que não precisei usar o " Keyfield" Valeu, obrigado!
-
Micheus, o que eu tentei fazer foi o seguinte eu Tenhos dois protocolo de comunicação ( BDE ) pois estão em pastas diferentes no protocolo 1 tenho um tabela de Funcionarios - ( TBFuncionarios-01 ) no protocolo 2 tenho outra tabela de funcionarios - ( Tbfuncionarios-01 ) A diferença entre as tabelas são a Matricula e o nome dos Funcionarios, que não pode ser igual mais eu quero usar apenas um tela com a opção de alternar entre os dois protocolo, eu fiz assim: adicionei o Combobox com escolha para duas empresas if combobox1.text = 'Empresa1' then begin Table1.close; databasename :='Empres1'; Tablename := ' Tbfuncionarios-01'; Table1.open; end else begin Table1.close; databasename := 'Empresa2'; TableName := 'TbFuncionarios-01'; Table1.open; Funciona direitinho, mas eu preciso ter uma outra tabela TBDocumentos relacionada a TBFuncionarios-01 mais não Sei como relacionar via codigo as tabelas são em paradox
-
Estou precisando fazer um Relacionamento Via Codigo. alguém tem ideia de como poderia ser?-
-
Estou com um problema para criar um relatorio exemplo: Eu tenho uma 3 tabela 1º lancamento: onde eu tenho Num_lancID, Cliente, Data_lancamento, Valor_Total 2º Peças: Num_lancID, CodPeca, Descricao, Quant 3º Servicos: Num_lancID, Servico, Valor Onde as Tres estão Vinculadas pelo "Num_lancID" eu tenho um "formImpressao" para identificar qual Lancamento eu quero imprimir, e no relatorio eu estou usando 3 query para filtrar as informações do "Num_lancID" do "FormImpressao" mas aparece as informações sem tar acossiadas, Eu tentei pegar direto da tabela mais não deu certo usando o filtro assim: dados.tbLancamento.locate(Num_lancID,formImpressao.Edit1.Text,[]); Alguém tem um forma mas simples? ou que ser certo?
-
Micheus, e no caso se eu queira desabilitar os menus que o usuario não tive permisão para acessar, eu teria que usar a "Tag" ou seria de outra forma?
-
Micheus eu não Sabia, Funcionou direitinho. brigado pela ajuda. Feliz pascoa!
-
Agora Como eu posso fazer para mostrar todas as data que não seja nulo ? eu tentei assim, mas não deu certo. sql.add('Where Data <> '' ');
-
micheus, valeu pela explicação mas, você disse que poderia ser usado em controle de acesso como eu poderia identificar a tag pelo cadastro de usuario , seria assim? eu teria os menu "Cadastro" e "Movimento" sendo que determinaria um valor na Tag para Cada menu exemplo: Cadastro = Tag: 1 Movimento = Tag: 2 e teria um tabela de controle de usuario, onde eu teria os campos: Usuario= A Senha= A Tag= I : (identificação da Tag: "1" ou "2" ) Acesso=I : ( sim ou Não) e na telinha do "Login" como eu faria para utilizar as informações da tabela para desabilitar o menu do form?
-
Estou com uma dúvida sobre a propriedade " tag " do form, como funciona e como eu poderia usar esta propriedade?
-
Andreia eu tentei as duas forma mais o que deu certo foi essa SELECT * FROM TABELA1 WHERE DATA IS NULL Obrigado pela força.
-
ok amigo, deu certo Obrigado,
-
Como eu posso fazer uma consulta em uma tabela buscando apenas os registro que tenha a data em branco, eu tentei assim: with query1 do begin close; sql.clear; sql.add('select * from tabela1'); sql.add('where data = " " '); open; :blink:
-
eu usei um TDBImage, mais onde fica este codigo CodCli := Query do Lançamento mais o campo ClienteID Query do cadastro de cliente.Locate('ClienteID',CodCli,[LoCaseInsensitive, LoPartialKey]); fica tudo junto na beforeEdit da tabela? :huh:
-
Estou novamente precisando de Ajuda. eu fiz uma cadastro de cliente e adicionei uma foto do cliente e quando eu for fazer um lançamento de venda e identificar o cliente, preciso que apareça a foto do cliente mais não sei como. Eu fiz assim Eu tenho duas tabelas em Paradox a "FotoCliente" estar como Graphic na Tabela Cliente: ClienteID - + Nome - A FotoCliente - G ... na tabela lançamento: LancamentoID - + ClienteID - I Item - I Quantidade - N Alguém Sabe como resolver este problema.
-
obrigado pela dica. desculpe os erros, vou melhorar.