Progr'amador

Olá iurifp, Bem vindo! Posta ae o código que você ta usando. Abs. Progr'amador.

Olá fraldinha, ae vai uma dica passo a passo. Nesse exemplo vou usar uma tabela Paradox, Nome tabela: TAB_USUARIO, campos: Login e Senha. Usuários exemplo: Login -----Senha Carlos------1234 Joao--------1010 Agora no Delphi: Nome do Projeto: ProjectLogin form Prncipal: Name : FrmPrincipal; (Unit: Principal.pas) form Login: Name : FrmLogin; (Unit: Login.pas) No FrmLogin, adicione um TTable (Tabel1) para a a tabela TAB_USUARIO; dois Edit's (EditLogin e EditSenha) e um bitBtn (btnEntrar). e no OnCreate coloque: Table1.Active := False; Table1.Active := True; e no OnClick do btnEntrar coloque: procedure TForm1.BtnEntrarClick(Sender: TObject); var achou : boolean; begin if EditLogin.Text = '' then begin ShowMessage('Informe o Nome do Usuário...'); EditLogin.SetFocus; Exit; end; achou := Table1.Locate('Login',Trim(EditLogin.Text),[]); if achou then begin if EditSenha.Text = '' then begin ShowMessage('Informe a Senha do Usuário...'); EditSenha.SetFocus; Exit; end; if EditSenha.Text <> Table1.FieldByName('Senha').AsString then begin ShowMessage('Senha incorreta...'); EditSenha.Text := ''; EditSenha.SetFocus; Exit; end else Application.Run; end else begin ShowMessage('Usuário não Cadastrado no Banco de Dados...'); EditLogin.Text := ''; EditLogin.SetFocus; end; end; no onShow do FrmPrincipal coloque: FrmLogin.Hide; e no Fonte do projeto (ProjectLogin) coloque assim: program ProjectLogin; uses Forms, Principal in 'Principal.pas' {FrmPrincipal}, Login in 'Login.pas' {FrmLogin}; {$R *.RES} begin Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmLogin, FrmLogin); FrmLogin.ShowModal; end. É por aiiii... Abs. Progr'amador.

Olá nightmare, é tipo assim: criei um arquivo texto chamado login.txt com o cadastro de usuario: Login Senha Jose12345678 Mariateste Pedro001122 etc, etc, etc... no delphi dois edits: EditLogin e EditSenha, e um buttom: no OnClick do button coloque assim: procedure TForm1.Button1Click(Sender: TObject); var ArqTxt : TextFile; Linha, Login, senha : string; i, nx1, nx2 : Integer; log : boolean; begin AssignFile(ArqTxt,'C:\login.txt'); Reset(ArqTxt); log := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); nx1 := Length(Trim(EditLogin.text)); nx2 := Length(Linha) - nx1; Login := Copy(Linha,1,nx1); Senha := Copy(Linha,nx1+1,nx2); if trim(EditLogin.text) = Login then begin Log := True; if EditSenha.Text <> Senha then begin ShowMessage('Senha incorreta!'); Break; end; end; end; Linha := ''; Closefile(ArqTxt); if log then begin Application.CreateForm(TForm2, Form2); Application.Run; end; if not log then ShowMessage('Usuario não cadastrado!'); end; Autor Progr'amador. hehehe Abs.

Olá Paulo, você já tentou fazer isso fora do seu projeto, tipo criar um novo projeto, so pra fazer o teste, o problema pode ser no seu projeto, porque eu fiz o teste aki em D3 e D7 e não deu nenhum erro. Abs. Progr'amador.

Olá, Posta ae, o código que você ta usando! Abs. Progr'amador.

Olá, use o TabVisible := False; Abs. Progr'amador.

Olá Paulo, ae vai uns bitmap's de 16x16 e 24x24 no estilo XP. http://geocities.yahoo.com.br/ecmsb/grf.zip Abs. Progr'amador.

Olá nightmare, Não entendi sua pergunta, explique com mais detalhes o que você quer. Abs. Progr'amador.

Olá NillGolv, É tipo assim: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM CLIENTES WHERE NOME_CLIENTE = '+#39+ComboBox1.text+#39); Query1.Open; Abs. Progr'amador.

Olá clsalberto, Bem vido ao nosso forum! você esta tentando localizar no campo 'COD_BARRA'? tente fazer assim: DADOS.Q_ESTOQUE.Locate('COD_BARRA', Valor, [loCaseInsensitive, loPartialKey]) Abs. Progr'amador.

