LL_Check/llStatFrm.dfm at main · mgaeckler1964/LL_Check · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
object llStatForm: TllStatForm
  Left = 304
  Top = 447
  Width = 961
  Height = 410
  Caption = 'LL Statistics'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 73
    Width = 945
    Height = 298
    Align = alClient
    DataSource = theDataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 945
    Height = 73
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 432
      Top = 8
      Width = 22
      Height = 13
      Caption = 'Sort:'
    end
    object DateTimePicker: TDateTimePicker
      Left = 232
      Top = 8
      Width = 186
      Height = 21
      CalAlignment = dtaLeft
      Date = 37382
      Time = 37382
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object OneDay: TCheckBox
      Left = 128
      Top = 8
      Width = 97
      Height = 17
      Caption = 'One Day'
      TabOrder = 1
    end
    object Calc: TButton
      Left = 8
      Top = 32
      Width = 75
      Height = 25
      Caption = 'Calc'
      TabOrder = 4
      OnClick = CalcClick
    end
    object IgnoreObjId: TCheckBox
      Left = 8
      Top = 8
      Width = 97
      Height = 17
      Caption = 'Ignore Object ID'
      TabOrder = 0
    end
    object ChartButton: TButton
      Left = 88
      Top = 32
      Width = 75
      Height = 25
      Caption = 'Chart'
      TabOrder = 5
      OnClick = ChartButtonClick
    end
    object SortComboBox: TComboBox
      Left = 464
      Top = 8
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        'Count'
        'Average Time'
        'Max. Time'
        'Total Time')
    end
  end
  object theQuery: TQuery
    DatabaseName = 'llCheck_DB'
    SQL.Strings = (

        'select'#9'substr( lower(func) || '#39'('#39' || to_char( object_id ) || '#39')'#39 +
        ', 1, 255 ) as request,'
      #9#9'count(*) as counter,'
      #9#9'min( exec_time ) as mini,'
      #9#9'round( avg( exec_time ), 3 ) as average,'
      #9#9'max( exec_time ) as maxi,'
      #9#9'sum( exec_time ) as total_time,'
      #9#9'min( request_date_time ) as first_call,'
      #9#9'max( request_date_time ) as last_call'
      'from'#9'llthread'

        'where'#9'request_date_time >= :startDate and request_date_time < :e' +
        'ndDate'

        'group by substr( lower(func) || '#39'('#39' || to_char( object_id ) || '#39 +
        ')'#39', 1, 255 )'
      'order by counter desc'
      ''
      ' '
      ' ')
    Left = 80
    Top = 104
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'startDate'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'endDate'
        ParamType = ptInput
        Value = 0d
      end>
    object theQueryREQUEST: TStringField
      DisplayLabel = 'Request'
      DisplayWidth = 40
      FieldName = 'REQUEST'
      Size = 255
    end
    object theQueryCOUNTER: TFloatField
      DisplayLabel = 'Count'
      FieldName = 'COUNTER'
    end
    object theQueryMINI: TFloatField
      DisplayLabel = 'Min. Time'
      DisplayWidth = 10
      FieldName = 'MINI'
    end
    object theQueryAVERAGE: TFloatField
      DisplayLabel = 'Avg. Time'
      FieldName = 'AVERAGE'
    end
    object theQueryMAXI: TFloatField
      DisplayLabel = 'Max. Time'
      FieldName = 'MAXI'
    end
    object theQueryTOTAL_TIME: TFloatField
      DisplayLabel = 'Total Time'
      FieldName = 'TOTAL_TIME'
    end
    object theQueryFIRST_CALL: TDateTimeField
      DisplayLabel = 'First Call'
      FieldName = 'FIRST_CALL'
    end
    object theQueryLAST_CALL: TDateTimeField
      DisplayLabel = 'Last Call'
      FieldName = 'LAST_CALL'
    end
  end
  object theDataSource: TDataSource
    DataSet = theQuery
    Left = 24
    Top = 104
  end
end