vms

beleza, disso eu não sabia.

beleza Micheus sim, a finalidade é essa (pra mim) valeu!

ola pessoal encontrei na net essa função que deixa uma caixa de messagem pessonalizada o problema é que eu não to conseguindo usar, alguém pode dar uma dica? Function Mensagem(Msg,Bt1,Bt2:String):Boolean; var I,K:Integer; F:TForm; begin K:=0; F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]); try for i:=0 to f.componentCount -1 do if f.components[i] is tbutton then with tbutton(f.components[i]) do case modalresult of mryes: Caption := Bt1; mrno: Caption := Bt2; end; f.caption := 'Mensagem do Sistema'; K:=f.showmodal; finally if K = mryes then Result:=True else Result:=False; f.free; end; end;

interessante! esse projeto era um teste estava tentando sair do paradox para o access agora vou fazer uma pesquisa entre firebird e sql pra saber qual é o melhor acho que devo fazer outro post, mas, iai galera qual o melhor, firebird ou sql?

fiz isso e dar o mesmo erro beleza! tenho 2 DBRichedit ligado nos campos 'Musica' procedure TFPrincipal.SpeedButton7Click(Sender: TObject); begin DM.Tabela2.insert; DBRichedit2.text := DBRichedit1.text; DM.Tabela2.Post; end; isso adiciona normalmente os campos da tabela2. então uso esse codigo pra deletar e dar erro procedure TFExpandir.Deletar1Click(Sender: TObject); begin if MessageDlg('DESEJA DELETAR ESSA MÚSICAS?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin Abort; end else begin DM.Tabela2.Delete; end; end; agora percebi que são 2 erros, o outro é assim

estou com problemas ao deletar registro de tabela access tenho um banco.mdb com duas tabela Tabela1 Tabela2 as duas tem campos iguais Numero "A" Musica "M" Assunto "A" estou usando 2 ADOTable seleciono um registro da tabela1 e envio pra tabela2 mas quando vou deletar os registro da tabela2 da erro o que pode ser?

voce tem alguma projeto iniciado?

tenho uma tabela paradox com um campo 'M' Coloquei um DBRichEdit e adicionei varios textos agora queria formatar todos os textos da tabela de uma vez usei esse codigo mas ele so formata o primeiro registro DM.TGNV.First; while not DM.TGNV.Eof do begin DM.TGNV.Edit; Editor.Font.Size := 20; Editor.Font.Color := clBlack; Editor.Font.Name := 'Tahoma'; DM.TGNV.Post; DM.TGNV.Next; end; //Editor -> nome do DBRichEdit //TGNV -> nome da Tabela tentei assim tambem pra ver se fazia manualmente, mas so funciona uma vez Editor.Font.Size := 20; Editor.Font.Color := clBlack; Editor.Font.Name := 'Tahoma'; o que pode esta errado?

ola pessoal seguinte: stou usando a porta paralela para acionar um motor de passo ate ai beleza! o problema é que stou usando um timer para controlar os passos e o timer so vai ate 1ms e stou precisando de um tempo menor existe uma forma de diminuir este tempo? alguma ideia como fazer isso? estou usando o borland C++ agradeço desde já!

não funcionou.

esse codigo gera o relatorio apartir dos itens que estao no listbox var i, Col, Tamc:integer; NCampo:String; begin //Verificamos se existem Campos Selecionados if Listbox2.Items.Count > 0 then begin // Posição inicial da coluna Col := 5; for i := 0 to listbox2.Items.Count -1 do begin //Obtendo o Tamanho e Nome do Campo Tamc := Largura[PosCampo(ListBox2.Items.Strings[i])]; NCampo := Campo[PosCampo(ListBox2.Items.Strings[i])]; //Criando Componentes Para os Títulos das Colunas QrLabel[i+1] := TQrLabel.Create(FImpressao_Vertical.QuickRep1.Bands.ColumnHeaderBand); QrLabel[i+1].Parent := FImpressao_Vertical.QuickRep1.Bands.ColumnHeaderBand; QrLabel[i+1].Left := Col; QrLabel[i+1].Top := 2; QrLabel[i+1].Width := QrLabel[i+1].Width + 5; QrLabel[i+1].Caption := ListBox2.Items.Strings[i]; QrLabel[i+1].Font.Style := [fsbold]; QrLabel[i+1].Font.Size := 9; //QrLabel[i+1].Font.Style := [fsunderline,fsbold]; //Criando Componentes de Exibição de Dados das Colunas QrDbtext[i+1] := TQrDbtext.Create(FImpressao_Vertical.QuickRep1.Bands.DetailBand); QrDbText[i+1].Parent := FImpressao_Vertical.QuickRep1.Bands.DetailBand; QrDbText[i+1].Left := Col; QrDbText[i+1].Top := 2; QrDbText[i+1].Font.Size := 8; QrDbText[i+1].Width := QrDbText[i+1].Width + 5; QrDbText[i+1].DataSet := Dm.QImpressao; QrDbText[i+1].DataField := NCampo; //Obtendo o Valor da próxima Coluna. Como o valor precisa ser em pixel multiplicamos por // 5 o tamanho do Campo. Col := Col + (5 * Tamc); end; esse codigo faz a pesquisa e abre o relatorio var i:integer; begin BitBtn2.Click; Dm.QImpressao.Close; Dm.QImpressao.SQL.Clear; Dm.QImpressao.SQL.Add('select * from Fornecedor.DB'); Dm.QImpressao.Open; for i := 0 to listbox2.Items.Count -1 do begin QrLabel[i+1].free; QrDbText[i+1].free; end; FImpressao_Vertical.QuickRep1.Preview; FImpressao_Vertical.QRLabel1.Caption := Edit1.Text; com o listbox2 eu posso adicionar ou remover os campos o problema é que quando eu removo o item do listbox o campo ainda continua aparecendo no relatorio.

o codigo é o mesmo do link, so copiei e colei

ola pessoal fiz um exemplo que estar nesse link http://www.devmedia.com.br/articles/viewcomp.asp?comp=352 a duvida é o seguinte quando adiciono os campo pra o relatorio ele aparece normalmente, mas quando quero tirar ele não sai, continua la, é como se quickrep armazenasse os dados em uma memoria e não quer mais sair so se eu reiniciar o progrma alguém tem alguma ideia como resolver isso? agradeço desde já!

valeu pela dica, mas encontrei este artigo que supriu minha necessidade tai p endereço se alguém quiser http://www.devmedia.com.br/articles/viewcomp.asp?comp=352 valeu!!!

consegui, valeu!

var titulocheque : string; begin titulocheque := 'campo da tabela'; esse '+' é pra ordenar a tabela e a descrição dos campos estar em varios radiobutton enquanto ao ':' não sei explicar, peguei essa dica na net desse jeito e tentei usar Query1.Close; Query1.SQL.Clear; Query1.SQL.Text := 'SELECT Nome,Empresa,FoneRes,FoneCom,Mala FROM Contatos WHERE Data >=:pInicial and Data<=:pFinal ORDER BY Nome'; Query1.ParamByName('pInicial').AsDateTime := StrToDate(Inicio); Query1.ParamByName('pFinal').AsDateTime := StrToDate(Final); Query1.Prepare; Query1.Open;

ola pessoal o que há de errado nesse codigo Dinicio := DateToStr(DateTimePicker1.Date); Dfinal := DateToStr(DateTimePicker2.Date); Dm.QImpressao.close; Application.ProcessMessages; Dm.QImpressao.SQL.Clear; Dm.QImpressao.SQL.Text := ('select * from Cad_Cheque where Vencimento >=:pInicial and Vencimento <=:pFinal order by +titulocheque); Dm.QImpressao.ParamByName('pInicial').AsDateTime := StrToDate(Dinicio); Dm.QImpressao.ParamByName('pFinal').AsDateTime := StrToDate(Dfinal); Dm.QImpressao.Prepare; Dm.QImpressao.Open; ele dar o seguinte erro

queria se alguma forma de deixar aqueles qrband do tipo do toolbar porque queria eu queria colocar opçoes pra visualizar os campos (mostrar\ocultar) ex: campos -> codigo | Nome | Fone | se oculto o Nome, ele mostra o relatorio assim Codigo |..............|Fone | um "buraco" no meio tem como colocar pra o campo seguinte assumir o local do campo ocultado ex: Codigo | Fone | eu faria uma gabiarra movendo a propriedade left, mas meu relatorio tem 11 campos ai vai dar muito trabalho

ola fiz esse codigo DM.QMaquina.Close; DM.QMaquina.SQL.Clear; DM.QMaquina.SQL.Text := 'select * from Maquina order by Codigo'; DM.QMaquina.Open; é possivel editar, adicionar no resultado dessa pesquisa? ou existe outra forma de organizar a tabela que possa ser alterado?

então não é possivel 2 pc(usuario, programa) utilizar esse banco ao mesmo tempo? obs. fiz relacionamento com as tabela

Jhonas esse codigo tem a mesma função daqule arquivo .bat pra limpar as os backup da fonte porque so deleta um, o PARADOX.LCK porque o outro estar sendo usando pelo programa existe outra forma?

oh no! quando tendo abrir o programa em 2 pc o segundo não abre porque junto com as tabela aparece esses arquivos temporarios que bloqueia o acesso do segundo pc PDOXUSRS.LCK PARADOX.LCK tentei a dica do Jhonas e do Pirambu e não deu certo

beleza pirambu é isso ai mesmo valeu cara!

não, é assim quando eu clicar no botao ele vai execultar a mesma ação quantas vezes stiver digitada no edit ex: edit = 4 então o botao vai execultar a mesma açao 10 vezes tabela.insert; tabela.insert; tabela.insert; tabela.insert; no lugar de apertar 4 vezes eu coloco o valor de vezes clicado

ola pessoal a duvida é o seguinte tenho uma tabela(paradox) no meu projeto um edit e um button coloco esse codigo no button queria digitar um valor no edit e o botton repetir esse codigo com a quantidade de vezes digitada no edit como faço isso?