VDSH0701F.dfm 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279
  1. object VDSH0701: TVDSH0701
  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 = 'CCTV '#51109#50528#51060#47141
  10. ClientHeight = 698
  11. ClientWidth = 1111
  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 = 1111
  33. Height = 34
  34. Align = alTop
  35. BevelOuter = bvNone
  36. TabOrder = 0
  37. DesignSize = (
  38. 1111
  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 = 961
  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. ExplicitLeft = 588
  65. end
  66. object BtnExlSave: TcxButton
  67. Left = 1029
  68. Top = 3
  69. Width = 75
  70. Height = 25
  71. Cursor = crHandPoint
  72. Hint = #51312#54924' '#44208#44284' '#45936#51060#53552#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  73. Anchors = [akTop, akRight]
  74. Caption = #51200#51109
  75. Colors.Default = 3893744
  76. TabOrder = 0
  77. Font.Charset = DEFAULT_CHARSET
  78. Font.Color = clWindowText
  79. Font.Height = -13
  80. Font.Name = #47569#51008' '#44256#46357
  81. Font.Style = [fsBold]
  82. ParentFont = False
  83. OnClick = BtnExlSaveClick
  84. end
  85. end
  86. object PnlList: TPanel
  87. Left = 0
  88. Top = 34
  89. Width = 1111
  90. Height = 664
  91. Align = alClient
  92. BevelOuter = bvNone
  93. TabOrder = 1
  94. ExplicitHeight = 372
  95. DesignSize = (
  96. 1111
  97. 664)
  98. object CxList: TcxGrid
  99. Left = 0
  100. Top = 0
  101. Width = 1111
  102. Height = 664
  103. Align = alClient
  104. TabOrder = 1
  105. ExplicitHeight = 372
  106. object TvList: TcxGridBandedTableView
  107. DataController.Summary.DefaultGroupSummaryItems = <>
  108. DataController.Summary.FooterSummaryItems = <>
  109. DataController.Summary.SummaryGroups = <>
  110. OptionsData.Deleting = False
  111. OptionsData.DeletingConfirmation = False
  112. OptionsData.Editing = False
  113. OptionsData.Inserting = False
  114. OptionsView.GroupByBox = False
  115. OptionsView.Indicator = True
  116. Bands = <
  117. item
  118. Caption = #44592#48376#51221#48372
  119. Width = 493
  120. end
  121. item
  122. Caption = #49345#53468' '#51221#48372
  123. Width = 527
  124. end>
  125. object Column01: TcxGridBandedColumn
  126. Caption = #44160#51648#44592' ID'
  127. PropertiesClassName = 'TcxLabelProperties'
  128. Properties.Alignment.Horz = taCenter
  129. Properties.Alignment.Vert = taVCenter
  130. HeaderAlignmentHorz = taCenter
  131. HeaderAlignmentVert = vaCenter
  132. Width = 105
  133. Position.BandIndex = 0
  134. Position.ColIndex = 0
  135. Position.RowIndex = 0
  136. end
  137. object Column02: TcxGridBandedColumn
  138. Caption = #52264#49440
  139. PropertiesClassName = 'TcxLabelProperties'
  140. Properties.Alignment.Horz = taCenter
  141. Properties.Alignment.Vert = taVCenter
  142. HeaderAlignmentHorz = taCenter
  143. HeaderAlignmentVert = vaCenter
  144. Width = 66
  145. Position.BandIndex = 0
  146. Position.ColIndex = 1
  147. Position.RowIndex = 0
  148. end
  149. object Column03: TcxGridBandedColumn
  150. Caption = #48169#54693
  151. PropertiesClassName = 'TcxLabelProperties'
  152. Properties.Alignment.Horz = taCenter
  153. Properties.Alignment.Vert = taVCenter
  154. HeaderAlignmentHorz = taCenter
  155. HeaderAlignmentVert = vaCenter
  156. Width = 92
  157. Position.BandIndex = 0
  158. Position.ColIndex = 2
  159. Position.RowIndex = 0
  160. end
  161. object Column04: TcxGridBandedColumn
  162. Caption = #44160#51648#44592#47749#52845
  163. PropertiesClassName = 'TcxLabelProperties'
  164. Properties.Alignment.Horz = taLeftJustify
  165. Properties.Alignment.Vert = taVCenter
  166. HeaderAlignmentHorz = taCenter
  167. HeaderAlignmentVert = vaCenter
  168. Width = 230
  169. Position.BandIndex = 0
  170. Position.ColIndex = 3
  171. Position.RowIndex = 0
  172. end
  173. object Column05: TcxGridBandedColumn
  174. Caption = #48156#49373#49884#44033
  175. PropertiesClassName = 'TcxLabelProperties'
  176. Properties.Alignment.Horz = taCenter
  177. Properties.Alignment.Vert = taVCenter
  178. HeaderAlignmentHorz = taCenter
  179. HeaderAlignmentVert = vaCenter
  180. Width = 85
  181. Position.BandIndex = 1
  182. Position.ColIndex = 0
  183. Position.RowIndex = 0
  184. end
  185. object Column06: TcxGridBandedColumn
  186. Caption = #49345#53468
  187. PropertiesClassName = 'TcxLabelProperties'
  188. Properties.Alignment.Horz = taCenter
  189. Properties.Alignment.Vert = taVCenter
  190. OnCustomDrawCell = Column06CustomDrawCell
  191. HeaderAlignmentHorz = taCenter
  192. HeaderAlignmentVert = vaCenter
  193. Width = 70
  194. Position.BandIndex = 1
  195. Position.ColIndex = 1
  196. Position.RowIndex = 0
  197. end
  198. object Column07: TcxGridBandedColumn
  199. Caption = #54217#44512' '#51216#50976#50984'(%)'
  200. PropertiesClassName = 'TcxLabelProperties'
  201. Properties.Alignment.Horz = taCenter
  202. Properties.Alignment.Vert = taVCenter
  203. Visible = False
  204. HeaderAlignmentHorz = taCenter
  205. HeaderAlignmentVert = vaCenter
  206. VisibleForCustomization = False
  207. Width = 90
  208. Position.BandIndex = 1
  209. Position.ColIndex = 2
  210. Position.RowIndex = 0
  211. end
  212. object Column08: TcxGridBandedColumn
  213. Caption = #54217#44512' '#52264#46160#49884#44036'('#52488')'
  214. PropertiesClassName = 'TcxLabelProperties'
  215. Properties.Alignment.Horz = taRightJustify
  216. Properties.Alignment.Vert = taVCenter
  217. Visible = False
  218. HeaderAlignmentHorz = taCenter
  219. HeaderAlignmentVert = vaCenter
  220. Width = 105
  221. Position.BandIndex = 1
  222. Position.ColIndex = 3
  223. Position.RowIndex = 0
  224. end
  225. object Column09: TcxGridBandedColumn
  226. Caption = #54217#44512' '#44600#51060'(m)'
  227. PropertiesClassName = 'TcxLabelProperties'
  228. Properties.Alignment.Horz = taRightJustify
  229. Properties.Alignment.Vert = taVCenter
  230. Visible = False
  231. HeaderAlignmentHorz = taCenter
  232. HeaderAlignmentVert = vaCenter
  233. Width = 73
  234. Position.BandIndex = 1
  235. Position.ColIndex = 4
  236. Position.RowIndex = 0
  237. end
  238. end
  239. object GlList: TcxGridLevel
  240. GridView = TvList
  241. end
  242. end
  243. object ChkExpand: TcxCheckBox
  244. Tag = 9
  245. Left = 1000
  246. Top = 2
  247. Cursor = crHandPoint
  248. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  249. Anchors = [akTop, akRight]
  250. Caption = #54869#51109'/'#52629#49548
  251. ParentBackground = False
  252. ParentColor = False
  253. ParentShowHint = False
  254. ShowHint = True
  255. State = cbsChecked
  256. Style.BorderColor = 9868950
  257. Style.BorderStyle = ebsThick
  258. Style.Color = 14671839
  259. Style.Shadow = False
  260. TabOrder = 0
  261. Transparent = True
  262. Visible = False
  263. OnClick = ChkExpandClick
  264. Width = 85
  265. end
  266. end
  267. object ADOQry: TADOQuery
  268. Parameters = <>
  269. Left = 240
  270. Top = 148
  271. end
  272. object TmrShow: TTimer
  273. Enabled = False
  274. Interval = 300
  275. OnTimer = TmrShowTimer
  276. Left = 320
  277. Top = 156
  278. end
  279. end