Pirambu!

instalei o vista com 62bit, e instalei o delphi e não estar funcionando, alguém sabe como resolver isso?

Valeu Micheus, realmente fica mais fácil.

Micheus, a Treeview não é fixa eu criei dois execultavel e ambos tem menu distintos mas os dois são representado na mesma treeview, onde eu posso filtrar por execultavel, ai mostra os menus do execultavel que eu filtrei, você tem razão tinha que indicar a imagem no momento da montagem do treeview. ficou assim. como o valor de "QacessoACesso.asInteger" vai alternar de "0" para "1" e a mesma ordem do ImageList, então fica beleza. e depois de montada eu mando expandir a treeview e para alterar o valor na tabela dependendo a tela que estaja selecionada eu identifico desta forma formaN1:= Treeview1.Selected; depois uso uma query para alterar o valor na tabela de "0" para "1" ou vise vesa. depois mando montar e expandir novamente. estar funcionando certinho, quando o usuario entra com o codigo aparece a lista de execultaveis que ele tem acesso e ao entrar no execultavel ele tem acesso apenas as telas que são liberadas pelo treeview. Valeu, Obrigado Micheus e Jhonas

Jhonas estou dando continuidade ao meu Controle de Acesso comentado neste tópico Manipulando Menu, estou quase terminando, falta apenas o administrador, quero usar um TreeView, o Controle de acesso estão em uma tabela TAcesso com esses campos Registro_ID, Usuario_ID, Nome da Tela, Menu, - aqui fica a seguencia do menu - 10,1001,1002, - 20,2001,2002,2003 Acesso - aqui é onde digo se o usuário tem acesso ou não. com "0" ou "1" no Treeview eu uso uma query para trazer as informações quando eu informar o usuario, e adicionei um ImageList1 com a propriedade no Treeview->imagens = "ImageList1" e adicionei duas imagens uma será "permitido" a outra será "não permitido" No treeview estar funcionando sem problema e fica assim -CADASTROS - Se estar permitido o acesso antes do nome "CADASTROS" apareçe um imagem de "X" Indicando que não tem permição. -->Cliente -->Fornecedores -LANÇAMENTOS -->Lançamento Diario -->outros ------>Outros -->outros apareçe para todos os menus a imagem de valor "0" da ImageList1 indicando que não tem permissão. o que eu não estou sabendo fazer é Associar a imagem a Tabela do banco para apareçer conforme o Valor "0" ou "1" do Campo, e poder alterar a imagem e ao mesmo tempo o valor do campo da tabela quando de dois Click no item do TreeView ou um botão na lateral "Pertitir". Espero ter Explicado melhor.

Eu conseguir da forma que estava querendo, controlando por nome do menu. Valeu,

Estou com um problema, tenho um Treeview que estar funcionando normamente para os Acesso do usuario aos Menus. mas gostaria de alterar o status do Usuario com dois click e alterar a imagem, então adicionei apenas duas imagem "permitido" ou "não permitido", na tabela tenho os campos Usuario, NomeTela e Acesso. Onde no campo acesso pode ser 0 ou 1 para facilitar a escolha da imagem no treeview. mas não sei como alterar essa imagem no treeview alguém sabe como posso fazer isso? e quando o Treeview abrir mostrar a imagem conforme o valor no campo da tabela.

Jhonas, o problema é esse, eu não encontrei onde eu possa baixar o exemplo completo, eu até tentei criar um seguindo todos os passos, mais não funcionou, ele pulou alguns detalhes.

Jhonas beleza conguir fazer as configurações, mas você conseguiu fazer este exemplo aqui ou sabe fazer eu tentei mais não deu certoLink .

Jhonas valeu, mas estou com outro problema, não estou conseguindo configurar estes componentes abaixo: ClientDataSet1 DataSetProvider1 ADODataSet1 eu nunca utilizei estes componentes, se possivel um explicação de como eles funcionam.

Jhonas, é isso mesmo, estar faltando apenas isso, a ideia é assim, eu criei varios execultavel e também crei um que seria o login e administrador, onde eu informo qual execultavel o usuario iria acessar e quais telas, e essas informação sobre as telas são quardadas em uma tabela exemplo: Campos:nomeTela,Nomemenu, usuarioID, Acesso(0 ou 1), e quando abrir o Execultavel iria fazer uma consulta no banco pelo o usuario e ativar apenas as telas permitidas, mas se realmente não for possivel e se você tiver outra ideia mais simples eu agradeceria.

Jhonas, não é tão simples assim, acho que não expliquei direito, é assim: FMenu.Funcionarios1.Enabled := true; // item de Menu ativado onde eu digo o nome do Menu eu quero deixar aberto para ser especificado. FMenu.Edit1.texto.Enabled := true; // item de Menu ativado o problema é converter o String para TmenuItem

alguém sabe como eu posso Transformar uma String em TmenuItem, Eu estou querendo especificar qual menu eu vou desativar,

Alex Freitas, para fazer qualquer calculo é preciso mudar o valor para "Integer" ou "Float" integer se for valores inteiro como 1 + 23 + 34... , se Float se valores quebrado como 1,23 + 2,43 + 34,56 ..., então para você fazer este calculo ficaria assim begin edit4.text:= FloatToStr(StrToFloat(edit1.text) + StrToFloat(Edit2.text) + StrToFloat(Edit3.text)); end;

então faz assim: var Num:integer; begin Num:= 0; while StrToInt(edit1.text) > Num do begin table1.insert; Num:= Num + 1; end;

