ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ajuda com Valor default e desativar botão conforme opção

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
osvaldofrp
Novato
Novato


Registrado: Segunda-Feira, 17 de Janeiro de 2011
Mensagens: 9

MensagemEnviada: Qui Jan 18, 2018 5:28 pm    Assunto: Ajuda com Valor default e desativar botão conforme opção Responder com Citação

Para iniciar agradeço a todos, pois já precisei de ajuda, e fui prontamente respondido, agora preciso de ajuda novamente, sou iniciante em Delphi, tenho instalado o Delphi7, estou criando o seguinte form [https://1drv.ms/i/s!AjFdShIzOcMthVM8Z7-qdL9YlhUv]
nele tenho duas DbCombobox gostaria que ambas recebessem e grave o valor default "Não" se outra opção não for selecionada, até consegui que on show apareça os dois com a opção, porém essa opção não é gravada na Tbl, e também ao iniciar novo registro os campos ficam em branco, essa seria a primeira ajuda que preciso com este Frm.
A segunda seria que além dos dois DbCombobox tem dois Botões gostaria que estando a primeira DbCombobox estiver selecionado a opção "NÃO" este botão esteja desabilitado, ou seja, se a pessoa que esta sendo cadastrada não for diretor, o botão que abre o Cadastro de Diretor não fique ativo, e na segunda DbCombobox se a opção selecionada for "NÃO", ou seja, ela não é funcionária o botão para abrir o cadastro de funcionário fique desabilitado.
Segue abaixo a Unit do Frm:
unit UTel;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask, ExtDlgs, jpeg,
DBImagePath, Buttons, StrUtils;

type
TFrmTel = class(TForm)
MainMenu1: TMainMenu;
Fechar1: TMenuItem;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEditN: TDBEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBMemo1: TDBMemo;
Label12: TLabel;
DBEdit11: TDBEdit;
DBNavigator1: TDBNavigator;
DBImagePath1: TDBImagePath;
OpenPictureDialog1: TOpenPictureDialog;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label13: TLabel;
Label16: TLabel;
procedure Fechar1Click(Sender: TObject);
procedure DBImagePath1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBEditNKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmTel: TFrmTel;

implementation

uses UDados, UDir, UFu;

{$R *.dfm}

procedure TFrmTel.Fechar1Click(Sender: TObject);
begin
FrmTel.Close;
end;

procedure TFrmTel.DBImagePath1DblClick(Sender: TObject);
begin
if (OpenPictureDialog1.Execute) and (DBImagePath1.Salvar(OpenPictureDialog1.FileName)) then
begin
ShowMessage('Imagem Carregado com sucesso');
end;
end;

procedure TFrmTel.FormShow(Sender: TObject);
begin
Dados.TblTel.Append;
DBComboBox1.ItemIndex:= 0;
DBComboBox2.ItemIndex:= 0;
end;

procedure TFrmTel.DBEditNKeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
begin
Key:= #0;
SelectNext ((Sender as TWinControl),true,true);
end;
//inherited;
//Key := AnsiUpperCase(Key)[Length(Key)];

end;

procedure TFrmTel.BitBtn1Click(Sender: TObject);
begin
FrmDir.ShowModal;
end;


procedure TFrmTel.BitBtn2Click(Sender: TObject);
begin
FrmFu.ShowModal;
end;


end.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
conorte
Experiente
Experiente


Registrado: Quinta-Feira, 8 de Mai de 2014
Mensagens: 406
Localização: Porto Alegre/RS

MensagemEnviada: Qui Mar 01, 2018 11:50 am    Assunto: Responder com Citação

Olá!
Pelo que vi rapidamente, o TDBComboBox tem uma propriedade essencial, que é DataField.

Esta propriedade se refere ao nome do campo no banco de dados. Sabendo o valor você pode jogar com isto. Por exemplo:

Código:
se DBComboBox1.Text = 'valor que você quer' então
faça
  bitbtn.enable := false (ou true)
fim senão
  bitbtn.enable := true (ou false)
fimsenão



E em relação ao valor padrão, ao iniciar o processo, seja por onde for (ao clicar um botão, por exemplo), atribua o valor, tipo assim:

Código:
DBComboBox1.Text := 'Não' // ou 'N'

_________________
Luciano Moraes
1º curso de Pascal em 1998.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB