VDSH0701F.dfm 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  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 = 872
  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. OnShow = FormShow
  24. PixelsPerInch = 96
  25. TextHeight = 17
  26. object PnlTop: TPanel
  27. Left = 0
  28. Top = 0
  29. Width = 872
  30. Height = 34
  31. Align = alTop
  32. BevelOuter = bvNone
  33. TabOrder = 0
  34. DesignSize = (
  35. 872
  36. 34)
  37. object LblSearch: TLabel
  38. Left = 20
  39. Top = 9
  40. Width = 52
  41. Height = 17
  42. Caption = #44160#49353#51312#44148
  43. Transparent = True
  44. end
  45. object ImgDesc01: TImage
  46. Left = 5
  47. Top = 12
  48. Width = 9
  49. Height = 9
  50. Transparent = True
  51. end
  52. object LblRecords: TLabel
  53. Left = 722
  54. Top = 9
  55. Width = 52
  56. Height = 17
  57. Alignment = taRightJustify
  58. Anchors = [akTop, akRight]
  59. Caption = #51312#54924#44148#49688
  60. Transparent = True
  61. ExplicitLeft = 588
  62. end
  63. object BtnExlSave: TcxButton
  64. Left = 790
  65. Top = 3
  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 = 872
  87. Height = 664
  88. Align = alClient
  89. BevelOuter = bvNone
  90. TabOrder = 1
  91. DesignSize = (
  92. 872
  93. 664)
  94. object CxList: TcxGrid
  95. Left = 0
  96. Top = 0
  97. Width = 872
  98. Height = 664
  99. Align = alClient
  100. TabOrder = 1
  101. object TvList: TcxGridBandedTableView
  102. DataController.Summary.DefaultGroupSummaryItems = <>
  103. DataController.Summary.FooterSummaryItems = <>
  104. DataController.Summary.SummaryGroups = <>
  105. OptionsData.Deleting = False
  106. OptionsData.DeletingConfirmation = False
  107. OptionsData.Editing = False
  108. OptionsData.Inserting = False
  109. OptionsView.Indicator = True
  110. Bands = <
  111. item
  112. Caption = #44592#48376#51221#48372
  113. Width = 493
  114. end
  115. item
  116. Caption = #49345#53468' '#51221#48372
  117. Width = 371
  118. end>
  119. object Column01: TcxGridBandedColumn
  120. Caption = #44160#51648#44592' ID'
  121. PropertiesClassName = 'TcxLabelProperties'
  122. Properties.Alignment.Horz = taCenter
  123. Properties.Alignment.Vert = taVCenter
  124. HeaderAlignmentHorz = taCenter
  125. HeaderAlignmentVert = vaCenter
  126. Width = 87
  127. Position.BandIndex = 0
  128. Position.ColIndex = 1
  129. Position.RowIndex = 0
  130. end
  131. object Column02: TcxGridBandedColumn
  132. Caption = #49444#52824#52264#47196
  133. PropertiesClassName = 'TcxLabelProperties'
  134. Properties.Alignment.Horz = taCenter
  135. Properties.Alignment.Vert = taVCenter
  136. HeaderAlignmentHorz = taCenter
  137. HeaderAlignmentVert = vaCenter
  138. Width = 55
  139. Position.BandIndex = 0
  140. Position.ColIndex = 3
  141. Position.RowIndex = 0
  142. end
  143. object Column03: TcxGridBandedColumn
  144. Caption = #48169#54693
  145. PropertiesClassName = 'TcxLabelProperties'
  146. Properties.Alignment.Horz = taCenter
  147. Properties.Alignment.Vert = taVCenter
  148. Visible = False
  149. HeaderAlignmentHorz = taCenter
  150. HeaderAlignmentVert = vaCenter
  151. VisibleForCustomization = False
  152. Width = 76
  153. Position.BandIndex = 0
  154. Position.ColIndex = 4
  155. Position.RowIndex = 0
  156. end
  157. object Column04: TcxGridBandedColumn
  158. Caption = #44160#51648#44592#47749#52845
  159. PropertiesClassName = 'TcxLabelProperties'
  160. Properties.Alignment.Horz = taLeftJustify
  161. Properties.Alignment.Vert = taVCenter
  162. HeaderAlignmentHorz = taCenter
  163. HeaderAlignmentVert = vaCenter
  164. Width = 192
  165. Position.BandIndex = 0
  166. Position.ColIndex = 5
  167. Position.RowIndex = 0
  168. end
  169. object Column05: TcxGridBandedColumn
  170. Caption = #48156#49373#49884#44033
  171. PropertiesClassName = 'TcxLabelProperties'
  172. Properties.Alignment.Horz = taCenter
  173. Properties.Alignment.Vert = taVCenter
  174. HeaderAlignmentHorz = taCenter
  175. HeaderAlignmentVert = vaCenter
  176. Width = 85
  177. Position.BandIndex = 1
  178. Position.ColIndex = 0
  179. Position.RowIndex = 0
  180. end
  181. object Column06: TcxGridBandedColumn
  182. Caption = #49345#53468
  183. PropertiesClassName = 'TcxLabelProperties'
  184. Properties.Alignment.Horz = taCenter
  185. Properties.Alignment.Vert = taVCenter
  186. OnCustomDrawCell = Column06CustomDrawCell
  187. HeaderAlignmentHorz = taCenter
  188. HeaderAlignmentVert = vaCenter
  189. Width = 70
  190. Position.BandIndex = 1
  191. Position.ColIndex = 1
  192. Position.RowIndex = 0
  193. end
  194. object Column07: TcxGridBandedColumn
  195. Caption = #50976#54805
  196. PropertiesClassName = 'TcxLabelProperties'
  197. Properties.Alignment.Horz = taCenter
  198. Properties.Alignment.Vert = taVCenter
  199. HeaderAlignmentHorz = taCenter
  200. HeaderAlignmentVert = vaCenter
  201. Width = 90
  202. Position.BandIndex = 0
  203. Position.ColIndex = 2
  204. Position.RowIndex = 0
  205. end
  206. object Column08: TcxGridBandedColumn
  207. Caption = #54217#44512' '#52264#46160#49884#44036'('#52488')'
  208. PropertiesClassName = 'TcxLabelProperties'
  209. Properties.Alignment.Horz = taRightJustify
  210. Properties.Alignment.Vert = taVCenter
  211. Visible = False
  212. HeaderAlignmentHorz = taCenter
  213. HeaderAlignmentVert = vaCenter
  214. Width = 105
  215. Position.BandIndex = 1
  216. Position.ColIndex = 2
  217. Position.RowIndex = 0
  218. end
  219. object Column09: TcxGridBandedColumn
  220. Caption = #54217#44512' '#44600#51060'(m)'
  221. PropertiesClassName = 'TcxLabelProperties'
  222. Properties.Alignment.Horz = taRightJustify
  223. Properties.Alignment.Vert = taVCenter
  224. Visible = False
  225. HeaderAlignmentHorz = taCenter
  226. HeaderAlignmentVert = vaCenter
  227. Width = 73
  228. Position.BandIndex = 1
  229. Position.ColIndex = 3
  230. Position.RowIndex = 0
  231. end
  232. object Column00: TcxGridBandedColumn
  233. Caption = #44160#51648#44592' '#48264#54840
  234. PropertiesClassName = 'TcxLabelProperties'
  235. Properties.Alignment.Horz = taCenter
  236. Properties.Alignment.Vert = taVCenter
  237. HeaderAlignmentHorz = taCenter
  238. HeaderAlignmentVert = vaCenter
  239. Width = 83
  240. Position.BandIndex = 0
  241. Position.ColIndex = 0
  242. Position.RowIndex = 0
  243. end
  244. end
  245. object GlList: TcxGridLevel
  246. GridView = TvList
  247. end
  248. end
  249. object ChkExpand: TcxCheckBox
  250. Tag = 9
  251. Left = 758
  252. Top = 7
  253. Cursor = crHandPoint
  254. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  255. Anchors = [akTop, akRight]
  256. Caption = #54869#51109'/'#52629#49548
  257. ParentBackground = False
  258. ParentColor = False
  259. ParentShowHint = False
  260. ShowHint = True
  261. State = cbsChecked
  262. Style.BorderColor = 9868950
  263. Style.BorderStyle = ebsThick
  264. Style.Color = 14671839
  265. Style.Shadow = False
  266. TabOrder = 0
  267. Transparent = True
  268. OnClick = ChkExpandClick
  269. Width = 85
  270. end
  271. end
  272. object ADOQry: TADOQuery
  273. Parameters = <>
  274. Left = 240
  275. Top = 148
  276. end
  277. object TmrShow: TTimer
  278. Enabled = False
  279. Interval = 300
  280. OnTimer = TmrShowTimer
  281. Left = 320
  282. Top = 156
  283. end
  284. end