Search options (Page 4 of 5)

b := SQLExecute('SELECT group_concat(FIO, char(13)) FROM UserCO WHERE DATE_FORMAT(DataRoghd, ''%d.%m'')=DATE_FORMAT(''now'', ''%d.%m'',)');
if b <>'' then
begin
MessageDlg('Сегодня празднует День рождения:' +#13#10 +#13#10 +b, mtInformation, mbOK, 0 );
end;

procedure frmLogin_OK_OnClick (Sender: string; var Cancel: boolean);  
   var
    s: string;
 begin

     // SQL запрос логина и пароля пользователя
    s:= VarToStr( SQLExecute('SELECT password FROM UserCO WHERE (FIO_login = ''' + frmLogin.ComboBox1.Text + ''');') );
      idUser:= SQLExecute('SELECT id FROM UserCO WHERE (FIO_Login = ''' + frmLogin.ComboBox1.Text + ''');');
      idOtdel := SQLExecute ('SELECT id_StrukturnOtdelCO FROM UserCO WHERE id='+IntToStr(idUser));

        // если логин и пароль найдены ////
       if s= frmLogin.Edit1.Text then
      begin
          sUser := frmLogin.ComboBox1.Text; 
     // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT Admin FROM UserCO WHERE (FIO_Login = ''' + sUser + ''');') );
          if s='0' then

SELECT

StrukturnOtdelCO.NameStructOtd,
strftime('%d.%m.%Y',{DateTimePicker1}) as dateFrom,
strftime('%d.%m.%Y',{DateTimePicker2}) as dateTo,

(
SELECT TOTAL(Fine.FineMoney) FROM Fine WHERE
(date({DateTimePicker1}) <= date(Fine.DataFine) AND date({DateTimePicker2}) >= date(Fine.DataFine)) AND
Fine.id_StrukturnOtdelCO = StrukturnOtdelCO.id
),

(
SELECT TOTAL(Prize.PrizeMoney) FROM Prize WHERE
(date({DateTimePicker1}) <= date(Prize.DataPrize) AND date({DateTimePicker2}) >= date(Prize.DataPrize)) AND
Prize.id_StrukturnOtdelCO = StrukturnOtdelCO.id
),



(
SELECT TOTAL(Prize.PrizeMoney) FROM Prize WHERE
(date({DateTimePicker1}) <= date(Prize.DataPrize) AND date({DateTimePicker2}) >= date(Prize.DataPrize)) AND
Prize.id_StrukturnOtdelCO = StrukturnOtdelCO.id
)
-
(
SELECT TOTAL(Fine.FineMoney) FROM Fine WHERE
(date({DateTimePicker1}) <= date(Fine.DataFine) AND date({DateTimePicker2}) >= date(Fine.DataFine)) AND
Fine.id_StrukturnOtdelCO = StrukturnOtdelCO.id
),

StrukturnOtdelCO.id

FROM StrukturnOtdelCO

WHERE

CASE WHEN '{Edit1}'<>'' THEN StrukturnOtdelCO.NameStructOtd LIKE '%{Edit1}%' ELSE 1=1 END

(
SELECT TOTAL(Prize.PrizeMoney) FROM Prize WHERE
(date({DateTimePicker1}) <= date(Prize.DataPrize) AND date({DateTimePicker2}) >= date(Prize.DataPrize)) AND
Prize.id_StrukturnOtdelCO = StrukturnOtdelCO.id
)
-
(
SELECT TOTAL(Fine.FineMoney) FROM Fine WHERE
(date({DateTimePicker1}) <= date(Fine.DataFine) AND date({DateTimePicker2}) >= date(Fine.DataFine)) AND
Fine.id_StrukturnOtdelCO = StrukturnOtdelCO.id
),