IHS00701F.dfm 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515
  1. object IHS00701: TIHS00701
  2. Tag = 99
  3. Left = 0
  4. Top = 0
  5. HorzScrollBar.Visible = False
  6. VertScrollBar.Visible = False
  7. Align = alClient
  8. BorderStyle = bsNone
  9. Caption = #44368#52264#47196' '#44368#53685#47049' '#48516#49437
  10. ClientHeight = 698
  11. ClientWidth = 1034
  12. Color = clBtnFace
  13. DoubleBuffered = True
  14. Font.Charset = DEFAULT_CHARSET
  15. Font.Color = clWindowText
  16. Font.Height = -13
  17. Font.Name = #47569#51008' '#44256#46357
  18. Font.Style = []
  19. KeyPreview = True
  20. OldCreateOrder = False
  21. WindowState = wsMaximized
  22. OnClose = FormClose
  23. OnDestroy = FormDestroy
  24. OnShow = FormShow
  25. ExplicitWidth = 320
  26. ExplicitHeight = 240
  27. PixelsPerInch = 96
  28. TextHeight = 17
  29. object PnlTop: TPanel
  30. Left = 0
  31. Top = 0
  32. Width = 1034
  33. Height = 34
  34. Align = alTop
  35. BevelOuter = bvNone
  36. TabOrder = 0
  37. DesignSize = (
  38. 1034
  39. 34)
  40. object LblSearch: TLabel
  41. Left = 20
  42. Top = 9
  43. Width = 52
  44. Height = 17
  45. Caption = #44160#49353#51312#44148
  46. Transparent = True
  47. end
  48. object ImgDesc01: TImage
  49. Left = 5
  50. Top = 12
  51. Width = 9
  52. Height = 9
  53. Transparent = True
  54. end
  55. object LblRecords: TLabel
  56. Left = 884
  57. Top = 9
  58. Width = 52
  59. Height = 17
  60. Alignment = taRightJustify
  61. Anchors = [akTop, akRight]
  62. Caption = #51312#54924#44148#49688
  63. Transparent = True
  64. end
  65. object BtnExlSave: TcxButton
  66. Left = 952
  67. Top = 5
  68. Width = 75
  69. Height = 25
  70. Cursor = crHandPoint
  71. Hint = #51312#54924' '#44208#44284' '#45936#51060#53552#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  72. Anchors = [akTop, akRight]
  73. Caption = #51200#51109
  74. Colors.Default = 3893744
  75. TabOrder = 0
  76. Font.Charset = DEFAULT_CHARSET
  77. Font.Color = clWindowText
  78. Font.Height = -13
  79. Font.Name = #47569#51008' '#44256#46357
  80. Font.Style = [fsBold]
  81. ParentFont = False
  82. OnClick = BtnExlSaveClick
  83. end
  84. end
  85. object PnlList: TPanel
  86. Left = 0
  87. Top = 34
  88. Width = 1034
  89. Height = 664
  90. Align = alClient
  91. BevelOuter = bvNone
  92. TabOrder = 1
  93. DesignSize = (
  94. 1034
  95. 664)
  96. object CxList: TcxGrid
  97. Left = 0
  98. Top = 0
  99. Width = 1034
  100. Height = 664
  101. Align = alClient
  102. TabOrder = 1
  103. object TvList: TcxGridTableView
  104. Navigator.Buttons.Append.Visible = True
  105. Navigator.Buttons.SaveBookmark.Visible = False
  106. Navigator.InfoPanel.Visible = True
  107. DataController.Summary.DefaultGroupSummaryItems = <
  108. item
  109. Format = '#,##0'
  110. Kind = skSum
  111. Column = Column05
  112. end
  113. item
  114. Format = '#,##0'
  115. Kind = skSum
  116. Column = Column06
  117. end
  118. item
  119. Format = '#,##0'
  120. Kind = skSum
  121. Column = Column07
  122. end
  123. item
  124. Format = '#,##0'
  125. Kind = skSum
  126. Column = Column08
  127. end
  128. item
  129. Format = '#,##0'
  130. Kind = skSum
  131. Column = Column09
  132. end
  133. item
  134. Format = '#,##0'
  135. Kind = skSum
  136. Position = spFooter
  137. Column = Column05
  138. end
  139. item
  140. Format = '#,##0'
  141. Kind = skSum
  142. Position = spFooter
  143. Column = Column06
  144. end
  145. item
  146. Format = '#,##0'
  147. Kind = skSum
  148. Position = spFooter
  149. Column = Column07
  150. end
  151. item
  152. Format = '#,##0'
  153. Kind = skSum
  154. Position = spFooter
  155. Column = Column08
  156. end
  157. item
  158. Format = '#,##0'
  159. Kind = skSum
  160. Position = spFooter
  161. Column = Column09
  162. end
  163. item
  164. Format = #49548#44228
  165. Position = spFooter
  166. OnGetText = TvListTcxGridDataControllerTcxDataSummaryDefaultGroupSummaryItems10GetText
  167. Column = Column04
  168. end
  169. item
  170. Format = #49548#44228
  171. Column = Column04
  172. end>
  173. DataController.Summary.FooterSummaryItems = <
  174. item
  175. Format = '#,##0'
  176. Kind = skSum
  177. Column = Column05
  178. end
  179. item
  180. Format = '#,##0'
  181. Kind = skSum
  182. Column = Column06
  183. end
  184. item
  185. Format = '#,##0'
  186. Kind = skSum
  187. Column = Column07
  188. end
  189. item
  190. Format = '#,##0'
  191. Kind = skSum
  192. Column = Column08
  193. end
  194. item
  195. Format = '#,##0'
  196. Kind = skSum
  197. Column = Column09
  198. end
  199. item
  200. Format = #54633#44228
  201. OnGetText = TvListTcxGridDataControllerTcxDataSummaryFooterSummaryItems4GetText
  202. Column = Column04
  203. end>
  204. DataController.Summary.SummaryGroups = <
  205. item
  206. Links = <
  207. item
  208. end>
  209. SummaryItems = <
  210. item
  211. Format = '#,###'
  212. Kind = skCount
  213. Column = Column05
  214. end
  215. item
  216. Format = '#,###'
  217. Kind = skCount
  218. Column = Column06
  219. end
  220. item
  221. Format = '#,###'
  222. Kind = skCount
  223. Column = Column07
  224. end
  225. item
  226. Format = '#,###'
  227. Kind = skCount
  228. Column = Column08
  229. end
  230. item
  231. Column = Column04
  232. end
  233. item
  234. Column = Column04
  235. end>
  236. end>
  237. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  238. OptionsBehavior.CellHints = True
  239. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  240. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  241. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  242. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  243. OptionsCustomize.ColumnsQuickCustomization = True
  244. OptionsData.Deleting = False
  245. OptionsData.DeletingConfirmation = False
  246. OptionsData.Editing = False
  247. OptionsData.Inserting = False
  248. OptionsView.Footer = True
  249. OptionsView.GroupFooters = gfVisibleWhenExpanded
  250. OptionsView.GroupSummaryLayout = gslAlignWithColumns
  251. OptionsView.Indicator = True
  252. Styles.Footer = cxStyle2
  253. Styles.GroupSummary = cxStyle1
  254. object Column01: TcxGridColumn
  255. Caption = #46020#47196#47749
  256. PropertiesClassName = 'TcxLabelProperties'
  257. Properties.Alignment.Vert = taVCenter
  258. HeaderAlignmentHorz = taCenter
  259. HeaderAlignmentVert = vaCenter
  260. Options.Editing = False
  261. Width = 113
  262. end
  263. object Column02: TcxGridColumn
  264. Caption = #44368#52264#47196#47749
  265. PropertiesClassName = 'TcxLabelProperties'
  266. Properties.Alignment.Vert = taVCenter
  267. HeaderAlignmentHorz = taCenter
  268. HeaderAlignmentVert = vaCenter
  269. Options.Editing = False
  270. Width = 114
  271. end
  272. object Column03: TcxGridColumn
  273. Caption = #48169#54693
  274. PropertiesClassName = 'TcxLabelProperties'
  275. Properties.Alignment.Vert = taVCenter
  276. HeaderAlignmentHorz = taCenter
  277. HeaderAlignmentVert = vaCenter
  278. Options.Editing = False
  279. Width = 110
  280. end
  281. object Column04: TcxGridColumn
  282. Caption = #49884#44033
  283. PropertiesClassName = 'TcxLabelProperties'
  284. Properties.Alignment.Horz = taCenter
  285. Properties.Alignment.Vert = taVCenter
  286. FooterAlignmentHorz = taCenter
  287. GroupSummaryAlignment = taCenter
  288. HeaderAlignmentHorz = taCenter
  289. HeaderAlignmentVert = vaCenter
  290. Options.Editing = False
  291. Width = 165
  292. end
  293. object Column05: TcxGridColumn
  294. Caption = #51649#51652
  295. DataBinding.ValueType = 'Integer'
  296. PropertiesClassName = 'TcxCalcEditProperties'
  297. Properties.Alignment.Horz = taRightJustify
  298. Properties.Alignment.Vert = taVCenter
  299. Properties.DisplayFormat = '#,###'
  300. FooterAlignmentHorz = taRightJustify
  301. GroupSummaryAlignment = taRightJustify
  302. HeaderAlignmentHorz = taCenter
  303. HeaderAlignmentVert = vaCenter
  304. Width = 70
  305. end
  306. object Column06: TcxGridColumn
  307. Caption = #51340#54924#51204
  308. DataBinding.ValueType = 'Integer'
  309. PropertiesClassName = 'TcxCalcEditProperties'
  310. Properties.Alignment.Horz = taRightJustify
  311. Properties.Alignment.Vert = taVCenter
  312. Properties.DisplayFormat = '#,###'
  313. FooterAlignmentHorz = taRightJustify
  314. GroupSummaryAlignment = taRightJustify
  315. HeaderAlignmentHorz = taCenter
  316. HeaderAlignmentVert = vaCenter
  317. Width = 70
  318. end
  319. object Column07: TcxGridColumn
  320. Caption = #50864#54924#51204
  321. DataBinding.ValueType = 'Integer'
  322. PropertiesClassName = 'TcxCalcEditProperties'
  323. Properties.Alignment.Horz = taRightJustify
  324. Properties.Alignment.Vert = taVCenter
  325. Properties.DisplayFormat = '#,###'
  326. FooterAlignmentHorz = taRightJustify
  327. GroupSummaryAlignment = taRightJustify
  328. HeaderAlignmentHorz = taCenter
  329. HeaderAlignmentVert = vaCenter
  330. Width = 70
  331. end
  332. object Column08: TcxGridColumn
  333. Caption = #50976#53556
  334. DataBinding.ValueType = 'Integer'
  335. PropertiesClassName = 'TcxCalcEditProperties'
  336. Properties.Alignment.Horz = taRightJustify
  337. Properties.Alignment.Vert = taVCenter
  338. Properties.DisplayFormat = '#,###'
  339. FooterAlignmentHorz = taRightJustify
  340. GroupSummaryAlignment = taRightJustify
  341. HeaderAlignmentHorz = taCenter
  342. HeaderAlignmentVert = vaCenter
  343. Width = 70
  344. end
  345. object Column09: TcxGridColumn
  346. Caption = #54633#44228
  347. DataBinding.ValueType = 'Integer'
  348. PropertiesClassName = 'TcxCalcEditProperties'
  349. Properties.Alignment.Horz = taRightJustify
  350. Properties.Alignment.Vert = taVCenter
  351. Properties.DisplayFormat = '#,###'
  352. FooterAlignmentHorz = taRightJustify
  353. GroupSummaryAlignment = taRightJustify
  354. HeaderAlignmentHorz = taCenter
  355. HeaderAlignmentVert = vaCenter
  356. Width = 110
  357. end
  358. object Column10: TcxGridColumn
  359. PropertiesClassName = 'TcxLabelProperties'
  360. Properties.Alignment.Vert = taVCenter
  361. Visible = False
  362. HeaderAlignmentHorz = taCenter
  363. HeaderAlignmentVert = vaCenter
  364. VisibleForCustomization = False
  365. Width = 110
  366. end
  367. object Column11: TcxGridColumn
  368. PropertiesClassName = 'TcxLabelProperties'
  369. Properties.Alignment.Vert = taVCenter
  370. Visible = False
  371. HeaderAlignmentHorz = taCenter
  372. HeaderAlignmentVert = vaCenter
  373. VisibleForCustomization = False
  374. Width = 110
  375. end
  376. object Column12: TcxGridColumn
  377. PropertiesClassName = 'TcxLabelProperties'
  378. Properties.Alignment.Vert = taVCenter
  379. Visible = False
  380. HeaderAlignmentHorz = taCenter
  381. HeaderAlignmentVert = vaCenter
  382. VisibleForCustomization = False
  383. Width = 110
  384. end
  385. object Column13: TcxGridColumn
  386. PropertiesClassName = 'TcxLabelProperties'
  387. Properties.Alignment.Vert = taVCenter
  388. Visible = False
  389. HeaderAlignmentHorz = taCenter
  390. HeaderAlignmentVert = vaCenter
  391. VisibleForCustomization = False
  392. Width = 110
  393. end
  394. object Column14: TcxGridColumn
  395. PropertiesClassName = 'TcxLabelProperties'
  396. Properties.Alignment.Vert = taVCenter
  397. Visible = False
  398. HeaderAlignmentHorz = taCenter
  399. HeaderAlignmentVert = vaCenter
  400. VisibleForCustomization = False
  401. Width = 110
  402. end
  403. object Column15: TcxGridColumn
  404. PropertiesClassName = 'TcxLabelProperties'
  405. Properties.Alignment.Vert = taVCenter
  406. Visible = False
  407. HeaderAlignmentHorz = taCenter
  408. HeaderAlignmentVert = vaCenter
  409. VisibleForCustomization = False
  410. Width = 110
  411. end
  412. object Column16: TcxGridColumn
  413. PropertiesClassName = 'TcxLabelProperties'
  414. Properties.Alignment.Vert = taVCenter
  415. Visible = False
  416. HeaderAlignmentHorz = taCenter
  417. HeaderAlignmentVert = vaCenter
  418. VisibleForCustomization = False
  419. Width = 110
  420. end
  421. object Column17: TcxGridColumn
  422. PropertiesClassName = 'TcxLabelProperties'
  423. Properties.Alignment.Vert = taVCenter
  424. Visible = False
  425. HeaderAlignmentHorz = taCenter
  426. HeaderAlignmentVert = vaCenter
  427. VisibleForCustomization = False
  428. Width = 110
  429. end
  430. object Column18: TcxGridColumn
  431. PropertiesClassName = 'TcxLabelProperties'
  432. Properties.Alignment.Vert = taVCenter
  433. Visible = False
  434. HeaderAlignmentHorz = taCenter
  435. HeaderAlignmentVert = vaCenter
  436. VisibleForCustomization = False
  437. Width = 110
  438. end
  439. end
  440. object GlList: TcxGridLevel
  441. GridView = TvList
  442. end
  443. end
  444. object ChkExpand: TcxCheckBox
  445. Tag = 9
  446. Left = 920
  447. Top = 7
  448. Cursor = crHandPoint
  449. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  450. Anchors = [akTop, akRight]
  451. Caption = #54869#51109'/'#52629#49548
  452. ParentBackground = False
  453. ParentColor = False
  454. ParentShowHint = False
  455. ShowHint = True
  456. State = cbsChecked
  457. Style.BorderColor = 9868950
  458. Style.BorderStyle = ebsThick
  459. Style.Color = 14671839
  460. Style.Shadow = False
  461. TabOrder = 0
  462. Transparent = True
  463. OnClick = ChkExpandClick
  464. Width = 85
  465. end
  466. end
  467. object lblFileName: TcxLabel
  468. Left = 85
  469. Top = 262
  470. Caption = #49688#51665#45936#51060#53552#48516#49437
  471. Transparent = True
  472. Visible = False
  473. end
  474. object ADOQry: TADOQuery
  475. Parameters = <>
  476. Left = 240
  477. Top = 148
  478. end
  479. object TmrShow: TTimer
  480. Enabled = False
  481. Interval = 300
  482. OnTimer = TmrShowTimer
  483. Left = 320
  484. Top = 156
  485. end
  486. object dxMemData1: TdxMemData
  487. Indexes = <>
  488. SortOptions = []
  489. Left = 272
  490. Top = 296
  491. end
  492. object cxStyleRepository1: TcxStyleRepository
  493. Left = 80
  494. Top = 184
  495. PixelsPerInch = 96
  496. object cxStyle1: TcxStyle
  497. AssignedValues = [svFont, svTextColor]
  498. Font.Charset = DEFAULT_CHARSET
  499. Font.Color = clBlue
  500. Font.Height = -13
  501. Font.Name = #47569#51008' '#44256#46357
  502. Font.Style = []
  503. TextColor = clBlue
  504. end
  505. object cxStyle2: TcxStyle
  506. AssignedValues = [svFont, svTextColor]
  507. Font.Charset = DEFAULT_CHARSET
  508. Font.Color = clRed
  509. Font.Height = -13
  510. Font.Name = #47569#51008' '#44256#46357
  511. Font.Style = []
  512. TextColor = clRed
  513. end
  514. end
  515. end