Como faço para gravar no banco de dados a cor do shape1
04/12/2003
0
Como faço para gravar no banco de dados a cor do shape1
QProduto.SQL.Clear;
QProduto.SQL.Add(´Insert into Produtos (Codigo, NOME, Data_Entrada, Data_Vencimento,´+
´Cod_Tipo, Cod_Externo, Cod_Tecnico, Concentracao, Faixa, Quantidade)´);
QProduto.SQL.Add(´Values(´+ QuotedStr (editCodigo.Text) + ´,´+
QuotedStr(editNomeProduto.Text) + ´, ´+
QuotedStr(editDataEntrada.Text)+´,´+
QuotedStr(editDataVencimento.Text)+´ ,´+
QuotedStr(editCodTipo.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editConcentracao.Text)+´,´+
QuotedStr([color=red:2040534425]Shape1. .........Aqui que não sei..... [/color:2040534425])+´,´+
QuotedStr(editEstoque.Text)+´)´);
QProduto.ExecSQL;
QProduto.SQL.Clear;
QProduto.SQL.Add(´Insert into Produtos (Codigo, NOME, Data_Entrada, Data_Vencimento,´+
´Cod_Tipo, Cod_Externo, Cod_Tecnico, Concentracao, Faixa, Quantidade)´);
QProduto.SQL.Add(´Values(´+ QuotedStr (editCodigo.Text) + ´,´+
QuotedStr(editNomeProduto.Text) + ´, ´+
QuotedStr(editDataEntrada.Text)+´,´+
QuotedStr(editDataVencimento.Text)+´ ,´+
QuotedStr(editCodTipo.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editCodExterno.Text)+´,´+
QuotedStr(editConcentracao.Text)+´,´+
QuotedStr([color=red:2040534425]Shape1. .........Aqui que não sei..... [/color:2040534425])+´,´+
QuotedStr(editEstoque.Text)+´)´);
QProduto.ExecSQL;
Babu
Curtir tópico
+ 0
Responder
Posts
05/12/2003
Adilsond
Use a função: ColorToRGB(Shape1.Brush.Color) para transformar a cor em um LongInt e TColor(LongInt) para transformar o valor novamente para a cor.
Responder
16/06/2008
Tathianam
No Delphi7 a função é: [b:346e956ad5]ColorToString[/b:346e956ad5] e vice-versa
Responder
Clique aqui para fazer login e interagir na Comunidade :)