Olá, Qual a versao do seu delphi? Abs. Progr'amador.

Olá, você pode usar o componente QRExpr, na opção Expression coloque assim: SUM(Query1.CampoValor) Abs. Progr'amador.

Olá Paulo, Faça assim: If Not FileExists( ExtractFileDir(Application.exename)+'\SENHAS.txt') Then begin Assignfile(f,ExtractFileDir(Application.exename)+'\SENHAS.txt'); Rewrite(f); Closefile(f); FileSetAttr(ExtractFileDir(Application.exename)+'\SENHAS.txt',2); end; você pode alterar os atributos com esses código: 0 = Sem Atributo; 1 = Somente Leitura; 2 = Oculto; 3 = Somente Leitura e Oculto; 4 = Sistema; 5 = Somente Leitura e Sistema; 6 = Sistema e Oculto; 7 = Somente Lieitura, Sistema e Oculto. Abs. Progr'amador.

Estamos aki pra isso! Precisado é só postar, se eu souber terei prazer em ajudar! Fechado. Abs. Progr'amador

Ueh! Agora eu num entendi! Se essa variavel fica no form principal, quando você fecha esse form principal, o programa todo é fechado. Abs. Progr'amador.

No Delphi 2005 esses componentes são necessários sim: .NET Frameword 1.1; .NET Frameword SDK 1.1; Visual J# .NET 1.1 Redistributable; Microsoft XML Core Service (MSXML) 4.0 SP2; Intenet Explorer 6 SP1. Esses componentes você pode encontar neste endereço: msdn.microsoft.com E você pode baixá-los gratuitamente. Abs. Programador.

Olá pdelphi, Isso quando você fechar só um form ou o projeto todo? Qual é o form principal do seu projeto? Essa variavel deveria ficar no form principal que só é fechado quando você fechar o programa. Abs. Progr'amador.

Olá Alisson, Use somente isso: with QryGeral do begin SQL.Clear; SQL.Add(' UPDATE Produtos SET Qtd_Estoque = Qtd_Estoque - :Qtd'); SQL.Add(' WHERE COD_PRODUTO = :COD_PRODUTO'); ParamByName('COD_PRODUTO').AsString := DM.QueryVendas.FieldByName('COD_PRODUTO').AsString; ParamByName('Qtd').AsString:= DM.QueryVendas.FieldByName('Qtd').AsString; ExecSQL; end; Abs. Progr'amador.

Olá TBaiano, Pelo que me consta esse produto é pago, e não é permitido a distribuição de serial dessa forma, mesmo que seja para ajudar um colega. Isso é pirataria, e descumpre as regras deste forum. Desculpa ae colega, e espero que tenha entendido. Abs. Progr'amador.

Olá Mauricio, No evento BeforePrint do QRBand - Detail (onde está os campos) coloque esse código: (Exemlo) if Query1.FieldByName('VALOR1').AsFloat < 0 then DBText1.Font.Color := clRed else DBText1.Font.Color := clWindowText; Abs. Progr'amador.

