FrmVmsLogDnldSubF.dfm 9.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343
  1. object FrmVmsLogDnldSub: TFrmVmsLogDnldSub
  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 = 1291
  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 = 1291
  31. Height = 34
  32. Align = alTop
  33. BevelOuter = bvNone
  34. TabOrder = 0
  35. DesignSize = (
  36. 1291
  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 = 1141
  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 = 1204
  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 = 1291
  88. Height = 664
  89. Align = alClient
  90. BevelOuter = bvNone
  91. TabOrder = 1
  92. DesignSize = (
  93. 1291
  94. 664)
  95. object CxList: TcxGrid
  96. Left = 0
  97. Top = 0
  98. Width = 1291
  99. Height = 664
  100. Align = alClient
  101. TabOrder = 1
  102. LockedStateImageOptions.Effect = lsieDark
  103. LockedStateImageOptions.ShowText = True
  104. LookAndFeel.Kind = lfUltraFlat
  105. LookAndFeel.NativeStyle = False
  106. object TvList: TcxGridTableView
  107. FilterBox.CustomizeDialog = False
  108. DataController.Summary.DefaultGroupSummaryItems = <>
  109. DataController.Summary.FooterSummaryItems = <>
  110. DataController.Summary.SummaryGroups = <>
  111. OptionsData.CancelOnExit = False
  112. OptionsData.Deleting = False
  113. OptionsData.DeletingConfirmation = False
  114. OptionsData.Editing = False
  115. OptionsData.Inserting = False
  116. OptionsSelection.CellSelect = False
  117. OptionsView.Indicator = True
  118. object Col00: TcxGridColumn
  119. Caption = #48264#54840
  120. PropertiesClassName = 'TcxLabelProperties'
  121. Properties.Alignment.Horz = taCenter
  122. Properties.Alignment.Vert = taVCenter
  123. HeaderAlignmentHorz = taCenter
  124. HeaderAlignmentVert = vaCenter
  125. end
  126. object Col01: TcxGridColumn
  127. Caption = 'VMS ID'
  128. PropertiesClassName = 'TcxLabelProperties'
  129. Properties.Alignment.Horz = taCenter
  130. Properties.Alignment.Vert = taVCenter
  131. HeaderAlignmentHorz = taCenter
  132. HeaderAlignmentVert = vaCenter
  133. Options.Editing = False
  134. Width = 100
  135. end
  136. object Col02: TcxGridColumn
  137. Caption = 'VMS '#47749#52845
  138. PropertiesClassName = 'TcxLabelProperties'
  139. Properties.Alignment.Horz = taLeftJustify
  140. Properties.Alignment.Vert = taVCenter
  141. HeaderAlignmentHorz = taCenter
  142. HeaderAlignmentVert = vaCenter
  143. HeaderGlyphAlignmentHorz = taCenter
  144. Options.Editing = False
  145. Width = 194
  146. end
  147. object Col03: TcxGridColumn
  148. Caption = #46321#47197#49884#44033
  149. PropertiesClassName = 'TcxLabelProperties'
  150. Properties.Alignment.Horz = taCenter
  151. Properties.Alignment.Vert = taVCenter
  152. HeaderAlignmentHorz = taCenter
  153. HeaderAlignmentVert = vaCenter
  154. Options.Editing = False
  155. Width = 140
  156. end
  157. object Col04: TcxGridColumn
  158. Caption = #54028#51068#50976#54805
  159. PropertiesClassName = 'TcxLabelProperties'
  160. Properties.Alignment.Horz = taCenter
  161. Properties.Alignment.Vert = taVCenter
  162. HeaderAlignmentHorz = taCenter
  163. HeaderAlignmentVert = vaCenter
  164. Options.Editing = False
  165. Width = 83
  166. end
  167. object Col05: TcxGridColumn
  168. Caption = #54028#51068'ID'
  169. PropertiesClassName = 'TcxLabelProperties'
  170. Properties.Alignment.Horz = taCenter
  171. Properties.Alignment.Vert = taVCenter
  172. HeaderAlignmentHorz = taCenter
  173. HeaderAlignmentVert = vaCenter
  174. Options.Editing = False
  175. Width = 79
  176. end
  177. object Col06: TcxGridColumn
  178. Caption = #45796#50868#47196#46300' '#49884#51089#49884#44033
  179. PropertiesClassName = 'TcxLabelProperties'
  180. Properties.Alignment.Horz = taCenter
  181. Properties.Alignment.Vert = taVCenter
  182. HeaderAlignmentHorz = taCenter
  183. HeaderAlignmentVert = vaCenter
  184. Options.Editing = False
  185. Width = 140
  186. end
  187. object Col07: TcxGridColumn
  188. Caption = #45796#50868#47196#46300' '#50756#47308#49884#44033
  189. PropertiesClassName = 'TcxLabelProperties'
  190. Properties.Alignment.Horz = taCenter
  191. Properties.Alignment.Vert = taVCenter
  192. HeaderAlignmentHorz = taCenter
  193. HeaderAlignmentVert = vaCenter
  194. Options.Editing = False
  195. Width = 140
  196. end
  197. object Col08: TcxGridColumn
  198. Caption = #51204#49569#44208#44284
  199. PropertiesClassName = 'TcxLabelProperties'
  200. Properties.Alignment.Horz = taCenter
  201. Properties.Alignment.Vert = taVCenter
  202. OnCustomDrawCell = Col08CustomDrawCell
  203. HeaderAlignmentHorz = taCenter
  204. HeaderAlignmentVert = vaCenter
  205. Options.Editing = False
  206. end
  207. object Col09: TcxGridColumn
  208. Caption = #45800#44228
  209. PropertiesClassName = 'TcxLabelProperties'
  210. Properties.Alignment.Horz = taCenter
  211. Properties.Alignment.Vert = taVCenter
  212. HeaderAlignmentHorz = taCenter
  213. HeaderAlignmentVert = vaCenter
  214. Options.Editing = False
  215. Width = 81
  216. end
  217. object Col10: TcxGridColumn
  218. Caption = #50868#50689#51088
  219. PropertiesClassName = 'TcxLabelProperties'
  220. Properties.Alignment.Horz = taCenter
  221. Properties.Alignment.Vert = taVCenter
  222. HeaderAlignmentHorz = taCenter
  223. HeaderAlignmentVert = vaCenter
  224. Options.Editing = False
  225. end
  226. end
  227. object GlList: TcxGridLevel
  228. GridView = TvList
  229. end
  230. end
  231. object ChkExpand: TcxCheckBox
  232. Tag = 9
  233. Left = 1177
  234. Top = 7
  235. Cursor = crHandPoint
  236. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  237. Anchors = [akTop, akRight]
  238. Caption = #54869#51109'/'#52629#49548
  239. ParentBackground = False
  240. ParentColor = False
  241. ParentShowHint = False
  242. ShowHint = True
  243. State = cbsChecked
  244. Style.BorderColor = 9868950
  245. Style.BorderStyle = ebsThick
  246. Style.Color = 14671839
  247. Style.Shadow = False
  248. TabOrder = 0
  249. Transparent = True
  250. OnClick = ChkExpandClick
  251. Width = 85
  252. end
  253. end
  254. object lblText1: TcxLabel
  255. Left = 141
  256. Top = 349
  257. Caption = #51312#54924#44208#44284#44032' '#50630#49845#45768#45796'.'
  258. Transparent = True
  259. Visible = False
  260. end
  261. object lblText2: TcxLabel
  262. Left = 141
  263. Top = 376
  264. Caption = #44160#49353#44592#44036': '
  265. Transparent = True
  266. Visible = False
  267. end
  268. object lblSucc: TcxLabel
  269. Left = 141
  270. Top = 403
  271. Caption = #49457#44277
  272. Transparent = True
  273. Visible = False
  274. end
  275. object lblFai: TcxLabel
  276. Left = 141
  277. Top = 430
  278. Caption = #49892#54056
  279. Transparent = True
  280. Visible = False
  281. end
  282. object lblCnt: TcxLabel
  283. Left = 141
  284. Top = 457
  285. Caption = ' '#44148
  286. Transparent = True
  287. Visible = False
  288. end
  289. object lblFileTp0: TcxLabel
  290. Left = 329
  291. Top = 230
  292. Caption = 'Local'#54268
  293. Transparent = True
  294. Visible = False
  295. end
  296. object lblFileTp1: TcxLabel
  297. Left = 329
  298. Top = 252
  299. Caption = #51060#48120#51648#49900#48380
  300. Transparent = True
  301. Visible = False
  302. end
  303. object lblFileTp2: TcxLabel
  304. Left = 329
  305. Top = 274
  306. Caption = #44592#48376#49828#52992#51572
  307. Transparent = True
  308. Visible = False
  309. end
  310. object lblStep0: TcxLabel
  311. Left = 329
  312. Top = 297
  313. Caption = #45824#44592
  314. Transparent = True
  315. Visible = False
  316. end
  317. object lblStep1: TcxLabel
  318. Left = 329
  319. Top = 319
  320. Caption = #51204#49569#51473
  321. Transparent = True
  322. Visible = False
  323. end
  324. object lblStep2: TcxLabel
  325. Left = 329
  326. Top = 341
  327. Caption = #51204#49569#50756#47308
  328. Transparent = True
  329. Visible = False
  330. end
  331. object ADOQry: TADOQuery
  332. Parameters = <>
  333. Left = 240
  334. Top = 148
  335. end
  336. object TmrShow: TTimer
  337. Enabled = False
  338. Interval = 300
  339. OnTimer = TmrShowTimer
  340. Left = 320
  341. Top = 156
  342. end
  343. end