ActiveDelphi

[osvaldofrp]

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.

[conorte]

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: