IAN0040MF.dfm 18 KB

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