F�rum [DbGrid1] Insert x Delete #284520

13/06/2005

Bom dia,
Gostaria de saber se voces poderiam me ajudar com o seguinte problema que estou tendo...

quando eu mando salvar ele salva la o registro e atualiza a grid... e beleza... a grid fica assim :

[img:204c8b1847]http://www.ellasnet.com.br/fcunha/delphi/Produto.JPG[/img:204c8b1847]

Agora quando eu dou um delete ele apaga o registro e atualizo a grid ... e beleza... a grid fica assim :

[img:204c8b1847]http://www.ellasnet.com.br/fcunha/delphi/Produto1.JPG[/img:204c8b1847]

Minha pergunta � o seguinte: porque quando eu dou delete a barrinha lateral da grid some....
eu vou colocar os codigos abaixos para se possivel voces me ajudarem....


procedure TFrmProduto.BtnSalvarClick(Sender: TObject);
var
   Reg: string;
begin
   if verificaCampos = True and flag1 = False then
      begin
         Reg := edit1.Text;
         Dtmodule.qryProduto.SQL.Clear;
         Dtmodule.qryProduto.SQL.Add(�Select * from Nvocc_Produto�);
         Dtmodule.qryProduto.SQL.Add(�Where im_codigo = � + quotedstr(edit1.Text));
         Dtmodule.qryProduto.Open;
         if Dtmodule.qryProduto.isEmpty then
            begin
               Dtmodule.qryProduto.close;
               Dtmodule.qryProduto.sql.clear;
               Dtmodule.qryProduto.sql.add(�INSERT INTO Nvocc_Produto (IM_CODIGO, IM_Produto) �);
               Dtmodule.qryProduto.sql.add(� VALUES (� +
                  quotedstr(Edit1.Text) + �,� +
                  quotedstr(Edit2.Text) + �)�);
               Dtmodule.qryProduto.execsql;
               Flag := False;
               Showmessage(�O Registro ( � + Reg + � ) Foi Inserido com Sucesso�);
               FrmProduto.FormActivate(Sender);
               Dtmodule.qryProduto.sql.clear;
               Dtmodule.qryProduto.sql.Add(�select * from Nvocc_Produto order by Im_codigo�);
               Dtmodule.qryProduto.open;
               Dbgrid1.Setfocus;

e o codigo do delete � o seguinte:


procedure TFrmProduto.BtnExcluirClick(Sender: TObject);
var
   Reg: string;
begin
   if not (edit1.Text = ��) then
      begin
         Reg := edit1.Text;
         Dtmodule.qryProduto.SQL.Clear;
         Dtmodule.qryProduto.SQL.Add(�Select * from Nvocc_Produto�);
         Dtmodule.qryProduto.SQL.Add(�Where IM_CODIGO = � + quotedstr(edit1.Text));
         Dtmodule.qryProduto.Open;
         if not Dtmodule.qryProduto.isEmpty then
            begin
               if Application.MessageBox(�Deseja Realmente Excluir ???�,
                  �Confirma��o�, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = idyes then
                  begin
                     Dtmodule.qryProduto.close;
                     Dtmodule.qryProduto.sql.clear;
                     Dtmodule.qryProduto.SQL.Add(�DELETE FROM Nvocc_Produto�);
                     Dtmodule.qryProduto.sql.Add(�where IM_CODIGO = � + quotedstr(edit1.text));
                     Dtmodule.qryProduto.ExecSQL;
                     Showmessage(�O Registro ( � + Reg + � ) Foi Deletado com Sucesso�, );
                     FrmProduto.FormActivate(Sender);
                     Dtmodule.qryProduto.sql.clear;
                     Dtmodule.qryProduto.sql.Add(�select * from Nvocc_Produto order by Im_codigo�);
                     Dtmodule.qryProduto.open;
                     Dbgrid1.Setfocus;

Fernando_cunha

Curtir t�pico

+ 0

Responder

Posts

13/06/2005

Fernando_cunha

Bom andei pesquisando e nao axei nada sobre o porque ela some a barrinha... consegui for�a e fazer q aparece sempre...

o comando �

ShowScrollBar(DBGrid1.Handle,SB_VERT,True);

assim depois do comando delete eu mando ela aparecer

abra�os

Responder

Gostei + 0