LL_Check/llExportFrm.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
object llExportForm: TllExportForm
  Left = 606
  Top = 349
  BorderStyle = bsDialog
  Caption = 'Export Timings'
  ClientHeight = 214
  ClientWidth = 523
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 112
    Width = 25
    Height = 13
    Caption = 'Path:'
  end
  object Label2: TLabel
    Left = 8
    Top = 8
    Width = 39
    Height = 13
    Caption = 'Servers:'
  end
  object StatusLabel: TLabel
    Left = 8
    Top = 144
    Width = 30
    Height = 13
    Caption = 'Status'
  end
  object PathEdit: TEdit
    Left = 56
    Top = 112
    Width = 457
    Height = 21
    TabOrder = 1
    OnChange = EnableDisableOK
  end
  object ServerListBox: TListBox
    Left = 56
    Top = 8
    Width = 457
    Height = 97
    ExtendedSelect = False
    ItemHeight = 13
    MultiSelect = True
    Sorted = True
    TabOrder = 0
    OnClick = EnableDisableOK
  end
  object StartStopButton: TButton
    Left = 8
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Start'
    Default = True
    TabOrder = 3
    OnClick = StartStopButtonClick
  end
  object CancelCloseButton: TButton
    Left = 88
    Top = 184
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 4
    OnClick = CancelCloseButtonClick
  end
  object ProgressBar: TProgressBar
    Left = 8
    Top = 160
    Width = 505
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 2
  end
  object ServerQuery: TQuery
    DatabaseName = 'llCheck_DB'
    SQL.Strings = (
      'select distinct server_name'
      'from server')
    Left = 120
    Top = 32
  end
  object TimingsQuery: TQuery
    DatabaseName = 'llCheck_DB'
    SQL.Strings = (
      'select * '
      'from llthread, server'
      'where llthread.server = server.id')
    UniDirectional = True
    Left = 200
    Top = 32
    object TimingsQueryREQUEST_DATE_TIME: TDateTimeField
      FieldName = 'REQUEST_DATE_TIME'
      Origin = 'LLCHECK_DB.LLTHREAD.REQUEST_DATE_TIME'
    end
    object TimingsQuerySTART_TICK: TFloatField
      FieldName = 'START_TICK'
      Origin = 'LLCHECK_DB.LLTHREAD.START_TICK'
    end
    object TimingsQueryTHREAD: TFloatField
      FieldName = 'THREAD'
      Origin = 'LLCHECK_DB.LLTHREAD.THREAD'
    end
    object TimingsQueryFUNC: TStringField
      FieldName = 'FUNC'
      Origin = 'LLCHECK_DB.LLTHREAD.FUNC'
      Size = 255
    end
    object TimingsQueryEXEC_TIME: TFloatField
      FieldName = 'EXEC_TIME'
      Origin = 'LLCHECK_DB.LLTHREAD.EXEC_TIME'
    end
    object TimingsQuerySQL_TIME: TFloatField
      FieldName = 'SQL_TIME'
      Origin = 'LLCHECK_DB.LLTHREAD.SQL_TIME'
    end
    object TimingsQuerySQL_COUNT: TFloatField
      FieldName = 'SQL_COUNT'
      Origin = 'LLCHECK_DB.LLTHREAD.SQL_COUNT'
    end
    object TimingsQueryGENERATE_TIME: TFloatField
      FieldName = 'GENERATE_TIME'
      Origin = 'LLCHECK_DB.LLTHREAD.GENERATE_TIME'
    end
    object TimingsQueryOBJECT_ID: TFloatField
      FieldName = 'OBJECT_ID'
      Origin = 'LLCHECK_DB.LLTHREAD.OBJECT_ID'
    end
    object TimingsQueryPARENT_ID: TFloatField
      FieldName = 'PARENT_ID'
      Origin = 'LLCHECK_DB.LLTHREAD.PARENT_ID'
    end
    object TimingsQueryMISRC_ARGS: TStringField
      FieldName = 'MISRC_ARGS'
      Origin = 'LLCHECK_DB.LLTHREAD.MISRC_ARGS'
      Size = 255
    end
    object TimingsQueryERROR: TStringField
      FieldName = 'ERROR'
      Origin = 'LLCHECK_DB.LLTHREAD.ERROR'
      Size = 255
    end
    object TimingsQuerySERVER_NAME: TStringField
      FieldName = 'SERVER_NAME'
      Origin = 'LLCHECK_DB.LLTHREAD.ID'
      Size = 255
    end
  end
  object CountQuery: TQuery
    DatabaseName = 'llCheck_DB'
    SQL.Strings = (
      'select count(*) as counter'
      'from llthread, server'
      'where llthread.server = server.id')
    UniDirectional = True
    Left = 280
    Top = 32
    object CountQueryCOUNTER: TFloatField
      FieldName = 'COUNTER'
    end
  end
  object threadTimer: TTimer
    Enabled = False
    OnTimer = threadTimerTimer
    Left = 184
    Top = 184
  end
end