Eder

Olá...Pessoal... Eu fiz um form de login e senha......mas só consigo pôr ele pra rodar se ele for como formPrincipal....ai ele vem primeiro, digito usuario e senha e beleza...ai ele entra no form que era pra ser o principal propriamente dito....só que não fica legal....então eu gostaria de deixar o principal como principal mesmo....mas que ao carregar... o programa chamasse o formLogin para ser digitado Usuario e senha...caso estive ok usuairo e senha então ele liberaria o FORMPRINCIPAL...caso contrário o problema finalizaria... Como fazer isto funcionar???? alguém poderia me ajudar??? Grato

Valeu...Kiko....eu havia raciocionado incorretamente....eu tinha que avaliar outro campo que seria o campo de usuario......agora deu certo...veja o codigo como ficou: procedure TForm1.Button9Click(Sender: TObject); begin if (TABLE4.Locate('LOGIN;PERMI', VarArrayOf([USUARIO.CAPTION,'B']), [])) OR (TABLE4.Locate('LOGIN;PERMI', VarArrayOf([USUARIO.CAPTION,'C']), [])) then BEGIN FORM7.SHOW; END ELSE BEGIN SHOWMESSAGE('Usuário Não Autorizado!!'); EXIT; end; END; Beleza....tks...

OLá...pessoal....estou com um problema... preciso verificar uma tabela se um determinado campo chamado PERMI tem um valor=1 em qualquer registo SE tiver este valor ele libera o form.SHOW;, caso contrário ele joga mensagem na tela. EU FIZ um codigo assim, mas não ta funcionando...... procedure TForm1.Button8Click(Sender: TObject); begin If Table1PERMI.Value = '1' THEN //verifica se na tabela existe o campo PERMI c/ o valor = 1 BEGIN FORM7.SHOW; //se achar ele libera o form7 END ELSE BEGIN SHOWMESSAGE('Usuário Não Autorizado!!'); EXIT; end; END; Fico no aguardo de uma ajuda de nossos colegas... Grato

ok...já esta resolvido..amigo..grato

haaa....beleza...com o Winzip funcionou...mas eu uso o Filzip....ai complicou...não ta funcionando com ele........ Mas...beleza.....o maioria da galera usa o winzip mesmo........mas o Filzip é otimo compactador também...e é free e tem language portugues...... Beleza...galera valeu...a ajuda

também Não amigão...mesmo erro..... tem duas aberturas de parenteses....e um fechamento....não teria que fechar os dois???

Primeiramente muito obrigado a todos...por ajudar... estou tentanto por ordem....hehehe... Kiko......o comando que você deu a dica...tem algo de errado.....aqui pelo menos da erro(vermelho): WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+'c:\Teste.zip' + '" ' + 'c:\SeuPrograma\seubanco.gdb',sw_ShowNormal); [Error] Unit1.pas(29): ')' expected but ',' found poderias verificar se ai também da erro...amigo Kiko???? Cara.......muito obrigado....se este codigo der certo é isto mesmo que preciso....

Ola...pessoal..Por Favor....gostaria de fazer um backup da minha pasta do aplicativo da seguinte forma: primeiramente zipar todos os arquivos da pasta C:\teste e depois mover este arquivo zipado para uma determinada pasta exemplo: C:\backup alguém poderia me ajudar.???

Jean...Beleza...funcionou legal....é isso ai.....Valeu..Cara....muito Grato

amigo...já fiz isto conforme acima: Na clausula uses, acrescente a unit QRExport parece que no delphi 4 não funciona mesmo...e meu quickreport é o 3.0 mesmo assim valeu...

