FrmVmsLogSttsSubF.dfm 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493
  1. object FrmVmsLogSttsSub: TFrmVmsLogSttsSub
  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 = #51060#47141#51312#54924
  10. ClientHeight = 698
  11. ClientWidth = 1149
  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. OnDestroy = FormDestroy
  24. OnShow = FormShow
  25. ExplicitWidth = 320
  26. ExplicitHeight = 240
  27. PixelsPerInch = 96
  28. TextHeight = 17
  29. object PnlTop: TPanel
  30. Left = 0
  31. Top = 0
  32. Width = 1149
  33. Height = 34
  34. Align = alTop
  35. BevelOuter = bvNone
  36. TabOrder = 0
  37. DesignSize = (
  38. 1149
  39. 34)
  40. object LblSearch: TLabel
  41. Left = 20
  42. Top = 9
  43. Width = 52
  44. Height = 17
  45. Caption = #44160#49353#51312#44148
  46. Transparent = True
  47. end
  48. object ImgDesc01: TImage
  49. Left = 5
  50. Top = 12
  51. Width = 9
  52. Height = 9
  53. Transparent = True
  54. end
  55. object LblRecords: TLabel
  56. Left = 999
  57. Top = 9
  58. Width = 52
  59. Height = 17
  60. Alignment = taRightJustify
  61. Anchors = [akTop, akRight]
  62. Caption = #51312#54924#44148#49688
  63. Transparent = True
  64. ExplicitLeft = 588
  65. end
  66. object BtnExlSave: TcxButton
  67. Left = 1062
  68. Top = 5
  69. Width = 80
  70. Height = 25
  71. Cursor = crHandPoint
  72. Hint = #51312#54924' '#44208#44284' '#45936#51060#53552#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  73. Anchors = [akTop, akRight]
  74. Caption = #51200#51109
  75. Colors.Default = 3893744
  76. TabOrder = 0
  77. Font.Charset = DEFAULT_CHARSET
  78. Font.Color = clWindowText
  79. Font.Height = -13
  80. Font.Name = #47569#51008' '#44256#46357
  81. Font.Style = [fsBold]
  82. ParentFont = False
  83. OnClick = BtnExlSaveClick
  84. end
  85. end
  86. object PnlList: TPanel
  87. Left = 0
  88. Top = 34
  89. Width = 1149
  90. Height = 664
  91. Align = alClient
  92. BevelOuter = bvNone
  93. TabOrder = 1
  94. DesignSize = (
  95. 1149
  96. 664)
  97. object ChkExpand: TcxCheckBox
  98. Tag = 9
  99. Left = 1035
  100. Top = 7
  101. Cursor = crHandPoint
  102. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  103. Anchors = [akTop, akRight]
  104. Caption = #54869#51109'/'#52629#49548
  105. ParentBackground = False
  106. ParentColor = False
  107. ParentShowHint = False
  108. ShowHint = True
  109. State = cbsChecked
  110. Style.BorderColor = 9868950
  111. Style.BorderStyle = ebsThick
  112. Style.Color = 14671839
  113. Style.Shadow = False
  114. TabOrder = 0
  115. Transparent = True
  116. OnClick = ChkExpandClick
  117. Width = 85
  118. end
  119. object CxList: TcxGrid
  120. Left = 0
  121. Top = 0
  122. Width = 1149
  123. Height = 664
  124. Align = alClient
  125. TabOrder = 1
  126. LockedStateImageOptions.Effect = lsieDark
  127. LockedStateImageOptions.ShowText = True
  128. LookAndFeel.NativeStyle = False
  129. object TvList: TcxGridBandedTableView
  130. FilterBox.CustomizeDialog = False
  131. DataController.Summary.DefaultGroupSummaryItems = <>
  132. DataController.Summary.FooterSummaryItems = <
  133. item
  134. Kind = skCount
  135. Column = Col02
  136. end
  137. item
  138. Column = Col03
  139. end
  140. item
  141. end
  142. item
  143. Column = Col04
  144. end>
  145. DataController.Summary.SummaryGroups = <>
  146. OptionsBehavior.CellHints = True
  147. OptionsCustomize.ColumnMoving = False
  148. OptionsCustomize.ColumnVertSizing = False
  149. OptionsData.CancelOnExit = False
  150. OptionsData.Deleting = False
  151. OptionsData.DeletingConfirmation = False
  152. OptionsData.Inserting = False
  153. OptionsSelection.HideFocusRectOnExit = False
  154. OptionsSelection.HideSelection = True
  155. OptionsView.GroupByBox = False
  156. OptionsView.Indicator = True
  157. Bands = <
  158. item
  159. Caption = 'VMS '#51221#48372
  160. Width = 374
  161. end
  162. item
  163. Caption = #53685#49888
  164. Width = 244
  165. end
  166. item
  167. Caption = #47784#46280
  168. Width = 86
  169. end
  170. item
  171. Caption = #54632#52404
  172. Width = 333
  173. end
  174. item
  175. Caption = #47784#46280'/'#51204#50896' '#44060#48324#49345#53468
  176. Visible = False
  177. VisibleForCustomization = False
  178. Width = 359
  179. end>
  180. object Col01: TcxGridBandedColumn
  181. Caption = #48264#54840
  182. PropertiesClassName = 'TcxTextEditProperties'
  183. Properties.Alignment.Horz = taCenter
  184. Properties.Alignment.Vert = taVCenter
  185. HeaderAlignmentHorz = taCenter
  186. HeaderAlignmentVert = vaCenter
  187. Options.Editing = False
  188. Width = 69
  189. Position.BandIndex = 0
  190. Position.ColIndex = 0
  191. Position.RowIndex = 0
  192. end
  193. object Col02: TcxGridBandedColumn
  194. Caption = 'VMS ID'
  195. PropertiesClassName = 'TcxTextEditProperties'
  196. Properties.Alignment.Horz = taCenter
  197. Properties.Alignment.Vert = taVCenter
  198. HeaderAlignmentHorz = taCenter
  199. HeaderAlignmentVert = vaCenter
  200. Options.Editing = False
  201. Width = 96
  202. Position.BandIndex = 0
  203. Position.ColIndex = 1
  204. Position.RowIndex = 0
  205. end
  206. object Col03: TcxGridBandedColumn
  207. Caption = 'VMS '#47749#52845
  208. PropertiesClassName = 'TcxTextEditProperties'
  209. Properties.Alignment.Horz = taLeftJustify
  210. Properties.Alignment.Vert = taVCenter
  211. HeaderAlignmentHorz = taCenter
  212. HeaderAlignmentVert = vaCenter
  213. Options.Editing = False
  214. Width = 217
  215. Position.BandIndex = 0
  216. Position.ColIndex = 2
  217. Position.RowIndex = 0
  218. end
  219. object Col04: TcxGridBandedColumn
  220. Tag = 1
  221. Caption = #49688#51665#49884#44033
  222. PropertiesClassName = 'TcxTextEditProperties'
  223. Properties.Alignment.Horz = taCenter
  224. Properties.Alignment.Vert = taVCenter
  225. HeaderAlignmentHorz = taCenter
  226. HeaderAlignmentVert = vaCenter
  227. Options.Editing = False
  228. Width = 150
  229. Position.BandIndex = 1
  230. Position.ColIndex = 0
  231. Position.RowIndex = 0
  232. end
  233. object Col05: TcxGridBandedColumn
  234. Caption = #53685#49888
  235. PropertiesClassName = 'TcxTextEditProperties'
  236. Properties.Alignment.Horz = taCenter
  237. Properties.Alignment.Vert = taVCenter
  238. OnCustomDrawCell = Col05CustomDrawCell
  239. HeaderAlignmentHorz = taCenter
  240. HeaderAlignmentVert = vaCenter
  241. Options.Editing = False
  242. Width = 55
  243. Position.BandIndex = 1
  244. Position.ColIndex = 1
  245. Position.RowIndex = 0
  246. end
  247. object Col11: TcxGridBandedColumn
  248. Caption = #47784#46280#49345#53468
  249. PropertiesClassName = 'TcxTextEditProperties'
  250. Properties.Alignment.Horz = taCenter
  251. Properties.Alignment.Vert = taVCenter
  252. Visible = False
  253. OnCustomDrawCell = Col05CustomDrawCell
  254. HeaderAlignmentHorz = taCenter
  255. HeaderAlignmentVert = vaCenter
  256. Options.Editing = False
  257. VisibleForCustomization = False
  258. Position.BandIndex = 2
  259. Position.ColIndex = 0
  260. Position.RowIndex = 0
  261. end
  262. object Col12: TcxGridBandedColumn
  263. Caption = #51204#50896#49345#53468
  264. PropertiesClassName = 'TcxTextEditProperties'
  265. Properties.Alignment.Horz = taCenter
  266. Properties.Alignment.Vert = taVCenter
  267. OnCustomDrawCell = Col12CustomDrawCell
  268. HeaderAlignmentHorz = taCenter
  269. HeaderAlignmentVert = vaCenter
  270. Options.Editing = False
  271. Position.BandIndex = 2
  272. Position.ColIndex = 1
  273. Position.RowIndex = 0
  274. end
  275. object Col13: TcxGridBandedColumn
  276. Caption = #54868#47732#55064#46020
  277. PropertiesClassName = 'TcxTextEditProperties'
  278. Properties.Alignment.Horz = taCenter
  279. Properties.Alignment.Vert = taVCenter
  280. HeaderAlignmentHorz = taCenter
  281. HeaderAlignmentVert = vaCenter
  282. Options.Editing = False
  283. Position.BandIndex = 3
  284. Position.ColIndex = 4
  285. Position.RowIndex = 0
  286. end
  287. object Col14: TcxGridBandedColumn
  288. Caption = #46020#50612
  289. PropertiesClassName = 'TcxTextEditProperties'
  290. Properties.Alignment.Horz = taCenter
  291. Properties.Alignment.Vert = taVCenter
  292. OnCustomDrawCell = Col05CustomDrawCell
  293. HeaderAlignmentHorz = taCenter
  294. HeaderAlignmentVert = vaCenter
  295. Options.Editing = False
  296. Width = 60
  297. Position.BandIndex = 3
  298. Position.ColIndex = 0
  299. Position.RowIndex = 0
  300. end
  301. object Col15: TcxGridBandedColumn
  302. Caption = #54060#49345#53468
  303. PropertiesClassName = 'TcxTextEditProperties'
  304. Properties.Alignment.Horz = taCenter
  305. Properties.Alignment.Vert = taVCenter
  306. OnCustomDrawCell = Col05CustomDrawCell
  307. HeaderAlignmentHorz = taCenter
  308. HeaderAlignmentVert = vaCenter
  309. Options.Editing = False
  310. Width = 53
  311. Position.BandIndex = 3
  312. Position.ColIndex = 1
  313. Position.RowIndex = 0
  314. end
  315. object Col16: TcxGridBandedColumn
  316. Caption = #55176#53552#49345#53468
  317. PropertiesClassName = 'TcxTextEditProperties'
  318. Properties.Alignment.Horz = taCenter
  319. Properties.Alignment.Vert = taVCenter
  320. OnCustomDrawCell = Col05CustomDrawCell
  321. HeaderAlignmentHorz = taCenter
  322. HeaderAlignmentVert = vaCenter
  323. Options.Editing = False
  324. Width = 60
  325. Position.BandIndex = 3
  326. Position.ColIndex = 2
  327. Position.RowIndex = 0
  328. end
  329. object Col17: TcxGridBandedColumn
  330. Caption = #50728#46020
  331. PropertiesClassName = 'TcxTextEditProperties'
  332. Properties.Alignment.Horz = taCenter
  333. Properties.Alignment.Vert = taVCenter
  334. HeaderAlignmentHorz = taCenter
  335. HeaderAlignmentVert = vaCenter
  336. Options.Editing = False
  337. Width = 57
  338. Position.BandIndex = 3
  339. Position.ColIndex = 3
  340. Position.RowIndex = 0
  341. end
  342. object Col22: TcxGridBandedColumn
  343. Caption = #47784#46280
  344. PropertiesClassName = 'TcxTextEditProperties'
  345. Properties.Alignment.Horz = taCenter
  346. Properties.Alignment.Vert = taVCenter
  347. OnCustomDrawCell = Col05CustomDrawCell
  348. HeaderAlignmentHorz = taCenter
  349. HeaderAlignmentVert = vaCenter
  350. Options.Editing = False
  351. Width = 256
  352. Position.BandIndex = 4
  353. Position.ColIndex = 0
  354. Position.RowIndex = 0
  355. end
  356. object Col23: TcxGridBandedColumn
  357. Caption = #51204#50896
  358. PropertiesClassName = 'TcxTextEditProperties'
  359. Properties.Alignment.Horz = taCenter
  360. Properties.Alignment.Vert = taVCenter
  361. OnCustomDrawCell = Col05CustomDrawCell
  362. HeaderAlignmentHorz = taCenter
  363. HeaderAlignmentVert = vaCenter
  364. Options.Editing = False
  365. Width = 103
  366. Position.BandIndex = 4
  367. Position.ColIndex = 1
  368. Position.RowIndex = 0
  369. end
  370. end
  371. object GlList: TcxGridLevel
  372. GridView = TvList
  373. end
  374. end
  375. end
  376. object lblText1: TcxLabel
  377. Left = 141
  378. Top = 349
  379. Caption = #51312#54924#44208#44284#44032' '#50630#49845#45768#45796'.'
  380. Transparent = True
  381. Visible = False
  382. end
  383. object lblText2: TcxLabel
  384. Left = 141
  385. Top = 376
  386. Caption = #44160#49353#44592#44036': '
  387. Transparent = True
  388. Visible = False
  389. end
  390. object lblSucc: TcxLabel
  391. Left = 141
  392. Top = 403
  393. Caption = #49457#44277
  394. Transparent = True
  395. Visible = False
  396. end
  397. object lblFai: TcxLabel
  398. Left = 141
  399. Top = 430
  400. Caption = #49892#54056
  401. Transparent = True
  402. Visible = False
  403. end
  404. object lblCnt: TcxLabel
  405. Left = 141
  406. Top = 457
  407. Caption = ' '#44148
  408. Transparent = True
  409. Visible = False
  410. end
  411. object lblMOS0: TcxLabel
  412. Left = 413
  413. Top = 189
  414. Caption = #51221#49345
  415. Transparent = True
  416. Visible = False
  417. end
  418. object lblMOS1: TcxLabel
  419. Left = 413
  420. Top = 204
  421. Caption = #51109#50528
  422. Transparent = True
  423. Visible = False
  424. end
  425. object lblPWS0: TcxLabel
  426. Left = 413
  427. Top = 220
  428. Caption = #53020#51664
  429. Transparent = True
  430. Visible = False
  431. end
  432. object lblPWS1: TcxLabel
  433. Left = 413
  434. Top = 236
  435. Caption = #44732#51664
  436. Transparent = True
  437. Visible = False
  438. end
  439. object lblCDS0: TcxLabel
  440. Left = 413
  441. Top = 252
  442. Caption = #45803#55192
  443. Transparent = True
  444. Visible = False
  445. end
  446. object lblCDS1: TcxLabel
  447. Left = 413
  448. Top = 268
  449. Caption = #50676#47548
  450. Transparent = True
  451. Visible = False
  452. end
  453. object lblPAS0: TcxLabel
  454. Left = 413
  455. Top = 284
  456. Caption = #46041#51089
  457. Transparent = True
  458. Visible = False
  459. end
  460. object lblPAS1: TcxLabel
  461. Left = 413
  462. Top = 300
  463. Caption = #51221#51648
  464. Transparent = True
  465. Visible = False
  466. end
  467. object lblHTS0: TcxLabel
  468. Left = 413
  469. Top = 316
  470. Caption = #44032#46041
  471. Transparent = True
  472. Visible = False
  473. end
  474. object lblHTS1: TcxLabel
  475. Left = 413
  476. Top = 333
  477. Caption = #51473#51648
  478. Transparent = True
  479. Visible = False
  480. end
  481. object ADOQry: TADOQuery
  482. Parameters = <>
  483. Left = 240
  484. Top = 148
  485. end
  486. object TmrShow: TTimer
  487. Enabled = False
  488. Interval = 300
  489. OnTimer = TmrShowTimer
  490. Left = 320
  491. Top = 156
  492. end
  493. end