Livio Neiva

ola!!! teria como me mandar uma resposta com base no procedimento que eu crie, ou seja, apenas incluir novos codigos dentro desse procedimento abaixo; o procedimento que estar relacionado a senha é o que estar em negrito!!! procedure TF_Login.BtnOKClick(Sender: TObject); begin F_Dados.Z_ApliCom.Connected := False; If RadioGroup1.ItemIndex = 0 then Begin F_Dados.Z_ApliCom.Hostname := 'localhost'; F_Dados.Z_ApliCom.Database := 'aplicom'; F_Dados.Z_ApliCom.Protocol := 'mysql-4.0'; F_Dados.Z_ApliCom.User := 'root'; F_Dados.Z_ApliCom.Password := ''; F_Menu.Label3.Caption := 'MySQL'; end; if RadioGroup1.ItemIndex = 1 then begin F_Dados.Z_ApliCom.Hostname := 'localhost'; F_Dados.Z_ApliCom.Database := 'D:\sistema comercial\APLI-COM\dados\APLICOM.FDB'; F_Dados.Z_ApliCom.Protocol := 'firebird-1.5'; F_Dados.Z_ApliCom.User := 'SYSDBA'; F_Dados.Z_ApliCom.Password := 'masterkey'; F_Menu.Label3.Caption := 'Firebird'; end; F_Dados.Z_ApliCom.Connected := True; //Verifica a senha do usuário F_Dados.Q_ConsFunc.Active := False; F_Dados.Q_ConsFunc.SQL.Clear; F_Dados.Q_ConsFunc.SQL.Add('SELECT * FROM FUNCIONARIO WHERE LOGIN ='+#39+EditLogin.Text+#39); F_Dados.Q_ConsFunc.SQL.Add('AND SENHA ='+#39+EditSenha.Text+#39); F_Dados.Q_ConsFunc.Active := True; //Procedimento p/ nome du usuario apareça na barra de status if F_Dados.Q_ConsFunc.FieldByName('LOGIN').AsString <> '' then begin F_Menu.LinhaStatus.Panels[1].Text := 'Usuário: ' + F_Dados.Q_ConsFunc.FieldByName('NOME').AsString;; F_Menu.Label4.Caption := F_Dados.Q_ConsFunc.FieldByName('CODIGO').AsString; F_Menu.Label5.Caption := F_Dados.Q_ConsFunc.FieldByName('NOME').AsString; F_Menu.ShowModal; end else begin ShowMessage('Login ou Senha Incorretos'); Application.Terminate; end; close; end;

Pro favor nobre amigo!! pode me mande um exemplo como faço para deixa inativo, mais se for possivel, um exemplo, baseado no meus procedimentos que postei acima. valeu obrigado!!!

