Search options (Page 271 of 400)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
       Form1.DBImage1.dbCopyTo := '\Covers\'+Form1.EditBox1.Text;
end;

procedure frmReestrVidmovu_Button2_OnAfterClick (Sender: string);
var
    email,msg: string;
begin
    // узнаем email выбранного адвоката в cbAdvokat    
    email := SQLExecute('SELECT email FROM Rejestr_advokatov WHERE id='+frmReestrVidmovu.cbAdvokat.sqlValue);

    // если e-mail есть, то формируем сообщение и отправляем
    if email <>'' then 
    begin
        msg := 'Дата відмови: ' + DateToStr(frmReestrVidmovu.DateTimePicker1.DateTime)+#13;
        msg := msg + 'Час відмови: ' + TimeToStr(frmReestrVidmovu.DateTimePicker2.DateTime)+#13;
        msg := msg + 'Реєстраційний номер відмови: '+ frmReestrVidmovu.edIdYear.Text+#13;
        msg := msg + 'Орган повідомлення' + frmReestrVidmovu.ComboBox3.Text;
        SendMail('smtp.mail.ru', 'login', 'password', 465, 'yourmail@mail.ru', 'tomail@gmail.com', 'Тема письма', msg, '');
    end;

end;

               //0 sDate
               if arrStr[0]<>'' then
                  sDate := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[0])) + '"'
                  else sDate := 'NULL';

               //2 id_raion
               if arrStr[2] <> '' then
               begin
                    sid_raion := SQLExecute ('SELECT id FROM raion WHERE raion LIKE "' + arrStr[2] +'"');
                    if sid_raion = '' then
                    begin
                         SQLExecute ('INSERT INTO raion (raion) VALUES ("'+ arrStr[2] +'");');
                         sid_raion := IntToStr(Last_Insert_id('raion'));
                         if sid_raion = '-1' then sid_raion := 'NULL';
                    end;
               end else sid_raion := 'NULL';