ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/isqlmonitor/MainForm.lfm
(Generate patch)

Comparing ibx/trunk/examples/isqlmonitor/MainForm.lfm (file contents):
Revision 44 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 1002
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.4.2.0'
11 >  LCLVersion = '1.6.0.4'
12    object Button1: TButton
13      Left = 915
14      Height = 25
# Line 40 | Line 40 | object Form1: TForm1
40      Left = 17
41      Height = 15
42      Top = 14
43 <    Width = 87
43 >    Width = 74
44      Caption = 'Started Before'
45      ParentColor = False
46    end
47    object BeforeDate: TDateEdit
48      Left = 112
49 <    Height = 25
49 >    Height = 23
50      Top = 8
51      Width = 80
52      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 63 | Line 63 | object Form1: TForm1
63      Left = 241
64      Height = 15
65      Top = 14
66 <    Width = 78
66 >    Width = 66
67      Caption = 'Started After'
68      ParentColor = False
69    end
70    object AfterDate: TDateEdit
71      Left = 333
72 <    Height = 25
72 >    Height = 23
73      Top = 8
74      Width = 80
75      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 229 | Line 229 | object Form1: TForm1
229          Left = 688
230          Height = 27
231          Top = 16
232 <        Width = 49
232 >        Width = 43
233          Alignment = taRightJustify
234          Anchors = [akTop, akLeft, akBottom]
235          DataField = 'TOTALSALARIES'
# Line 245 | Line 245 | object Form1: TForm1
245        BevelOuter = bvNone
246        BorderWidth = 2
247        BorderStyle = bsSingle
248 <      ClientHeight = 78
249 <      ClientWidth = 782
248 >      ClientHeight = 76
249 >      ClientWidth = 780
250        Color = clWindow
251        ParentColor = False
252        TabOrder = 2
# Line 255 | Line 255 | object Form1: TForm1
255          Left = 0
256          Height = 15
257          Top = 7
258 <        Width = 83
258 >        Width = 74
259          Caption = 'Employee No.'
260          ParentColor = False
261        end
262        object DBEdit1: TDBEdit
263          Left = 90
264 <        Height = 25
264 >        Height = 23
265          Top = 2
266          Width = 120
267          DataField = 'EMP_NO'
# Line 274 | Line 274 | object Form1: TForm1
274          Left = 12
275          Height = 15
276          Top = 32
277 <        Width = 64
277 >        Width = 57
278          Caption = 'First Name'
279          ParentColor = False
280        end
281        object DBEdit2: TDBEdit
282          Left = 90
283 <        Height = 25
283 >        Height = 23
284          Top = 24
285          Width = 120
286          DataField = 'FIRST_NAME'
# Line 293 | Line 293 | object Form1: TForm1
293          Left = 12
294          Height = 15
295          Top = 56
296 <        Width = 64
296 >        Width = 56
297          Caption = 'Last Name'
298          ParentColor = False
299        end
300        object DBEdit3: TDBEdit
301          Left = 90
302 <        Height = 25
302 >        Height = 23
303          Top = 46
304          Width = 120
305          DataField = 'LAST_NAME'
# Line 312 | Line 312 | object Form1: TForm1
312          Left = 216
313          Height = 15
314          Top = 7
315 <        Width = 77
315 >        Width = 64
316          Caption = 'Date Started'
317          ParentColor = False
318        end
319        object IBDateEdit1: TDBDateEdit
320          Left = 300
321 <        Height = 25
321 >        Height = 23
322          Top = 2
323          Width = 80
324          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 337 | Line 337 | object Form1: TForm1
337          Left = 252
338          Height = 15
339          Top = 32
340 <        Width = 37
340 >        Width = 31
341          Caption = 'Salary'
342          ParentColor = False
343        end
344        object DBEdit4: TDBEdit
345          Left = 300
346 <        Height = 25
346 >        Height = 23
347          Top = 24
348          Width = 104
349          DataField = 'SALARY'
# Line 353 | Line 353 | object Form1: TForm1
353          TabOrder = 5
354        end
355        object Label8: TLabel
356 <        Left = 708
356 >        Left = 712
357          Height = 15
358          Top = 54
359 <        Width = 24
359 >        Width = 18
360          Anchors = [akTop, akRight]
361          Caption = 'Ext.'
362          ParentColor = False
363        end
364        object DBEdit5: TDBEdit
365 <        Left = 732
366 <        Height = 25
365 >        Left = 730
366 >        Height = 23
367          Top = 48
368          Width = 40
369          DataField = 'PHONE_EXT'
# Line 377 | Line 377 | object Form1: TForm1
377          Left = 536
378          Height = 15
379          Top = 7
380 <        Width = 51
380 >        Width = 46
381          Caption = 'Location'
382          ParentColor = False
383        end
# Line 385 | Line 385 | object Form1: TForm1
385          Left = 413
386          Height = 15
387          Top = 9
388 <        Width = 59
388 >        Width = 52
389          Caption = 'Job Grade'
390          ParentColor = False
391        end
392        object JobGradeDBComboBox: TDBComboBox
393          Left = 480
394 <        Height = 25
394 >        Height = 23
395          Top = 2
396          Width = 48
397          AutoSize = False
398          DataField = 'JOB_GRADE'
399          DataSource = EmployeeSource
400 <        ItemHeight = 0
400 >        ItemHeight = 15
401          Items.Strings = (
402            '1'
403            '2'
# Line 414 | Line 414 | object Form1: TForm1
414          Left = 536
415          Height = 15
416          Top = 32
417 <        Width = 48
417 >        Width = 44
418          Caption = 'Job Title'
419          ParentColor = False
420        end
# Line 422 | Line 422 | object Form1: TForm1
422          Left = 256
423          Height = 15
424          Top = 54
425 <        Width = 33
425 >        Width = 28
426          Caption = 'Dept.'
427          ParentColor = False
428        end
429        object SpeedButton1: TSpeedButton
430 <        Left = 680
430 >        Left = 678
431          Height = 25
432          Top = 48
433          Width = 23
# Line 436 | Line 436 | object Form1: TForm1
436        end
437        object DBEdit6: TDBEdit
438          Left = 300
439 <        Height = 25
439 >        Height = 23
440          Top = 48
441 <        Width = 372
441 >        Width = 370
442          DataField = 'DEPT_PATH'
443          DataSource = EmployeeSource
444          ReadOnly = True
# Line 449 | Line 449 | object Form1: TForm1
449        end
450        object IBLookupComboEditBox2: TIBLookupComboEditBox
451          Left = 600
452 <        Height = 25
452 >        Height = 23
453          Top = 0
454 <        Width = 172
454 >        Width = 170
455          Anchors = [akTop, akLeft, akRight]
456          AutoSize = False
457          DataField = 'JOB_COUNTRY'
# Line 465 | Line 465 | object Form1: TForm1
465          TabOrder = 8
466          AutoInsert = False
467          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
468 <        ItemHeight = 0
468 >        ItemHeight = 15
469        end
470        object IBLookupComboEditBox1: TIBLookupComboEditBox
471          Left = 600
472 <        Height = 25
472 >        Height = 23
473          Top = 24
474 <        Width = 172
474 >        Width = 170
475          Anchors = [akTop, akLeft, akRight]
476          AutoSize = False
477          DataField = 'JOB_CODE'
# Line 485 | Line 485 | object Form1: TForm1
485          TabOrder = 9
486          AutoInsert = False
487          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
488 <        ItemHeight = 0
488 >        ItemHeight = 15
489        end
490      end
491    end
# Line 493 | Line 493 | object Form1: TForm1
493      Left = 456
494      Height = 15
495      Top = 14
496 <    Width = 79
496 >    Width = 67
497      Caption = 'Salary Range'
498      ParentColor = False
499    end
500    object SalaryRange: TComboBox
501      Left = 544
502 <    Height = 25
502 >    Height = 23
503      Top = 8
504      Width = 272
505 <    ItemHeight = 0
505 >    ItemHeight = 15
506      ItemIndex = 0
507      Items.Strings = (
508        'None Specified'
# Line 516 | Line 516 | object Form1: TForm1
516      Text = 'None Specified'
517    end
518    object IBDatabase1: TIBDatabase
519 <    Connected = False
519 >    Connected = True
520      AllowStreamedConnected = False
521      DatabaseName = 'localhost:employee'
522      Params.Strings = (
523        'user_name=SYSDBA'
524        'lc_ctype=UTF8'
525 +      'user_name=SYSDBA'
526      )
527      DefaultTransaction = IBTransaction1
528      IdleTimer = 0
529      TraceFlags = [tfQPrepare, tfStmt, tfConnect]
530 +    UseDefaultSystemCodePage = False
531      left = 832
532      top = 168
533    end
# Line 643 | Line 645 | object Form1: TForm1
645      )
646      RefreshSQL.Strings = (
647        'with recursive Depts As ('
648 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
648 >      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar'
649 >      '(256)) as DEPT_PATH,'
650        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
651        'From DEPARTMENT Where HEAD_DEPT is NULL '
652        'UNION ALL'
653 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
654 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
655 <      'From DEPARTMENT  '
656 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
653 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
654 >      '|| D.DEPARTMENT as DEPT_PATH,'
655 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
656 >      'From DEPARTMENT  D'
657 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
658        ')'
659        ''
660 <      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
661 <      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
660 >      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
661 >      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
662 >      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
663 >      'D.DEPT_KEY_PATH'
664        'From EMPLOYEE A'
665        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
666 +      ''
667        'Where A.EMP_NO = :EMP_NO'
668      )
669      SelectSQL.Strings = (
670        'with recursive Depts As ('
671 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
671 >      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
672 >      'VarChar(256)) as DEPT_PATH,'
673        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
674        'From DEPARTMENT Where HEAD_DEPT is NULL '
675        'UNION ALL'
676 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
677 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
678 <      'From DEPARTMENT  '
679 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
676 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
677 >      '|| D.DEPARTMENT as DEPT_PATH,'
678 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
679 >      'From DEPARTMENT  D'
680 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
681        ')'
682        ''
683 <      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
684 <      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
683 >      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
684 >      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
685 >      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
686 >      'D.DEPT_KEY_PATH'
687        'From EMPLOYEE A'
688        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
689      )

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines