IFM0070MF.dfm 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460
  1. object IFM0070M: TIFM0070M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = #49884#49444#47932' '#51221#48372' '#52636#47141
  7. ClientHeight = 711
  8. ClientWidth = 1324
  9. Color = clWhite
  10. DoubleBuffered = True
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -13
  14. Font.Name = #47569#51008' '#44256#46357
  15. Font.Style = []
  16. KeyPreview = True
  17. OldCreateOrder = False
  18. Position = poOwnerFormCenter
  19. ShowHint = True
  20. OnClose = FormClose
  21. OnShow = FormShow
  22. DesignSize = (
  23. 1324
  24. 711)
  25. PixelsPerInch = 96
  26. TextHeight = 17
  27. object ShpList: TShape
  28. Left = 4
  29. Top = 50
  30. Width = 1315
  31. Height = 657
  32. Anchors = [akLeft, akTop, akRight, akBottom]
  33. Pen.Color = 10849679
  34. Pen.Width = 2
  35. ExplicitWidth = 1346
  36. ExplicitHeight = 709
  37. end
  38. object ShpTitle: TShape
  39. Left = 4
  40. Top = 4
  41. Width = 1316
  42. Height = 40
  43. Anchors = [akLeft, akTop, akRight]
  44. Brush.Color = 14671839
  45. Pen.Color = 10849679
  46. Pen.Width = 2
  47. ExplicitWidth = 1269
  48. end
  49. object LblCaption: TLabel
  50. Left = 16
  51. Top = 10
  52. Width = 267
  53. Height = 23
  54. Caption = #53440#51060#53952' '
  55. Font.Charset = DEFAULT_CHARSET
  56. Font.Color = 4740964
  57. Font.Height = -17
  58. Font.Name = #47569#51008' '#44256#46357
  59. Font.Style = [fsBold]
  60. ParentFont = False
  61. ParentShowHint = False
  62. ShowHint = True
  63. end
  64. object LblRecords: TLabel
  65. Left = 1161
  66. Top = 16
  67. Width = 52
  68. Height = 17
  69. Alignment = taRightJustify
  70. Anchors = [akTop, akRight]
  71. Caption = #51312#54924#44148#49688
  72. Transparent = True
  73. Visible = False
  74. ExplicitLeft = 370
  75. end
  76. object PgList: TcxPageControl
  77. Left = 11
  78. Top = 56
  79. Width = 1300
  80. Height = 645
  81. Anchors = [akLeft, akTop, akRight, akBottom]
  82. Focusable = False
  83. ParentBackground = False
  84. ParentShowHint = False
  85. ShowHint = False
  86. TabOrder = 0
  87. Properties.ActivePage = TsList
  88. Properties.HotTrack = True
  89. ClientRectBottom = 640
  90. ClientRectLeft = 2
  91. ClientRectRight = 1295
  92. ClientRectTop = 28
  93. object TsList: TcxTabSheet
  94. Caption = ' '#49884#49444#47932' '#49440#53469' '
  95. ImageIndex = 0
  96. object Panel2: TPanel
  97. Left = 0
  98. Top = 0
  99. Width = 1293
  100. Height = 42
  101. Align = alTop
  102. BevelOuter = bvNone
  103. ParentColor = True
  104. TabOrder = 0
  105. DesignSize = (
  106. 1293
  107. 42)
  108. object ImgDesc1: TImage
  109. Left = 15
  110. Top = 13
  111. Width = 9
  112. Height = 9
  113. Transparent = True
  114. end
  115. object lblFacility: TLabel
  116. Left = 632
  117. Top = 16
  118. Width = 52
  119. Height = 17
  120. Caption = 'lblFacility'
  121. Visible = False
  122. end
  123. object cxLabel1: TcxLabel
  124. Left = 30
  125. Top = 8
  126. AutoSize = False
  127. Caption = #49884#49444#47932
  128. Properties.Alignment.Horz = taRightJustify
  129. Properties.Alignment.Vert = taVCenter
  130. Transparent = True
  131. Height = 21
  132. Width = 84
  133. AnchorX = 114
  134. AnchorY = 19
  135. end
  136. object BtnExlSave: TcxButton
  137. Left = 1208
  138. Top = 8
  139. Width = 80
  140. Height = 25
  141. Cursor = crHandPoint
  142. Hint = #51312#54924' '#44208#44284#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  143. Anchors = [akTop, akRight]
  144. Caption = #51200#51109
  145. Colors.Default = 3893744
  146. TabOrder = 1
  147. Font.Charset = DEFAULT_CHARSET
  148. Font.Color = clWindowText
  149. Font.Height = -13
  150. Font.Name = #47569#51008' '#44256#46357
  151. Font.Style = [fsBold]
  152. ParentFont = False
  153. OnClick = BtnExlSaveClick
  154. end
  155. object CbType: TcxComboBox
  156. Left = 121
  157. Top = 7
  158. Cursor = crHandPoint
  159. Hint = #49884#49444#47932' '#51333#47448#47484' '#49440#53469' '#54633#45768#45796'.'
  160. Properties.Alignment.Horz = taLeftJustify
  161. Properties.Alignment.Vert = taVCenter
  162. Properties.DropDownListStyle = lsFixedList
  163. Properties.HideSelection = False
  164. Properties.Items.Strings = (
  165. ' CCTV'
  166. ' VMS'
  167. ' '#50937#52852#47700#46972
  168. ' '#44368#52264#47196#44368#53685#47049' '#44368#52264#47196
  169. ' '#44368#52264#47196#44368#53685#47049' '#52852#47700#46972
  170. ' '#52264#47049#48264#54840#51064#49885' '#52852#47700#46972)
  171. Properties.ReadOnly = False
  172. Style.BorderColor = clWindowFrame
  173. Style.BorderStyle = ebsUltraFlat
  174. Style.LookAndFeel.Kind = lfUltraFlat
  175. Style.LookAndFeel.NativeStyle = False
  176. Style.ButtonStyle = btsUltraFlat
  177. Style.PopupBorderStyle = epbsFlat
  178. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  179. StyleDisabled.LookAndFeel.NativeStyle = False
  180. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  181. StyleFocused.LookAndFeel.NativeStyle = False
  182. StyleFocused.TextColor = clBlack
  183. StyleFocused.TextStyle = [fsBold]
  184. StyleHot.LookAndFeel.Kind = lfUltraFlat
  185. StyleHot.LookAndFeel.NativeStyle = False
  186. TabOrder = 2
  187. Text = ' CCTV'
  188. Width = 242
  189. end
  190. end
  191. object CxList: TcxGrid
  192. Left = 0
  193. Top = 42
  194. Width = 1293
  195. Height = 570
  196. Align = alClient
  197. TabOrder = 1
  198. object TvList: TcxGridTableView
  199. Navigator.Buttons.Append.Visible = True
  200. Navigator.Buttons.SaveBookmark.Visible = False
  201. Navigator.InfoPanel.Visible = True
  202. DataController.Filter.OnChanged = TvListDataControllerFilterChanged
  203. DataController.Summary.DefaultGroupSummaryItems = <>
  204. DataController.Summary.FooterSummaryItems = <>
  205. DataController.Summary.SummaryGroups = <>
  206. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  207. OptionsBehavior.CellHints = True
  208. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  209. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  210. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  211. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  212. OptionsCustomize.ColumnFiltering = False
  213. OptionsData.Deleting = False
  214. OptionsData.DeletingConfirmation = False
  215. OptionsData.Editing = False
  216. OptionsData.Inserting = False
  217. OptionsView.GroupByBox = False
  218. OptionsView.Indicator = True
  219. object Column11: TcxGridColumn
  220. Caption = #49884#49444#47932#50976#54805
  221. PropertiesClassName = 'TcxLabelProperties'
  222. Properties.Alignment.Horz = taCenter
  223. Properties.Alignment.Vert = taVCenter
  224. HeaderAlignmentHorz = taCenter
  225. HeaderAlignmentVert = vaCenter
  226. MinWidth = 80
  227. Width = 140
  228. end
  229. object Column01: TcxGridColumn
  230. Caption = #44288#47532#48264#54840
  231. DataBinding.ValueType = 'Variant'
  232. PropertiesClassName = 'TcxLabelProperties'
  233. Properties.Alignment.Horz = taCenter
  234. Properties.Alignment.Vert = taVCenter
  235. BestFitMaxWidth = 80
  236. HeaderAlignmentHorz = taCenter
  237. HeaderAlignmentVert = vaCenter
  238. MinWidth = 80
  239. Options.Editing = False
  240. Width = 80
  241. end
  242. object Column02: TcxGridColumn
  243. Caption = #49884#49444#47932' ID'
  244. PropertiesClassName = 'TcxLabelProperties'
  245. Properties.Alignment.Horz = taCenter
  246. Properties.Alignment.Vert = taVCenter
  247. BestFitMaxWidth = 100
  248. HeaderAlignmentHorz = taCenter
  249. HeaderAlignmentVert = vaCenter
  250. MinWidth = 80
  251. Options.Editing = False
  252. Width = 80
  253. end
  254. object Column13: TcxGridColumn
  255. Caption = #44368#52264#47196#47749
  256. PropertiesClassName = 'TcxLabelProperties'
  257. Properties.Alignment.Vert = taVCenter
  258. Visible = False
  259. HeaderAlignmentHorz = taCenter
  260. HeaderAlignmentVert = vaCenter
  261. VisibleForCustomization = False
  262. Width = 172
  263. end
  264. object Column03: TcxGridColumn
  265. Caption = #49884#49444#47932#47749
  266. PropertiesClassName = 'TcxLabelProperties'
  267. Properties.Alignment.Vert = taVCenter
  268. BestFitMaxWidth = 200
  269. HeaderAlignmentHorz = taCenter
  270. HeaderAlignmentVert = vaCenter
  271. MinWidth = 80
  272. Options.Editing = False
  273. Width = 200
  274. end
  275. object Column04: TcxGridColumn
  276. Caption = #49444#52824#50948#52824#51452#49548
  277. PropertiesClassName = 'TcxLabelProperties'
  278. Properties.Alignment.Vert = taVCenter
  279. BestFitMaxWidth = 300
  280. HeaderAlignmentHorz = taCenter
  281. HeaderAlignmentVert = vaCenter
  282. MinWidth = 80
  283. Width = 300
  284. end
  285. object Column05: TcxGridColumn
  286. Caption = #51340#54364' X'
  287. PropertiesClassName = 'TcxLabelProperties'
  288. Properties.Alignment.Horz = taRightJustify
  289. Properties.Alignment.Vert = taVCenter
  290. BestFitMaxWidth = 120
  291. HeaderAlignmentHorz = taCenter
  292. HeaderAlignmentVert = vaCenter
  293. MinWidth = 80
  294. Width = 120
  295. end
  296. object Column06: TcxGridColumn
  297. Caption = #51340#54364' Y'
  298. PropertiesClassName = 'TcxLabelProperties'
  299. Properties.Alignment.Horz = taRightJustify
  300. Properties.Alignment.Vert = taVCenter
  301. BestFitMaxWidth = 120
  302. HeaderAlignmentHorz = taCenter
  303. HeaderAlignmentVert = vaCenter
  304. MinWidth = 80
  305. Width = 120
  306. end
  307. object Column07: TcxGridColumn
  308. Caption = #47784#45944#47749
  309. PropertiesClassName = 'TcxLabelProperties'
  310. Properties.Alignment.Vert = taVCenter
  311. BestFitMaxWidth = 160
  312. HeaderAlignmentHorz = taCenter
  313. HeaderAlignmentVert = vaCenter
  314. MinWidth = 80
  315. Width = 160
  316. end
  317. object Column08: TcxGridColumn
  318. Caption = #49444#52824#51068
  319. PropertiesClassName = 'TcxLabelProperties'
  320. Properties.Alignment.Horz = taCenter
  321. Properties.Alignment.Vert = taVCenter
  322. BestFitMaxWidth = 100
  323. HeaderAlignmentHorz = taCenter
  324. HeaderAlignmentVert = vaCenter
  325. MinWidth = 80
  326. Width = 100
  327. end
  328. object Column09: TcxGridColumn
  329. Caption = #51228#51312#50629#52404
  330. PropertiesClassName = 'TcxLabelProperties'
  331. Properties.Alignment.Vert = taVCenter
  332. BestFitMaxWidth = 120
  333. HeaderAlignmentHorz = taCenter
  334. HeaderAlignmentVert = vaCenter
  335. MinWidth = 80
  336. Width = 120
  337. end
  338. object Column10: TcxGridColumn
  339. Caption = #49444#52824#50629#52404
  340. PropertiesClassName = 'TcxLabelProperties'
  341. Properties.Alignment.Vert = taVCenter
  342. BestFitMaxWidth = 120
  343. HeaderAlignmentHorz = taCenter
  344. HeaderAlignmentVert = vaCenter
  345. MinWidth = 80
  346. Width = 120
  347. end
  348. object Column12: TcxGridColumn
  349. Caption = 'IP Address'
  350. PropertiesClassName = 'TcxLabelProperties'
  351. Properties.Alignment.Vert = taVCenter
  352. HeaderAlignmentHorz = taCenter
  353. HeaderAlignmentVert = vaCenter
  354. Width = 100
  355. end
  356. object Column14: TcxGridColumn
  357. PropertiesClassName = 'TcxLabelProperties'
  358. Properties.Alignment.Vert = taVCenter
  359. Visible = False
  360. HeaderAlignmentHorz = taCenter
  361. HeaderAlignmentVert = vaCenter
  362. VisibleForCustomization = False
  363. end
  364. object Column15: TcxGridColumn
  365. PropertiesClassName = 'TcxLabelProperties'
  366. Properties.Alignment.Vert = taVCenter
  367. Visible = False
  368. HeaderAlignmentHorz = taCenter
  369. HeaderAlignmentVert = vaCenter
  370. VisibleForCustomization = False
  371. end
  372. object Column16: TcxGridColumn
  373. PropertiesClassName = 'TcxLabelProperties'
  374. Properties.Alignment.Vert = taVCenter
  375. Visible = False
  376. HeaderAlignmentHorz = taCenter
  377. HeaderAlignmentVert = vaCenter
  378. VisibleForCustomization = False
  379. end
  380. object Column17: TcxGridColumn
  381. PropertiesClassName = 'TcxLabelProperties'
  382. Properties.Alignment.Vert = taVCenter
  383. Visible = False
  384. HeaderAlignmentHorz = taCenter
  385. HeaderAlignmentVert = vaCenter
  386. VisibleForCustomization = False
  387. end
  388. object Column18: TcxGridColumn
  389. PropertiesClassName = 'TcxLabelProperties'
  390. Properties.Alignment.Vert = taVCenter
  391. Visible = False
  392. HeaderAlignmentHorz = taCenter
  393. HeaderAlignmentVert = vaCenter
  394. VisibleForCustomization = False
  395. end
  396. object Column19: TcxGridColumn
  397. PropertiesClassName = 'TcxLabelProperties'
  398. Properties.Alignment.Vert = taVCenter
  399. Visible = False
  400. HeaderAlignmentHorz = taCenter
  401. HeaderAlignmentVert = vaCenter
  402. VisibleForCustomization = False
  403. end
  404. end
  405. object GlList: TcxGridLevel
  406. GridView = TvList
  407. end
  408. end
  409. end
  410. end
  411. object BtnClose: TcxButton
  412. Left = 1230
  413. Top = 11
  414. Width = 80
  415. Height = 25
  416. Cursor = crHandPoint
  417. Hint = #45803#44592
  418. Anchors = [akTop, akRight]
  419. Caption = #45803#44592
  420. Colors.Default = 10737865
  421. TabOrder = 2
  422. Font.Charset = DEFAULT_CHARSET
  423. Font.Color = clBlack
  424. Font.Height = -13
  425. Font.Name = #47569#51008' '#44256#46357
  426. Font.Style = [fsBold]
  427. ParentFont = False
  428. OnClick = BtnCloseClick
  429. end
  430. object BtnSearch: TcxButton
  431. Left = 389
  432. Top = 92
  433. Width = 80
  434. Height = 25
  435. Cursor = crHandPoint
  436. Hint = #45936#51060#53552#47484' '#44160#49353#54633#45768#45796'.'
  437. Caption = #51312#54924
  438. Colors.Default = 3893744
  439. TabOrder = 1
  440. Font.Charset = DEFAULT_CHARSET
  441. Font.Color = clWindowText
  442. Font.Height = -13
  443. Font.Name = #47569#51008' '#44256#46357
  444. Font.Style = [fsBold]
  445. ParentFont = False
  446. OnClick = BtnSearchClick
  447. end
  448. object TmrRefresh: TTimer
  449. Enabled = False
  450. Interval = 500
  451. OnTimer = TmrRefreshTimer
  452. Left = 305
  453. Top = 441
  454. end
  455. object ADOQry: TADOQuery
  456. Parameters = <>
  457. Left = 72
  458. Top = 264
  459. end
  460. end