fiz todo procedimento em SQL Ao clicar em excluir quando não tiver item selecionado, da erros. Eu quero q botão excluir fique inativo quando não estiver nada para excluir ou q informe q não há itens para ser excluídos. Gostaria da resposta baseado no procedimento que fiz procedimento todo em SQL codBanco é uma variavel global do tipo integer procedure TF_Bancos.BtnExcluirClick(Sender: TObject); begin codBanco := F_Dados.Q_Banco.FieldbyName ('Codigo').Value; if Application.MessageBox('Deseja Realmente Excluir?','Pergunta do Sistema',mb_YesNo + mb_IconQuestion) = idYes then begin F_Dados.Q_Banco.Active := False; F_Dados.Q_Banco.SQL.Clear; F_Dados.Q_Banco.SQL.Add('DELETE FROM BANCO WHERE CODIGO = '+#39+IntToStr(codbanco)+#39); F_Dados.Q_Banco.ExecSQL; end; end; Valeu obrigado a todos

SQL Cadastro feito em SQL Ola para todos!!! Banco de Dados feito em MySQL e Firebird Eu tenho uma tabela num banco de dados chamado de banco que tem esses campos (nome, email, codbanco, endereco, bairro, cidade, estado, cep, fone, celular, fax, gerente, agencia, conta) E achei esse procedimento que grava os dados através dos comandos SQL. Eu não estou entendo para que sever esse procedimento Showmessage('INSERT INTO (NOME, EMAIL, CODBANCO, ENDERECO, BAIRRO, CIDADE, ESTADO, CEP, FONE, CELULAR, FAX, GERENTE, AGENCIA, CONTA) VALUES ('+EditNome.Text+','+EditNumero.Text+','); Outra coisa, eu faço a inserção dos dados normal na tabela, só que quando eu vou visualizar os registros eles estão com uns caracteres estranho no inícios dos dados que eu inseri, tipo assim. ||Rua Benicio Diógenes......(dois palitos pretos e o dados que inserir na tabela) Acho eu, pode ser apostrofes ou aspa que inseri de mais, a verdade é que não sei corrigir. Abaixo estar o procedimento completo. procedure TF_Bancos.gravaInclusao; begin Showmessage('INSERT INTO (NOME, EMAIL, CODBANCO, ENDERECO, BAIRRO, CIDADE, ESTADO, CEP, FONE, CELULAR, FAX, GERENTE, AGENCIA, CONTA) VALUES ('+EditNome.Text+','+EditNumero.Text+','); F_Dados.Q_Banco.Active := False; F_Dados.Q_Banco.SQL.Clear; F_Dados.Q_Banco.SQL.Add('INSERT INTO BANCO (NOME, EMAIL, CODBANCO, ENDERECO, BAIRRO, CIDADE, ESTADO, CEP, FONE, CELULAR, FAX, GERENTE, AGENCIA, CONTA) VALUES ('); F_Dados.Q_Banco.SQL.Add('"'+EditNome.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditMail.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditNumero.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditEnd.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditBairro.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditCid.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditEst.Text+'","'); F_Dados.Q_Banco.SQL.Add(MkCep.Text+'","'); F_Dados.Q_Banco.SQL.Add(MkFone.Text+'","'); F_Dados.Q_Banco.SQL.ADD(MkCell.Text+'","'); F_Dados.Q_Banco.SQL.Add(MkFax.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditGerente.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditAgencia.Text+'","'); F_Dados.Q_Banco.SQL.Add(EditConta.Text+'")'); F_Dados.Q_Banco.ExecSQL; end; gostaria da resposta baseado no procedimento que fiz acima Valeu e obrigado a todos!!!

ZueRa, eu acredito que "nCol" seja o nome do campo onde vai ser feita a consulta. Livio Neiva, tenta colocar o comando para inicializar a consulta no local onde estão listados. se você estiver usando um combobox, em items você deve colocar o nome dos campos que contém na tabela a qual será feita a consulta exp : local, idade... ainda no combobox em eventos "OnChanger" de dois click e procedure TF_Produtos.ComboBox1Change(Sender: TObject); var NomCol:String; begin editProcura.Text:= ''; //limpando o campo onde será feita a consulta. NomCol:= Combobox1.text; //colocamos o valor selecionado na variavel. if NomCol= '' then Application.MessageBox('Primeiro Selecione uma Coluna para Realizar a Consulta','Clique em um Título',MB_OK + MB_IconError) else Begin with F_Dados.Q_produto do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM PRODUTO WHERE '+ NomCol + ); SQL.Add('order by '+ NomCol); open; end; End; end e para o o editProcura.Text de dois click procedure TF_Produtos.Edit1Change(Sender: TObject); var NomCol:String; begin editProcura.Text:= ''; //limpando o campo onde será feita a consulta. if combobox1.text = '' then Begin Showmessage('Escolha o loca"); exit; end; NomCol:= Combobox1.text; //colocamos o valor selecionado na variavel. with F_Dados.Q_produto do Begin Close; SQL.Clear; SQL.Add('SELECT * FROM PRODUTO WHERE '+ NomCol + ' like :A'); SQL.Add('order by '+ NomCol); parameters[0].value:= '%' + editProcura.Text + '%'; open; end; end; Ver ai se é o que você precisa, e posta o resultado. Eu vou mandar novamente o pôster, so que agora completo com todos os procedimentos para vocês tentarem me ajudar da forma que estar abaixo; estou trabalhando com dois tipos de banco de dados, Firebird MySQL sempre q eu preciso listar todos os registros de uma tabela o DBGRid eu digito %,e clico em localiza, eu não quero dessa forma. Eu quero q o edit1.text fique vazio, e na hora q eu licar em localiza, todos os registros sejam listados. Isso com titulo selecionado. enão fiz esses procedimento variável global private { Private declarations } public { Public declarations } end; var F_Produtos: TF_Produtos; idCol,Confira : Integer; ncol : String; implementation uses U_Dados, U_Menu; ---------------------------------------- procedure TF_Produtos.DBGrid1TitleClick(Column: TColumn); begin idCol := Column.ID; nCol := Column.FieldName; procura; end; ----------------------------------------- procedure TF_Produtos.procura; Begin if editProcura.Text <> '' then begin if ncol = '' then Application.MessageBox('Primeiro Selecione uma Coluna para Realizar a Consulta','Clique em um Título',MB_OK + MB_IconError) else Begin F_Dados.Q_Produto.Active := False; F_Dados.Q_Produto.SQL.Clear; F_Dados.Q_Produto.SQL.Add('SELECT * FROM PRODUTO WHERE '+nCol+' LIKE ' + #39 + '%' + EditProcura.Text + '%' + #39); F_Dados.Q_Produto.SQL.Add('order by '+nCol); F_Dados.Q_Produto.Active := True; end; End; end; so q não ta dando certo eu tenho q digitar editprocura.text o caracteres % para q liste todos os registros, e eu não quero assim. Eu quero dessa forma, Selecionar a coluna para q ela venha em ordem, e com edit vazio eu clique no botão localizar para listar todos os registros, e tb quero q ao diditar um caracteres ele liste todos os registro q tenha o caracteres digitado no edit. E por favor gostaria da resposta baseado nos procedimentos que eu fiz acima valeu e obrigado a todos!!!

CErto grande amigo!!!! so que eu não estou usando o componente ADO, estou usando componente Zeos(Zeos Access) TZConnection = faz a coneção com banco de dados TzQuery = representa a tabela NivelAcesso TZReadOnlyQuery = Representa a tabela de funcionarios e não conseguir fazer com os componentes Zeos!!! Me ajuda ai vai, me explica como seria com os componente zeos da para você mandar o procedimento baseado no que eu acabei de exlicar falou amigão velu pela ajuda Ola!! Fiz o da forma como você fez no exemplo acima; Essas são as minhas conexões; ZConnection é ZAplicon = Faz a conexão banco de dados ZQuery é Q_NivelAcesso = faz a coneção com a Tabela nível de acesso ZQuery é Q_ConsFunc = Faz a conexão com tabela funcionários Fiz formulário como você mostrou acima e apresentou seqüentes erros; //essa linha comando que deu erro qtmp_.Connection := F_Dados.Z_ApliCom; //Essa é a menssagem de erro [Error] U_NivelAcesso.pas(53): Incompatible types: 'TADOConnection' and 'TZConnection' procedure TF_NivelAcesso.BtnAtribuiClick(Sender: TObject); var qtmp_:tAdoQuery; begin qtmp_ := TADOQuery.create(self); qtmp_.Connection := F_Dados.Z_ApliCom; with qtmp_.SQL do begin Text := 'select * from Q_NivelAcesso where (modulo = '+Treeview1.Selected.Text+') and (codfunc = '+F_Dados.Q_ConsFunc.FieldByName('CODIGO').AsString+')'; Open; if RecordCount > 0 then begin Showmessage('já existe um ...'); Exit; //sai do bloco e não adiciona um novo end; end;//com isso você faz uma consulta antes de adicionar outro item qtmp_.free; //libera a query da memoria. F_Dados.Q_NivelAcesso.Append; F_Dados.Q_NivelAcesso.FieldByName('MODULO').AsString := Treeview1.Selected.Text; F_Dados.Q_NivelAcesso.FieldByName('CODFUNC').AsString := F_Dados.Q_ConsFunc.FieldByName('CODIGO').AsString; F_Dados.Q_NivelAcesso.FieldByName('CODMODULO').AsString := Copy(TreeView1.Selected.Text,1,2); F_Dados.Q_NivelAcesso.Post; end; Agora q estou mostrando os nomes das conexão(Zeos) , por favor pode mandar o código fonte com os nomes das conexão Valeu obrigado a todos Existe sim o componente, so que ta dando um erro veja a nova menssagem que eu postei, e tente me ajudar valeu obrigado!!!

Isso é questão de drives .... independente o sistema operacional, voce tem que ter o CD de instalação da placa mãe Neste CD estão todos os drives necessarios para a instalação do video, som, placa de rede ..etc Se voce não tem esse CD, então ao instalar o windos XP os drives ( padrão ) é que serão instalados no micro, e consequentemente não terá suporte a capacidade maxima do hardware Pode ser que no CD de instalação do Linux estes drives estejam presentes, por isso tudo funciona como deveria abraço Eu baixei os drives do fabricante da placa mae no site oficial e mesmo assim o problema continua!!!

Especificações do: Monitor LCD AOC 519sw de 15 Polegadas Entre suas características destacam-se: display LCD Widescreen de 15 polegadas, resolução máxima de 1280×720 pixels, interface de vídeo analógico RGB, menu OSD com interface gráfica amigável, VESA Mount, acabamento em Black Piano. Possui também tempo de resposta de 8ms, taxa de brilho de 200cd/m², relação de contraste dinâmico de 1.500:1, fonte interna, sistema Plug and Play, ângulo de visão de 50°, suporte para 16 milhões de cores. Seu valor no mercado é de aproximadamente 295 reais Monitor LCD AOC 519sw com Tela Widescreen de 15″ Desfrute de imagens de alta qualidade e resolução através do monitor LCD 519SW produzida pela AOC, que proporciona ao usuário LCD Widescreen de 15 polegadas, tendo um belo e moderno design. Entre suas características destacam-se: taxa de brilho de 200cd/m², relação de contraste de 1.500:1, tempo de resposta de 8ms, ângulo de visão de 70°, resolução máxima de 1280×720 pixels, suporte para 16 milhões de cores, conector analógico, compatível com o sistema operacional Vista. Dispõe ainda de Função OSD, sistema Pulg and Play, Led indicador, juste de altura, acabamento em Black Piano, fonte interna e mais. Seu preço no mercado é de aproximadamente 275 reais. ---------------------------------------------------------------------------------- Veja que a resolução máxima é de 1280×720 pixels, suporte para 16 milhões de cores. sendo assim é a sua placa de video que não tem o mesmo suporte. Se a placa de video for onboard não dá pra fazer nada .... voce pode tentar usar outra placa de video abraço ok grande amigo!!! vou tentar com uma nova placa de vídeo obrigado Eu tenho uma nova observação a fazer!!! esse computador foi comprado com linux instalado, a resolução de tela 1024 por 768 fica normal quando eu instalo o cd do linux q acompanha o pc. porque com linux q acompanha cd fica com a resolução de tela 1024 por 768 e com XP não fica ??? obrigado pela atenção

Especificações do: Monitor LCD AOC 519sw de 15 Polegadas Entre suas características destacam-se: display LCD Widescreen de 15 polegadas, resolução máxima de 1280×720 pixels, interface de vídeo analógico RGB, menu OSD com interface gráfica amigável, VESA Mount, acabamento em Black Piano. Possui também tempo de resposta de 8ms, taxa de brilho de 200cd/m², relação de contraste dinâmico de 1.500:1, fonte interna, sistema Plug and Play, ângulo de visão de 50°, suporte para 16 milhões de cores. Seu valor no mercado é de aproximadamente 295 reais Monitor LCD AOC 519sw com Tela Widescreen de 15″ Desfrute de imagens de alta qualidade e resolução através do monitor LCD 519SW produzida pela AOC, que proporciona ao usuário LCD Widescreen de 15 polegadas, tendo um belo e moderno design. Entre suas características destacam-se: taxa de brilho de 200cd/m², relação de contraste de 1.500:1, tempo de resposta de 8ms, ângulo de visão de 70°, resolução máxima de 1280×720 pixels, suporte para 16 milhões de cores, conector analógico, compatível com o sistema operacional Vista. Dispõe ainda de Função OSD, sistema Pulg and Play, Led indicador, juste de altura, acabamento em Black Piano, fonte interna e mais. Seu preço no mercado é de aproximadamente 275 reais. ---------------------------------------------------------------------------------- Veja que a resolução máxima é de 1280×720 pixels, suporte para 16 milhões de cores. sendo assim é a sua placa de video que não tem o mesmo suporte. Se a placa de video for onboard não dá pra fazer nada .... voce pode tentar usar outra placa de video abraço ok grande amigo!!! vou tentar com uma nova placa de vídeo obrigado

Tente usar um desses drives que resolve http://www.aoc.com.br/arquivos/produto/driver/212Va.zip http://www.aoc.com.br/arquivos/produto/driver/716Sw.zip http://www.aoc.com.br/arquivos/produto/driver/511Vwb.zip outros drives http://www.hardwaresecrets.com/page/drivers_monitor abraço Grande amigo!! eu já baixei todos os tipos de drive que você me indicou acima que seja compativel com monitor e não deu certo, a questão é o monitor lcd veio com cd de instalação com esse arquivo 519Sw e eu insta-lo corretamente sem nenhum problema na instalação, a placa de video tb ta instalada corretamente. O problema é quando eu vou em propriedades de video mudo a resolução de tela 1024 por 768 ele informa uma tela andando no video informando "entrada não suportada". fica a resolução 1024 por 768, mais tb fica uma tela andando no video informando Entrada não Suportada O que faço em, preciso resolver esse problema o mais rápido possivel. obrigado e valeu mesmo pela atenção

Estou com monitor LCD da AOC, os drives são,519Sw, e insta-lo. videos são AOC 519w em sis so que quando vou em propiedades de vídeos, configurações, e vou em resolução de tela 1024 por 768 ele informa, entrada não suportada. como faço para resolver esse problema??? pois preciso configura-lo em 1024 por 768 obrigado a todos!!!

O Pacote Quick Report não é instalado juntamente com o Delphi 7. Para instalá-lo utilize o arquivo dclqrt70.bpl. 1. Feche todos os projetos abertos. 2. Abra o menu Component na Barra de Menus. 3. Selecione a opção Install Packages. 4. Na caixa de diálogo que se abre, selecione o botão Add 5. Abra o diretório \bin (a localização padrão é c:\Arquivos de Programas\Borland\Delphi7\bin). 6. Selecione o arquivo dclqrt70.bpl. 7. Clique em Abrir. 8. De volta à janela Project Options, clique no botão OK. OBS: Talvez seja este o motivo do erro abraço grande amigo já fiz isso umas 200vezes!!! depois tentei localizar esse arquivo 'quickrep.dcu' no meu HD, e não localizei. caso eu tivesse localizado esse arquivo eu ia ver se o mesmo se encontra no seu Library Path. so que esse arquivo q você indicou acima, ta instalado, vou mandar um arquivo do word, com as telas feita com printscreen, para você ver componente instalado e mesmo assim continua erro. rapaz, já estou para ficar doido!!! vleu e muuito obrigado por estar me ajudando

CErto grande amigo!!!! so que eu não estou usando o componente ADO, estou usando componente Zeos(Zeos Access) TZConnection = faz a coneção com banco de dados TzQuery = representa a tabela NivelAcesso TZReadOnlyQuery = Representa a tabela de funcionarios e não conseguir fazer com os componentes Zeos!!! Me ajuda ai vai, me explica como seria com os componente zeos da para você mandar o procedimento baseado no que eu acabei de exlicar falou amigão velu pela ajuda

Te passei o meu mail, mas faça o teste antes dos componentes que te indiquei abraço O componente q você me indicou são os mesmo que já tenho aki, (acontece o mesmo problema)é como eu falei antes, eu instalo esses dois BarCode.pas, DBBarcod.pas, mais quando eu vou instalar esses dois qrbarcod.pas, qrdbbarc.pas diz não foi encontrado............. Quickrep;([Fatal Error] qrbarcod.pas(10): File not found: 'Quickrep.dcu') sendo q eu instalei componente QReport. Esse componente QReport, é o q já veio no delphi 7. valeu obrigado

baixe estes arquivos qrbarcod.pas, qrdbbarc.pas http://www.programmersheaven.com/d/click.a...P14632&url= abraço Grande amigo!!! não seria melhor você mandar seu email eu mandar meus componentes Barcode para você dar uma olhada, ou seja tentar instalar ele ai e ver como faço para resolver isso!!! mais vou baixar esses dois arquivos qrbarcod.pas, qrdbbarc.pas e tentar instalar aki e depois te falo o q aconteceu!!! eu considero esse forum o melhor do Brasil ficarei muito grato mesmo!!! valeu e mais uma vez obrigado!!!

Eu estou usando a versão do Delphi 7. Eu tenho um componente BarCode e que não mostra qual é a versão a única coisa q eu conseguir descobrir dele foi isso; {Written by David R. Faulkner, June 1996} {P.O. Box 434, Kula HI, 96790} {Internet: davef@maui.net} {This unit implements TBarCode, a component that paints Code 39 barcodes} Special Notes for DI9701DF code sample. The BarCode component is in the BARCODE.PAS file. Eu conseguir instalar esses dois BarCode.pas e o DBBarcod.pas sem problema nenhum, mais ta faltando eu instalar mais esses dois, qrbarcod.pas qrdbbarc.pas e eu tenho esses dois componentes(arquivos) só que quando eu vou instalar os dois ele manda essa mensagem de erro. Quickrep;([Fatal Error] qrbarcod.pas(10): File not found: 'Quickrep.dcu') (para tentar resolver o problema eu já instalei o componente QReport, e tentei localizar esse arquivo 'quickrep.dcu' no meu HD, e não localizei. caso eu tivesse localizado esse arquivo eu ia ver se o mesmo se encontra no seu Library Path.) quero saber o seguinte; o problema ta no meu quickreport (é a versão do quickreport que tenho q pagar para adquirir ?? ) ou é a versão do taborde? Seja qual for me mande o link como adquirir , q eu pago, mais com tanto q resolva a instalação dos componentes que já tenho. Se você tiver uma alternativa gratuita melhor ainda Porque é seguinte, eu adquirir uns código fontes para código de barra q veio explicando q só preciso instalar esses componentes para que eu possa abri-lo e entende-lo melhor BarCode.pas, DBBarcod.pas, qrbarcod.pas, qrdbbarc.pas e eu já tenho esses quatros componentes, e conseguir instalar os dois primeiros os dois ultimos não instalado, pelo motivo q já expliquei acima. Eu Tb tentei instalar os componentes que você me indicou no link e não deu certo Tem algo q possa fazer para resolver isso?? Valeu amigo pela grande ajuda q estar me dando!!!

eu estou criando o formulario de login, e não estou conseguindo fazer com o usuario tenha tres chances de entrar no sistema, ou seja, depois que o usuario errar três vezes seu login ou senha é que o sistema vai dar o..... Application.Terminate; encerra o programa onde e como devo alterar procedimentos, //Verifica a senha do usuário F_Dados.Q_ConsFunc.Active := False; F_Dados.Q_ConsFunc.SQL.Clear; F_Dados.Q_ConsFunc.SQL.Add('SELECT * FROM FUNCIONARIO WHERE LOGIN ='+#39+EditLogin.Text+#39); F_Dados.Q_ConsFunc.SQL.Add('AND SENHA ='+#39+EditSenha.Text+#39); F_Dados.Q_ConsFunc.Active := True; // if F_Dados.Q_ConsFunc.FieldByName('LOGIN').AsString <> '' then F_Menu.ShowModal Else begin ShowMessage('Login ou Senha Incorretos'); Application.Terminate; end; close; end; obrigado a todos

CErto grande amigo!!!! so que eu não estou usando o componente ADO, estou usando componente Zeos(Zeos Access) TZConnection = faz a coneção com banco de dados TzQuery = representa a tabela NivelAcesso TZReadOnlyQuery = Representa a tabela de funcionarios e não conseguir fazer com os componentes Zeos!!! Me ajuda ai vai, me explica como seria com os componente zeos da para você mandar o procedimento baseado no que eu acabei de exlicar falou amigão velu pela ajuda

problema resolvido!!! obrigado a todos

Problema resolvido obrigado a todos

ok.. mais o componente q eu estou kerendo instalar é TBarcode v3.22, e não consigo por causa dos problemas q eu menssionei acima. quero saber como faço para resolver o problema??? valeu obrigado a todos

estou trabalhando com dois tipos de banco de dados, Firebird MySQL sempre q eu preciso listar todos os registros de uma tabela o DBGRid eu digito %,e clico em localiza, eu não quero dessa forma. Eu quero q o edit1.text fique vazio, e na hora q eu licar em localiza, todos os registros sejam listados. Isso com titulo selecionado. enão fiz esses procedimento procedure TF_Produtos.procura; Begin if editProcura.Text <> '' then begin if ncol = '' then Application.MessageBox('Primeiro Selecione uma Coluna para Realizar a Consulta','Clique em um Título',MB_OK + MB_IconError) else Begin F_Dados.Q_Produto.Active := False; F_Dados.Q_Produto.SQL.Clear; F_Dados.Q_Produto.SQL.Add('SELECT * FROM PRODUTO WHERE '+nCol+' LIKE ' + #39 + '%' + EditProcura.Text + '%' + #39); F_Dados.Q_Produto.SQL.Add('order by '+nCol); F_Dados.Q_Produto.Active := True; end; End; end; so q não ta dando certo eu tenho q digitar editprocura.text o caracteres % para q liste todos os registros, e eu não quero assim. Eu quero dessa forma, Selecionar a coluna para q ela venha em ordem, e com edit vazio eu clique no botão localizar para listar todos os registros, e tb quero q ao diditar um caracteres ele liste todos os registro q tenha o caracteres digitado no edit. valeu e obrigado a todos!!!

ola para todos!! eu criei uma uma tabela funcionarios com um campo actotal(acesso total), ou seja so grava um caracteres.(Char 1) e liquei um componente a esse campo. O componente Checkbox, se o Checkbox estiver marcado ele grava um X no campo actotal, quando eu resolver desmarcar ele exclui o X do campo. so q não estou ocnseguindo fazer um procedimento da forma q eu quero acima eu não consigo desativar a opção Checkbox, ou seja eu faço o cadastro do funcionario(crio registro) e ativo acessso total(Checkbox) saiu do registro e entro novamente para fazer algumas alterações e desativo o acesso total(Checkbox), so q não desativa, o registro fica com X no campo e o Checkbox fica marcdo, indicando q o mesmo tera acesso total como admistrador. quero q fique funcionando da forma q eu expliquei no 1º paragrafo, ou seja se eu resolver desativar q fique desativado e o X sai do campo actotal. abaixo estar os codigos; eu crie dois procedimentos para meu cadastros,pois estou trabalhando com edits um procedimento recebe os dados do banco de dados para edit e outro grava os dados do edit para banco de dados. procedure TF_Funcionarios.QueryToEdits; If F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X' then CheckboxAcTotal.Checked := True; procedure TF_Funcionarios.Grava; if CheckboxAcTotal.Checked then F_Dados.Q_Funcionario.FieldByName('actotal').AsString := 'X'; se puder tambem me mandar os procedimentos com campo actotal do tipo boolean, gostaria de ver as duas formas, se fosse possivel campo actotal do tipo boolean campo actotal do tipo char 1

eustou tentando instalar esse componente TBARCODE (TBarcode v3.22) so q quando eu faço o processo componete >> instal component >> into new package e localizo os arquivos em unit file name qrbarcod.pas qrdbbarc.pas e outros componetes do TBACODE ele da erro nesse nome Quickrep;([Fatal Error] qrbarcod.pas(10): File not found: 'Quickrep.dcu') para tentar resolver o problema eu já instalei o componente QReport, e tentei localizar esse arquivo 'quickrep.dcu' no meu HD, e não localizei. caso eu tivesse localizado esse arquivo eu ia ver se o mesmo se encontra no seu Library Path. caso eu esteja instalandoo componente errado(QReport), me informe o correto e onde eu devo baixar como faço para resolver?? obrigado a todos xau

ola a todos eu criei um formulário para meu sistema no qual vai controlar o nível de acesso para determinados funcionários. Num formulário eu inseri um componente TreeView(que estão os itens q servirão para definir o nível de acesso) dois componentes DBGrid um para tabela de funcionários e o outro DBGrid para tabela de nível de acesso q tem três campos, Modulo, Codfuncionario e CodModulo. Inseri dois botões chamados de Atribui e remove no botão atribui eu fiz o seguinte procedimento; procedure TF_NivelAcesso.BtnAtribuiClick(Sender: TObject); begin F_Dados.Q_NivelAcesso.Append; F_Dados.Q_NivelAcesso.FieldByName('MODULO').AsString := Treeview1.Selected.Text; F_Dados.Q_NivelAcesso.FieldByName('CODFUNC').AsString := F_Dados.Q_Funcionario.FieldByName('CODIGO').AsString; F_Dados.Q_NivelAcesso.FieldByName('CODMODULO').AsString := Copy(TreeView1.Selected.Text,1,2); F_Dados.Q_NivelAcesso.Post; end; preciso de um procedimento q não permita que o usuário atribua dois Subitens iguais para mesmo funcionário, e que quando o usuário tentar adicionar um item, que seja atribuído todos os subitens daquele item ou então q informe não pode ser atribuído itens, só subitens. obrigado a todos e espero eu tenha explicado direitinho