DocMan/CheckOut.dfm at main · mgaeckler1964/DocMan · 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
object CheckOutForm: TCheckOutForm
  Left = 473
  Top = 451
  BorderStyle = bsDialog
  Caption = 'Check Out'
  ClientHeight = 115
  ClientWidth = 480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 24
    Height = 13
    Caption = 'Task'
  end
  object ButtonOK: TButton
    Left = 8
    Top = 80
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = ButtonOKClick
  end
  object ButtonCancel: TButton
    Left = 96
    Top = 80
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object ComboBoxTasks: TComboBox
    Left = 48
    Top = 8
    Width = 417
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
  end
  object CheckBoxFlag1: TCheckBox
    Left = 8
    Top = 40
    Width = 265
    Height = 17
    Caption = 'Include Other File Extensions'
    TabOrder = 1
  end
  object CheckBoxFlag2: TCheckBox
    Left = 208
    Top = 40
    Width = 265
    Height = 17
    Caption = 'Include Other File Names'
    TabOrder = 4
  end
  object QueryOpenTasks: TQuery
    DatabaseName = 'docManDB'
    SQL.Strings = (
      'select it.ID, p.name || '#39':'#39' || it.Name as Name, s.Task_Status'
      'from item_tree it, i_task_status s, item_tree p'
      'where it.Assigned_To = :actUser'
      'and it.status = s.id'
      'and s.completed = 0'
      'and s.in_progress = 1'
      'and it.parentId = p.id'
      'order by 2'
      ''
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 216
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'actUser'
        ParamType = ptInput
      end>
  end
end