Walter Gazzarrini Neto

Obrigado a todos já resolvi o que precisava, mais uma vez por causa de vocês!!! , muito agradecido! Abraços a todos!!!!

Olá eu utilizo zquery para fazer minhas consultas e gostaria de fazer a seguinte consulta com radiogroups: No primeiro radiogroup se visa ou master card No segundo se Débito ou crédito No terceiro Parcelado ou à vista Mas eu queria que por exemplo : se ele clicar só no visa aparecesse todos os registros de venda com visa, e se ele clicar no visa debito e Parcelado aparecesse os respectivos registros tb! eu consigo só de um visa e master card assim: var master,visa:string; begin Case radiogroup1.ItemIndex of 0: begin master:='Master Card'; with dm do begin ZQueryVendas.close; ZQueryVendas.sql.clear; ZQueryVendas.sql.add('select*from tb_vendas'); ZQueryVendas.sql.add('where UPPER(Mastervisa_venda)Like:Mastervisa_venda'); ZQueryVendas.parambyname('Mastervisa_venda').Asstring:='%'+uppercase(master)+'%'; ZQueryVendas.open; end; end else Visa:='Visa'; with dm do begin ZQueryVendas.close; ZQueryVendas.sql.clear; ZQueryVendas.sql.add('select*from tb_vendas'); ZQueryVendas.sql.add('where UPPER(Mastervisa_venda)Like:Mastervisa_venda'); ZQueryVendas.parambyname('Mastervisa_venda').Asstring:='%'+uppercase(Visa)+'%'; ZQueryVendas.open; end; end; se alguém conseguir interligar eles me ajudem , por favor .......muito obrigado!!!! Abraços

Boa noite!!!, estou precisando instalar o virtual PC 2007 na minha máquina mas aparece esse erro: O que posso fazer ? obrigado......

ok consegui .......ms no gerador da isso [Error] keygen.dpr(11): Undeclared identifier: 'MainFormOnTaskbar'

Amigo num consegui ler o arquivo,é PHP? aqui ta abrindo com o Dream weaver 8!!!!! obrigado......

Ok mas eu tenho certeza que eu abria o código fonte de dois projetos ao mesmo tempo....vlw obrigado

Delphi 7, mas eu sempre abri dois projetos de uma vez ao invés de ir em file open você da dois cliques no projeto e ele abre outro o que e muito útil , mas agora por ter instalado um componente parece q não dá mais para fazer!!!!

Eu queria que assim, julho do ano que vem expira ai ele digita a senha e passa a expirar em agosto!!!! se puder me passar em onguard td bem .....obrigado!!!

verifique o que foi instalado no seu micro antes de começar a dar este problema. Ok acho que sei o que é mas num tem jeito de resolver sem ter que desinstalar? Obrigado ....abraços

