-
Notifications
You must be signed in to change notification settings - Fork 0
/
UKwatPlanWyjazdow.frm
705 lines (705 loc) · 23.9 KB
/
UKwatPlanWyjazdow.frm
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
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
object KwatPlanWyjazdow: TKwatPlanWyjazdow
Left = 180
Height = 564
Top = 178
Width = 1038
Caption = 'Harmonogram planowanych wyjazdów.'
ClientHeight = 564
ClientWidth = 1038
Constraints.MinHeight = 500
Constraints.MinWidth = 1000
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '6.6'
WindowState = wsMaximized
object Panel5: TPanel
Left = 0
Height = 50
Top = 0
Width = 1038
Align = alTop
BevelOuter = bvNone
ClientHeight = 50
ClientWidth = 1038
Color = clWhite
ParentColor = False
TabOrder = 0
object plGradient2: TplGradient
Left = 0
Height = 50
Top = 0
Width = 1038
Align = alClient
BevelWidth = 1
BevelStyle = bvNone
Buffered = True
Direction = gdUpLeft
ColorStart = clSkyBlue
ColorEnd = clWhite
StepWidth = 1
Style = gsHorizontal
end
object Label1: TLabel
Left = 64
Height = 19
Top = 16
Width = 301
Caption = 'Harmonogram planowanych wyjazdów.'
Font.CharSet = EASTEUROPE_CHARSET
Font.Color = 16731983
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Image1: TImage
Left = 16
Height = 32
Top = 9
Width = 32
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869638104000089504E47
0D0A1A0A0000000D494844520000002000000020080300000044A48AC6000000
0373424954080808DBE14FE000000009704859730000080E0000080E01731045
850000001974455874536F667477617265007777772E696E6B73636170652E6F
72679BEE3C1A00000222504C5445FFFFFF00FFFF008080BF404033B3B337B6A4
39B8AAA64D4038BFA73CBCA53ABDA837BCA638BDA83CBEA738BAA939BAA63CBB
A738BCA963BCA93ABDA73BBDA639BCA75E5E5E3ABCA750827B39BBA83DB8A53B
BCA749AB99A4C1ADA248403ABCA639BBA7A3484039BDA75F5F5F3ABCA73ABCA6
3ABCA7916B5E39BBA79FA0943ABCA73ABCA83ABCA73ABCA73ABCA798524A3ABC
A739BCA73ABCA73ABCA73ABCA76060603ABCA73BBCA73CBDA83DBDA83EBAA53E
BBA43EBDA83EBDA93FBEA940BEAA42BFAA42BFAB44BFAB46B89D46B99E46C0AC
46C0AD47B89D49C1AE4BC2AF4CC2AF4DC2AF4EC3B050C4B155C5B356C5B357C6
B458C6B459C7B55AC7B55BC7B65EC8B760C9B861C9B865C4AF66CBBB6ACCBC6D
CDBE6ECEBE6FCEBF70CEBF72CFC076D0C282D4C783D5C783D5C885D5C8868D7A
8AD7CB8B8A778CB9A88D695791D9CE92655992DACE93D8CA97DCD19BDDD29CB1
70A15345A1A465A34740A37F68A4E0D6A77866A7E1D8A9E2D9ABBBA9AF964CAF
E4DBB3C6B1B4E6DEB99E54BAA64ABAE8E0BB9A44BC9A43BCE8E1C0E9E3C1953E
C2953DC2EAE4C3953CC4943CC5913AC5EBE5C7AC55C7ECE6C8EAE1C8ECE6CBED
E8CE654ED0A14DD39E39D3C3AFD4AF56D65A4AD6C4B1D6F1EDD75A4AD7F1EDD8
F2EED9F2EEDBF3EFDDA552E18C25E2D9C3E2F5F2E3F6F3E4F6F3E5B45DE6F7F4
E7F7F4E9F7F5E9F8F5ECDCC7F19C22F1FAF9F29C21F29C22F3FBF9F4FBFAF5FC
FBF6FCFBF8FDFCF9FDFCFDFEFEFFFFFFD70C2D9A0000003674524E5300010204
0A0E12142022232E32373B3F4044505D646B6D6E76787A828283879097A0ADB2
B4BEC2C3C8CAD0D2E0E2E3E7EDF4F9FBFCFC745517C10000018F4944415438CB
636060E056D233C3028CB5E559194040D8C80C17D0E100CA731A9AE1066A4C0C
0CD266F8000F03830A9C939287A94084814103C68EDB1C8BA94012A2C0D3DCCC
2C647D1A48C4D61E06EC9014CCEAF6F05C5A0E12705BB71506B6042314784D58
3EA7DD026CA66F100CF82199606691DFEF88D51792488EA48282E864FC0A4237
E057E0B3A214B715332AEC1C67B70043CBCC75EE52185814885010BA7076FF2C
07B096C87818883147B2C2A961B137A6F956E9A952F8BC695536739A3A336E05
D62533A76517CBE154605D3F79627671B1229282FC7214F935ABAA0A8BF5D911
0A123786A1CA37CDEFCA948138321C9838A2362580BCD3DC0B027D4BD6AC9D37
7F7EAB0BD49B13E6F807ACCE01E9344FC90282DCA96BD64E9A3FBFCD05140EAA
406187DAF5CBAAD1CD07C99B893330C883C592AA2D110A0AD6AC6A04CA3B0399
FC0C0CFC181EB459D00394EF00C9EBB200B39602BA8288953575F33BDD812C13
4150DE64143540559051397D4A11485E8B97010AB8F8051040C25453560848F3
B1316007CA62285C00BA8CFA27CC4D8D1B0000000049454E44AE426082
}
Stretch = True
end
end
object WeekPanel: TPanel
Left = 0
Height = 277
Top = 82
Width = 1038
Align = alClient
BevelOuter = bvNone
Constraints.MinHeight = 200
TabOrder = 2
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 359
Width = 1038
Align = alBottom
ResizeAnchor = akBottom
end
object PageControl1: TPageControl
Left = 0
Height = 200
Top = 364
Width = 1038
ActivePage = TabSheet1
Align = alBottom
TabIndex = 0
TabOrder = 3
object TabSheet1: TTabSheet
Caption = 'Plan Wyjazdów'
ClientHeight = 172
ClientWidth = 1030
object Panel2: TPanel
Left = 0
Height = 172
Top = 0
Width = 1030
Align = alClient
BevelOuter = bvNone
ClientHeight = 172
ClientWidth = 1030
TabOrder = 0
object Panel1: TPanel
Left = 0
Height = 172
Top = 0
Width = 143
Align = alLeft
BevelOuter = bvNone
ClientHeight = 172
ClientWidth = 143
TabOrder = 0
object btnZaplanuj: TBitBtn
Left = 8
Height = 30
Top = 8
Width = 128
Caption = 'Zaplanuj'
Images = DM.ImageList1
ImageIndex = 0
OnClick = btnZaplanujClick
TabOrder = 0
end
object btnUsun: TBitBtn
Left = 8
Height = 30
Top = 80
Width = 128
Caption = 'Usuń'
Images = DM.ImageList1
ImageIndex = 44
OnClick = btnUsunClick
TabOrder = 1
end
object btnModyfikuj: TBitBtn
Left = 8
Height = 30
Top = 40
Width = 128
Caption = 'Modyfikuj'
Images = DM.ImageList1
ImageIndex = 39
OnClick = btnModyfikujClick
TabOrder = 2
end
object btnDrukuj: TBitBtn
Left = 8
Height = 30
Top = 136
Width = 128
Caption = 'Drukuj'
Images = DM.ImageList1
ImageIndex = 4
OnClick = btnDrukujClick
TabOrder = 3
end
end
object RxDBGrid1: TRxDBGrid
Left = 143
Height = 172
Top = 0
Width = 887
ColumnDefValues.BlobText = '(blob)'
TitleButtons = True
AutoSort = True
Columns = <
item
Font.Color = clMaroon
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'data_wyjazdu'
Width = 100
FieldName = 'data_wyjazdu'
DisplayFormat = 'DD-MM-YYYY hh:nn'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footer.ValueType = fvtCount
Footers = <>
end
item
Font.Color = clMaroon
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'data_powrotu'
Width = 100
FieldName = 'data_powrotu'
DisplayFormat = 'DD-MM-YYYY hh:nn'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Alignment = taCenter
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'Samochód'
Width = 150
FieldName = 'Nazwa'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Alignment = taCenter
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'Kierowca'
Width = 150
FieldName = 'Kierowca'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'Cel'
Width = 200
FieldName = 'Cel'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'Uwagi'
Width = 200
FieldName = 'Uwagi'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Font.Color = clMaroon
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'Data modyfikacji'
Width = 100
FieldName = 'data_modyfikacji'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end
item
Font.Color = clBlue
Title.Alignment = taCenter
Title.Orientation = toHorizontal
Title.Caption = 'user'
Width = 100
FieldName = 'user'
EditButtons = <>
Filter.DropDownRows = 0
Filter.EmptyValue = '(Empty)'
Filter.NotEmptyValue = '(Not empty)'
Filter.AllValue = '(All values)'
Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1
Footers = <>
end>
KeyStrokes = <
item
Command = rxgcShowFindDlg
ShortCut = 16454
Enabled = True
end
item
Command = rxgcShowColumnsDlg
ShortCut = 16471
Enabled = True
end
item
Command = rxgcShowFilterDlg
ShortCut = 16468
Enabled = True
end
item
Command = rxgcShowSortDlg
ShortCut = 16467
Enabled = True
end
item
Command = rxgcShowQuickFilter
ShortCut = 16465
Enabled = True
end
item
Command = rxgcHideQuickFilter
ShortCut = 16456
Enabled = True
end
item
Command = rxgcSelectAll
ShortCut = 16449
Enabled = True
end
item
Command = rxgcDeSelectAll
ShortCut = 16429
Enabled = True
end
item
Command = rxgcInvertSelection
ShortCut = 16426
Enabled = True
end
item
Command = rxgcOptimizeColumnsWidth
ShortCut = 16427
Enabled = True
end
item
Command = rxgcCopyCellValue
ShortCut = 16451
Enabled = True
end>
FooterOptions.Active = True
FooterOptions.RowCount = 1
FooterOptions.Style = tsNative
FooterOptions.DrawFullLine = False
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
SearchOptions.FromStart = False
OptionsRx = [rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickSearch, rdgAllowQuickFilter, rdgAllowFilterForm, rdgAllowSortForm, rdgAllowToolMenu, rdgCaseInsensitiveSort, rdgWordWrap]
FooterRowCount = 1
Align = alClient
AlternateColor = 15268863
AutoAdvance = aaNone
AutoEdit = False
Color = clWindow
DrawFullLine = False
FocusColor = clHighlight
FixedHotColor = clNone
SelectedColor = clHighlight
GridLineStyle = psSolid
DataSource = DSPlanWyjazdow
DefaultRowHeight = 22
FixedColor = clNone
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgHeaderHotTracking, dgHeaderPushedLook, dgAnyButtonCanSelect, dgDisableDelete, dgDisableInsert, dgCellHints, dgTruncCellHints, dgCellEllipsis, dgDblClickAutoSize]
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 1
TitleStyle = tsNative
end
end
end
object TabSheet2: TTabSheet
Caption = 'Uwagi'
ClientHeight = 172
ClientWidth = 1030
object DBMemoUwagi: TDBMemo
Left = 98
Height = 172
Top = 0
Width = 932
Align = alClient
DataField = 'Uwagi'
DataSource = DSUwagi
MaxLength = 500
ScrollBars = ssAutoBoth
TabOrder = 0
end
object Panel4: TPanel
Left = 0
Height = 172
Top = 0
Width = 98
Align = alLeft
ClientHeight = 172
ClientWidth = 98
TabOrder = 1
object DBNavigator1: TDBNavigator
Left = 1
Height = 25
Top = 146
Width = 96
Align = alBottom
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 96
DataSource = DSUwagi
Options = []
TabOrder = 0
VisibleButtons = [nbPost, nbCancel]
end
end
end
end
object Panel3: TPanel
Left = 0
Height = 32
Top = 50
Width = 1038
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 32
ClientWidth = 1038
TabOrder = 4
object SpeedButton1: TSpeedButton
Left = 8
Height = 22
Top = 4
Width = 23
Flat = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
00000000000000000000000000000000000000000000E56508FFE46A0CFF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000E6670AFFE5801AFFE57816FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000E76907FFED9A2EFFF0B03EFFE26E10FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000E96F08FFEEA139FFF8CB5DFFE99B36FFDC700EFF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000ED7709FFEFAE4AFFF9D06FFFF7C054FFDF9737FFD77821FFE082
25FFDC781FFFDC7819FFDB7213FFDA6B0FFFDA680AFFD35008FF000000000000
0000EE7F0AFFF4BB5FFFFAD885FFF7C765FFF6C059FFEDAF4AFFEAAA41FFE7A5
35FFE89E2BFFE79321FFE48919FFE28211FFE37D0AFFCB4B00FF00000000F188
0CFFF6C671FFFCE19FFFF9CE7AFFF7CA6DFFF6C361FFF6C055FFF6BA4AFFF4B3
3EFFF3AA33FFF1A329FFF09A1FFFEF9217FFEE8B0FFFCE4E02FFF39714FFF9DC
9BFFFEEFD0FFFAD788FFF9D383FFF8CF77FFF7C869FFF5C15BFFF4BB51FFF2B6
45FFF1AC39FFF0A530FFEE9D26FFED941CFFEF9115FFD05406FFF2950EFFF8CF
87FFFFF9ECFFFCE1ACFFF9D583FFF8D27FFFF7CB72FFF6C563FFF4BD54FFF3B5
44FFF2AF3BFFF0A632FFEF9F26FFED951DFFF09718FFD65908FF00000000F386
01FFF5C170FFFFFAECFFFCE2ADFFF9D17DFFF8CF7AFFF7C868FFF6C56AFFF4C2
61FFF3BB53FFF2B447FFF0AE3DFFEFA532FFF09F20FFDA6009FF000000000000
0000F17D00FFF5BB68FFFFFAEBFFFBE1ADFFF9CE70FFF8CC70FFFBE7B6FFFAEA
BEFFF9E2ABFFF8DE9CFFF6D88AFFF6D47FFFF6C34EFFD96209FF000000000000
000000000000EF7800FFF2B35CFFFEF8E4FFFCE7BFFFF8D17CFFF2A73FFBF1A1
37FFF0A031FFEF9A2BFFED9125FFEC8821FFEC8A21FFDF640FFF000000000000
00000000000000000000EE7000FFF1AC50FFFEFDF1FFF9D593FFEA7803FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000ED6F00FFF1AA55FFFAE39FFFED8F1BFF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000ED7104FFEEA031FFED9525FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000EF8307FFED820BFF0000
0000000000000000000000000000000000000000000000000000
}
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 32
Height = 22
Top = 4
Width = 23
Flat = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
00000000000000000000000000000000000000000000C05500FFC05500FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000BF5400FFD47A0BFFC055
00FF000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000BE5100FFF4BA23FFD577
08FFC9681AFF0000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000BE5100FFE69101FFF0AD
15FFD47608FFC96819FF00000000000000000000000000000000CA6713FFC45E
06FFC45E07FFC55F08FFC56009FFC5600AFFC5610BFFCA6709FFE99300FFE18B
00FFF0A90EFFD0730AFFC96818FF000000000000000000000000DC8C25FFFFE7
67FFFFD555FFFDCD47FFFCC63EFFF8BC33FFF5B427FFF3AB1CFFED9F12FFE995
05FFE48C00FFED9E02FFCE720CFFC96817FF0000000000000000DE9128FFFFE6
76FFFAD063FFF8CD56FFF7CA4DFFF6C443FFF4BD39FFF2B32FFFEFA824FFEEA4
1AFFEC9C0EFFE68F02FFEF9B00FFD27C16FFC76312FF00000000E3982EFFFFEB
83FFFBDA6FFFF9D365FFF9CF5CFFF7C952FFF6C749FFF5BF40FFF3B635FFF1B0
2CFFEFA921FFEDA418FFE68A00FFF6BF29FFEDBD65FFC96511FFE9A231FFFFF0
8EFFFDE17AFFFCDC72FFFBD769FFF9D260FFF8CB55FFF7C84EFFF5C547FFF4BD
3CFFF3B534FFEFA71BFFF2B62BFFF5D675FFDD963BFFC5600DFFEDAC38FFFFF4
9DFFFEE789FFFEE380FFFDE07AFFFBDC71FFFBD769FFFAD261FFF7CD55FFF6C9
51FFF5BD36FFF2BD38FFFCDC6EFFDE922CFFC45D0BFF00000000F1BC5AFFFFFF
FAFFFFFFE3FFFFFFE0FFFFFEDDFFFFFCD8FFFFFDD9FFFFF7C7FFFBD463FFF8C9
47FFF7D474FFFEE68CFFE3931FFFC45D0DFF0000000000000000EEA42AFFEEB1
44FFEDAB3EFFECAA3DFFEBA83CFFEAA83DFFE8A037FFE7A33BFFFDDE67FFFDE9
A2FFFFF3B1FFE59F2EFFC25809FF000000000000000000000000000000000000
00000000000000000000000000000000000000000000ECA01AFFFFFBC8FFFFFC
CCFFE5A540FFC15707FF00000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F3B83BFFFFFEC8FFE5A6
3FFFC15605FF0000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F8BE33FFE4A541FFC155
05FF000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000DA8A26FFC15708FF0000
0000000000000000000000000000000000000000000000000000
}
OnClick = SpeedButton2Click
end
object lblWeekDate: TLabel
Left = 72
Height = 15
Top = 8
Width = 66
Caption = 'lblWeekDate'
ParentColor = False
ParentFont = False
end
object dtpSelectedDate: TDateTimePicker
Left = 248
Height = 23
Top = 3
Width = 83
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
TabOrder = 0
TrailingSeparator = False
TextForNullDate = 'NULL'
LeadingZeros = True
NullInputAllowed = False
Kind = dtkDate
TimeFormat = tf24
TimeDisplay = tdHMS
DateMode = dmComboBox
Date = 43530
Time = 0.440096342594188
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
OnChange = dtpSelectedDateChange
end
end
object ZQPlanWyjazdow: TZQuery
Connection = DM.ZConnection1
SQL.Strings = (
'SELECT '
'pl.ID,'
'pl.ID_samochodu,'
'sa.Nazwa,'
'sa.Event_color,'
'pl.Kierowca,'
'pl.data_wyjazdu,'
'pl.data_powrotu,'
'pl.Cel,'
'pl.Uwagi,'
'pl.stan,'
'pl.data_modyfikacji,'
'pl.user'
'FROM kwat_plan_wyjazdow pl'
'LEFT OUTER JOIN kwat_samochody sa ON sa.ID = pl.ID_samochodu'
'WHERE'
' (pl.stan = ''A'') AND'
' (DATE(pl.data_wyjazdu) BETWEEN :data_start AND :data_end)'
'ORDER BY pl.data_wyjazdu'
)
Params = <
item
DataType = ftUnknown
Name = 'data_start'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'data_end'
ParamType = ptUnknown
end>
Left = 508
Top = 92
ParamData = <
item
DataType = ftUnknown
Name = 'data_start'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'data_end'
ParamType = ptUnknown
end>
end
object DSPlanWyjazdow: TDataSource
DataSet = ZQPlanWyjazdow
OnDataChange = DSPlanWyjazdowDataChange
Left = 640
Top = 92
end
object ZQUwagi: TZQuery
Connection = DM.ZConnection1
BeforePost = ZQUwagiBeforePost
SQL.Strings = (
'SELECT ID, data, Uwagi'
'FROM kwat_plan_wyjazdow_uwagi'
'WHERE data = :data_start'
)
Params = <
item
DataType = ftUnknown
Name = 'data_start'
ParamType = ptUnknown
end>
Left = 508
Top = 168
ParamData = <
item
DataType = ftUnknown
Name = 'data_start'
ParamType = ptUnknown
end>
end
object DSUwagi: TDataSource
DataSet = ZQUwagi
Left = 640
Top = 168
end
object frReport1: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
Options = [roSaveAndRestoreBookmarks]
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
Left = 508
Top = 240
end
object frDBDataSet1: TfrDBDataSet
DataSet = ZQPlanWyjazdow
Left = 508
Top = 291
end
end