Компонент TADOUpdateSQL

Здесь представлены работающие компоненты обновления данных, полученных запросом через TADOQuery, аналогичные компонентам BDE TQuery,TUpdateSQL

Компоненты TADOUpdateQuery, TADOUpdateSQL выполняют в точности те же функции что и компоненты BDE TQuery,TUpdateSQL.
Это может способствовать быстрому переводу программ с BDE на ADO. Компоненты работающие (в исходных текстах есть комментарии), но до полной совместимости необходимы доработки, например: отсутствуют события onUpdateRecord, onUpdateError.
Предлагаю всем подключится и довести дело до конца.

procedure TForm1.Button1Click(Sender: TObject);
begin
 PowerControl1.Action := actCDEject; // Или...
 actLogOFF, actShutDown...PowerControl1.Execute;
end;
= = = = = = = = = = = = = = = = = = = = = = = = = Component Code: unit
 PowerControl;
interface uses WinTypes, WinProcs, Messages,
 SysUtils, Classes, Controls, Forms, Graphics,
 MMSystem;
type
 TAction =
 (actLogOFF, actShutDown, actReBoot, actForce, actPowerOFF,
 actForceIfHung, actMonitorOFF, actMonitorON, actCDEject, actCDUnEject);
type
 TPowerControl = class(TComponent)
 private
 FAction: TAction;
 procedure
 SetAction(Value: TAction);
 protected
 public
 function Execute:
 Boolean;
 published
 property Action:
 TAction read FAction write SetAction;
 end;
procedure Register;

implementation

procedure register;
begin
 RegisterComponents('K2', [TPowerControl]);
end;

procedure TPowerControl.SetAction(Value: TAction);
begin
 FAction := Value;
end;

function TPowerControl.Execute: Boolean;
begin
 with (Owner as TForm) do
 case FAction of
 actLogOff:
 ExitWindowsEx(EWX_LOGOFF, 1);
 actShutDown:
 ExitWindowsEx(EWX_SHUTDOWN, 1);
 actReBoot:
 ExitWindowsEx(EWX_REBOOT, 1);
 actForce:
 ExitWindowsEx(EWX_FORCE, 1);
 actPowerOff:
 ExitWindowsEx(EWX_POWEROFF, 1);
 actForceIfHung:
 ExitWindowsEx(EWX_FORCEIFHUNG, 1);
 actMonitorOFF:
 SendMessage(Application.Handle,
 WM_SYSCOMMAND,
 SC_MONITORPOWER, 0);
 actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND,

 SC_MONITORPOWER, -1);
 actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Handle);
 actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED WAIT', nil, 0,
 Handle);
 end; {Case}
 Result := True;
end;
end.