Inserir valores automáticos em um campo usando Delphi

Esse tutorial foi testado em Delhi 5.0 e b.d. feito em MySql 4.1

* DBRadioGroup recebendo valores automaticamente usando tabela.

1)Insira um DBRadioGroup e deixe selecionado. Todos os componentes relacionados ao B.D. devem estar configurados (DataSource, Table ou Querys, etc)

2)No Object Inspector clique em Properties

3)Em Columns: insira o número de colunas que deseja (Ex: 2 colunas)

4)Configure os campos DataSource e DataField com tabela desejada (Ex.: campo sexo do tipo varchar ou char)

5)Em Items: coloque o nome das colunas (Ex.: Feminino, masculino) um cada linha e clique em OK

6)Em Values: Supondo que o campo sexo é do tipo varchar, coloque agora os valores que vão ser armazenados no banco. Seguindo a sequencia da propriedade Items, coloque (f,m) um cada linha, sendo f para feminino e m para masculino. Clique em Ok

7)O DBRadioGroup está configurado. Para que o componente sempre mostre, ao ser inserido um novo registro, o cliente como feminino faça o seguinte

a.Dê um clique no componente table que está ligado a tabela do banco de dados. Exemplo Table1 ligado a tabela cliente (onde está o campo sexo) no banco de dados para que fique selecionada;

b.No Object Inspector dê um clique em Events

c.Dê um clique Duplo em OnNewRecord (área branca) se abrirá a área de programação, entre Begin e End coloque;

d.Dm_empresa.DataModule1.tb_clientes.FieldByName('sexo_cli').AsString:='F'; onde Dm_empresa - nome do formulário, DataModule1 - nome do componente DataModule que estou usando, Tb_cliente - nome do componente (table) que está ligado a tabela cliente, FieldByName - nome do método que acessa determinado campo em uma tabela, (‘sexo_cli’) - nome do campo criado na tabela dentro do banco de dados, AsString - método que permite inserir dados em um campo do tipo varchar ( se fosse um campo inteiro o método seria AsInteger), := - atribuição, permite colocar um valor um valor como no exempo foi coloca ‘F’. Atenção! O importante aqui é que fique selecionada a tabela com o campo desejado para inserção autmática.

e.Nesse caso somente poderemos colocar os valores indicados na propriedade Values (f ou m), qualquer outro poderá gerar erro;

8)Pronto! Agora sempre que for inserido um registro (através de um botão) ou do componente DBNavigator a coluna referente ao sexo feminino será automaticamente preenchida.

9)Valeu! Abraços.