| 1 |
object AdminFile: TAdminFile |
object AdminFile: TAdminFile |
| 2 |
Left = 0 |
Left = 0 |
| 3 |
Top = 0 |
Top = 0 |
| 4 |
Width = 464 |
Width = 481 |
| 5 |
Height = 591 |
Height = 692 |
| 6 |
RenderInvisibleControls = True |
RenderInvisibleControls = True |
| 7 |
AllowPageAccess = True |
AllowPageAccess = True |
| 8 |
ConnectionMode = cmAny |
ConnectionMode = cmAny |
| 19 |
DesignLeft = 8 |
DesignLeft = 8 |
| 20 |
DesignTop = 8 |
DesignTop = 8 |
| 21 |
object IWGrid1: TIWGrid |
object IWGrid1: TIWGrid |
| 22 |
Left = 60 |
Left = 63 |
| 23 |
Top = 416 |
Top = 413 |
| 24 |
Width = 300 |
Width = 300 |
| 25 |
Height = 150 |
Height = 150 |
| 26 |
BorderColors.Color = clNone |
BorderColors.Color = clNone |
| 165 |
Font.Size = 10 |
Font.Size = 10 |
| 166 |
Font.Style = [] |
Font.Style = [] |
| 167 |
end |
end |
| 168 |
|
object IWDBGrid1: TIWDBGrid |
| 169 |
|
Left = 93 |
| 170 |
|
Top = 521 |
| 171 |
|
Width = 300 |
| 172 |
|
Height = 150 |
| 173 |
|
BorderColors.Color = clNone |
| 174 |
|
BorderColors.Light = clNone |
| 175 |
|
BorderColors.Dark = clNone |
| 176 |
|
BGColor = clNone |
| 177 |
|
BorderSize = 1 |
| 178 |
|
BorderStyle = tfDefault |
| 179 |
|
Caption = #25215#35469#24453#12385#12524#12467#12540#12489 |
| 180 |
|
CellPadding = 0 |
| 181 |
|
CellSpacing = 0 |
| 182 |
|
Font.Color = clNone |
| 183 |
|
Font.Size = 10 |
| 184 |
|
Font.Style = [] |
| 185 |
|
FrameBuffer = 40 |
| 186 |
|
Lines = tlAll |
| 187 |
|
UseFrame = True |
| 188 |
|
UseSize = True |
| 189 |
|
ScrollToCurrentRow = False |
| 190 |
|
Columns = <> |
| 191 |
|
DataSource = DataSource1 |
| 192 |
|
FooterRowCount = 0 |
| 193 |
|
FriendlyName = 'IWDBGrid1' |
| 194 |
|
FromStart = True |
| 195 |
|
HighlightColor = clNone |
| 196 |
|
HighlightRows = False |
| 197 |
|
Options = [dgShowTitles] |
| 198 |
|
RefreshMode = rmAutomatic |
| 199 |
|
RowLimit = 0 |
| 200 |
|
RollOver = False |
| 201 |
|
RowClick = False |
| 202 |
|
RollOverColor = clNone |
| 203 |
|
RowHeaderColor = clNone |
| 204 |
|
RowAlternateColor = clNone |
| 205 |
|
RowCurrentColor = clNone |
| 206 |
|
TabOrder = -1 |
| 207 |
|
end |
| 208 |
object IWRegion1: TIWRegion |
object IWRegion1: TIWRegion |
| 209 |
Left = 1 |
Left = 1 |
| 210 |
Top = 1 |
Top = 1 |
| 233 |
end |
end |
| 234 |
object IWDBNavigator1: TIWDBNavigator |
object IWDBNavigator1: TIWDBNavigator |
| 235 |
Left = 43 |
Left = 43 |
| 236 |
Top = 335 |
Top = 327 |
| 237 |
Width = 300 |
Width = 300 |
| 238 |
Height = 28 |
Height = 28 |
| 239 |
Confirmations.Delete = 'Are you sure you want to delete this record?' |
Confirmations.Delete = 'Are you sure you want to delete this record?' |
| 245 |
ImageWidth = 24 |
ImageWidth = 24 |
| 246 |
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] |
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] |
| 247 |
Orientation = orHorizontal |
Orientation = orHorizontal |
| 248 |
|
OnEdit = IWDBNavigator1Edit |
| 249 |
OnInsert = IWDBNavigator1Insert |
OnInsert = IWDBNavigator1Insert |
| 250 |
OnDelete = IWDBNavigator1Post |
OnDelete = IWDBNavigator1Delete |
| 251 |
OnPost = IWDBNavigator1Post |
OnPost = IWDBNavigator1Post |
| 252 |
OnBeforeAction = IWDBNavigator1BeforeAction |
OnBeforeAction = IWDBNavigator1BeforeAction |
| 253 |
end |
end |
| 468 |
TabOrder = 10 |
TabOrder = 10 |
| 469 |
OnClick = IWButton3Click |
OnClick = IWButton3Click |
| 470 |
end |
end |
| 471 |
|
object IWDBCheckBox1: TIWDBCheckBox |
| 472 |
|
Left = 80 |
| 473 |
|
Top = 280 |
| 474 |
|
Width = 121 |
| 475 |
|
Height = 21 |
| 476 |
|
Caption = #12450#12463#12486#12451#12502 |
| 477 |
|
Editable = True |
| 478 |
|
Font.Color = clNone |
| 479 |
|
Font.Size = 10 |
| 480 |
|
Font.Style = [] |
| 481 |
|
SubmitOnAsyncEvent = True |
| 482 |
|
Style = stNormal |
| 483 |
|
TabOrder = 11 |
| 484 |
|
AutoEditable = False |
| 485 |
|
DataField = 'ACTIVATE' |
| 486 |
|
DataSource = DataModule3.view |
| 487 |
|
FriendlyName = 'IWDBCheckBox1' |
| 488 |
|
ValueChecked = 'true' |
| 489 |
|
ValueUnchecked = 'false' |
| 490 |
|
end |
| 491 |
end |
end |
| 492 |
object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML |
object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML |
| 493 |
TagType = ttIntraWeb |
TagType = ttIntraWeb |
| 502 |
Left = 337 |
Left = 337 |
| 503 |
Top = 113 |
Top = 113 |
| 504 |
end |
end |
| 505 |
|
object FDQuery1: TFDQuery |
| 506 |
|
Connection = DataModule3.FDConnection1 |
| 507 |
|
SQL.Strings = ( |
| 508 |
|
'select * from item_Data where agree = false;') |
| 509 |
|
Left = 424 |
| 510 |
|
Top = 600 |
| 511 |
|
end |
| 512 |
|
object DataSource1: TDataSource |
| 513 |
|
DataSet = FDQuery1 |
| 514 |
|
Left = 368 |
| 515 |
|
Top = 600 |
| 516 |
|
end |
| 517 |
end |
end |