IHS0010MF.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373
  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. object Panel2: TPanel
  97. Left = 0
  98. Top = 0
  99. Width = 558
  100. Height = 69
  101. Align = alTop
  102. BevelOuter = bvNone
  103. ParentColor = True
  104. TabOrder = 0
  105. DesignSize = (
  106. 558
  107. 69)
  108. object ImgDesc1: TImage
  109. Left = 15
  110. Top = 13
  111. Width = 9
  112. Height = 9
  113. Transparent = True
  114. end
  115. object ImgDesc2: TImage
  116. Left = 15
  117. Top = 43
  118. Width = 9
  119. Height = 9
  120. Transparent = True
  121. end
  122. object cxLabel1: TcxLabel
  123. Left = 30
  124. Top = 8
  125. AutoSize = False
  126. Caption = #49884#51089#51068#49884
  127. Properties.Alignment.Horz = taRightJustify
  128. Properties.Alignment.Vert = taVCenter
  129. Transparent = True
  130. Height = 21
  131. Width = 84
  132. AnchorX = 114
  133. AnchorY = 19
  134. end
  135. object cxLabel2: TcxLabel
  136. Left = 30
  137. Top = 38
  138. AutoSize = False
  139. Caption = #51333#47308#51068#49884
  140. Properties.Alignment.Horz = taRightJustify
  141. Properties.Alignment.Vert = taVCenter
  142. Transparent = True
  143. Height = 21
  144. Width = 84
  145. AnchorX = 114
  146. AnchorY = 49
  147. end
  148. object BtnExlSave: TcxButton
  149. Left = 473
  150. Top = 38
  151. Width = 80
  152. Height = 25
  153. Cursor = crHandPoint
  154. Hint = #51312#54924' '#44208#44284#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  155. Anchors = [akTop, akRight]
  156. Caption = #51200#51109
  157. Colors.Default = 3893744
  158. TabOrder = 2
  159. Font.Charset = DEFAULT_CHARSET
  160. Font.Color = clWindowText
  161. Font.Height = -13
  162. Font.Name = #47569#51008' '#44256#46357
  163. Font.Style = [fsBold]
  164. ParentFont = False
  165. OnClick = BtnExlSaveClick
  166. end
  167. object DtStDate: TcxDateEdit
  168. Left = 116
  169. Top = 7
  170. EditValue = 39924d
  171. Properties.Alignment.Horz = taCenter
  172. Properties.DateButtons = [btnNow, btnToday]
  173. Properties.DateOnError = deToday
  174. Properties.SaveTime = False
  175. Properties.ShowTime = False
  176. Style.ButtonStyle = btsUltraFlat
  177. StyleFocused.TextStyle = [fsBold]
  178. StyleFocused.ButtonStyle = btsUltraFlat
  179. TabOrder = 3
  180. Width = 103
  181. end
  182. object DtStTime1: TcxTimeEdit
  183. Left = 408
  184. Top = -9
  185. EditValue = 0d
  186. Properties.Alignment.Horz = taCenter
  187. Properties.TimeFormat = tfHour
  188. Style.ButtonStyle = btsUltraFlat
  189. StyleFocused.TextStyle = [fsBold]
  190. TabOrder = 4
  191. Visible = False
  192. Width = 53
  193. end
  194. object DtEdDate: TcxDateEdit
  195. Left = 116
  196. Top = 38
  197. EditValue = 39924d
  198. Properties.Alignment.Horz = taCenter
  199. Properties.DateButtons = [btnNow, btnToday]
  200. Properties.DateOnError = deToday
  201. Properties.SaveTime = False
  202. Properties.ShowTime = False
  203. Style.ButtonStyle = btsUltraFlat
  204. StyleFocused.TextStyle = [fsBold]
  205. StyleFocused.ButtonStyle = btsUltraFlat
  206. TabOrder = 5
  207. Width = 103
  208. end
  209. object DtEdTime1: TcxTimeEdit
  210. Left = 408
  211. Top = 22
  212. EditValue = 0d
  213. Properties.Alignment.Horz = taCenter
  214. Properties.TimeFormat = tfHour
  215. Style.ButtonStyle = btsUltraFlat
  216. StyleFocused.TextStyle = [fsBold]
  217. TabOrder = 6
  218. Visible = False
  219. Width = 53
  220. end
  221. object DtStTime: TDateTimePicker
  222. Left = 225
  223. Top = 7
  224. Width = 95
  225. Height = 25
  226. BevelInner = bvNone
  227. BevelOuter = bvNone
  228. BevelKind = bkFlat
  229. Date = 39924.557697118050000000
  230. Format = ' HH:mm'
  231. Time = 39924.557697118050000000
  232. Color = clWhite
  233. DateMode = dmUpDown
  234. ImeName = 'Microsoft Office IME 2007'
  235. Kind = dtkTime
  236. ParentColor = True
  237. TabOrder = 7
  238. end
  239. object DtEdTime: TDateTimePicker
  240. Left = 225
  241. Top = 38
  242. Width = 95
  243. Height = 25
  244. BevelInner = bvNone
  245. BevelOuter = bvNone
  246. BevelKind = bkFlat
  247. Date = 39924.557697118050000000
  248. Format = ' HH:mm'
  249. Time = 39924.557697118050000000
  250. Color = clWhite
  251. DateMode = dmUpDown
  252. ImeName = 'Microsoft Office IME 2007'
  253. Kind = dtkTime
  254. ParentColor = True
  255. TabOrder = 8
  256. end
  257. end
  258. object CxList: TcxGrid
  259. Left = 0
  260. Top = 69
  261. Width = 558
  262. Height = 545
  263. Align = alClient
  264. TabOrder = 1
  265. object TvList: TcxGridTableView
  266. Navigator.Buttons.Append.Visible = True
  267. Navigator.Buttons.SaveBookmark.Visible = False
  268. Navigator.InfoPanel.Visible = True
  269. DataController.Filter.OnChanged = TvListDataControllerFilterChanged
  270. DataController.Summary.DefaultGroupSummaryItems = <>
  271. DataController.Summary.FooterSummaryItems = <>
  272. DataController.Summary.SummaryGroups = <>
  273. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  274. FilterRow.Visible = True
  275. OptionsBehavior.CellHints = True
  276. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  277. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  278. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  279. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  280. OptionsData.Deleting = False
  281. OptionsData.DeletingConfirmation = False
  282. OptionsData.Editing = False
  283. OptionsData.Inserting = False
  284. OptionsView.ColumnAutoWidth = True
  285. OptionsView.Indicator = True
  286. object Column01: TcxGridColumn
  287. Caption = 'ID'
  288. PropertiesClassName = 'TcxTextEditProperties'
  289. Properties.Alignment.Horz = taLeftJustify
  290. Properties.Alignment.Vert = taVCenter
  291. Properties.MaxLength = 0
  292. HeaderAlignmentHorz = taCenter
  293. Options.Editing = False
  294. Width = 80
  295. end
  296. object Column02: TcxGridColumn
  297. Caption = #47196#44536#51064' '#49884#44033
  298. PropertiesClassName = 'TcxTextEditProperties'
  299. Properties.Alignment.Horz = taCenter
  300. Properties.Alignment.Vert = taVCenter
  301. Properties.MaxLength = 0
  302. Properties.PasswordChar = '*'
  303. HeaderAlignmentHorz = taCenter
  304. Options.Editing = False
  305. Width = 77
  306. end
  307. object Column03: TcxGridColumn
  308. Caption = #47196#44536#50500#50883' '#49884#44033
  309. PropertiesClassName = 'TcxTextEditProperties'
  310. Properties.Alignment.Horz = taCenter
  311. Properties.Alignment.Vert = taVCenter
  312. Properties.MaxLength = 0
  313. HeaderAlignmentHorz = taCenter
  314. Options.Editing = False
  315. Width = 82
  316. end
  317. end
  318. object GlList: TcxGridLevel
  319. GridView = TvList
  320. end
  321. end
  322. end
  323. end
  324. object BtnClose: TcxButton
  325. Left = 495
  326. Top = 11
  327. Width = 80
  328. Height = 25
  329. Cursor = crHandPoint
  330. Hint = #45803#44592
  331. Anchors = [akTop, akRight]
  332. Caption = #45803#44592
  333. Colors.Default = 10737865
  334. TabOrder = 2
  335. Font.Charset = DEFAULT_CHARSET
  336. Font.Color = clBlack
  337. Font.Height = -13
  338. Font.Name = #47569#51008' '#44256#46357
  339. Font.Style = [fsBold]
  340. ParentFont = False
  341. OnClick = BtnCloseClick
  342. end
  343. object BtnSearch: TcxButton
  344. Left = 357
  345. Top = 122
  346. Width = 80
  347. Height = 25
  348. Cursor = crHandPoint
  349. Hint = #45936#51060#53552#47484' '#44160#49353#54633#45768#45796'.'
  350. Caption = #51312#54924
  351. Colors.Default = 3893744
  352. TabOrder = 1
  353. Font.Charset = DEFAULT_CHARSET
  354. Font.Color = clWindowText
  355. Font.Height = -13
  356. Font.Name = #47569#51008' '#44256#46357
  357. Font.Style = [fsBold]
  358. ParentFont = False
  359. OnClick = BtnSearchClick
  360. end
  361. object TmrRefresh: TTimer
  362. Enabled = False
  363. Interval = 500
  364. OnTimer = TmrRefreshTimer
  365. Left = 305
  366. Top = 441
  367. end
  368. object ADOQry: TADOQuery
  369. Parameters = <>
  370. Left = 72
  371. Top = 264
  372. end
  373. end