Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   DBGrid (Edit ? Update?) (https://www.clubdelphi.com/foros/showthread.php?t=18790)

MasterXP 23-02-2005 07:49:30

DBGrid (Edit ? Update?)
 
Hola amigos.

Resulta que como siempre me encuentro con un problema nuevo. Los componentes que uso son:

-TDBLookupComboBox
-Tquery
-TDaraSource
-DBgrid
-Botones

con este codigo hago que cuando el usuario seleccione una celda del DBGrid y pulse el boton borrar, borre el registro:
Código Delphi [-]
var
   Form4: TForm4;
   BancaTemp:Integer;

La variable BancaTemp declarada globalmente. Ahora el codigo en si:

Código Delphi [-]
procedure TForm4.Borrar_btnClick(Sender: TObject);
 begin
 IF (DBGrid1.SelectedField.FieldName='BANCA') AND (BancaTemp=NULL) Then
 Showmessage('Seleccione El Registro Que Desea Borrar');
 if (DBGrid1.SelectedField.FieldName<>'BANCA') Then
 Begin
 With Datamodule1.QueryGeneral DO
 Begin
 SQL.Clear;
 SQL.Add('Delete From empleados Where '+DBgrid1.SelectedField.FieldName+'='+QuotedStr(DBgrid1.SelectedField.Value)+' AND Banca='+intTosTR(BancaTemp));
 ExecSQL;
 end;
 END ELSE
 With Datamodule1.QueryGeneral DO
 Begin
 SQL.Clear;
 SQL.Add('Delete From empleados Where Banca ='+intTosTR(BancaTemp));
 ExecSQL;
 end;
 end;

Pero como hacer para poner el DBgrid en modo Edit para que el usuario introdusca un nuevo valor en el campo que desee??

he probado de varias maneras y no me sale nada, con un ADOquery y un TDBNavigator lo he hecho funcionar, pero no quiero un TDBNavigator, quiero hacerlo por botones creados por mi mismo, y con el componente Tquery.

Alguna sugerencia??
Necesitare obligatoriamente un ADOquery y TDBNavigator para esto :( ?

salu2.


La franja horaria es GMT +2. Ahora son las 06:36:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi