almeida

AKAENATON, acho que ele está usando Data Módulo e quer buscar a configuração do Data Base através de um arquivo *.ini. Vou vê se ajudo ok? Isso depende muito do banco de dados que você está usando, eu uso o SQL Server 2000 e faço assim: procedure TDataModule.DataModuleCreate(Sender: TObject); var arq : TextFile; // aqui você define o tipo de leitura do arquivo linha : string; begin // Abrir arquivo e ver se tem conteudo assignfile(arq,'C:\Caminho do arquivo ini ou txt\nome do arquivo.ini ou txt); reset(arq); readln(arq,linha); if linha = '' then begin // Nessa parte eu criei um prog a parte pra configurar o arquivo txt mas você pode escrever direto no txt que funciona. Application.CreateForm(Tfrm_configuracao, frm_configuracao); frm_configuracao.showmodal; exit; end else begin Unit_DataModulo.DataModulo.DataBase.Params.Add(linha); while not Eof (arq) do begin ReadLn(arq,linha); Unit_DataModulo.DataModulo.DataBase.Params.Add(linha); end; end; closefile(arq); end; Isso ai eu ultilizei para configurar um data módulo pra SQL Server ok? Dentro do arquivo txt escrevi Ex: DATABASE NAME=Contas SERVER NAME=SERVIDOR USER NAME=sa PASSWORD=sa Espero ter ajudado, Qualquer coisa pergunte ok? Anderson Gonçalves.

Galera, vamos vê se conseguimos um tempinho pra responder os posts quando resolvidos para que outros não precisem responde-los também. o que vocês acham? Anderson Gonçalves.

Vou vê se consigo ajudar e se entendi realmente o que você quer fazer ok? Tbl_carro: codigo_carro nome cor placa tbl_peca: codigo_peca modelo referencia preço tbl_carro_peca codigo_carro_peca (sequencial) codigo_peca FK codigo_carro FK Tbl_Compra Codigo_Compra Cliente Codigo_Peca Codigo_Carro você pode fazer uma query assim: // Com essa Query você consegue buscar o que tem correspond. nas três tabelas. // O resultado dessa query pode ser mais de uma peça e você deverá mostrar em um DbGrid e selecionar a peça correspondente ao que o cliente quer. Caso você precise fazer uma consulta mais aprofundada pela aproximação do nome da peça você me fala, primeiro vê se isso te atende ok? With Query1 do begin close; SQL.Clear; SQL.Text := 'select * from tbl_carro a, tbl_peca b, tbl_carro_peca c '+ 'where a.codigo_carro = c.codigo_carro and '+ ' b.codigo_peca = c.codigo_peca and '+ ' a.codigo_carro = :parametro '; ParamByName('parametro').asInteger := strtoint(trim(codigo_carro.text)); Open; end; //Carrega os dados na tela aqui, essa forma pode ser aplicada no On Click de um botão ou no On key down do DbGrid ok? On Click if not isempty then begin formEDITS.Edit_Carro_Codigo.text := FieldByName('codigo_carro').asString; formEDITS.Edit_Peca_Codigo.text := FieldByName('peca_codigo').asString; Etc... FORMDBGRID.close; end else begin ShowMessage('Informe a peça a ser selecionada'); dbgrid.setfocus; exit; end; // On Key Down do DBGrid: if key = vk_return then // esse vk_return é para o enter begin if not isempty then begin formEDITS.Edit_Carro_Codigo.text := FieldByName('codigo_carro').asString; formEDITS.Edit_Peca_Codigo.text := FieldByName('peca_codigo').asString; Etc... FORMDBGRID.close; end else begin ShowMessage('Informe a peça a ser selecionada'); dbgrid.setfocus; exit; end; end; // Caso você queira usar outra tecla pra selecionar os capos e jogar nos edits ultilize o nome da tecla depois do vk_ ok? algumas você tem q fazer de outra forma... // Depois de selecionado os campos para os edits é só colocar o código para cadastrar numa tabela de compras EX: With Query_Inclusao do begin Close; SQL.Clear; SQL.Text := 'Insert into tbl_compras '+ '(compra_codigo, carro_codigo, cliente, peca_codigo) '+ 'Values '+ '(:compra_codigo, :carro_codigo, :cliente, :peca_codigo) '; // Colocar Parametros OBS: Caso o seu código de compra seja auto incremento você não deve coloca-lo no código acima e nem abaixo ok? ParamByName('Compra_Codigo').asInteger := StrToInt(Trim(Edit_Codigo_Compra.Text)); ParamByName('carro_codigo').asInteger := StrToInt(trim(Edit_Carro_Codigo.text)); Etc... ExecSQL; end; OBS: Toda vez que você quiser fazer uma consulta de compra você pode fazer uma query como na primeira fazendo referência a outras tabelas ok? Um abraço, Espero ter ajudado... , Qualquer coisa pergunte!!! Anderson Gonçalves - [email protected]

Cara, você foi o único que tentou me ajudar então você merece todo o crédito e precisando do seu companheiro de forum pode perguntar ok? meu e-mail é: [email protected] qualquer coisa manda direto pra mim ok? Sobre o problema, depois de eu lêr o seu post encontrei uma solução, valeu muito mesmo. Obrigado. Anderson Gonçalves. Já dizia um velho deitado é errando que se aprende...

não, infelizmente não tem campo data mas eu poderia cadastrar vários no mesmo dia e a data não resolveria, ou estou errado?

é um campo char, mas eu incremento com + 1 a cada cadastro ok? gostaria de mandar a tabela para o último registro

Quando esse erro cabeludo acontece?, você está fazendo o que? em que versão do delphi?, você precisa ser mais expecífico na sua pergunta... Anderson Gonçalves.

Alô pessoal estou com uma problema para conseguir buscar em uma instrução SQL o último registro de uma tabela, tendo em vista que o código (chave primária) é do tipo (char) eu não posso usar: "Select Max(Codigo) from tabela". Alguém pode me ajudar? Agradeço desde já. Anderson Gonçalves.