Ver Mensaje Individual
  #1  
Antiguo 23-02-2005
MasterXP MasterXP is offline
Miembro
 
Registrado: ene 2005
Posts: 193
Reputación: 22
MasterXP Va por buen camino
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.
Responder Con Cita