Douglas Soares

Prontinho, fiz um video mostrando minha duvida, ehehe, espero que possam me ajudar melhor agora! http://www.youtube.com/watch?v=Idm3iPQGpxs Abraços

:blink: To impressionado! :wacko: , o Jhonas sabe tudo, o cara é um crânio, ehehehe...

Eu faço assim: adiciono um IBDataBase, um IBTransaction, configuro o IBDatabase, e em default transaction ponho o IBTransaction, e no IBTransaction, em default database é só por o IBDatabase!, mais nada! Abraços

Seguinte, amanha vou fazer tipo um video explicando o que eu tenho que fazer.... é meio complexo! :wacko: obrigado pela ajuda por enquanto! Abraços

certo, mas teria uma forma nesse OnClick, pra mim mandar dar um Show no Form que o criou?, pois pode ter 2 forms abertos com o mesmo nome, dai fica dificil =/ eu saber... abraços

Mas ele exibe o botão para navegar nas paginas?, se exibe você tem que navegar até a proxima pagina e imprimir a pagina correspondente, ou clique na impressorinha para configurar, e ponha todas as paginas, aplique e depois imprima, se não for isso que você quer me avise!

Você usa quais componentes, IBDataBase, IBQuery???, qual o banco que você usa?

Faça uma pesquisa no fórum e veja o que encontra: http://scriptbrasil.com.br/forum/index.php...ite=Rave+Report Abraços

certo, e como eu faria para contar quantos buttons tem no determinado forum?, e quando eu criar o button, eu ponho uma procedure no onclick dele, eu queria dar um Frm.Show, no form que criou o botão que cliquei! Amém! Abraços

Usei essa sua função, que deu na mesma coisa! eu sempre dou show, então deixei False a opção Modal da function, eu consigo abrir quantos eu quiser! ele abre normalmente, porem quando abre e cria o botão, se ele abre otro, ele cria o botão com o mesmo nome e da erro!, na questão do nome do botão eu queria que ficasse, btnClientes1, btnClientes2, btClientes3................... E quando eu clico no botão era pra ele restaurar o form que o criou, e não todos os frmCadClientes que estão criados!, no entando quando os forms criam o botão, eles criam no mesmo lugar!, eu queria detectar se já tem botão, e se tiver, eu seto o left um pouco mais para o botão ir pra direita! :wacko: :wacko: :wacko: Abraços

para criar o botão em runtime eu uso isso: private procedure ClickMe(Sender : TObject); public end; var btnRunTime : TButton; procedure TfrmCadClientes.FormShow(Sender: TObject); begin btnRunTime := TButton.Create(frmPrincipal); with btnRunTime do begin Visible := true; Top := 865; Left := 0; Width := 140; Caption := frmCadClientes.Caption; Name := 'cliente_' + DBEdit1.Text; Parent := frmPrincipal; OnClick := ClickMe; end; frmCadClientes.Hide; end; procedure TfrmCadClientes.ClickMe(Sender : TObject); begin with (Sender as TButton) do begin frmCadClientes.Show; frmCadClientes.WindowState := wsNormal; frmCadClientes.BringToFront; end; end; procedure TfrmCadClientes.FormClose(Sender: TObject); begin try btnRunTime.Destroy; except end; end; é Isso ai que eu uso para criar o botão! Obs: quando estou no frmCadClientes, e fico sem mecher por 3 segundos ele esconde o form, e vem o principal pra frente, não sei porque :mellow:

Na verdade, eu até consegui abrir 2 forms iguais, mas se eu der um Form.Hide por exemplo, ele vai esconder os 2!, não sei diferenciar :wacko: , e quando eu minimizar é para criar um botão no outro form!, então eu preciso saber como controlar os 2 ou + individualmente! Abraços

Esse erro sempre ocorria comigo na estação, porque no seu DataModule você está deixando o SQLConnection1 na opção connected para True, você tem que pegar e setar essa opção para False e depois compilar! Troque o executavel do cliente e acesse seu programa! :blush: Abraços

Boa tarde, tenho um projeto aqui e preciso fazer o seguinte: Quando eu minimizar o form, criar um botão em modo de execução em outro form! - Isso já consegui! Quando Restaurar o form, destruir o botão em modo de execução no outro form! - Tambem já consegui! Quando fechar o form, tambem destruir o botão em modo de execução no outro form! - já fiz! Queria saber, se quando eu abrir outro form (o mesmo form), tivesse como eu identificar qual form é qual!, pois como vou destruir ou criar o botão no outro form se eu nem sei o nome de cada form :wacko: , to meio confuso!, e gostaria de saber tambem, se eu for criar o segundo botão, como eu faria para coloca-lo do lado de um botão já criado anteriormente, e se não tiver nenhum botão lá ainda, dai ele poe no começo, (left := 0).................................... Abraços

Desisti dessa bagaça por enquanto, vou usar só o IBTable para trazer todos os registros rapidamente, e de resto vou deixar com SQLQuery.... Muito Obrigado pela sua ajuda e por gastar seu tempo cmg :wacko: ... precisando estou aqui! Abraços :rolleyes:

estou perdido!, agora que troquei todos os componentes SQLQuery por IBQuery, começou a dar um erro de SQL para salvar ou inserir dados: SQL Parse Error: Parameter name expected. Meu deus, agora to perdido :wacko:

mas jhonas, eu tenho varios edits, e quando dou enter em um deles ele faz uma pesquisa no banco, e eu tenho um botão Exibir Tudo, nesse botão que está o problema!, como eu vou dar active = True, se toda vez que eu faço pesquisas eu dou close e open no dataset.... outra coisa, não tá adiantando eu dar active = true na query e no CDS, porque ele está demorando agora é para abrir o programa..... não sei porque está tão lento.... só com IBTable que tive sucesso para mostrar todos os registros rapidamente :( Abraços

Faz o seguinte, se seu campo VENCLI só armazena numeros, você abre o banco, altera o tipo do campo para string, não se preocupe não perderá dados! após isso delete todos os campos da query e do Clientdataset se tiver um, depois salve desconecte do banco no delphi, conecte dinovo e importe os fields! altere suas configurações e teste! ou volte como era antes e modifique o seu código assim: // Consulta por período e código// if (txtAbeConsulta_DataIni.Text <> '') AND (txtAbeConsulta_DataFin.Text <> '') AND (txtAbeConsulta_CodCli.Text <> '') then begin With QueryAbeConsulta Do begin Close; SQL.Clear; SQL.Add('SELECT VENCLI, VENDAT, VENDES, VENPRE, VENQTD, '); SQL.Add('VENTOT, VENDPG, VENNVD, VENNUM'); SQL.Add('FROM ESTAVD3.dbf'); SQL.Add('WHERE VENCLI = :pCodCli AND'); SQL.Add('VENDAT BETWEEN :pDataIni AND :pDataFin AND'); SQL.Add('VENDPG IS NULL'); SQL.Add('ORDER BY ' + IntToStr('VENCLI')); ParamByName('pDataIni').AsDateTime := StrToDateTime(txtAbeConsulta_DataIni.Text); ParamByName('pDataFin').AsDateTime := StrToDateTime(txtAbeConsulta_DataFin.Text); ParamByName('pCodCli').AsString := txtAbeConsulta_CodCli.Text; Open; end; end; Abraços

Será que com IBTable não teria um jeito de filtrar as pesquisas?

humm... se eu deixo esses 2 componentes, com active = true, ele tras na hora mesmo, porem se eu preciso dar um close, e depois um open no cds, dai começa a demora pra trazer dinovo :( , o que eu tenho que fazer agora? Abraços

Fiz um teste aqui seguindo tutorial, e realmente agora tras em 2 segundos :wub: , porem é quando eu uso IBTable, e então gostaria de saber se tem como usar IBQuery em um IBTable. Abraços

Ops!, postei antes de você, ops

Tem jeito de você fazer um form de teste fazendo uma consulta num IBQuery e enviar anexo para mim ver o que estou fazendo errado? se tiver obrigado Abraços

Fiz um form novo, coloquei um DBGrid coloquei os componentes que você me disse, importei os fields, configurei, e criei um botão para abrir o clientdataset, porem está a mesma demora!, será que não é porque eu tenho muitosssss fields não? Abraços

são 900 Registros, esse é um sistema de controle de clientes, precisamos vizualizar todos sim, eu testei o IBQuery, tive que adicionar um IBDataBase e um IBTransaction, ele abre normalmente e pesquisa, porem quando clico no botão para trazer todos os registros, ele está demoran de 10 a 15 segundos... :angry: , o que fazer? Abraços