FrmVmsLogSttsSubF.dfm 14 KB

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