IHS0010MF.dfm 11 KB

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