bom...amigo..eu uso esta abaixo: VALIDAR CNPJ, CGC, CPF DECLARE LOGO ABAIXO DO PUBLIC private { Private declarations } public { Public declarations } function cpf(num: string): boolean; function cgc(num: string): boolean; Coloque a função como esta logo abaixo: function TForm1.cpf(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; if calculado=digitado then cpf:=true else cpf:=false; end; function TForm1.cgc(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); // Retira cada numero do Edit, e joda p/ variavel n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); n10:=StrToInt(num[10]); n11:=StrToInt(num[11]); n12:=StrToInt(num[12]); d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[13]+num[14]; if calculado=digitado then cgc:=true else cgc:=false; end; AGORA INSIRA UM BOTÃO PARA VERIFICAR O CGC procedure TForm1.Button1Click(Sender: TObject); begin If not cgc(Edit1.text) then //Se a funçao CGC retornar Falso, não libera o Focus Begin ShowMessage('CGC Inválido !!'); Edit1.SetFocus; End Else ShowMessage('CGC OK !!') end; AGORA INSIRA UM BOTÃO PARA VERIFICAR O CPF procedure TForm1.Button2Click(Sender: TObject); begin If not cpf(Edit2.text) then Begin ShowMessage('CPF Inválido !!'); Edit2.SetFocus; End Else ShowMessage('CPF OK !!') end; end. Espero ter ajudado

E-Mail: e3dias@ig.com.br Valeu....muito Grato

Beleza??? amigão... ai é que ta o problema.....como fazer........?????? Parece meio complicado...porque até hoje as pessoas que eu pedi...nunca obtive uma resposta de maneira mais detalhada tipo um exemplo...entende??.....em forma de download para a gente que é leigo neste tipo de situação.....ver como funciona...na real...pois para explicar todos os passos aqui...fica dificil para quem pergunta e para quem responde.. ei que tenho que criar uma tabela clientes, produtos, pedido e itens do pedido, mas a questão é...como fazer isto tudo funcionar...de maneira correta... Um abraço...

haaaaaaaa.........pera ai.....desta forma é beleza.....ei eu sei programar......show. A dificuldade é a seguinte: eu queria montar um pequeno banco paradox onde eu cadastraria o nome do cliente, data e abaixo o que ele comprou. exemplo: DATA: 15/06/2005 CLIENTE: JOAO =========================== COD PRODUTO VALOR ----------------------------------- 01 CAMISA 10,00 02 CALÇA 15,00 03 MEIA 15,00 ENTENDE?? É DESTA FORMA? esse tipo de exemplo eu não sei fazer e não consigo nem matl que me ensine a trabalhar com esta situação.... a minha dúvida é como montar esta estrutura tanto na programação, como em qual componente usar para montar uma tela destas como esta acima. Entendeu a minha dúvida?? Haa.....eu costumo trabalhar com tabelas com o codigo autoencremento. Bom Amigo...fico no aguardo.... Um abraço e muito grato.

amigo......também me interessei pelo seu assunto, exemplo: mas....ficou meio complicadinho depois de criar os indices secundarios...como você explica... Será que seria muito, pedir para nosso amigo, disponilizar aqui no forun para nós....um download com este exemplo....???? Na net não encontra-se exemplo deste tipo...já procurei e não achei nada...este exemplo seria mais um menos parecido com um exemplo de locadora de videos.....que é lancado o usuario e depois é lançado todos os videos que ele loca...ou de um mercado etc.... É possível disponilizar este exempplo em um Download?? Gostaria muito de ver o funcionamento dele, alias nós gostariamos. muito Grato.

Salve Kalil..... Colega...segue uma dica que uso para fazer form. splash: Crie um novo formulario com o Name=splash agora vá em Project-view source e insira o codigo abaixo conforme o modelo: --------------- program teste; uses Forms, windows, // aqui acrescenta Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {splash}; {$R *.RES} begin Application.Initialize; // aqui é padrão , sempre essa tem que ser a principal....... Splash:= tsplash.create(application); Splash.show; // mostra o form na tela... Splash.refresh; //aqui é opcional , depende do caso... como eu tenho uma barra de progresso , para que ela não fique oscilando dou este comando Sleep(1500); // o tempo que o form vai aparecer (esta em milesegundos)... Application.ShowMainForm:= TRUE; //retira o splash de exibiçao e cria os outros forms na memoria e bota a aplicação para rodar {daqui para baixo deve aparecer os demais formularios como mostra abaixo} Application.CreateForm(TForm1, Form1); Application.Run; end. --------- NO EVENTO ONCREATE DO FORM PRINCIPAL COLOQUE O SEGUINTE CODIGO splash.close; //AQUI FECHA O FORM DE ABERTURA - SPLASH splash.free; //aqui que segura na memoria.. Defina a propriedade FormStyle para fsStayOnTop a propriedade(BorderStyle) do form para bsNone Amigo....notou a parte do Sleep.....?? é ali que você configura o tempo que quer que o form fique exposto.......então você disse que pode ser que o seu micro é muito rápido....bom..ai você testa, aumentando o valor do sleep. Belza??....Bom quanto a parte do odontograma fico te devendo..... Uma dica.... faça um novo post do odontograma para alguém poder te ajudar.. Amigo...espero ter de ajudado..

amigo....veja a Unit que testei em cima do que nosso amigo KikonaNet postou. Funcionou direitinho. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, printers; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure ImprimeMemo(Conteudo: TStrings); var MemoFile :TextFile; P :Integer; begin Assignprn(MemoFile); Rewrite(MemoFile); for P := 0 to Conteudo.Count-1 do Writeln(MemoFile,Conteudo.Strings[P]); CloseFile(MemoFile); end; procedure TForm1.Button1Click(Sender: TObject); begin ImprimeMemo(Memo1.Lines); end; end. Se por acaso ainda não entendeu post aqui.....pra gente te ajudar. Espero ter simplificado

amigo.....o que você realmente quer fazer com o ele???

amigo...beleza?? Uma Dica: segue abaixo uma função. Eu uso ela a um bom tempo e funciona perfeitamente: uses Mapi; function SendEMail(Handle: THandle; Mail: TStrings): Cardinal; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; Receip: TMapiRecipDesc; Attachments: PAttachAccessArray; AttachCount: Integer; i1: integer; FileName: string; dwRet: Cardinal; MAPI_Session: Cardinal; WndList: Pointer; begin dwRet := MapiLogon(Handle, PChar(''), PChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session); if (dwRet <> SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK); end else begin FillChar(MapiMessage, SizeOf(MapiMessage), #0); Attachments := nil; FillChar(Receip, SizeOf(Receip), #0); if Mail.Values['to'] <> '' then begin Receip.ulReserved := 0; Receip.ulRecipClass := MAPI_TO; Receip.lpszName := StrNew(PChar(Mail.Values['to'])); Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to'])); Receip.ulEIDSize := 0; MapiMessage.nRecipCount := 1; MapiMessage.lpRecips := @Receip; end; AttachCount := 0; for i1 := 0 to MaxInt do begin if Mail.Values['attachment' + IntToStr(i1)] = '' then break; Inc(AttachCount); end; if AttachCount > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount); for i1 := 0 to AttachCount - 1 do begin FileName := Mail.Values['attachment' + IntToStr(i1)]; Attachments[i1].ulReserved := 0; Attachments[i1].flFlags := 0; Attachments[i1].nPosition := ULONG($FFFFFFFF); Attachments[i1].lpszPathName := StrNew(PChar(FileName)); Attachments[i1].lpszFileName := StrNew(PChar(ExtractFileName(FileName))); Attachments[i1].lpFileType := nil; end; MapiMessage.nFileCount := AttachCount; MapiMessage.lpFiles := @Attachments^; end; if Mail.Values['subject'] <> '' then MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject'])); if Mail.Values['body'] <> '' then MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body'])); WndList := DisableTaskWindows(0); try Result := MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0); finally EnableTaskWindows( WndList ); end; for i1 := 0 to AttachCount - 1 do begin StrDispose(Attachments[i1].lpszPathName); StrDispose(Attachments[i1].lpszFileName); end; if Assigned(MapiMessage.lpszSubject) then StrDispose(MapiMessage.lpszSubject); if Assigned(MapiMessage.lpszNoteText) then StrDispose(MapiMessage.lpszNoteText); if Assigned(Receip.lpszAddress) then StrDispose(Receip.lpszAddress); if Assigned(Receip.lpszName) then StrDispose(Receip.lpszName); MapiLogOff(MAPI_Session, Handle, 0, 0); end; end; No Botão coloque: CODEprocedure TForm1.BitBtn5Click(Sender: TObject); var mail: TStringList; begin mail := TStringList.Create; try mail.values['to'] := 'Email@test.xyz'; ///AQUI VAI O EMAIL DO DESTINATARIO/// mail.values['subject'] := 'Hello'; ///AQUI O ASSUNTO/// mail.values['body'] := 'blah'; ///AQUI O TEXTO NO CORPO DO EMAIL/// mail.values['attachment0'] := 'C:\Test.txt'; ////AQUI O ENDEREÇO ONDE ENCONTRAM OS ARQUIVOS// mail.values['attachment1']:='C:\Test2.txt'; ///IDEM - NO ATTACHMENT1 TEM QUE COLOCAR A SEQUNCIA DO EMAIL A QUAL DESEJA ENVIAR EXEMPLO: ATTACHMENT1 sendEMail(Application.Handle, mail); finally mail.Free; end; end; Espero Ter Ajudado Fwl...

Ops.....desculpe....é Amiga....e não amigo...perdão...

Bom amigo.......eu tenho uma dica: instale estes componentes de botão aqui: BtnComps Ele permite mudar a cor Espero ter ajudado

Cara...a paleta server não tem no delphi 4...... Tens alguma outra solução???

Olá.... Pessoal...por favor Eu tenho esta rotina para exportar quickreport para excel mas não ta funcionando... funciona para doc e html mas para excel não funciona alguém teria uma outra dica ?? ou o porque desta não estar funcionando esta?? Exportando Relatório do QuickReport para HTML, doc, TXT ou XLS Na clausula uses, acrescente a unit QRExport agora insira o codigo Exportando para HTML: form3.QuickRep1.ExportToFilter(TQRHTMLDocumentFilter.Create('c:\teste.html')); Exportando para DOC ou TXT: form3.QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('c:\teste.doc')); Exportando para XLS: form3.QuickRep1.ExportToFilter(TQRXLSFilter.Create('c:\teste.xls')); ta dando o seguinte erro: [Error] R_EC_AS.pas(122): Undeclared identifier: 'TQRXLSFilter' Grato

bom amigo...neste caso eu colocaria um QRexp no summary e na propriedade expression colocaria os campos da tabela a ser somados que correspondem ao Qrdbtext exemlo: SUM(Query1.valor1) + SUM(Query1.valor2) este exemplo eu fiz usando query e paradox. Espero ter ajudado. inté.

Ok..pessoal...descobri como fazer: MAX(Query1.Km) - MIN(Query1.Km) inté