DelphiCS/uUpdateSql.dfm at master · devgearedu/DelphiCS · 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
185
186
187
188
189
190
191
192
object UpdateForm: TUpdateForm
  Left = 0
  Top = 0
  Caption = #51312#51064#46108#53244#47532#50629#45936#51060#53944
  ClientHeight = 502
  ClientWidth = 529
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 8
    Width = 516
    Height = 42
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh, nbApplyUpdates, nbCancelUpdates]
    TabOrder = 0
  end
  object Button1: TButton
    Left = 8
    Top = 223
    Width = 516
    Height = 42
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object CheckBox1: TCheckBox
    Left = 8
    Top = 281
    Width = 57
    Height = 25
    Caption = #52992#49772
    TabOrder = 2
    OnClick = CheckBox1Click
  end
  object DBNavigator2: TDBNavigator
    Left = 88
    Top = 279
    Width = 420
    Height = 25
    DataSource = dm.DeptSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh, nbApplyUpdates, nbCancelUpdates]
    TabOrder = 3
  end
  object Button2: TButton
    Left = 8
    Top = 465
    Width = 75
    Height = 29
    Caption = 'CancelUpdates'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 112
    Top = 469
    Width = 75
    Height = 25
    Caption = 'revertrecord'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 216
    Top = 469
    Width = 75
    Height = 25
    Caption = 'applyupdates'
    TabOrder = 6
    OnClick = Button4Click
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 424
    Width = 121
    Height = 21
    DataField = 'CODE'
    DataSource = dm.DeptSource
    TabOrder = 7
  end
  object DBEdit2: TDBEdit
    Left = 152
    Top = 424
    Width = 121
    Height = 21
    DataField = 'DEPT'
    DataSource = dm.DeptSource
    TabOrder = 8
  end
  object DBEdit3: TDBEdit
    Left = 304
    Top = 424
    Width = 121
    Height = 21
    DataField = 'SECTION'
    DataSource = dm.DeptSource
    TabOrder = 9
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 513
    Height = 161
    DataSource = DataSource1
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 10
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 312
    Width = 492
    Height = 106
    DataSource = dm.DeptSource
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 11
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object Button5: TButton
    Left = 320
    Top = 467
    Width = 75
    Height = 25
    Caption = 'save'
    TabOrder = 12
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 416
    Top = 469
    Width = 75
    Height = 25
    Caption = 'load'
    TabOrder = 13
    OnClick = Button6Click
  end
  object FDQuery1: TFDQuery
    Active = True
    CachedUpdates = True
    Connection = dm.FDConnection1
    UpdateObject = FDUpdateSQL1
    SQL.Strings = (
      'select * from dept, insa'
      'where code = dept_code')
    Left = 352
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = FDQuery1
    Left = 400
    Top = 160
  end
  object FDUpdateSQL1: TFDUpdateSQL
    InsertSQL.Strings = (
      'INSERT INTO DEPT'
      '(CODE, DEPT, SECTION)'
      'VALUES (:NEW_CODE, :NEW_DEPT, :NEW_SECTION)')
    ModifySQL.Strings = (
      'UPDATE DEPT'
      'SET CODE = :NEW_CODE, DEPT = :NEW_DEPT, SECTION = :NEW_SECTION'
      'WHERE CODE = :OLD_CODE')
    DeleteSQL.Strings = (
      'DELETE FROM DEPT'
      'WHERE CODE = :OLD_CODE')
    FetchRowSQL.Strings = (
      'SELECT CODE, DEPT, SECTION'
      'FROM DEPT'
      'WHERE CODE = :OLD_CODE')
    Left = 464
    Top = 448
  end
  object FDStanStorageXMLLink1: TFDStanStorageXMLLink
    Left = 360
    Top = 336
  end
end