Cara, escreve o Código SQL que você estar usando. pelo o que eu entendir seria mais ou menos assim: var Notafiscal,produto:string; begin NotaFiscal:= ... Produto:=... with queryado do begin close; sql.clear; sql.add("Select * from tabela"); sql.add("where NumeroNF = :A and CodProduto = :B "); Parameters[0].value := NotaFiscal; //Numero da nota fiscal declarado na variavel acima. Parameters[1].value := Produto; // Codigo do Produto a ser consultado. Open; end; Ver se isso ajuda.

Vms, pelo o que entendir, você que ao terminar de digitar no edit , e seja salvo sem precisar apertar o botão. você pode colocar no edit ->Events-> OnEnter Table1.append; e no mesmo edit->Events->OnExitTable1.post; Mas ficaria mais facil se você usar um DataSource e no local do edit um DBEdit. é facil de usar basta adicionar um DataSource que fica na paleta "Data Access" e Dbedit na paleta "Data Controls". no DataSource você indica a tabela e no Dbedit você indica o Data Source. ai você coloca o mesmo código acima nos mesmos Events. ver se isso ajuda.

Vms é possivel, mais é preciso ter a mesma configuração no BDE na maquina que vão acessar o Servidor, criar um mapeamento da rede assim: ....(Y). que identifica o local do banco de dados no servidor. no BDE, você modifica os criterio , abre o BDE vai na paleta Configuração->Driver->Native->paradox ->NET DIR, deve tar em C:\ você modifica para o Mapeamento que você criou (Y:\), Depois ainda em Configuração->system->Unit->LOCAL SHARE você coloca True. Tenta isso, depois posta o resultado.

Cara tenta usar um " ActionList1" ele vai abilitando os botões conforme sua edição. o Componente fica na paleta Standard.

Oi pessoal estou precisando salvar imagens ou fotos em uma pasta no servidor, e o Endereço no Banco de dados ACCESS, para que o Banco não fique pessado. Detalhe, gostaria de colocar em um Form várias imagens na lateral do form e uma maior no centro onde eu possa alternar entre as imagens da lateral. Alguém sabe como eu posso fazer isso?

Conseguir resolver meu problema com a copia de registro para a mesma tabela desta forma. while not QOrigem.Eof do begin a:=0; TDestino.Insert; while a < QOrigem.Fields.Count do begin TDestino.Fields[a].value := QOrigem.Fields[a].value; a:=a+1; end; Tdestino.fieldbyname('Matricula').value:= QfuncionarioMatricula.value; TDestino.Post; QOrigem.next; end; Abraço.

Jhonas, Estou tentando copiar todas as informaçoes do registro menos o ponto onde é autoincremento, na tabela tenhos esse campos. Tabela de informações. eu tenhos uma tabela de Cadfuncionario e outra com CursoFuncionario em CadFunc eu os campos: Matricula,nome,data.... em CursoFuncionario eu os Campos: Matricula,NumCurso,Data,NomeCurso... As duas tabelas estão ligadas pela "Matricula" o que eu estou querendo fazer é o seguinte, filtrar na tabela de "CursoFuncionario" um funcionario pela matricula e Copiar todos os registro dos cursos do funcionario filtrado para um outro funcionário que iria indicar qual matricula seria. o problema é que na Tabela CursoFuncionario tem um AutoIncremento que estar travando o Copia do registro.

procedure TRel_ListaPecas.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin if Query1peca1.Value = '' then begin QuickRep1.QRGroup1.Enabled := FALSE; end; end; Jhonas, não sei onde estou errando, não estar compilando estar identificando "QuickRep1.QRGroup1.Enabled := FALSE;" o "QrGroup1" estar grifado como não declarado, como se faltasse uma Uses,

Jhonas, eu coloquei duas table para a mesma tabela, a copia dos registro é pra mesma tabela, eu tentei colocar uma Query1 como origem, e uma tabela como destino, eu tentei a forma que você indicou mas não funcionou deu o mesmo erro. var Num: SmallInt; i:integer; begin for i := 0 to Qorigem.RecordCount do begin Tdestino.Last; Tdestino.Insert; For Num := 0 to Qorigem.FieldCount-1 do begin TDestino.Edit; Tdestino.Fields[num].Assign(Qorigem.Fields[num]); TDestino.Post; end; TDestino.Next; end; estar dando esse erro "Field'codregitro'Cannot be modified".

Jhonas, Como eu posso usar esse código, pois estou listando as peças através de uma "AdoQuery" e para abrir o relatório estou fazendo assim: Querypecas.close; Querypecas.parameters[0].value:= Form1.dbedit1.text; Querypecas.open; Onde eu colocaria esse Código?

Estou precisando copiar uns registros de uma tabela para a mesma, o Problema é que estar identificando a chaveprimaria que também é AutoIncremento, eu utilizei esse codigo Tentei apenas fazer a copia do registro e deu Erro //realiza a copia begin Table2.Insert; for Num := 0 to Table1.FieldCount - 1 do Table2.Fields[Num].Assign(Table1.Fields[Num]); Table2.FieldByName(Chave).Value:= ''; Table2.Post; end; Tentei identificar a Chaveprimaria e dizer que é nula, e deu erro proced... var Num: SmallInt; i:integer; Chave:string; begin //Identifica a Chave primaria table1.IndexDefs.Update; for I:=0 to table1.IndexDefs.Count-1 do begin if table1.IndexDefs.Items[I].Options = [ixPrimary..ixUnique] then chave:=Table1.IndexDefs.Items[I].Fields; end; Label1.Caption:=Chave; //realiza a copia begin Table2.Insert; for Num := 0 to Table1.FieldCount - 1 do Table2.Fields[Num].Assign(Table1.Fields[Num]); Table2.FieldByName(Chave).Value:= ''; Table2.Post; end; END; Alguém sabe como posso fazer este tipo de copia do registro onde contém o um AutoIncremento? Obs.: estou usando banco de dados ACCESS 2003