Pirambu!

Usando Sql, funcionou direitinho. mas como eu faço para a tabela do paradox?

Tem como visualizar mais de uma coluna no "DBLookupComboBox1" Exemplo tenho cadastrado dois tipos de carros sendo que ambos são "Gol " só que no DBLookupComboBox1 deve aparecer "Gol 1.0 " e "Gol 1.6" em duas colunas um com "Gol" e outral " 1.0"

Tenta colocar um Campo para calcular "Numerar" na Tabela ou na query quer realiza a sua consulta, e no botão em OnClick adiciona este Código Var N:integer begin N:=1; table.first; while not table.eof do begin TableNumerar.value := N; N:= N+1; Table.next; end; Tenta isso.

Acho que o "vms" que, é numerar as linhas do Dbgrid, informar numerando cada registro, adicionando uma nova coluna na tabela apenas para aparecer a numero de cada linha.

Cara você já tentou o AdoConnection(ADODB)...

Alinhar em que, edit, form ou relatório ? Não entendir direito.

Valeu Micheus, parambéns!

Valeu Micheus, desse recurso eu não conhecia.

Tenta Assim: dmDados.qMovimento.SQL.Add('where nomefor = :nome and Datas between Dt1 and dt2 '); dmDados.qMovimento.ParamByName('d1').Value:= dt1.dateTime; dmDados.qMovimento.ParamByName('d2').Value:= dt2.dateTime; você Cria um variavel antes do primerio "begin" Assim proced... Var VCred:double; Begin para o label faz assim: VCred:=0; dmDados.qMovimento.first; while not dmDados.qMovimento.eof do begin Vcred:= Vcred+ dmDados.qMovimento.fieldByname('Credido').value; dmDados.qMovimento.next; end; Label1.caption := FloatToStrF(Vcred,FFCurrency,10,2); Tenta isso!

Micheus,resolvi fazer uma copia paralela dos dados. Faço apenas uma importação para minha copia, quando o outro solf não estiver sendo usado,mas fiquei com uma dúvida sobre o DataModulo. Tenho duas tabelas que utilizo duas Configurações no BDE, pois estão em duas pastas diferentes. Tem como fazer uma consulta com uma Query nas Duas tabelas do meu DataModulo?

o tenta assim: with query1 do begin close; sql.clear; sql.add('select * from tabela'); sql.add('where campotabela like :A'); parambyname('A').value := '%' + edit1.text + '%'; open end; coloca isso no botão de consulta.

Micheus, no link que você colocou estar bem explicado, a forma da configurado do banco de dados parece ser bem diferente, O banco de dados que estou tentando acessar já existia, pertence a outro empresa de solf. O que eu estou tentando fazer, é consultar os dados ao mesmo tempo que o outro solf esteja sendo usado. Eu verifique a configuração do BDE de uma das máquina que usa o outro solf e o BDE é direcionado ao próprio drive da máquina, mas as tabelas ficam em uma pasta no servidor, fique sem enter você faz idéio de como isso funciona :blink: ?

Micheus, Realmente era os arquivos mostrados, mas esperei as maquinas que estavam usando encerrar o programa, mas quando foi fechado os programas os arquivos desapareceram. se entendir direito, o fato da unidade de reder do Servidor Exigir senha para acesso as pastas, isso irá criar os arquivos que vão bloquear os acesso por outras máquinas, mesmo que eu tenha a configuração do BDE na minha maquina Destinado a unidade da rede.

Estou Tentando acessar os banco de dados em "Paradox" mas estar dando o seguinte mensagem que o "diretorio estar controlado por outro" e indica o seguinte arquivo "SRS.LCK" Os Tabelas do Banco de dados estar em um servidor . Qual o seguinificado desta extensão? Alguém faz ideia do problema.

Carlos Rocha, se entendir direito você estar tentando dizer no Relatório a forma de pagamento se é 'A Vista' ou 'A Prazo', tenta colocar um qrlabel e após excultar a query você faz assim: QryPedidos.close; QryPedidos.... QryPedidos.open; qrlabel1.caption := QryPedidos.fieldbyname('CondicaoPgto').value; Vê se é isso?