Olá, estou usando o tmxprotector , primeiramente eu queria bloquear o usuário de alterar data então usei o eveto 'mxProtectorInvalidSystemTime' porém ele da esse erro: Depois eu queria tipo quando expirasse uma data e o usuário digitasse a senha correta,q alterasse a data e altere a senha junto , como faço isso? por enquanto está assim: unit Unit35; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, QuickRpt, QRCtrls, StdCtrls, jpeg, Buttons, ComCtrls, mxProtector,Shellapi, OnGuard; type TFormbs = class(TForm) Image1: TImage; Edit1: TEdit; Label1: TLabel; Label2: TLabel; BitBtn1: TBitBtn; ProgressBar1: TProgressBar; lbl_Remaining: TLabel; lbl_Message: TLabel; mxProtector1: TmxProtector; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure BitBtn1Click(Sender: TObject); Procedure mxProtectorInvalidSystemTime( Sender: TObject ); Procedure mxProtectorExpiration( Sender: TObject ); Procedure mxProtectorTimeTrial( Sender: TObject; DaysRemained: Integer ); Procedure mxProtectorInvalidSystemTime( Sender: TObject ); procedure BitBtn2Click(Sender: TObject); private // Trayicondata: TNotifyIconData; { Private declarations } public { Public declarations } end; var Formbs: TFormbs; implementation uses Unit19, Unit10, Unit1; {$R *.dfm} procedure TFormbs.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; procedure TFormbs.BitBtn1Click(Sender: TObject); begin if Edit1.Text<>mxProtector1.CodeKey then begin MessageDlg( 'Senha Incorreta!!!', mtError, [ mbOK ], 0 ); end; if edit1.Text=mxProtector1.CodeKey then begin formbs.Close; // Shell_NotifyIcon(NIM_DELETE,@trayicondata); try formlogin := Tformlogin.Create ( Application ); finally Formlogin.Show; dm.ZTLogin.Edit; dm.ZTLogin.FieldByName('Nivel_login').Value:=null; dm.ztcontrole.edit; dm.ZTControle.FieldByName('Data_saida').Value:=FormatDateTime('DD"/"MM"/"yyyy',date); dm.ZTControle.FieldByName('hora_saida').Value:=FormatDateTime('HH:MM:SS AM/PM',TIME); dm.ZTControle.Post; end; end; end; // ************************************************************************************* // ** Tfrm_MainWindow.mxProtectorExpiration, 8/22/01 10:50:58 AM // ************************************************************************************* Procedure TFormbs.mxProtectorExpiration( Sender: TObject ); Begin lbl_Remaining.Caption := '0 days remained'; lbl_Message.Caption := 'This licence has expired'; Bitbtn1.Enabled := true; ProgressBar1.Max := 0; ProgressBar1.Position := 0; End; // ************************************************************************************* // ** Tfrm_MainWindow.mxProtectorTimeTrial, 8/27/01 3:53:08 PM // ************************************************************************************* Procedure TFormbs.mxProtectorTimeTrial( Sender: TObject; DaysRemained: Integer ); Begin lbl_Message.Caption := Format( 'This software licence will expire on %s', [ DateToStr( mxProtector1.Expiration ) ] ); lbl_Remaining.Caption := Format( '%d days remaining', [ DaysRemained ] ); // btn_Reset.Enabled := FALSE; Bitbtn1.Enabled := TRUE; ProgressBar1.Max := mxProtector1.GetLicencedDayNumber; ProgressBar1.Position := DaysRemained; End; // ************************************************************************************* // ** Tfrm_MainWindow.mxProtectorInvalidSystemTime, 9/12/01 9:46:41 AM // ************************************************************************************* Procedure TFormbs.mxProtectorInvalidSystemTime( Sender: TObject ); Begin MessageDlg( 'A data/hora do seu sistema está inválida.' + #13 + #10 + 'Por favor corrija a data e hora para continuar.', mtError, [ mbOK ], 0 ); //Application.Terminate; end; end; end. obrigado...........

Olá eu estou com uma dúvida ,por quê eu não consigo mais abrir dois projetos ao mesmo tempo como antes? agora quando eu abro um fecha o outro !!! Obrigado.........

~~ Ok consegui ....obrigado!

Quando eu tento abrir os exemplos do onguard dá esse erro !!! o que será que é? Abs .... obrigado!

ok deixa eu conta o que quero realmente, na verdade eu já estou usando o icone na barra de tarefas e é justamente por causa dele que quero esconder meu formulário, se vocês colocarem em um formulário novo o ícone na barra de tarefas e mandarem escoder, ele além de minimizar, ainda não fica mostrando essa outra barra para restaurar o formulário, mas no meu projeto não adianta mandar esconder que ele está continuando a mostrar a barrinha! como eu sumo com essa barra? Obrigado!!!!

Boa tarde!! Eu precisaria que quando minimizasse(application.minimize) o form ele escondesse (form1.hide)!!!é possivel fazer isso? obrigado abraços!!!