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!!!

Micheus... hum valeu parece ser exatamente o que eu preciso....,mas não entendi direito seu funcionamento!,você tem algum exemplo ou tutorial? obrigado....... Abraço!

você esta pondo o código nesse evento:PageControl1DrawTab ? Aqui no meu deu certo! , olha o código do meu 1º post ve se num tem nenhuma diferença!!!

Consegui fazer voltar ao normal faz assim: procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin case TabIndex of 0: Control.Canvas.Font.Color:=clgreen; end; Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); PageControl1.Pages[TabIndex].Font.Color:=Control.Canvas.Font.Color; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if CheckBox1.Checked= true then begin PageControl1.OwnerDraw:=true; end; if CheckBox1.Checked= false then begin PageControl1.OwnerDraw:=false; end; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin timer1.Enabled:=true; end;

Alterando a cor dos TabSheet de um PageControll - Coloque um PageControll num form - Adicione 6 TabSheet (New Page) - Agora basta implementar o codigo abaixo procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin case TabIndex of 0: Control.Canvas.Font.Color:=clgreen; 1: Control.Canvas.Font.Color:=clred; 2: Control.Canvas.Font.Color:=clblue; 3: Control.Canvas.Font.Color:=clYellow; 4: Control.Canvas.Font.Color:=clMaroon; 5: Control.Canvas.Font.Color:=clWhite; end; Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); PageControl1.Pages[TabIndex].Font.Color:=Control.Canvas.Font.Color; end; procedure TForm1.FormCreate(Sender: TObject); begin PageControl1.OwnerDraw:=true; end; O problema é que não consegui conciliar isso com o CheckBox, você pode colocar o código do create no click do check box,mas quando desmarcar não acontece nada ,mas isso talvez ajude, se conseguir post aí como fez. Abraços vlw Voce ensina melhor aquilo que voce mais precisa aprender. (Richard Bach)

beleza mas agora todos os uses com essa unit "rijndael_api_ref;" estão dando erro, até a própria da erro!! E esse programa de gerar serial é só pra interbase? obrigado.......abraço!!!

Ta ok vlw!!!!,beleza to conseguindo so 2 dúvidas!, O patch do programa é o do project ou o instalador? Como faço essas variáveis pesquisa e Enumero ? obrigado.....

hum ta ok!!!! pode ir postando vlw abraço!!!!!

beleza entendi!!!!!!!!vlw mas e o o código do splash eu coloquei no create e deu um monte de coisa não declarada!!! obrigado...

beleza vlw......desculpa não entendi como usa esse programinha de gerar serial!, esse outro código só vai permitir que o programa seje instalado em um hd como funciona esse código?e se eu compilar o programa aqui em minha casa e dar o instalador do meu programa pra outra pessoa ele vai conseguir rodr? to fazendo oque você me pediu quando terminar posto aqui,obrigado abraços!!! Amigo to tentando adaptar ao meu banco de dados oque essa linha faz?:CHARACTER SET NONE NOT NULL COLLATE NONE, no meu da que não conhece caracter set 'NONE'! Abs Eu retirei a linha CHARACTER SET NONE NOT NULL COLLATE NONE aí foi !!!!! se tiver alguma serventia me fala....rsrsr Abraços Esse código do form splash eu ponho que evento? create? se for já terminei ....obrigado

beleza obrigado já baixei o componente!!!, tenho uma unit de funcões sim!!!Tenho Splash sim!!!! Aguardo,obrigado...