VDSH0701F.dfm 8.4 KB

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