IFM0070MF.dfm 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462
  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. ' VDS'
  168. ' '#50937#52852#47700#46972
  169. ' DSRC'
  170. ' '#44368#52264#47196#44368#53685#47049' '#44368#52264#47196
  171. ' '#44368#52264#47196#44368#53685#47049' '#52852#47700#46972
  172. ' '#51452#52264#51109)
  173. Properties.ReadOnly = False
  174. Style.BorderColor = clWindowFrame
  175. Style.BorderStyle = ebsUltraFlat
  176. Style.LookAndFeel.Kind = lfUltraFlat
  177. Style.LookAndFeel.NativeStyle = False
  178. Style.ButtonStyle = btsUltraFlat
  179. Style.PopupBorderStyle = epbsFlat
  180. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  181. StyleDisabled.LookAndFeel.NativeStyle = False
  182. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  183. StyleFocused.LookAndFeel.NativeStyle = False
  184. StyleFocused.TextColor = clBlack
  185. StyleFocused.TextStyle = [fsBold]
  186. StyleHot.LookAndFeel.Kind = lfUltraFlat
  187. StyleHot.LookAndFeel.NativeStyle = False
  188. TabOrder = 2
  189. Text = ' CCTV'
  190. Width = 242
  191. end
  192. end
  193. object CxList: TcxGrid
  194. Left = 0
  195. Top = 42
  196. Width = 1293
  197. Height = 570
  198. Align = alClient
  199. TabOrder = 1
  200. object TvList: TcxGridTableView
  201. Navigator.Buttons.Append.Visible = True
  202. Navigator.Buttons.SaveBookmark.Visible = False
  203. Navigator.InfoPanel.Visible = True
  204. DataController.Filter.OnChanged = TvListDataControllerFilterChanged
  205. DataController.Summary.DefaultGroupSummaryItems = <>
  206. DataController.Summary.FooterSummaryItems = <>
  207. DataController.Summary.SummaryGroups = <>
  208. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  209. OptionsBehavior.CellHints = True
  210. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  211. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  212. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  213. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  214. OptionsCustomize.ColumnFiltering = False
  215. OptionsData.Deleting = False
  216. OptionsData.DeletingConfirmation = False
  217. OptionsData.Editing = False
  218. OptionsData.Inserting = False
  219. OptionsView.GroupByBox = False
  220. OptionsView.Indicator = True
  221. object Column11: TcxGridColumn
  222. Caption = #49884#49444#47932#50976#54805
  223. PropertiesClassName = 'TcxLabelProperties'
  224. Properties.Alignment.Horz = taCenter
  225. Properties.Alignment.Vert = taVCenter
  226. HeaderAlignmentHorz = taCenter
  227. HeaderAlignmentVert = vaCenter
  228. MinWidth = 80
  229. Width = 140
  230. end
  231. object Column01: TcxGridColumn
  232. Caption = #44288#47532#48264#54840
  233. DataBinding.ValueType = 'Integer'
  234. PropertiesClassName = 'TcxLabelProperties'
  235. Properties.Alignment.Horz = taCenter
  236. Properties.Alignment.Vert = taVCenter
  237. BestFitMaxWidth = 80
  238. HeaderAlignmentHorz = taCenter
  239. HeaderAlignmentVert = vaCenter
  240. MinWidth = 80
  241. Options.Editing = False
  242. Width = 80
  243. end
  244. object Column02: TcxGridColumn
  245. Caption = #49884#49444#47932' ID'
  246. PropertiesClassName = 'TcxLabelProperties'
  247. Properties.Alignment.Horz = taCenter
  248. Properties.Alignment.Vert = taVCenter
  249. BestFitMaxWidth = 100
  250. HeaderAlignmentHorz = taCenter
  251. HeaderAlignmentVert = vaCenter
  252. MinWidth = 80
  253. Options.Editing = False
  254. Width = 80
  255. end
  256. object Column13: TcxGridColumn
  257. Caption = #44368#52264#47196#47749
  258. PropertiesClassName = 'TcxLabelProperties'
  259. Properties.Alignment.Vert = taVCenter
  260. Visible = False
  261. HeaderAlignmentHorz = taCenter
  262. HeaderAlignmentVert = vaCenter
  263. VisibleForCustomization = False
  264. Width = 172
  265. end
  266. object Column03: TcxGridColumn
  267. Caption = #49884#49444#47932#47749
  268. PropertiesClassName = 'TcxLabelProperties'
  269. Properties.Alignment.Vert = taVCenter
  270. BestFitMaxWidth = 200
  271. HeaderAlignmentHorz = taCenter
  272. HeaderAlignmentVert = vaCenter
  273. MinWidth = 80
  274. Options.Editing = False
  275. Width = 200
  276. end
  277. object Column04: TcxGridColumn
  278. Caption = #49444#52824#50948#52824#51452#49548
  279. PropertiesClassName = 'TcxLabelProperties'
  280. Properties.Alignment.Vert = taVCenter
  281. BestFitMaxWidth = 300
  282. HeaderAlignmentHorz = taCenter
  283. HeaderAlignmentVert = vaCenter
  284. MinWidth = 80
  285. Width = 300
  286. end
  287. object Column05: TcxGridColumn
  288. Caption = #51340#54364' X'
  289. PropertiesClassName = 'TcxLabelProperties'
  290. Properties.Alignment.Horz = taRightJustify
  291. Properties.Alignment.Vert = taVCenter
  292. BestFitMaxWidth = 120
  293. HeaderAlignmentHorz = taCenter
  294. HeaderAlignmentVert = vaCenter
  295. MinWidth = 80
  296. Width = 120
  297. end
  298. object Column06: TcxGridColumn
  299. Caption = #51340#54364' Y'
  300. PropertiesClassName = 'TcxLabelProperties'
  301. Properties.Alignment.Horz = taRightJustify
  302. Properties.Alignment.Vert = taVCenter
  303. BestFitMaxWidth = 120
  304. HeaderAlignmentHorz = taCenter
  305. HeaderAlignmentVert = vaCenter
  306. MinWidth = 80
  307. Width = 120
  308. end
  309. object Column07: TcxGridColumn
  310. Caption = #47784#45944#47749
  311. PropertiesClassName = 'TcxLabelProperties'
  312. Properties.Alignment.Vert = taVCenter
  313. BestFitMaxWidth = 160
  314. HeaderAlignmentHorz = taCenter
  315. HeaderAlignmentVert = vaCenter
  316. MinWidth = 80
  317. Width = 160
  318. end
  319. object Column08: TcxGridColumn
  320. Caption = #49444#52824#51068
  321. PropertiesClassName = 'TcxLabelProperties'
  322. Properties.Alignment.Horz = taCenter
  323. Properties.Alignment.Vert = taVCenter
  324. BestFitMaxWidth = 100
  325. HeaderAlignmentHorz = taCenter
  326. HeaderAlignmentVert = vaCenter
  327. MinWidth = 80
  328. Width = 100
  329. end
  330. object Column09: TcxGridColumn
  331. Caption = #51228#51312#50629#52404
  332. PropertiesClassName = 'TcxLabelProperties'
  333. Properties.Alignment.Vert = taVCenter
  334. BestFitMaxWidth = 120
  335. HeaderAlignmentHorz = taCenter
  336. HeaderAlignmentVert = vaCenter
  337. MinWidth = 80
  338. Width = 120
  339. end
  340. object Column10: TcxGridColumn
  341. Caption = #49444#52824#50629#52404
  342. PropertiesClassName = 'TcxLabelProperties'
  343. Properties.Alignment.Vert = taVCenter
  344. BestFitMaxWidth = 120
  345. HeaderAlignmentHorz = taCenter
  346. HeaderAlignmentVert = vaCenter
  347. MinWidth = 80
  348. Width = 120
  349. end
  350. object Column12: TcxGridColumn
  351. Caption = 'IP Address'
  352. PropertiesClassName = 'TcxLabelProperties'
  353. Properties.Alignment.Vert = taVCenter
  354. HeaderAlignmentHorz = taCenter
  355. HeaderAlignmentVert = vaCenter
  356. Width = 100
  357. end
  358. object Column14: TcxGridColumn
  359. PropertiesClassName = 'TcxLabelProperties'
  360. Properties.Alignment.Vert = taVCenter
  361. Visible = False
  362. HeaderAlignmentHorz = taCenter
  363. HeaderAlignmentVert = vaCenter
  364. VisibleForCustomization = False
  365. end
  366. object Column15: TcxGridColumn
  367. PropertiesClassName = 'TcxLabelProperties'
  368. Properties.Alignment.Vert = taVCenter
  369. Visible = False
  370. HeaderAlignmentHorz = taCenter
  371. HeaderAlignmentVert = vaCenter
  372. VisibleForCustomization = False
  373. end
  374. object Column16: TcxGridColumn
  375. PropertiesClassName = 'TcxLabelProperties'
  376. Properties.Alignment.Vert = taVCenter
  377. Visible = False
  378. HeaderAlignmentHorz = taCenter
  379. HeaderAlignmentVert = vaCenter
  380. VisibleForCustomization = False
  381. end
  382. object Column17: TcxGridColumn
  383. PropertiesClassName = 'TcxLabelProperties'
  384. Properties.Alignment.Vert = taVCenter
  385. Visible = False
  386. HeaderAlignmentHorz = taCenter
  387. HeaderAlignmentVert = vaCenter
  388. VisibleForCustomization = False
  389. end
  390. object Column18: TcxGridColumn
  391. PropertiesClassName = 'TcxLabelProperties'
  392. Properties.Alignment.Vert = taVCenter
  393. Visible = False
  394. HeaderAlignmentHorz = taCenter
  395. HeaderAlignmentVert = vaCenter
  396. VisibleForCustomization = False
  397. end
  398. object Column19: TcxGridColumn
  399. PropertiesClassName = 'TcxLabelProperties'
  400. Properties.Alignment.Vert = taVCenter
  401. Visible = False
  402. HeaderAlignmentHorz = taCenter
  403. HeaderAlignmentVert = vaCenter
  404. VisibleForCustomization = False
  405. end
  406. end
  407. object GlList: TcxGridLevel
  408. GridView = TvList
  409. end
  410. end
  411. end
  412. end
  413. object BtnClose: TcxButton
  414. Left = 1230
  415. Top = 11
  416. Width = 80
  417. Height = 25
  418. Cursor = crHandPoint
  419. Hint = #45803#44592
  420. Anchors = [akTop, akRight]
  421. Caption = #45803#44592
  422. Colors.Default = 10737865
  423. TabOrder = 2
  424. Font.Charset = DEFAULT_CHARSET
  425. Font.Color = clBlack
  426. Font.Height = -13
  427. Font.Name = #47569#51008' '#44256#46357
  428. Font.Style = [fsBold]
  429. ParentFont = False
  430. OnClick = BtnCloseClick
  431. end
  432. object BtnSearch: TcxButton
  433. Left = 389
  434. Top = 92
  435. Width = 80
  436. Height = 25
  437. Cursor = crHandPoint
  438. Hint = #45936#51060#53552#47484' '#44160#49353#54633#45768#45796'.'
  439. Caption = #51312#54924
  440. Colors.Default = 3893744
  441. TabOrder = 1
  442. Font.Charset = DEFAULT_CHARSET
  443. Font.Color = clWindowText
  444. Font.Height = -13
  445. Font.Name = #47569#51008' '#44256#46357
  446. Font.Style = [fsBold]
  447. ParentFont = False
  448. OnClick = BtnSearchClick
  449. end
  450. object TmrRefresh: TTimer
  451. Enabled = False
  452. Interval = 500
  453. OnTimer = TmrRefreshTimer
  454. Left = 305
  455. Top = 441
  456. end
  457. object ADOQry: TADOQuery
  458. Parameters = <>
  459. Left = 72
  460. Top = 264
  461. end
  462. end