VMSM010MF.dfm 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576
  1. object VMSM010M: TVMSM010M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = 'VMS '#49345#53468' '#47784#45768#53552#47553
  7. ClientHeight = 524
  8. ClientWidth = 1492
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -12
  13. Font.Name = #47569#51008' '#44256#46357
  14. Font.Style = []
  15. OldCreateOrder = False
  16. Position = poOwnerFormCenter
  17. ShowHint = True
  18. OnClose = FormClose
  19. OnCreate = FormCreate
  20. OnShow = FormShow
  21. DesignSize = (
  22. 1492
  23. 524)
  24. PixelsPerInch = 96
  25. TextHeight = 15
  26. object ShpTitle: TShape
  27. Left = 4
  28. Top = 4
  29. Width = 1484
  30. Height = 40
  31. Anchors = [akLeft, akTop, akRight]
  32. Brush.Color = 14671839
  33. Pen.Color = 10849679
  34. Pen.Width = 2
  35. ExplicitWidth = 1269
  36. end
  37. object LblCaption: TLabel
  38. Left = 16
  39. Top = 10
  40. Width = 267
  41. Height = 23
  42. Caption = #53440#51060#53952' '
  43. Font.Charset = DEFAULT_CHARSET
  44. Font.Color = 4740964
  45. Font.Height = -17
  46. Font.Name = #47569#51008' '#44256#46357
  47. Font.Style = [fsBold]
  48. ParentFont = False
  49. ParentShowHint = False
  50. ShowHint = True
  51. end
  52. object ShpList: TShape
  53. Left = 4
  54. Top = 50
  55. Width = 1484
  56. Height = 468
  57. Anchors = [akLeft, akTop, akRight, akBottom]
  58. Pen.Color = 10849679
  59. Pen.Width = 2
  60. ExplicitWidth = 1436
  61. ExplicitHeight = 766
  62. end
  63. object BtnSearch: TcxButton
  64. Left = 1318
  65. Top = 11
  66. Width = 80
  67. Height = 25
  68. Cursor = crHandPoint
  69. Hint = #51312#54924
  70. Anchors = [akTop, akRight]
  71. Caption = #51312#54924
  72. Colors.Default = 10737865
  73. TabOrder = 0
  74. Font.Charset = DEFAULT_CHARSET
  75. Font.Color = clBlack
  76. Font.Height = -13
  77. Font.Name = #47569#51008' '#44256#46357
  78. Font.Style = [fsBold]
  79. ParentFont = False
  80. OnClick = BtnSearchClick
  81. end
  82. object BtnClose: TcxButton
  83. Left = 1403
  84. Top = 11
  85. Width = 75
  86. Height = 25
  87. Cursor = crHandPoint
  88. Hint = #45803#44592
  89. Anchors = [akTop, akRight]
  90. Caption = #45803#44592
  91. Colors.Default = 10737865
  92. TabOrder = 1
  93. Font.Charset = DEFAULT_CHARSET
  94. Font.Color = clBlack
  95. Font.Height = -13
  96. Font.Name = #47569#51008' '#44256#46357
  97. Font.Style = [fsBold]
  98. ParentFont = False
  99. OnClick = BtnCloseClick
  100. end
  101. object PnlBack: TPanel
  102. Left = 12
  103. Top = 56
  104. Width = 1466
  105. Height = 455
  106. Anchors = [akLeft, akTop, akRight, akBottom]
  107. BevelOuter = bvNone
  108. ParentBackground = False
  109. ParentColor = True
  110. TabOrder = 2
  111. object PnlLeft: TPanel
  112. Left = 0
  113. Top = 0
  114. Width = 1466
  115. Height = 455
  116. Align = alClient
  117. BevelOuter = bvNone
  118. TabOrder = 0
  119. object cxGroupBox3: TcxGroupBox
  120. Left = 0
  121. Top = 0
  122. Align = alClient
  123. Caption = #9654' VMS '#49345#53468' '#51221#48372
  124. ParentFont = False
  125. Style.BorderColor = clCaptionText
  126. Style.Font.Charset = DEFAULT_CHARSET
  127. Style.Font.Color = clWindowText
  128. Style.Font.Height = -13
  129. Style.Font.Name = #47569#51008' '#44256#46357
  130. Style.Font.Style = []
  131. Style.Shadow = False
  132. Style.TextColor = clWindowText
  133. Style.TextStyle = [fsBold]
  134. Style.IsFontAssigned = True
  135. TabOrder = 0
  136. Height = 455
  137. Width = 1466
  138. object CxList: TcxGrid
  139. Left = 3
  140. Top = 19
  141. Width = 1460
  142. Height = 426
  143. Align = alClient
  144. TabOrder = 0
  145. LookAndFeel.NativeStyle = False
  146. object TvList: TcxGridBandedTableView
  147. FilterBox.CustomizeDialog = False
  148. DataController.Summary.DefaultGroupSummaryItems = <>
  149. DataController.Summary.FooterSummaryItems = <
  150. item
  151. Kind = skCount
  152. Column = ColName
  153. end
  154. item
  155. Column = ColCommS
  156. end>
  157. DataController.Summary.SummaryGroups = <>
  158. OptionsBehavior.CellHints = True
  159. OptionsCustomize.ColumnMoving = False
  160. OptionsCustomize.ColumnVertSizing = False
  161. OptionsData.CancelOnExit = False
  162. OptionsData.Deleting = False
  163. OptionsData.DeletingConfirmation = False
  164. OptionsData.Editing = False
  165. OptionsData.Inserting = False
  166. OptionsSelection.CellSelect = False
  167. OptionsView.NoDataToDisplayInfoText = '<'#49345#53468#51221#48372#44032' '#50630#49845#45768#45796'.>'
  168. OptionsView.GroupByBox = False
  169. OptionsView.Indicator = True
  170. Bands = <
  171. item
  172. Caption = 'VMS '#51221#48372
  173. Width = 513
  174. end
  175. item
  176. Caption = #53685#49888
  177. Width = 237
  178. end
  179. item
  180. Caption = #47784#46280
  181. Width = 188
  182. end
  183. item
  184. Caption = #54632#52404
  185. Width = 286
  186. end
  187. item
  188. Caption = #47700#49884#51648' '#54364#52636
  189. Width = 218
  190. end
  191. item
  192. Caption = #54060' '#49444#51221#44050
  193. Visible = False
  194. VisibleForCustomization = False
  195. Width = 143
  196. end
  197. item
  198. Caption = #55176#53552' '#49444#51221#44050
  199. Visible = False
  200. VisibleForCustomization = False
  201. Width = 126
  202. end>
  203. object ColId: TcxGridBandedColumn
  204. Caption = 'VMS ID'
  205. PropertiesClassName = 'TcxTextEditProperties'
  206. Properties.Alignment.Horz = taCenter
  207. Properties.Alignment.Vert = taVCenter
  208. HeaderAlignmentHorz = taCenter
  209. HeaderAlignmentVert = vaCenter
  210. Options.Editing = False
  211. Width = 110
  212. Position.BandIndex = 0
  213. Position.ColIndex = 1
  214. Position.RowIndex = 0
  215. end
  216. object ColName: TcxGridBandedColumn
  217. Caption = 'VMS '#47749#52845
  218. PropertiesClassName = 'TcxTextEditProperties'
  219. Properties.Alignment.Horz = taLeftJustify
  220. Properties.Alignment.Vert = taVCenter
  221. HeaderAlignmentHorz = taCenter
  222. HeaderAlignmentVert = vaCenter
  223. Options.Editing = False
  224. Width = 266
  225. Position.BandIndex = 0
  226. Position.ColIndex = 2
  227. Position.RowIndex = 0
  228. end
  229. object ColCommS: TcxGridBandedColumn
  230. Caption = #53685#49888' '#49345#53468
  231. PropertiesClassName = 'TcxTextEditProperties'
  232. Properties.Alignment.Horz = taCenter
  233. Properties.Alignment.Vert = taVCenter
  234. OnCustomDrawCell = ColCommSCustomDrawCell
  235. HeaderAlignmentHorz = taCenter
  236. HeaderAlignmentVert = vaCenter
  237. Options.Editing = False
  238. Width = 85
  239. Position.BandIndex = 1
  240. Position.ColIndex = 1
  241. Position.RowIndex = 0
  242. end
  243. object ColDoorS: TcxGridBandedColumn
  244. Caption = #46020#50612
  245. PropertiesClassName = 'TcxTextEditProperties'
  246. Properties.Alignment.Horz = taCenter
  247. Properties.Alignment.Vert = taVCenter
  248. OnCustomDrawCell = ColCommSCustomDrawCell
  249. HeaderAlignmentHorz = taCenter
  250. HeaderAlignmentVert = vaCenter
  251. Options.Editing = False
  252. Width = 45
  253. Position.BandIndex = 3
  254. Position.ColIndex = 0
  255. Position.RowIndex = 0
  256. end
  257. object ColFanS: TcxGridBandedColumn
  258. Caption = #54060#49345#53468
  259. PropertiesClassName = 'TcxTextEditProperties'
  260. Properties.Alignment.Horz = taCenter
  261. Properties.Alignment.Vert = taVCenter
  262. OnCustomDrawCell = ColCommSCustomDrawCell
  263. HeaderAlignmentHorz = taCenter
  264. HeaderAlignmentVert = vaCenter
  265. Options.Editing = False
  266. Width = 45
  267. Position.BandIndex = 3
  268. Position.ColIndex = 1
  269. Position.RowIndex = 0
  270. end
  271. object ColHeaterS: TcxGridBandedColumn
  272. Caption = #55176#53552#49345#53468
  273. PropertiesClassName = 'TcxTextEditProperties'
  274. Properties.Alignment.Horz = taCenter
  275. Properties.Alignment.Vert = taVCenter
  276. OnCustomDrawCell = ColCommSCustomDrawCell
  277. HeaderAlignmentHorz = taCenter
  278. HeaderAlignmentVert = vaCenter
  279. Options.Editing = False
  280. Width = 45
  281. Position.BandIndex = 3
  282. Position.ColIndex = 2
  283. Position.RowIndex = 0
  284. end
  285. object ColPower: TcxGridBandedColumn
  286. Caption = #51204#50896#49345#53468
  287. PropertiesClassName = 'TcxTextEditProperties'
  288. Properties.Alignment.Horz = taCenter
  289. Properties.Alignment.Vert = taVCenter
  290. OnCustomDrawCell = ColCommSCustomDrawCell
  291. HeaderAlignmentHorz = taCenter
  292. HeaderAlignmentVert = vaCenter
  293. Options.Editing = False
  294. Width = 63
  295. Position.BandIndex = 2
  296. Position.ColIndex = 0
  297. Position.RowIndex = 0
  298. end
  299. object ColModule: TcxGridBandedColumn
  300. Caption = #51204#44305#54032
  301. PropertiesClassName = 'TcxTextEditProperties'
  302. Properties.Alignment.Horz = taCenter
  303. Properties.Alignment.Vert = taVCenter
  304. OnCustomDrawCell = ColCommSCustomDrawCell
  305. HeaderAlignmentHorz = taCenter
  306. HeaderAlignmentVert = vaCenter
  307. Options.Editing = False
  308. Width = 55
  309. Position.BandIndex = 2
  310. Position.ColIndex = 1
  311. Position.RowIndex = 0
  312. end
  313. object ColOperMode: TcxGridBandedColumn
  314. Caption = #50868#50689#47784#46300
  315. PropertiesClassName = 'TcxTextEditProperties'
  316. Properties.Alignment.Horz = taCenter
  317. Properties.Alignment.Vert = taVCenter
  318. OnCustomDrawCell = ColOperModeCustomDrawCell
  319. HeaderAlignmentHorz = taCenter
  320. HeaderAlignmentVert = vaCenter
  321. Options.Editing = False
  322. Position.BandIndex = 4
  323. Position.ColIndex = 0
  324. Position.RowIndex = 0
  325. end
  326. object ColFanOff: TcxGridBandedColumn
  327. Caption = 'COMM'
  328. PropertiesClassName = 'TcxTextEditProperties'
  329. Properties.Alignment.Horz = taRightJustify
  330. Properties.Alignment.Vert = taVCenter
  331. Visible = False
  332. HeaderAlignmentHorz = taCenter
  333. HeaderAlignmentVert = vaCenter
  334. Options.Editing = False
  335. VisibleForCustomization = False
  336. Position.BandIndex = 0
  337. Position.ColIndex = 4
  338. Position.RowIndex = 0
  339. end
  340. object ColHeaterOff: TcxGridBandedColumn
  341. Caption = 'Off'
  342. PropertiesClassName = 'TcxTextEditProperties'
  343. Properties.Alignment.Horz = taRightJustify
  344. Properties.Alignment.Vert = taVCenter
  345. HeaderAlignmentHorz = taCenter
  346. HeaderAlignmentVert = vaCenter
  347. Options.Editing = False
  348. Position.BandIndex = 6
  349. Position.ColIndex = 1
  350. Position.RowIndex = 0
  351. end
  352. object ColHeaterOn: TcxGridBandedColumn
  353. Caption = 'On'
  354. PropertiesClassName = 'TcxTextEditProperties'
  355. Properties.Alignment.Horz = taRightJustify
  356. Properties.Alignment.Vert = taVCenter
  357. HeaderAlignmentHorz = taCenter
  358. HeaderAlignmentVert = vaCenter
  359. Options.Editing = False
  360. Position.BandIndex = 6
  361. Position.ColIndex = 0
  362. Position.RowIndex = 0
  363. end
  364. object ColBattS: TcxGridBandedColumn
  365. Caption = #48176#53552#47532
  366. PropertiesClassName = 'TcxTextEditProperties'
  367. Properties.Alignment.Horz = taCenter
  368. Properties.Alignment.Vert = taVCenter
  369. Visible = False
  370. HeaderAlignmentHorz = taCenter
  371. HeaderAlignmentVert = vaCenter
  372. Options.Editing = False
  373. VisibleForCustomization = False
  374. Width = 56
  375. Position.BandIndex = 2
  376. Position.ColIndex = 2
  377. Position.RowIndex = 0
  378. end
  379. object ColHamS: TcxGridBandedColumn
  380. Caption = #54632#52404
  381. PropertiesClassName = 'TcxTextEditProperties'
  382. Properties.Alignment.Horz = taCenter
  383. Properties.Alignment.Vert = taVCenter
  384. Visible = False
  385. HeaderAlignmentHorz = taCenter
  386. HeaderAlignmentVert = vaCenter
  387. Options.Editing = False
  388. VisibleForCustomization = False
  389. Width = 222
  390. Position.BandIndex = 1
  391. Position.ColIndex = 2
  392. Position.RowIndex = 0
  393. end
  394. object ColCtrlS: TcxGridBandedColumn
  395. Caption = 'COMM'
  396. PropertiesClassName = 'TcxTextEditProperties'
  397. Properties.Alignment.Horz = taCenter
  398. Properties.Alignment.Vert = taVCenter
  399. Visible = False
  400. HeaderAlignmentHorz = taCenter
  401. HeaderAlignmentVert = vaCenter
  402. Options.Editing = False
  403. VisibleForCustomization = False
  404. Width = 168
  405. Position.BandIndex = 0
  406. Position.ColIndex = 5
  407. Position.RowIndex = 0
  408. end
  409. object ColTemp: TcxGridBandedColumn
  410. Caption = #50728#46020
  411. PropertiesClassName = 'TcxTextEditProperties'
  412. Properties.Alignment.Horz = taRightJustify
  413. Properties.Alignment.Vert = taVCenter
  414. OnCustomDrawCell = ColTempCustomDrawCell
  415. HeaderAlignmentHorz = taCenter
  416. HeaderAlignmentVert = vaCenter
  417. Options.Editing = False
  418. Position.BandIndex = 3
  419. Position.ColIndex = 3
  420. Position.RowIndex = 0
  421. end
  422. object ColMsgDt: TcxGridBandedColumn
  423. Caption = #51228#44277#49884#44033
  424. PropertiesClassName = 'TcxTextEditProperties'
  425. Properties.Alignment.Horz = taCenter
  426. Properties.Alignment.Vert = taVCenter
  427. HeaderAlignmentHorz = taCenter
  428. HeaderAlignmentVert = vaCenter
  429. Options.Editing = False
  430. Width = 60
  431. Position.BandIndex = 4
  432. Position.ColIndex = 1
  433. Position.RowIndex = 0
  434. end
  435. object ColMsgCnt: TcxGridBandedColumn
  436. Caption = #51228#44277
  437. PropertiesClassName = 'TcxTextEditProperties'
  438. Properties.Alignment.Horz = taCenter
  439. Properties.Alignment.Vert = taVCenter
  440. HeaderAlignmentHorz = taCenter
  441. HeaderAlignmentVert = vaCenter
  442. Width = 60
  443. Position.BandIndex = 4
  444. Position.ColIndex = 2
  445. Position.RowIndex = 0
  446. end
  447. object ColUpdtDt: TcxGridBandedColumn
  448. Caption = #50629#45936#51060#53944' '#49884#44033
  449. PropertiesClassName = 'TcxLabelProperties'
  450. Properties.Alignment.Horz = taCenter
  451. Properties.Alignment.Vert = taVCenter
  452. HeaderAlignmentHorz = taCenter
  453. HeaderAlignmentVert = vaCenter
  454. Width = 206
  455. Position.BandIndex = 1
  456. Position.ColIndex = 0
  457. Position.RowIndex = 0
  458. end
  459. object ColNmbr: TcxGridBandedColumn
  460. Caption = #48264#54840
  461. DataBinding.ValueType = 'Integer'
  462. PropertiesClassName = 'TcxSpinEditProperties'
  463. Properties.Alignment.Horz = taCenter
  464. Properties.Alignment.Vert = taVCenter
  465. HeaderAlignmentHorz = taCenter
  466. HeaderAlignmentVert = vaCenter
  467. Width = 79
  468. Position.BandIndex = 0
  469. Position.ColIndex = 0
  470. Position.RowIndex = 0
  471. end
  472. object ColTypeNm: TcxGridBandedColumn
  473. Caption = #53356#44592
  474. PropertiesClassName = 'TcxLabelProperties'
  475. Properties.Alignment.Horz = taCenter
  476. Properties.Alignment.Vert = taVCenter
  477. HeaderAlignmentHorz = taCenter
  478. HeaderAlignmentVert = vaCenter
  479. Width = 133
  480. Position.BandIndex = 0
  481. Position.ColIndex = 3
  482. Position.RowIndex = 0
  483. end
  484. end
  485. object GlList: TcxGridLevel
  486. GridView = TvList
  487. end
  488. end
  489. object lblMOS0: TcxLabel
  490. Left = 413
  491. Top = 189
  492. Caption = #51221#49345
  493. Transparent = True
  494. Visible = False
  495. end
  496. object lblMOS1: TcxLabel
  497. Left = 413
  498. Top = 204
  499. Caption = #51109#50528
  500. Transparent = True
  501. Visible = False
  502. end
  503. object lblPWS0: TcxLabel
  504. Left = 413
  505. Top = 220
  506. Caption = #53020#51664
  507. Transparent = True
  508. Visible = False
  509. end
  510. object lblPWS1: TcxLabel
  511. Left = 413
  512. Top = 236
  513. Caption = #44732#51664
  514. Transparent = True
  515. Visible = False
  516. end
  517. object lblCDS0: TcxLabel
  518. Left = 413
  519. Top = 252
  520. Caption = #45803#55192
  521. Transparent = True
  522. Visible = False
  523. end
  524. object lblCDS1: TcxLabel
  525. Left = 413
  526. Top = 268
  527. Caption = #50676#47548
  528. Transparent = True
  529. Visible = False
  530. end
  531. object lblPAS0: TcxLabel
  532. Left = 413
  533. Top = 284
  534. Caption = #46041#51089
  535. Transparent = True
  536. Visible = False
  537. end
  538. object lblPAS1: TcxLabel
  539. Left = 413
  540. Top = 300
  541. Caption = #51221#51648
  542. Transparent = True
  543. Visible = False
  544. end
  545. object lblHTS0: TcxLabel
  546. Left = 413
  547. Top = 316
  548. Caption = #44032#46041
  549. Transparent = True
  550. Visible = False
  551. end
  552. object lblHTS1: TcxLabel
  553. Left = 413
  554. Top = 333
  555. Caption = #51473#51648
  556. Transparent = True
  557. Visible = False
  558. end
  559. object lblUnknown: TcxLabel
  560. Left = 413
  561. Top = 360
  562. Caption = '?'
  563. Transparent = True
  564. Visible = False
  565. end
  566. end
  567. end
  568. end
  569. object TmrShow: TTimer
  570. Enabled = False
  571. Interval = 500
  572. OnTimer = TmrShowTimer
  573. Left = 492
  574. Top = 300
  575. end
  576. end