[DbGrid1] Insert x Delete

Delphi

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 :


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


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

Fernando_cunha

Curtidas 0

Respostas

Fernando_cunha

Fernando_cunha

13/06/2005

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


GOSTEI 0
POSTAR