Algo mas sobre ADOTable

[Ledian_Fdez]

Hola amigos:

Pues hoy estoy acá con la siguiente inquietud.

Antes que nada decirle quiero que mi aplicación esta en Delphi7, la Base de Datos en Access y me conecto a través de ADO.

Supongamos que tenemos una ADOTable1 con una serie de controles y entre ellos el Button1. Mi pregunta es: ¿Cómo podré deshabilitar el Button1 mientras que el ADOTable1 este en edición o insertándole un nuevo registro, en fin que se estén manipulando sus datos, para después ser guardado?

El problema es que el Button1 me llama a un formulario donde me es necesario que el usuario no intente llegar a el sin antes tener guardado todos los datos del ADOTable1.

Espero que me hayan entendido.

Salu2
Ledian

[roman]

Aunque no es exactamente lo que preguntas, podrías comenzar el código de ese botón preguntando por el estado del dataset:


procedure TForm1.Button1Click(Sender: TObject);
begin
if not (ADOTable1.State in dsEditModes) then
begin
{
Aquí tu código
}
end;
end;


De esta manera te aseguras de no abrir esa ventana si el dataset está en edición o inserción.

Más allá de eso, si usas un ActionList para las acciones de tus botones, puedes usar su evento OnUpdate para ese tipo de cosas:


Action1.Enabled := not (ADOTAble1.State in dsEditModes);


// Saludos

[Ledian_Fdez]

Roman este codigo:


procedure TModelo1Form.RxSpeedButton8Click(Sender: TObject);
begin
if not (DM.TblModelo1.State in dsEditModes) then
begin
Try
Application.CreateForm(TAnalisisForm, AnalisisForm);
AnalisisForm.ShowModal;
Finally
AnalisisForm.Free;
AnalisisForm := nil;
End
end
else ShowMessage('Debes guardar los datos primero');
end;


me genera el sgte error:
[Error] Modelo1.pas(127): Undeclared identifier: 'dsEditModes'


salu2
Ledian

[roman]

¿Y crees que poniéndome un signo de desaprobación es la mejor manera de pedir ayuda?

// Saludos

[Ledian_Fdez]

Lo siento. No entiendo lo que me quieres desir.

Salu2
Ledian

[Caral]

Hola
Vamos Roman, que se refiere al error, no te lo tomes personal.:)
Prueba asi:

procedure TModelo1Form.RxSpeedButton8Click(Sender: TObject);
begin
If not (DM.TblModelo1.State = dsEdit) or (DM.TblModelo1.State = dsInsert) then
begin
Try
Application.CreateForm(TAnalisisForm, AnalisisForm);
AnalisisForm.ShowModal;
Finally
AnalisisForm.Free;
AnalisisForm := nil;
End
end
else ShowMessage('Debes guardar los datos primero');
end;
Saludos

[Ledian_Fdez]

Roman, Caral tiene razon, no me mal interprete. Me referia al ERROR.


Bueno volviendo al tema señores el error persiste. Tendré que agregar alguna use, o tendré alga mal escrito, por favor les agradesería que me ayudaran con esto.

Salu2
Ledian

[Caral]

Hola
Perdona pero no te puede salir el mismo error.
Cual error te da?.
Saludos

[Ledian_Fdez]

[Error] Modelo1.pas(115): Undeclared identifier: 'dsIsert'
[Error] Modelo1.pas(115): Undeclared identifier: 'dsEdit'

[Caral]

Hola
Estos son los uses que tengo, quizás sea el problema, no lo se.

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, ComCtrls, DB, ADODB,
Buttons, Grids, DBGrids;
Revisalo.
Saludos

[Ledian_Fdez]

Así mismo, ese era el problema.
Tenía que agregar al uses DB y ya me funciona, aunque en el Insert no me funciona bien, pero busque en la ayuda y mi código me queó asi:

if (DM.TblModelo1.State = dsBrowse) then
begin
Try
Application.CreateForm(TAnalisisForm, AnalisisForm);
AnalisisForm.ShowModal;
Finally
AnalisisForm.Free;
AnalisisForm := nil;
End
end
else ShowMessage('Debes guardar los datos primero');

Aunque a decir verdad. En si no es lo que buscaba pero bueno, podría usarse momentáneamente de esa manera.

Caral miles de gracias por tu paciencia


Salu2
Ledian