Estou tentando implementar minha aplicação, onde a tabela empresa
ganhou uma nova coluna chamada status
, que seria preenchida de acordo com o Radio Button
isso iria servir para que na hora de gerar os relatórios de clientes vinculados, o mesmo só me trouxesse os clientes com Status = Ativo, sou iniciante em Delphi, por esse motivo não estou conseguindo, de acordo com o Radio Button
preencher essa coluna. Já consegui no form de cadastro de empresas adicionar os Radio Buttons
ficando assim a tela:
A parte onde salva essas informações no banco hoje esta dessa forma:
begin
sdsEmpresaCadastro.Close;
sdsEmpresaCadastro.CommandText := 'select * from Empresa where Nome = '''+cdsEmpresaNOME.AsString + '''';
sdsEmpresaCadastro.Open;
if not sdsEmpresaCadastro.IsEmpty then
raise Exception.Create('Empresa já incluída');
cdsEmpresaCODIGO.AsInteger := dmDatabase.NextID('EMPRESA');
dmDatabase.SQLConnection.Execute('INSERT INTO Empresa (CODIGO, NOME, VALORIMPRESSAO, '+
'VALORDIGITALIZACAO, VALORIMPRESSAOEXCEDENTE, CONTATO, NOMEREDUZIDO, CNPJ, ENDERECO, BAIRRO, CEP, '+
'CIDADE, TEFONE, UF, INSCRICAOESTADUAL, CONTATONF, EMAIL, EMAILNF, OBSERVACAO, '+
'FRANQUIADIGITALIZACAO, VALORDIGITALIZACAOEXCEDENTE, STATUS) VALUES ('+
cdsEmpresaCODIGO.AsString+','''+cdsEmpresaNOME.AsString+''','+
TrocaVirgPPto(cdsEmpresaVALORIMPRESSAO.AsString)+','+
iif(cdsEmpresaVALORDIGITALIZACAO.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORDIGITALIZACAO.AsString))+','+
iif(cdsEmpresaVALORIMPRESSAOEXCEDENTE.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORIMPRESSAOEXCEDENTE.AsString))+
','''+cdsEmpresaCONTATO.AsString+''','''+cdsEmpresaNOMEREDUZIDO.AsString+ ''','''+
cdsEmpresaCNPJ.AsString +''','''+cdsEmpresaENDERECO.AsString+''','''+
cdsEmpresaBAIRRO.AsString +''','''+cdsEmpresaCEP.AsString+ ''','''+
cdsEmpresaCIDADE.AsString+''','''+cdsEmpresaTEFONE.AsString+''','''+
cdsEmpresaUF.AsString+''','''+cdsEmpresaINSCRICAOESTADUAL.AsString+ ''','''+
cdsEmpresaCONTATONF.AsString+ ''','''+ cdsEmpresaEMAIL.AsString + ''','''+
cdsEmpresaOBSERVACAO.AsString + ''','''+ cdsEmpresaEMAILNF.AsString+''','+
iif(cdsEmpresaFRANQUIADIGITALIZACAO.AsString='','0', cdsEmpresaFRANQUIADIGITALIZACAO.AsString)+','+
iif(cdsEmpresaVALORDIGITALIZACAOEXCEDENTE.AsString='','0', TrocaVirgPPto(cdsEmpresaVALORDIGITALIZACAOEXCEDENTE.AsString))+')', nil);
end
Minha dúvida então é: Como verificar qual dos Radio Buttons
está selecionado, para assim atribuir ao banco se Status = true ou false