Olá paul_andryss, Salve essa Unit no seu projeto (UnExtenso) unit UnExtenso; interface Function Extenso(Valor: double):string; implementation uses SysUtils; const Centenas: array[1..9] of string[12]=('CEM','DUZENTOS','TREZENTOS','QUATROCENTOS', 'QUINHENTOS','SEISCENTOS','SETECENTOS', 'OITOCENTOS','NOVECENTOS'); Dezenas : array[2..9] of string[10]=('VINTE','TRINTA','QUARENTA','CINQUENTA', 'SESSENTA','SETENTA','OITENTA','NOVENTA'); Dez : array[0..9] of string[10]=('DEZ','ONZE','DOZE','TREZE','QUATORZE', 'QUINZE','DEZESSEIS','DEZESSETE', 'DEZOITO','DEZENOVE'); Unidades: array[1..9] of string[10]=('UM','DOIS','TRES','QUATRO','CINCO', 'SEIS','SETE','OITO','NOVE'); MoedaSingular = 'REAL'; MoedaPlural = 'REAIS'; CentSingular = 'CENTAVO'; CentPlural = 'CENTAVOS'; Zero = 'ZERO'; Function Ext3(Parte:string):string; var Base: string; digito: integer; begin Base:=''; digito:=StrToInt(Parte[1]); if digito=0 then Base:='' else Base:=Centenas[digito]; if (digito = 1) and (Parte > '100') then Base:='CENTO'; Digito:=StrToInt(Parte[2]); if digito = 1 then begin Digito:=StrToInt(Parte[3]); if Base <> '' then Base:=Base + ' E '; Base:=Base + Dez[Digito]; end else begin if (Base <> '') and (Digito > 0) then Base:=Base+' E '; if Digito > 1 then Base:=Base + Dezenas[digito]; Digito:=StrToInt(Parte[3]); if Digito > 0 then begin if Base <> '' then Base:=Base+' E '; Base:=Base+Unidades[Digito]; end; end; Result:=Base; end; Function Extenso; var ComoTexto: string; Parte: string; begin Result:=''; ComoTexto:=FloatToStrF(Abs(Valor),ffFixed,18,2); // Acrescenta zeros a esquerda ate 12 digitos while length(ComoTexto) < 15 do Insert('0',ComoTexto,1); // Retira caracteres a esquerda para o máximo de 12 digitos while length(ComoTexto) > 15 do delete(ComoTexto,1,1); // Calcula os bilhões Parte:=Ext3(copy(ComoTexto,1,3)); if StrToInt(copy(ComoTexto,1,3)) = 1 then Parte:=Parte + ' BILHAO' else if Parte <> '' then Parte:=Parte + ' BILHOES'; Result:=Parte; // Calcula os nilhões Parte:=Ext3(copy(ComoTexto,4,3)); if Parte <> '' then begin if Result <> '' then Result:=Result+', '; if StrToInt(copy(ComoTexto,4,3)) = 1 then Parte:=Parte + ' MILHAO' else Parte:=Parte + ' MILHOES'; Result:=Result + Parte; end; // Calcula os nilhares Parte:=Ext3(copy(ComoTexto,7,3)); if Parte <> '' then begin if Result <> '' then Result:=Result + ', '; Parte:=Parte + ' MIL'; Result:=Result + Parte; end; // Calcula as unidades Parte:=Ext3(copy(ComoTexto,10,3)); if Parte <> '' then begin if Result <> '' then if Frac(Valor) = 0 then Result:=Result + ' E ' else Result:=Result + ', '; Result:=Result + Parte; end; // Acrescenta o texto da moeda if Int(Valor) = 1 then Parte:=' ' + MoedaSingular else Parte:=' ' + MoedaPlural; if copy(ComoTexto,7,6) = '000000' then Parte:='DE ' + MoedaPlural; Result:=Result + Parte; // Se o valor for zero, limpa o resultado if int(Valor) = 0 then Result:=''; //Calcula os centavos Parte:=Ext3('0'+copy(ComoTexto,14,2)); if Parte <> '' then begin if Result <> '' then Result:=Result + ' E '; if Parte = Unidades[1] then Parte:=Parte + ' '+CentSingular else Parte:=Parte + ' '+CentPlural; Result:=Result + Parte; end; // Se o valor for zero, assume a constante ZERO if Valor = 0 then Result:=Zero; end; end. É so declarar essa unit no seu form e usar essa função: procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := Extenso( StrToFloat(Edit1.Text) ); end; Essa eu garanto que funciona, inclusive estou usando ela. Abs. Progr'amador.

Cliente castrado?!?! Bem, o código que o cologa passou funciona sim se você usar tipo assim: Souza em vez de Suza, ou Souz , Sou , etc... Se você tirar letras do meio de uma palavra num funciona não, tipo Suza. Abs. Progr'amador.

ae galera do PHP, acho que é com vocês! Movendo...

Olá, É tipo assim: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('Select Codigo, Descricao, Grupo, Sum(Quantidade)Quantidade, Tipo'); Query1.Sql.Add('From Tabela'); Query1.Sql.Add('Where Data Beetwen :dataini and :datafim'); Query1.Sql.Add('Group By Codigo, Descricao, Grupo, Tipo'); Query1.ParamByName('dataini').AsDate := StrToDateTime(MaskEdit1.text); Query1.ParamByName('datafim').AsDate := StrToDateTime(MaskEdit2.text); Query1.Open; Obs: Só não da pra colocar a data da forma como você quer (20/12/04 25/12/04) na select, mas não há necesidade disso, num relatório você poderia usar um QRLabel pra trazer esse periodo do form onde você ta informando essa data. Abs. Progr'amador.

Olá Fernando_Ramos, Eu não falei de vc! eu me referia ao Rodolfo_Pessanha. Abs. Progr'amador.