IHS0010MF.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377
  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 DtStDate: TcxDateEdit
  172. Left = 116
  173. Top = 7
  174. EditValue = 39924d
  175. Properties.Alignment.Horz = taCenter
  176. Properties.DateButtons = [btnNow, btnToday]
  177. Properties.DateOnError = deToday
  178. Properties.SaveTime = False
  179. Properties.ShowTime = False
  180. Style.ButtonStyle = btsUltraFlat
  181. StyleFocused.TextStyle = [fsBold]
  182. StyleFocused.ButtonStyle = btsUltraFlat
  183. TabOrder = 3
  184. Width = 103
  185. end
  186. object DtStTime1: TcxTimeEdit
  187. Left = 408
  188. Top = -9
  189. EditValue = 0d
  190. Properties.Alignment.Horz = taCenter
  191. Properties.TimeFormat = tfHour
  192. Style.ButtonStyle = btsUltraFlat
  193. StyleFocused.TextStyle = [fsBold]
  194. TabOrder = 4
  195. Visible = False
  196. Width = 53
  197. end
  198. object DtEdDate: TcxDateEdit
  199. Left = 116
  200. Top = 38
  201. EditValue = 39924d
  202. Properties.Alignment.Horz = taCenter
  203. Properties.DateButtons = [btnNow, btnToday]
  204. Properties.DateOnError = deToday
  205. Properties.SaveTime = False
  206. Properties.ShowTime = False
  207. Style.ButtonStyle = btsUltraFlat
  208. StyleFocused.TextStyle = [fsBold]
  209. StyleFocused.ButtonStyle = btsUltraFlat
  210. TabOrder = 5
  211. Width = 103
  212. end
  213. object DtEdTime1: TcxTimeEdit
  214. Left = 408
  215. Top = 22
  216. EditValue = 0d
  217. Properties.Alignment.Horz = taCenter
  218. Properties.TimeFormat = tfHour
  219. Style.ButtonStyle = btsUltraFlat
  220. StyleFocused.TextStyle = [fsBold]
  221. TabOrder = 6
  222. Visible = False
  223. Width = 53
  224. end
  225. object DtStTime: TDateTimePicker
  226. Left = 225
  227. Top = 7
  228. Width = 95
  229. Height = 25
  230. BevelInner = bvNone
  231. BevelOuter = bvNone
  232. BevelKind = bkFlat
  233. Date = 39924.557697118050000000
  234. Format = ' HH:mm'
  235. Time = 39924.557697118050000000
  236. Color = clWhite
  237. DateMode = dmUpDown
  238. ImeName = 'Microsoft Office IME 2007'
  239. Kind = dtkTime
  240. ParentColor = True
  241. TabOrder = 7
  242. end
  243. object DtEdTime: TDateTimePicker
  244. Left = 225
  245. Top = 38
  246. Width = 95
  247. Height = 25
  248. BevelInner = bvNone
  249. BevelOuter = bvNone
  250. BevelKind = bkFlat
  251. Date = 39924.557697118050000000
  252. Format = ' HH:mm'
  253. Time = 39924.557697118050000000
  254. Color = clWhite
  255. DateMode = dmUpDown
  256. ImeName = 'Microsoft Office IME 2007'
  257. Kind = dtkTime
  258. ParentColor = True
  259. TabOrder = 8
  260. end
  261. end
  262. object CxList: TcxGrid
  263. Left = 0
  264. Top = 69
  265. Width = 558
  266. Height = 545
  267. Align = alClient
  268. TabOrder = 1
  269. object TvList: TcxGridTableView
  270. Navigator.Buttons.Append.Visible = True
  271. Navigator.Buttons.SaveBookmark.Visible = False
  272. Navigator.InfoPanel.Visible = True
  273. DataController.Filter.OnChanged = TvListDataControllerFilterChanged
  274. DataController.Summary.DefaultGroupSummaryItems = <>
  275. DataController.Summary.FooterSummaryItems = <>
  276. DataController.Summary.SummaryGroups = <>
  277. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  278. FilterRow.Visible = True
  279. OptionsBehavior.CellHints = True
  280. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  281. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  282. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  283. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  284. OptionsData.Deleting = False
  285. OptionsData.DeletingConfirmation = False
  286. OptionsData.Editing = False
  287. OptionsData.Inserting = False
  288. OptionsView.ColumnAutoWidth = True
  289. OptionsView.Indicator = True
  290. object Column01: TcxGridColumn
  291. Caption = 'ID'
  292. PropertiesClassName = 'TcxTextEditProperties'
  293. Properties.Alignment.Horz = taLeftJustify
  294. Properties.Alignment.Vert = taVCenter
  295. Properties.MaxLength = 0
  296. HeaderAlignmentHorz = taCenter
  297. Options.Editing = False
  298. Width = 80
  299. end
  300. object Column02: TcxGridColumn
  301. Caption = #47196#44536#51064' '#49884#44033
  302. PropertiesClassName = 'TcxTextEditProperties'
  303. Properties.Alignment.Horz = taCenter
  304. Properties.Alignment.Vert = taVCenter
  305. Properties.MaxLength = 0
  306. Properties.PasswordChar = '*'
  307. HeaderAlignmentHorz = taCenter
  308. Options.Editing = False
  309. Width = 77
  310. end
  311. object Column03: TcxGridColumn
  312. Caption = #47196#44536#50500#50883' '#49884#44033
  313. PropertiesClassName = 'TcxTextEditProperties'
  314. Properties.Alignment.Horz = taCenter
  315. Properties.Alignment.Vert = taVCenter
  316. Properties.MaxLength = 0
  317. HeaderAlignmentHorz = taCenter
  318. Options.Editing = False
  319. Width = 82
  320. end
  321. end
  322. object GlList: TcxGridLevel
  323. GridView = TvList
  324. end
  325. end
  326. end
  327. end
  328. object BtnClose: TcxButton
  329. Left = 495
  330. Top = 11
  331. Width = 80
  332. Height = 25
  333. Cursor = crHandPoint
  334. Hint = #45803#44592
  335. Anchors = [akTop, akRight]
  336. Caption = #45803#44592
  337. Colors.Default = 10737865
  338. TabOrder = 2
  339. Font.Charset = DEFAULT_CHARSET
  340. Font.Color = clBlack
  341. Font.Height = -13
  342. Font.Name = #47569#51008' '#44256#46357
  343. Font.Style = [fsBold]
  344. ParentFont = False
  345. OnClick = BtnCloseClick
  346. end
  347. object BtnSearch: TcxButton
  348. Left = 357
  349. Top = 122
  350. Width = 80
  351. Height = 25
  352. Cursor = crHandPoint
  353. Hint = #45936#51060#53552#47484' '#44160#49353#54633#45768#45796'.'
  354. Caption = #51312#54924
  355. Colors.Default = 3893744
  356. TabOrder = 1
  357. Font.Charset = DEFAULT_CHARSET
  358. Font.Color = clWindowText
  359. Font.Height = -13
  360. Font.Name = #47569#51008' '#44256#46357
  361. Font.Style = [fsBold]
  362. ParentFont = False
  363. OnClick = BtnSearchClick
  364. end
  365. object TmrRefresh: TTimer
  366. Enabled = False
  367. Interval = 500
  368. OnTimer = TmrRefreshTimer
  369. Left = 305
  370. Top = 441
  371. end
  372. object ADOQry: TADOQuery
  373. Parameters = <>
  374. Left = 72
  375. Top = 264
  376. end
  377. end