IHS0010MF.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387
  1. object IHS0010M: TIHS0010M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = #50868#50689#51088' '#51217#49549' '#51060#47141#51312#54924
  7. ClientHeight = 713
  8. ClientWidth = 589
  9. Color = clWhite
  10. DoubleBuffered = True
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -13
  14. Font.Name = #47569#51008' '#44256#46357
  15. Font.Style = []
  16. KeyPreview = True
  17. OldCreateOrder = False
  18. Position = poOwnerFormCenter
  19. ShowHint = True
  20. OnClose = FormClose
  21. OnShow = FormShow
  22. DesignSize = (
  23. 589
  24. 713)
  25. PixelsPerInch = 96
  26. TextHeight = 17
  27. object ShpList: TShape
  28. Left = 4
  29. Top = 50
  30. Width = 580
  31. Height = 659
  32. Anchors = [akLeft, akTop, akRight, akBottom]
  33. Pen.Color = 10849679
  34. Pen.Width = 2
  35. ExplicitWidth = 1346
  36. ExplicitHeight = 709
  37. end
  38. object ShpTitle: TShape
  39. Left = 4
  40. Top = 4
  41. Width = 581
  42. Height = 40
  43. Anchors = [akLeft, akTop, akRight]
  44. Brush.Color = 14671839
  45. Pen.Color = 10849679
  46. Pen.Width = 2
  47. ExplicitWidth = 1269
  48. end
  49. object LblCaption: TLabel
  50. Left = 16
  51. Top = 10
  52. Width = 267
  53. Height = 23
  54. Caption = #53440#51060#53952' '
  55. Font.Charset = DEFAULT_CHARSET
  56. Font.Color = 4740964
  57. Font.Height = -17
  58. Font.Name = #47569#51008' '#44256#46357
  59. Font.Style = [fsBold]
  60. ParentFont = False
  61. ParentShowHint = False
  62. ShowHint = True
  63. end
  64. object LblRecords: TLabel
  65. Left = 426
  66. Top = 16
  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. ExplicitLeft = 370
  75. end
  76. object PgList: TcxPageControl
  77. Left = 11
  78. Top = 56
  79. Width = 565
  80. Height = 647
  81. Anchors = [akLeft, akTop, akRight, akBottom]
  82. Focusable = False
  83. ParentBackground = False
  84. ParentShowHint = False
  85. ShowHint = False
  86. TabOrder = 0
  87. Properties.ActivePage = TsList
  88. Properties.HotTrack = True
  89. ClientRectBottom = 642
  90. ClientRectLeft = 2
  91. ClientRectRight = 560
  92. ClientRectTop = 28
  93. object TsList: TcxTabSheet
  94. Caption = #50868#50689#51088' '#51217#49549#51060#47141' '
  95. ImageIndex = 0
  96. ExplicitLeft = 0
  97. ExplicitTop = 0
  98. ExplicitWidth = 0
  99. ExplicitHeight = 0
  100. object Panel2: TPanel
  101. Left = 0
  102. Top = 0
  103. Width = 558
  104. Height = 69
  105. Align = alTop
  106. BevelOuter = bvNone
  107. ParentColor = True
  108. TabOrder = 0
  109. DesignSize = (
  110. 558
  111. 69)
  112. object ImgDesc1: TImage
  113. Left = 15
  114. Top = 13
  115. Width = 9
  116. Height = 9
  117. Transparent = True
  118. end
  119. object ImgDesc2: TImage
  120. Left = 15
  121. Top = 43
  122. Width = 9
  123. Height = 9
  124. Transparent = True
  125. end
  126. object cxLabel1: TcxLabel
  127. Left = 30
  128. Top = 8
  129. AutoSize = False
  130. Caption = #49884#51089#51068#49884
  131. Properties.Alignment.Horz = taRightJustify
  132. Properties.Alignment.Vert = taVCenter
  133. Transparent = True
  134. Height = 21
  135. Width = 84
  136. AnchorX = 114
  137. AnchorY = 19
  138. end
  139. object cxLabel2: TcxLabel
  140. Left = 30
  141. Top = 38
  142. AutoSize = False
  143. Caption = #51333#47308#51068#49884
  144. Properties.Alignment.Horz = taRightJustify
  145. Properties.Alignment.Vert = taVCenter
  146. Transparent = True
  147. Height = 21
  148. Width = 84
  149. AnchorX = 114
  150. AnchorY = 49
  151. end
  152. object BtnExlSave: TcxButton
  153. Left = 473
  154. Top = 38
  155. Width = 80
  156. Height = 25
  157. Cursor = crHandPoint
  158. Hint = #51312#54924' '#44208#44284#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  159. Anchors = [akTop, akRight]
  160. Caption = #51200#51109
  161. Colors.Default = 3893744
  162. TabOrder = 2
  163. Font.Charset = DEFAULT_CHARSET
  164. Font.Color = clWindowText
  165. Font.Height = -13
  166. Font.Name = #47569#51008' '#44256#46357
  167. Font.Style = [fsBold]
  168. ParentFont = False
  169. OnClick = BtnExlSaveClick
  170. end
  171. object DtStTime1: TcxTimeEdit
  172. Left = 408
  173. Top = -9
  174. EditValue = 0d
  175. Properties.Alignment.Horz = taCenter
  176. Properties.TimeFormat = tfHour
  177. Style.ButtonStyle = btsUltraFlat
  178. StyleFocused.TextStyle = [fsBold]
  179. TabOrder = 3
  180. Visible = False
  181. Width = 53
  182. end
  183. object DtEdTime1: TcxTimeEdit
  184. Left = 408
  185. Top = 22
  186. EditValue = 0d
  187. Properties.Alignment.Horz = taCenter
  188. Properties.TimeFormat = tfHour
  189. Style.ButtonStyle = btsUltraFlat
  190. StyleFocused.TextStyle = [fsBold]
  191. TabOrder = 4
  192. Visible = False
  193. Width = 53
  194. end
  195. object DtEdTime: TDateTimePicker
  196. Left = 247
  197. Top = 36
  198. Width = 75
  199. Height = 25
  200. BevelInner = bvNone
  201. BevelOuter = bvNone
  202. BevelKind = bkFlat
  203. Date = 40452.000000000000000000
  204. Format = ' HH:mm'
  205. Time = 40452.000000000000000000
  206. Color = clWhite
  207. DateMode = dmUpDown
  208. Font.Charset = DEFAULT_CHARSET
  209. Font.Color = clWindowText
  210. Font.Height = -13
  211. Font.Name = #47569#51008' '#44256#46357
  212. Font.Style = []
  213. ImeName = 'Microsoft Office IME 2007'
  214. Kind = dtkTime
  215. ParentColor = True
  216. ParentFont = False
  217. TabOrder = 5
  218. end
  219. object DtEdDate: TDateTimePicker
  220. Left = 120
  221. Top = 36
  222. Width = 121
  223. Height = 25
  224. BevelInner = bvNone
  225. BevelOuter = bvNone
  226. Date = 40452.000000000000000000
  227. Time = 40452.000000000000000000
  228. Color = clWhite
  229. ImeName = 'Microsoft Office IME 2007'
  230. ParentColor = True
  231. TabOrder = 6
  232. end
  233. object DtStDate: TDateTimePicker
  234. Left = 120
  235. Top = 7
  236. Width = 121
  237. Height = 25
  238. BevelInner = bvNone
  239. BevelOuter = bvNone
  240. Date = 40452.000000000000000000
  241. Time = 40452.000000000000000000
  242. Color = clWhite
  243. ImeName = 'Microsoft Office IME 2007'
  244. ParentColor = True
  245. TabOrder = 7
  246. end
  247. object DtStTime: TDateTimePicker
  248. Left = 247
  249. Top = 7
  250. Width = 75
  251. Height = 25
  252. BevelInner = bvNone
  253. BevelOuter = bvNone
  254. BevelKind = bkFlat
  255. Date = 40452.000000000000000000
  256. Format = ' HH:mm'
  257. Time = 40452.000000000000000000
  258. Color = clWhite
  259. DateMode = dmUpDown
  260. Font.Charset = DEFAULT_CHARSET
  261. Font.Color = clWindowText
  262. Font.Height = -13
  263. Font.Name = #47569#51008' '#44256#46357
  264. Font.Style = []
  265. ImeName = 'Microsoft Office IME 2007'
  266. Kind = dtkTime
  267. ParentColor = True
  268. ParentFont = False
  269. TabOrder = 8
  270. end
  271. end
  272. object CxList: TcxGrid
  273. Left = 0
  274. Top = 69
  275. Width = 558
  276. Height = 545
  277. Align = alClient
  278. TabOrder = 1
  279. object TvList: TcxGridTableView
  280. Navigator.Buttons.Append.Visible = True
  281. Navigator.Buttons.SaveBookmark.Visible = False
  282. Navigator.InfoPanel.Visible = True
  283. DataController.Filter.OnChanged = TvListDataControllerFilterChanged
  284. DataController.Summary.DefaultGroupSummaryItems = <>
  285. DataController.Summary.FooterSummaryItems = <>
  286. DataController.Summary.SummaryGroups = <>
  287. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  288. FilterRow.Visible = True
  289. OptionsBehavior.CellHints = True
  290. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  291. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  292. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  293. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  294. OptionsData.Deleting = False
  295. OptionsData.DeletingConfirmation = False
  296. OptionsData.Editing = False
  297. OptionsData.Inserting = False
  298. OptionsView.ColumnAutoWidth = True
  299. OptionsView.Indicator = True
  300. object Column01: TcxGridColumn
  301. Caption = 'ID'
  302. PropertiesClassName = 'TcxTextEditProperties'
  303. Properties.Alignment.Horz = taLeftJustify
  304. Properties.Alignment.Vert = taVCenter
  305. Properties.MaxLength = 0
  306. HeaderAlignmentHorz = taCenter
  307. Options.Editing = False
  308. Width = 80
  309. end
  310. object Column02: TcxGridColumn
  311. Caption = #47196#44536#51064' '#49884#44033
  312. PropertiesClassName = 'TcxTextEditProperties'
  313. Properties.Alignment.Horz = taCenter
  314. Properties.Alignment.Vert = taVCenter
  315. Properties.MaxLength = 0
  316. Properties.PasswordChar = '*'
  317. HeaderAlignmentHorz = taCenter
  318. Options.Editing = False
  319. Width = 77
  320. end
  321. object Column03: TcxGridColumn
  322. Caption = #47196#44536#50500#50883' '#49884#44033
  323. PropertiesClassName = 'TcxTextEditProperties'
  324. Properties.Alignment.Horz = taCenter
  325. Properties.Alignment.Vert = taVCenter
  326. Properties.MaxLength = 0
  327. HeaderAlignmentHorz = taCenter
  328. Options.Editing = False
  329. Width = 82
  330. end
  331. end
  332. object GlList: TcxGridLevel
  333. GridView = TvList
  334. end
  335. end
  336. end
  337. end
  338. object BtnClose: TcxButton
  339. Left = 495
  340. Top = 11
  341. Width = 80
  342. Height = 25
  343. Cursor = crHandPoint
  344. Hint = #45803#44592
  345. Anchors = [akTop, akRight]
  346. Caption = #45803#44592
  347. Colors.Default = 10737865
  348. TabOrder = 2
  349. Font.Charset = DEFAULT_CHARSET
  350. Font.Color = clBlack
  351. Font.Height = -13
  352. Font.Name = #47569#51008' '#44256#46357
  353. Font.Style = [fsBold]
  354. ParentFont = False
  355. OnClick = BtnCloseClick
  356. end
  357. object BtnSearch: TcxButton
  358. Left = 357
  359. Top = 122
  360. Width = 80
  361. Height = 25
  362. Cursor = crHandPoint
  363. Hint = #45936#51060#53552#47484' '#44160#49353#54633#45768#45796'.'
  364. Caption = #51312#54924
  365. Colors.Default = 3893744
  366. TabOrder = 1
  367. Font.Charset = DEFAULT_CHARSET
  368. Font.Color = clWindowText
  369. Font.Height = -13
  370. Font.Name = #47569#51008' '#44256#46357
  371. Font.Style = [fsBold]
  372. ParentFont = False
  373. OnClick = BtnSearchClick
  374. end
  375. object TmrRefresh: TTimer
  376. Enabled = False
  377. Interval = 500
  378. OnTimer = TmrRefreshTimer
  379. Left = 305
  380. Top = 441
  381. end
  382. object ADOQry: TADOQuery
  383. Parameters = <>
  384. Left = 72
  385. Top = 264
  386. end
  387. end