141
dmData.RemoteMethods.MessageSendEmail(ReceiverID);
dmData.cdsMessageReceiver.Refresh;
MessageDlg('Email cообщение успешно отправлено!', mtConfirmation,
[mbOK, mbCancel], 0)
end;
end;
procedure TfMessageEditor.aSendSMSExecute(Sender: TObject);
var
ReceiverID: Integer;
begin
dmData.TestActiveConnection;
if dmData.cdsMessageReceiver.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
if (MessageDlg(c_confirm_message_send_by_sms, mtConfirmation, [mbOK,
mbCancel], 0) = mrOk) then
begin
DataSave;
ReceiverID :=
dmData.cdsMessageReceiver.FieldByName('Код_Получатель').AsInteger;
dmData.RemoteMethods.MessageSendSms(ReceiverID);
dmData.cdsMessageReceiver.Refresh;
MessageDlg('SMS cообщение успешно отправлено!', mtConfirmation,
[mbOK, mbCancel], 0)
end;
end;
procedure TfMessageEditor.aUserAddExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
fUser.SelectorMode := True;
142
if fUser.ShowModal = mrOk then
begin
dmData.RemoteMethods.MessageReceiverAdd(fUser.ID);
dmData.cdsMessageReceiver.Refresh;
end;
end;
procedure TfMessageEditor.aUserDeleteExecute(Sender: TObject);
var
ReceiverID: Integer;
begin
dmData.TestActiveConnection;
if dmData.cdsMessageReceiver.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
if (MessageDlg(c_Confirm_Delete_record, mtConfirmation, [mbOK,
mbCancel], 0) = mrOk) then
begin
ReceiverID :=
dmData.cdsMessageReceiver.FieldByName('Код_Получатель').AsInteger;
dmData.RemoteMethods.MessageReceiverDel(ReceiverID);
dmData.cdsMessageReceiver.Refresh;
end;
end;
procedure TfMessageEditor.bOkClick(Sender: TObject);
begin
DataSave;
ModalResult := mrOk;
end;
procedure TfMessageEditor.bSendClick(Sender: TObject);
143
var
I: Integer;
Msg: string;
begin
dmData.TestActiveConnection;
if (MessageDlg(c_confirm_message_send, mtConfirmation, [mbOK,
mbCancel], 0) = mrOk) then
begin
DataSave;
dmData.RemoteMethods.MessageSend;
try
fInfo.mInfo.Lines.Clear;
fInfo.mInfo.Lines.Add('Отчет по отправке сообщения через
внутреннюю почту системы:');
for I := 1 to dmData.cdsMessageReceiver.RecordCount do
begin
dmData.cdsMessageReceiver.RecNo := I;
try
Msg := 'Отправлено';
except
on E: Exception do
begin
Msg := E.Message;
end;
end;
fInfo.mInfo.Lines.Add(IntToStr(I) + '. ' +
dmData.cdsMessageReceiverПользователь.Value + ': ' + Msg);
end;
if dmData.cdsMessageОтправлять_смс.Value then
144
begin
fInfo.mInfo.Lines.Add('');
fInfo.mInfo.Lines.Add('Отчет по отправке SMS:');
for I := 1 to dmData.cdsMessageReceiver.RecordCount do
begin
dmData.cdsMessageReceiver.RecNo := I;
try
dmData.RemoteMethods.MessageSendSms(dmData.cdsMessageReceiverКод_Получ
атель.Value);
Msg := 'Отправлено';
except
on E: Exception do
begin
Msg := E.Message;
end;
end;
fInfo.mInfo.Lines.Add(IntToStr(I) + '. ' +
dmData.cdsMessageReceiverПользователь.Value + ': ' + Msg);
end;
end;
if dmData.cdsMessageОтправлять_смс.Value then
begin
fInfo.mInfo.Lines.Add('');
fInfo.mInfo.Lines.Add('Отчет по отправке Email:');
for I := 1 to dmData.cdsMessageReceiver.RecordCount do
begin
dmData.cdsMessageReceiver.RecNo := I;
try
145
dmData.RemoteMethods.MessageSendEmail(dmData.cdsMessageReceiverКод_Полу
чатель.Value);
Msg := 'Отправлено';
except
on E: Exception do
begin
Msg := E.Message;
end;
end;
fInfo.mInfo.Lines.Add(IntToStr(I) + '. ' +
dmData.cdsMessageReceiverПользователь.Value + ': ' + Msg);
end;
end;
fInfo.ShowModal;
finally
dmData.cdsMessage.Refresh;
dmData.cdsMessageReceiver.Refresh;
end;
end;
end;
procedure TfMessageEditor.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
dmData.cdsMessage.Cancel;
end;
procedure TfMessageEditor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
146
Close;
end;
procedure TfMessageEditor.FormShow(Sender: TObject);
begin
dmData.cdsMessage.Refresh;
dmData.cdsMessageReceiver.Refresh;
end;
end.
