EVSPH20MF.dfm 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643
  1. object EVSPH20M: TEVSPH20M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = #50864#49440#49888#54840' '#50868#50689#44368#52264#47196
  7. ClientHeight = 790
  8. ClientWidth = 1370
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -13
  13. Font.Name = #47569#51008' '#44256#46357
  14. Font.Style = []
  15. KeyPreview = True
  16. OldCreateOrder = False
  17. Position = poOwnerFormCenter
  18. ShowHint = True
  19. OnClose = FormClose
  20. OnCloseQuery = FormCloseQuery
  21. OnShow = FormShow
  22. DesignSize = (
  23. 1370
  24. 790)
  25. PixelsPerInch = 96
  26. TextHeight = 17
  27. object ShpTitle: TShape
  28. Left = 4
  29. Top = 4
  30. Width = 1362
  31. Height = 40
  32. Anchors = [akLeft, akTop, akRight]
  33. Brush.Color = 14671839
  34. Pen.Color = 10849679
  35. Pen.Width = 2
  36. ExplicitWidth = 1269
  37. end
  38. object LblCaption: TLabel
  39. Left = 16
  40. Top = 10
  41. Width = 267
  42. Height = 23
  43. Caption = #53440#51060#53952' '
  44. Font.Charset = DEFAULT_CHARSET
  45. Font.Color = 4740964
  46. Font.Height = -17
  47. Font.Name = #47569#51008' '#44256#46357
  48. Font.Style = [fsBold]
  49. ParentFont = False
  50. ParentShowHint = False
  51. ShowHint = True
  52. end
  53. object ShpList: TShape
  54. Left = 4
  55. Top = 50
  56. Width = 1362
  57. Height = 734
  58. Anchors = [akLeft, akTop, akRight, akBottom]
  59. Pen.Color = 10849679
  60. Pen.Width = 2
  61. ExplicitWidth = 1436
  62. ExplicitHeight = 766
  63. end
  64. object LblRecords: TLabel
  65. Left = 400
  66. Top = 9
  67. Width = 52
  68. Height = 17
  69. Alignment = taRightJustify
  70. Anchors = [akTop, akRight]
  71. Caption = #51312#54924#44148#49688
  72. Transparent = True
  73. Visible = False
  74. end
  75. object BtnClose: TcxButton
  76. Left = 1276
  77. Top = 11
  78. Width = 80
  79. Height = 25
  80. Cursor = crHandPoint
  81. Hint = #45803#44592
  82. Anchors = [akTop, akRight]
  83. Caption = #45803#44592
  84. Colors.Default = 10737865
  85. TabOrder = 0
  86. Font.Charset = DEFAULT_CHARSET
  87. Font.Color = clBlack
  88. Font.Height = -13
  89. Font.Name = #47569#51008' '#44256#46357
  90. Font.Style = [fsBold]
  91. ParentFont = False
  92. OnClick = BtnCloseClick
  93. end
  94. object EdFocus: TEdit
  95. Left = -10
  96. Top = -10
  97. Width = 2
  98. Height = 25
  99. ImeName = 'Microsoft Office IME 2007'
  100. TabOrder = 1
  101. Text = 'EdFocus'
  102. end
  103. object PnlBack: TPanel
  104. Left = 12
  105. Top = 56
  106. Width = 1344
  107. Height = 721
  108. Anchors = [akLeft, akTop, akRight, akBottom]
  109. BevelOuter = bvNone
  110. ParentBackground = False
  111. ParentColor = True
  112. TabOrder = 2
  113. object PnlLeft: TPanel
  114. Left = 0
  115. Top = 0
  116. Width = 401
  117. Height = 721
  118. Align = alLeft
  119. BevelOuter = bvNone
  120. TabOrder = 0
  121. object cxGroupBox2: TcxGroupBox
  122. Left = 0
  123. Top = 0
  124. Align = alTop
  125. Caption = #9654' '#44160#49353' '#51312#44148
  126. Style.BorderColor = clCaptionText
  127. Style.Shadow = False
  128. Style.TextColor = clWindowText
  129. Style.TextStyle = [fsBold]
  130. TabOrder = 0
  131. Height = 97
  132. Width = 401
  133. object ImgDesc01: TImage
  134. Left = 12
  135. Top = 32
  136. Width = 9
  137. Height = 9
  138. Transparent = True
  139. end
  140. object Label26: TLabel
  141. Left = 28
  142. Top = 29
  143. Width = 78
  144. Height = 17
  145. Alignment = taRightJustify
  146. Caption = #44160#49353#49884#51089#51068#49884
  147. Transparent = True
  148. end
  149. object ImgDesc02: TImage
  150. Left = 12
  151. Top = 63
  152. Width = 9
  153. Height = 9
  154. Transparent = True
  155. end
  156. object Label6: TLabel
  157. Left = 28
  158. Top = 60
  159. Width = 78
  160. Height = 17
  161. Alignment = taRightJustify
  162. Caption = #44160#49353#51333#47308#51068#49884
  163. Transparent = True
  164. end
  165. object BtnSearch: TcxButton
  166. Left = 316
  167. Top = 58
  168. Width = 80
  169. Height = 25
  170. Cursor = crHandPoint
  171. Hint = #51312#54924
  172. Caption = #51312#54924
  173. Colors.Default = 10737865
  174. TabOrder = 0
  175. Font.Charset = DEFAULT_CHARSET
  176. Font.Color = clBlack
  177. Font.Height = -13
  178. Font.Name = #47569#51008' '#44256#46357
  179. Font.Style = [fsBold]
  180. ParentFont = False
  181. OnClick = BtnSearchClick
  182. end
  183. object cxLabel1: TcxLabel
  184. Left = 27
  185. Top = 3
  186. AutoSize = False
  187. Caption = #44160#49353#44592#44036#51060' '#53364' '#44221#50864' '#44160#49353#44208#44284#44032' '#45734#50612#51656#49688' '#51080#49845#45768#45796'.'
  188. ParentFont = False
  189. Style.Font.Charset = DEFAULT_CHARSET
  190. Style.Font.Color = clWindowText
  191. Style.Font.Height = -12
  192. Style.Font.Name = #47569#51008' '#44256#46357
  193. Style.Font.Style = [fsBold]
  194. Style.TextColor = clRed
  195. Style.IsFontAssigned = True
  196. Properties.WordWrap = True
  197. Transparent = True
  198. Visible = False
  199. Height = 36
  200. Width = 219
  201. end
  202. object DtEdTime: TDateTimePicker
  203. Left = 237
  204. Top = 58
  205. Width = 75
  206. Height = 25
  207. BevelInner = bvNone
  208. BevelOuter = bvNone
  209. BevelKind = bkFlat
  210. Date = 40452.000000000000000000
  211. Format = ' HH:mm'
  212. Time = 40452.000000000000000000
  213. Color = clBtnFace
  214. DateMode = dmUpDown
  215. Font.Charset = DEFAULT_CHARSET
  216. Font.Color = clWindowText
  217. Font.Height = -13
  218. Font.Name = #47569#51008' '#44256#46357
  219. Font.Style = []
  220. ImeName = 'Microsoft Office IME 2007'
  221. Kind = dtkTime
  222. ParentColor = True
  223. ParentFont = False
  224. TabOrder = 2
  225. end
  226. object DtEdDate: TDateTimePicker
  227. Left = 110
  228. Top = 58
  229. Width = 121
  230. Height = 25
  231. BevelInner = bvNone
  232. BevelOuter = bvNone
  233. Date = 40452.000000000000000000
  234. Time = 40452.000000000000000000
  235. Color = clBtnFace
  236. ImeName = 'Microsoft Office IME 2007'
  237. ParentColor = True
  238. TabOrder = 3
  239. end
  240. object DtStDate: TDateTimePicker
  241. Left = 110
  242. Top = 26
  243. Width = 121
  244. Height = 25
  245. BevelInner = bvNone
  246. BevelOuter = bvNone
  247. Date = 40452.000000000000000000
  248. Time = 40452.000000000000000000
  249. Color = clBtnFace
  250. ImeName = 'Microsoft Office IME 2007'
  251. ParentColor = True
  252. TabOrder = 4
  253. OnChange = DtStDateChange
  254. end
  255. object DtStTime: TDateTimePicker
  256. Left = 237
  257. Top = 26
  258. Width = 75
  259. Height = 25
  260. BevelInner = bvNone
  261. BevelOuter = bvNone
  262. BevelKind = bkFlat
  263. Date = 40452.000000000000000000
  264. Format = ' HH:mm'
  265. Time = 40452.000000000000000000
  266. Color = clBtnFace
  267. DateMode = dmUpDown
  268. Font.Charset = DEFAULT_CHARSET
  269. Font.Color = clWindowText
  270. Font.Height = -13
  271. Font.Name = #47569#51008' '#44256#46357
  272. Font.Style = []
  273. ImeName = 'Microsoft Office IME 2007'
  274. Kind = dtkTime
  275. ParentColor = True
  276. ParentFont = False
  277. TabOrder = 5
  278. end
  279. end
  280. object cxGroupBox3: TcxGroupBox
  281. Left = 0
  282. Top = 97
  283. Align = alTop
  284. Caption = #9654' '#44160#49353' '#44208#44284
  285. Style.BorderColor = clCaptionText
  286. Style.Shadow = False
  287. Style.TextColor = clWindowText
  288. Style.TextStyle = [fsBold]
  289. TabOrder = 1
  290. Height = 248
  291. Width = 401
  292. object CxList: TcxGrid
  293. Left = 3
  294. Top = 19
  295. Width = 395
  296. Height = 219
  297. Align = alClient
  298. TabOrder = 0
  299. object TvList: TcxGridTableView
  300. Navigator.Buttons.Append.Visible = True
  301. Navigator.Buttons.SaveBookmark.Visible = False
  302. Navigator.InfoPanel.Visible = True
  303. OnCellDblClick = TvListCellDblClick
  304. DataController.Summary.DefaultGroupSummaryItems = <>
  305. DataController.Summary.FooterSummaryItems = <>
  306. DataController.Summary.SummaryGroups = <>
  307. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  308. OptionsBehavior.CellHints = True
  309. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  310. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  311. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  312. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  313. OptionsCustomize.ColumnFiltering = False
  314. OptionsCustomize.ColumnGrouping = False
  315. OptionsCustomize.ColumnMoving = False
  316. OptionsCustomize.ColumnSorting = False
  317. OptionsData.Deleting = False
  318. OptionsData.DeletingConfirmation = False
  319. OptionsData.Editing = False
  320. OptionsData.Inserting = False
  321. OptionsSelection.CellSelect = False
  322. OptionsSelection.HideFocusRectOnExit = False
  323. OptionsView.NoDataToDisplayInfoText = '<'#54364#52636#54624' '#51221#48372#44032' '#50630#49845#45768#45796'>'
  324. OptionsView.ColumnAutoWidth = True
  325. OptionsView.GroupByBox = False
  326. OptionsView.Indicator = True
  327. object Column01: TcxGridColumn
  328. Caption = 'No.'
  329. DataBinding.ValueType = 'Integer'
  330. PropertiesClassName = 'TcxCalcEditProperties'
  331. Properties.Alignment.Horz = taRightJustify
  332. Properties.Alignment.Vert = taVCenter
  333. Visible = False
  334. HeaderAlignmentHorz = taCenter
  335. HeaderAlignmentVert = vaCenter
  336. Options.Editing = False
  337. VisibleForCustomization = False
  338. Width = 45
  339. end
  340. object Column04: TcxGridColumn
  341. Caption = #49436#48708#49828' ID'
  342. PropertiesClassName = 'TcxTextEditProperties'
  343. Properties.Alignment.Horz = taCenter
  344. Properties.Alignment.Vert = taVCenter
  345. GroupSummaryAlignment = taCenter
  346. HeaderAlignmentHorz = taCenter
  347. Width = 107
  348. end
  349. object Column05: TcxGridColumn
  350. Caption = #52264#47049'ID'
  351. PropertiesClassName = 'TcxLabelProperties'
  352. Properties.Alignment.Horz = taCenter
  353. Properties.Alignment.Vert = taVCenter
  354. GroupSummaryAlignment = taCenter
  355. HeaderAlignmentHorz = taCenter
  356. end
  357. object Column02: TcxGridColumn
  358. Caption = #49688#51665#49884#44033
  359. PropertiesClassName = 'TcxTextEditProperties'
  360. Properties.Alignment.Horz = taCenter
  361. Properties.Alignment.Vert = taVCenter
  362. HeaderAlignmentHorz = taCenter
  363. HeaderAlignmentVert = vaCenter
  364. Options.Editing = False
  365. Width = 201
  366. end
  367. object Column03: TcxGridColumn
  368. Caption = #44148#49688
  369. DataBinding.ValueType = 'Integer'
  370. PropertiesClassName = 'TcxCalcEditProperties'
  371. Properties.Alignment.Horz = taRightJustify
  372. Properties.Alignment.Vert = taVCenter
  373. Properties.DisplayFormat = '#,##0'
  374. HeaderAlignmentHorz = taCenter
  375. HeaderAlignmentVert = vaCenter
  376. Width = 73
  377. end
  378. end
  379. object GlList: TcxGridLevel
  380. GridView = TvList
  381. end
  382. end
  383. object lblText2: TcxLabel
  384. Left = 15
  385. Top = 90
  386. Caption = '3'#49884#44036' '#51060#49345#51032' '#51221#48372#47484' '#51312#54924#54624' '#49688' '#50630#49845#45768#45796'.'
  387. Transparent = True
  388. Visible = False
  389. end
  390. object lblText3: TcxLabel
  391. Left = 15
  392. Top = 117
  393. Caption = #54364#52636#54624' '#51221#48372#44032' '#50630#49845#45768#45796'. '#51060#47141#51221#48372#47484' '#45796#49884' '#51312#54924#54616#49888' '#54980' '#51089#50629#51012' '#51652#54665' '#54616#49901#49884#50836'.'
  394. Transparent = True
  395. Visible = False
  396. end
  397. end
  398. object cxGroupBox5: TcxGroupBox
  399. Left = 0
  400. Top = 345
  401. Align = alClient
  402. Caption = #9654' '#50868#50689#44221#47196
  403. Style.BorderColor = clCaptionText
  404. Style.Shadow = False
  405. Style.TextColor = clWindowText
  406. Style.TextStyle = [fsBold]
  407. TabOrder = 2
  408. Height = 376
  409. Width = 401
  410. object CxHist: TcxGrid
  411. Left = 3
  412. Top = 19
  413. Width = 395
  414. Height = 347
  415. Align = alClient
  416. TabOrder = 0
  417. object TvHist: TcxGridTableView
  418. Navigator.Buttons.Append.Visible = True
  419. Navigator.Buttons.SaveBookmark.Visible = False
  420. Navigator.InfoPanel.Visible = True
  421. OnCellDblClick = TvHistCellDblClick
  422. DataController.Summary.DefaultGroupSummaryItems = <>
  423. DataController.Summary.FooterSummaryItems = <>
  424. DataController.Summary.SummaryGroups = <>
  425. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  426. OptionsBehavior.CellHints = True
  427. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  428. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  429. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  430. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  431. OptionsCustomize.ColumnFiltering = False
  432. OptionsCustomize.ColumnGrouping = False
  433. OptionsCustomize.ColumnMoving = False
  434. OptionsCustomize.ColumnSorting = False
  435. OptionsData.Deleting = False
  436. OptionsData.DeletingConfirmation = False
  437. OptionsData.Editing = False
  438. OptionsData.Inserting = False
  439. OptionsSelection.CellSelect = False
  440. OptionsSelection.HideFocusRectOnExit = False
  441. OptionsView.NoDataToDisplayInfoText = '<'#54364#52636#54624' '#51221#48372#44032' '#50630#49845#45768#45796'>'
  442. OptionsView.ColumnAutoWidth = True
  443. OptionsView.GroupByBox = False
  444. OptionsView.Indicator = True
  445. object ColHist01: TcxGridColumn
  446. Caption = 'No.'
  447. DataBinding.ValueType = 'Integer'
  448. PropertiesClassName = 'TcxCalcEditProperties'
  449. Properties.Alignment.Horz = taRightJustify
  450. Properties.Alignment.Vert = taVCenter
  451. Visible = False
  452. HeaderAlignmentHorz = taCenter
  453. HeaderAlignmentVert = vaCenter
  454. Options.Editing = False
  455. VisibleForCustomization = False
  456. Width = 45
  457. end
  458. object ColHist02: TcxGridColumn
  459. Caption = #49436#48708#49828' ID'
  460. PropertiesClassName = 'TcxTextEditProperties'
  461. Properties.Alignment.Horz = taCenter
  462. Properties.Alignment.Vert = taVCenter
  463. GroupSummaryAlignment = taCenter
  464. HeaderAlignmentHorz = taCenter
  465. Width = 107
  466. end
  467. object ColHist03: TcxGridColumn
  468. Caption = #44368#52264#47196
  469. PropertiesClassName = 'TcxTextEditProperties'
  470. Properties.Alignment.Horz = taLeftJustify
  471. Properties.Alignment.Vert = taVCenter
  472. HeaderAlignmentHorz = taCenter
  473. HeaderAlignmentVert = vaCenter
  474. Options.Editing = False
  475. Width = 201
  476. end
  477. object ColHist04: TcxGridColumn
  478. Caption = #49692#49436
  479. DataBinding.ValueType = 'Integer'
  480. PropertiesClassName = 'TcxCalcEditProperties'
  481. Properties.Alignment.Horz = taRightJustify
  482. Properties.Alignment.Vert = taVCenter
  483. Properties.DisplayFormat = '#,##0'
  484. HeaderAlignmentHorz = taCenter
  485. HeaderAlignmentVert = vaCenter
  486. Width = 73
  487. end
  488. object ColHist05: TcxGridColumn
  489. Caption = 'X'#51340#54364
  490. DataBinding.ValueType = 'Float'
  491. PropertiesClassName = 'TcxCalcEditProperties'
  492. Properties.Alignment.Horz = taRightJustify
  493. Properties.Alignment.Vert = taVCenter
  494. Visible = False
  495. HeaderAlignmentHorz = taCenter
  496. HeaderAlignmentVert = vaCenter
  497. VisibleForCustomization = False
  498. end
  499. object ColHist06: TcxGridColumn
  500. Caption = 'Y'#51340#54364
  501. DataBinding.ValueType = 'Float'
  502. PropertiesClassName = 'TcxCalcEditProperties'
  503. Properties.Alignment.Horz = taRightJustify
  504. Properties.Alignment.Vert = taVCenter
  505. Visible = False
  506. HeaderAlignmentHorz = taCenter
  507. HeaderAlignmentVert = vaCenter
  508. VisibleForCustomization = False
  509. end
  510. end
  511. object GlHist: TcxGridLevel
  512. GridView = TvHist
  513. end
  514. end
  515. end
  516. end
  517. object cxSplitter1: TcxSplitter
  518. Left = 401
  519. Top = 0
  520. Width = 6
  521. Height = 721
  522. Control = PnlLeft
  523. end
  524. object cxGroupBox1: TcxGroupBox
  525. Left = 407
  526. Top = 0
  527. Align = alClient
  528. Caption = #9654' '#50868#50689#44221#47196
  529. Style.BorderColor = clCaptionText
  530. Style.Shadow = False
  531. Style.TextColor = clBlack
  532. Style.TextStyle = [fsBold]
  533. TabOrder = 2
  534. Height = 721
  535. Width = 937
  536. inline FRAMEOpenMap1: TFRAMEOpenMap
  537. Left = 3
  538. Top = 19
  539. Width = 931
  540. Height = 692
  541. Align = alClient
  542. ParentShowHint = False
  543. ShowHint = True
  544. TabOrder = 0
  545. ExplicitLeft = 3
  546. ExplicitTop = 19
  547. ExplicitWidth = 931
  548. ExplicitHeight = 692
  549. inherited PnlToolbar: TPanel
  550. Width = 931
  551. ExplicitWidth = 931
  552. inherited EdFocus: TEdit
  553. Height = 25
  554. ExplicitHeight = 25
  555. end
  556. inherited cxLabel26: TcxLabel
  557. AnchorX = 122
  558. AnchorY = 19
  559. end
  560. inherited cxLabel27: TcxLabel
  561. AnchorX = 280
  562. AnchorY = 19
  563. end
  564. inherited PnlGisTool: TPanel
  565. Width = 498
  566. ExplicitWidth = 498
  567. inherited ChkShowNmbr: TcxCheckBox
  568. ExplicitHeight = 28
  569. end
  570. inherited EdMapPos: TcxTextEdit
  571. ExplicitHeight = 28
  572. end
  573. end
  574. inherited cxLabel1: TcxLabel
  575. AnchorX = 346
  576. AnchorY = 19
  577. end
  578. inherited LblZoom: TcxLabel
  579. Left = 844
  580. ExplicitLeft = 844
  581. AnchorX = 926
  582. AnchorY = 19
  583. end
  584. end
  585. inherited lblTitle: TcxLabel
  586. ExplicitWidth = 69
  587. ExplicitHeight = 21
  588. end
  589. inherited reMsg: TMemo
  590. Top = 545
  591. Width = 931
  592. ExplicitTop = 545
  593. ExplicitWidth = 931
  594. end
  595. inherited PnlMap: TPanel
  596. Width = 931
  597. Height = 507
  598. ExplicitWidth = 931
  599. ExplicitHeight = 507
  600. inherited WebBrowser1: TWebBrowser
  601. Width = 927
  602. Height = 503
  603. ExplicitWidth = 1011
  604. ExplicitHeight = 507
  605. ControlData = {
  606. 4C000000CF5F0000FD3300000000000000000000000000000000000000000000
  607. 000000004C000000000000000000000001000000E0D057007335CF11AE690800
  608. 2B2E126208000000000000004C0000000114020000000000C000000000000046
  609. 8000000000000000000000000000000000000000000000000000000000000000
  610. 00000000000000000100000000000000000000000000000000000000}
  611. end
  612. end
  613. inherited ilToolbarsSmall: TcxImageList
  614. FormatVersion = 1
  615. end
  616. end
  617. end
  618. end
  619. object lblText1: TcxLabel
  620. Left = 27
  621. Top = 295
  622. Caption = #9654' '#50868#50689#44221#47196
  623. Transparent = True
  624. Visible = False
  625. end
  626. object TmrShow: TTimer
  627. Enabled = False
  628. Interval = 300
  629. OnTimer = TmrShowTimer
  630. Left = 256
  631. Top = 456
  632. end
  633. object ADOQry: TADOQuery
  634. Parameters = <>
  635. Left = 176
  636. Top = 308
  637. end
  638. object ADOSta: TADOQuery
  639. Parameters = <>
  640. Left = 120
  641. Top = 356
  642. end
  643. end