IHS00701F.dfm 15 KB

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