-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathMainModule.dfm
114 lines (112 loc) · 2.46 KB
/
MainModule.dfm
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
object UniMainModule: TUniMainModule
OldCreateOrder = False
OnCreate = UniGUIMainModuleCreate
MonitoredKeys.Keys = <>
RTL = False
Height = 542
Width = 291
object DataSource1: TDataSource
DataSet = AppUsers
Left = 24
Top = 88
end
object DataSource2: TDataSource
DataSet = Aliases
Left = 24
Top = 144
end
object WebLogs: TZReadOnlyQuery
Connection = DataConnection
SQL.Strings = (
'select * from weblogs order by id desc;')
Params = <>
FetchRow = 100
Left = 104
Top = 208
end
object DataSource3: TDataSource
DataSet = WebLogs
Left = 24
Top = 208
end
object InsertQ: TZQuery
Connection = DataConnection
Params = <>
Left = 200
Top = 88
end
object AppUsers: TZTable
Connection = DataConnection
TableName = 'users'
Left = 104
Top = 88
end
object Aliases: TZTable
Connection = DataConnection
TableName = 'aliases'
Left = 104
Top = 144
end
object SelectQ: TZReadOnlyQuery
Connection = DataConnection
Params = <>
Left = 200
Top = 144
end
object ReportGen: TZReadOnlyQuery
Connection = DataConnection
SQL.Strings = (
'select weblogs.ip, count(weblogs.ip), aliases.description from w' +
'eblogs, aliases'
'where weblogs.ip=aliases.ip '
' group by weblogs.ip '
'order by count(weblogs.ip) desc;')
Params = <>
FetchRow = 100
Left = 104
Top = 280
end
object DataSource4: TDataSource
DataSet = ReportGen
Left = 24
Top = 280
end
object DataConnection: TZConnection
ControlsCodePage = cCP_UTF16
Catalog = ''
HostName = ''
Port = 0
Database = 'logger.db'
User = ''
Password = ''
Protocol = 'mysql'
Left = 24
Top = 24
end
object DataSource5: TDataSource
DataSet = DHCPLogsQuery
Left = 24
Top = 344
end
object DHCPLogsQuery: TZReadOnlyQuery
Connection = DataConnection
SQL.Strings = (
'select * from dhcplogs where time>='#39'2012-07-11'#39' and time<='#39'2012-' +
'07-11'#39';')
Params = <>
FetchRow = 100
Left = 104
Top = 344
end
object Settings: TZTable
Connection = DataConnection
TableName = 'settings'
Left = 104
Top = 416
end
object DataSource6: TDataSource
DataSet = Settings
Left = 32
Top = 416
end
end