Jump to content

Lúcio Dowglas

Members
  • Content count

    3
  • Joined

  • Last visited

Community Reputation

0 Comum

2 Followers

About Lúcio Dowglas

  • Birthday 10/19/1985

Informações Pessoais

  • Sexo
    Masculino
  • Interesses
    CONHECIMENTO
  1. Lúcio Dowglas

    Retornar os valores do RADIO GRUP

    BOA TARDE... ALGUM PARCEIRO PODE MI AJUDAR NESSE PROBLEMINHA... ESTOU TENTANDO TRAZER OS VALORES DO RADIO GRUPO QUE ESTÃO NO MEU BANCO DE DADOS... ESTOU USANDO ESSE CODIGO PARA ENVIAR... case RDG_ESTCIVIL.ItemIndex of 0:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='SOLTEIRO (A)'; 1:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='CASADO (A)'; 2:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='VIÚVO (A)'; 3:DM_DADOS.Tbl_CDS_Funcionarioest_civil.AsString :='UNIÃO ESTAVEL(A)'; end; E PARA RETORNAR OS VALORES PARA O FORME ESTOU USANDO ESTE... IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = ' SOLTEIRO (A)' THEN BEGIN RDG_ESTCIVIL.ItemIndex := 0; END; IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'CASADO (A)' THEN BEGIN RDG_ESTCIVIL.ItemIndex := 1; END; IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'VIÚVO (A)' THEN BEGIN RDG_ESTCIVIL.ItemIndex := 2; END; IF DM_DADOS.Tbl_CDS_Funcionariostatos.AsString = 'UNIÃO ESTAVEL(A)' THEN BEGIN RDG_ESTCIVIL.ItemIndex := 3; END; MAS NAO DAR CERTO...?? OBRIGADO
  2. Lúcio Dowglas

    Verificar se nome ja esta cadastrado

    boa noite galera nao sei se ja resolveram essa questao, tentei aki e deu certo assim... VEJA COMO FICOU MEU CODIGO.... /////////////////////////// if DM.TBL_USUARIO.Locate('LOGIN', EDTLOGIN.Text,[]) then //***VERIFICANDO SE USUARIO JA EXISTE BEGIN Application.MessageBox('Este Login Já Esta Cadastrado!...Tente Outro!!! ','INFORMAÇÃO!!!', MB_OK+MB_ICONWARNING); LimparEdit; Abort; END else BEGIN DM.TBL_USUARIO.Append; //ABRINDO A TABELA PARA GRAVAR DADOS NO BD DM.TBL_USUARIOnome.AsString:=EDT_NOME.Text; DM.TBL_USUARIOsenha.AsString:=EDTSENHA.Text; DM.TBL_USUARIOstatos.AsString:='A'; DM.TBL_USUARIOdata_cadastro.AsDateTime:=now; dm.TBL_USUARIOlogin.AsString:=EDTLOGIN.Text; DM.TBL_USUARIO.Post; // GRANVANDO OS DADOS NO BD LimparEdit; Application.MessageBox('Registro Salvo com Sucesso!','Informação!!!', MB_OK+MB_ICONINFORMATION); PgCont_Usuario.ActivePageIndex:=1; END; /// BLZ
  3. Lúcio Dowglas

    Verificar se nome ja esta cadastrado

    BOA TARDE AMIGOS!!ESTOU COM ESSE PROBLEMA TBM... O MEU SALVA SEMPRE... MEU COD. procedure TF_USUARIO.ActSalvarExecute(Sender: TObject); begin //butão salvar //VERIFICANDO OS ESPAÇOS EM BRANCO DO EDIT if Trim(EDT_NOME.Text) = '' then begin ShowMessage('Preencha o Campo Nome'); Abort; end; if trim(EDTLOGIN.Text) = '' then begin ShowMessage('Iserir um login valido'); Abort; end; if trim(EDTSENHA.Text) = '' then begin ShowMessage('O Campo Senha Não Pode ser Vazio'); Abort; end; //***FIM DA VERIFICAÇÃO DOS CAMPOS EM BRANCO BEGIN DM.TBL_USUARIOnome.AsString:=EDT_NOME.Text; DM.TBL_USUARIOsenha.AsString:=EDTSENHA.Text; DM.TBL_USUARIOstatos.AsString:='A'; DM.TBL_USUARIOdata_cadastro.AsDateTime:=now; dm.TBL_USUARIOlogin.AsString:=EDTLOGIN.Text; if DM.TBL_USUARIO.Locate('LOGIN', EDTLOGIN.Text,[]) then //***VERIFICANDO SE USUARIO JA EXISTE BEGIN ShowMessage('USUARIOA JA CADASTRADO') ; DM.TBL_USUARIO.Delete; Abort; END ELSE DM.TBL_USUARIO.Post; LimparEdit; Application.MessageBox('Registro Salvo com Sucesso!','Informação!!!', MB_OK+MB_ICONINFORMATION); PgCont_Usuario.ActivePageIndex:=1; END; //************** DA A MESSAGE DE USUARIO CADASTRADO MAS MESMO ASSIM QUANDO VEIJO NO BANCO ELE SALVOU!!! ONDE EU ERREI PODEM ME AJUDAR ESTOU COM APENAS 2 MESES ESTUDANDO DELPHI.... OBRIGADO
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.