Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Vinicius Santanna

Form que cadastrar dias da semana no BD

Recommended Posts

É o seguinte estou montando um form para cadastrar dias da semana no BD (tipo seg e quart ou terça ,quarta e sexta , etc) usando o Checkbox, para isso montei o seguinte codigo :

procedure TForm11.FormCreate(Sender: TObject);beginif  CheckBox2.Checked:= True then query2.SQL:= 'segunda';Query2.Active := true;Query2.ExecSQL;end;

a linha 42 (if CheckBox2.Checked:= True then query2.SQL:= 'segunda';) se repete para cada dia da semana alterando somente o nome do checkbox e o valor da query, mas esse codigo da o seguinte erro:

 

[Error] Unit11.pas(42): Type of expression must be BOOLEAN

[Error] Unit11.pas(42): Incompatible types: 'TStrings' and 'String'

[Fatal Error] Project1.dpr(18): Could not compile used unit 'Unit11.pas'.

 

Como resolvo isso?

 

Sou principiante em delphi e conto com a ajuda de vocês, desde já agradeço a paciencia.

Compartilhar este post


Link para o post
Compartilhar em outros sites

você precisa alterar algumas coisas, como:procedure TForm11.FormCreate(Sender: TObject);beginif CheckBox2.Checked then begin Query2.Close; Query2.SQL.Clear; Query2.SQL.Add('insert into tabela values(''segunda'')'); Query2.ExecSQL; end;end;Não seria interessante estar no OnCreate do form, mas cada caso é um caso, isso foi um exemplo de como você pode fazer, caso tenha mais dúvidas, coloque a estrutura das tabelas que deseja inserir alguma coisa.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Coloquei assimprocedure TForm11.FormCreate(Sender: TObject);beginif CheckBox2.Checked thenbeginQuery2.Close;Query2.SQL.Clear;Query2.SQL.Add('insert into dias(Dias) values(''segunda'')');Query2.ExecSQL;end;end;ñ deu erro mas não adiciona os dados na tabela, oq eu estou fazendo de errado?O nome da tabela é Dias e o campo tambem é Dias...ah e porque não seria interessante estar no OnCreate do form????

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dê uma verificada ai no seu sistema, pois fiz um teste aqui com a mesma estrutura da sua e inseriu certinho, não se esqueça que somente vai inserir se o CheckBox estiver marcado e ainda esta no OnCreate, no momento que é criado o form o CheckBox esta marcado ? Caso não esteja ele não insere, e é por isto que não entendi o pq de estar no OnCreate, visto que precisa estar marcado para inserir e ainda na criação do form... Se quiser dar mais explicações do pq deste funcionamento, pode falar...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.