Beispiel 1 SQL Script

Ermittlung der genommenen Urlaubstage für einen Mitarbeiter.

object SQL_AP_Uzeit_22: TLabel_SQL

  Tag = 101

  Left = 230

  Top = 105

  Width = 6

  Height = 13

  Caption = '0'

  Transparent = True

  SQL.Strings = (

      ''

    'SELECT str(((SUM(DATEDIFF (minute, '#39'18991230'#39',zeitmessung.dauer))*1)/540.00),5,1) FROM zeitmessung  inner join mitarbeiter on mitarbeiter.mitarbeiter = zeitmessung.Mitarbeiter  WHERE  zeitmessung.art = 1002  and zeitmessung.mitarbeiter =:Mitarbeiter and  Zeitmessung.[Datum] >='#39'20220101'#39' and  Zeitmessung.[Datum]  <=format(getdate(), '#39'yyyyMMdd '#39') ' 

  ) 

  MasterSource = Mitarbeiter.Scr_Mitarbeiter

  Connection = Hauptfenster.ADOConnection1

  DatabaseName = 'Kaufmann'

  SessionName = 'Session1_1'

end

Das Ergebnis wird in der Maske angezeigt.