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.