Micheus, estou insertindo no assunto porquer falta apenas isso para o trabalho ficar concluído, então venho dizer que não deu certo ainda, vou lhe dar mais informações: eu tentei assim: begin Application.Initialize; FormSplash := TFormSplash.Create(application); FormSplash.Show; FormSplash.Update; Application.CreateForm(TFLOGIN, FLOGIN); FormSplash.Free; if FLOGIN.ShowModal = mrOk then begin Application.CreateForm(TFMENU, FMENU); Application.CreateForm(TDADOS, DADOS); Application.Run; end else Application.Terminate; end. mas nem compilou deu erro nesse trecho " mrOk " e também tentei assim: begin Application.Initialize; FormSplash := TFormSplash.Create(application); FormSplash.Show; FormSplash.Update; Application.CreateForm(TFLOGIN, FLOGIN); FormSplash.Free; if FLOGIN.ShowModal = 1 then begin Flogin.Free; Application.CreateForm(TFMENU, FMENU); Application.CreateForm(TDADOS, DADOS); Application.Run; end else Application.Terminate; end. Até Compilou mas ao execultar aparece a seguinte mensage: Cannot Make a Visible Window modal Esperelo ter falicitado.

Ruyfreis, talvez o problema seja porque nos registro que o codigo estajam se repetindo, exista alguma informação nos registros que são diferentes, ver se isso pode ajudar: select codigoID from table1 left join table2 on table1.codigoID = table2.codigoID group by codigoID nos campos tenta colocar apenas o codigo.

Tentei todas as opições no último post, mas não deu certo ainda, não faço ideia do que possa ser, estar dando a seguinte mensagem Cannot creat form. mdi forms are currently active;

Micheu deu erro neste trecho do código, if FLOGIN.ShowModal = mrOk then é informado que não ouve declaração do "MrOk"

Valeu Churc, é um assunto ótimo, mas o que eu preciso é o seguinte, um sistema que foi feito em MDI e ao terminar eu criei um tela de login, mas quando eu mando criar antes do form principal, abre a tela do login normal faço o acesso e tudo, mas no form principal quando tento acessar qualquer tela do menu,da erro em todas as telas, eu fiz uma tentativa assim, mas também não funcionou, {$R *.res} begin FormSplash := TFormSplash.Create(application); FormSplash.Show; FormSplash.Update; Application.Initialize; Application.CreateForm(TFMENU, FMENU); Application.CreateForm(TFLOGIN, FLOGIN); Application.CreateForm(TDADOS, DADOS); FormSplash.Hide; FormSplash.Free; Application.Run; end. :unsure:

Micheus, você sabe o título do tópico do link que você indicou , pois o link não estar funcionando.

Estou novamente aqui com outro problema :rolleyes:. Criei um projeto todo em MDI, e estar quase pronto, mas tenho que criar um tela de login, agora não sei com fazer a tela de login funcionar antes do FormPrincipal sem dar problema. Alguém sabe como resolver isso?

Micheus Ficou show de bola, Funcionou apenas com "Preview" . Valeu Micheus até a próxima.

Micheus, não esquenta comigo, mas, deu erro nesse trecho do código, não aparece "ShowPreview"QuickRep1.ShowPreview; eu tenho apenas a opção de "Show" nem a de " Preview'' aparece, eu sei que você mensionou o "ShowPreview" mas já que estou especificando o "QuickRep1" e adiciono o " . " ele me mostra as opições para aquele objeto e entre as opições não estar o "ShowPreview" . outro problema é que após tentativa eu voutei com o código anterior e agora estar mostrando o forRelatorio de duas forma na forma "Show" e "Quickrep1.Preview" sendo que no botão onde eu aciono o form eu tenho apenas o Seguinte codigo Application....; FormRelatorio.quickrep1.preview; Você tem ideia do problema? :(

Você também pode criar um form para fazer uma consulta de fornecedor, assim: você cria um form para consulta de Fornecedor, vou chamar de "FormConsFor" Coloca um botão ao lado do DBLookupCombo para abrir o FormConsFor, no FormConsFor você coloca: edit, 2 Botão, Query, DataSouce e Dbgrid, no primeiro botão você faz assim: with query1 do begin close; sql.clear sql.add('select CodigoFornecedor, fornecedor'); sql.add('from tabelaFornecedor'); sql.add('where Fornecedor like :A'); parambyname('A').value := % + edit1.text + %; open; end; no segundo botão você faz assim: tableCadFornCodigoFornecedor.Value := (FormConsFor.query1codigoFornecedor.Value); FormConsFor.close; Tenta isso. Abraço.