TAS0090MF.dfm 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386
  1. object TAS0090M: TTAS0090M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = 'VDS '#44396#44036' '#44368#53685#47049' '#48516#49437
  7. ClientHeight = 824
  8. ClientWidth = 1576
  9. Color = clBtnFace
  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. 1576
  24. 824)
  25. PixelsPerInch = 96
  26. TextHeight = 17
  27. object ShpTitle: TShape
  28. Left = 4
  29. Top = 4
  30. Width = 1568
  31. Height = 40
  32. Anchors = [akLeft, akTop, akRight]
  33. Brush.Color = 14671839
  34. Pen.Color = 10849679
  35. Pen.Width = 2
  36. ExplicitWidth = 1269
  37. end
  38. object LblCaption: TLabel
  39. Left = 16
  40. Top = 10
  41. Width = 267
  42. Height = 23
  43. Caption = #53440#51060#53952' '
  44. Font.Charset = DEFAULT_CHARSET
  45. Font.Color = 4740964
  46. Font.Height = -17
  47. Font.Name = #47569#51008' '#44256#46357
  48. Font.Style = [fsBold]
  49. ParentFont = False
  50. ParentShowHint = False
  51. ShowHint = True
  52. end
  53. object ShpList: TShape
  54. Left = 4
  55. Top = 50
  56. Width = 1568
  57. Height = 768
  58. Anchors = [akLeft, akTop, akRight, akBottom]
  59. Pen.Color = 10849679
  60. Pen.Width = 2
  61. ExplicitWidth = 1436
  62. ExplicitHeight = 766
  63. end
  64. object BtnClose: TcxButton
  65. Left = 1482
  66. Top = 11
  67. Width = 80
  68. Height = 25
  69. Cursor = crHandPoint
  70. Hint = #45803#44592
  71. Anchors = [akTop, akRight]
  72. Caption = #45803#44592
  73. Colors.Default = 10737865
  74. TabOrder = 0
  75. Font.Charset = DEFAULT_CHARSET
  76. Font.Color = clBlack
  77. Font.Height = -13
  78. Font.Name = #47569#51008' '#44256#46357
  79. Font.Style = [fsBold]
  80. ParentFont = False
  81. OnClick = BtnCloseClick
  82. end
  83. object EdFocus: TEdit
  84. Left = -10
  85. Top = -10
  86. Width = 2
  87. Height = 25
  88. ImeName = 'Microsoft Office IME 2007'
  89. TabOrder = 1
  90. Text = 'EdFocus'
  91. end
  92. object PnlBack: TPanel
  93. Left = 12
  94. Top = 56
  95. Width = 1550
  96. Height = 755
  97. Anchors = [akLeft, akTop, akRight, akBottom]
  98. BevelOuter = bvNone
  99. ParentBackground = False
  100. ParentColor = True
  101. TabOrder = 2
  102. object cxGroupBox2: TcxGroupBox
  103. Left = 0
  104. Top = 0
  105. Align = alTop
  106. Caption = #9654' '#44160#49353' '#51312#44148
  107. Style.BorderColor = clCaptionText
  108. Style.Shadow = False
  109. Style.TextColor = clWindowText
  110. Style.TextStyle = [fsBold]
  111. TabOrder = 0
  112. Height = 67
  113. Width = 1550
  114. object Label1: TLabel
  115. Left = 31
  116. Top = 26
  117. Width = 26
  118. Height = 17
  119. Alignment = taRightJustify
  120. Caption = #44592#44036
  121. Font.Charset = DEFAULT_CHARSET
  122. Font.Color = clWindowText
  123. Font.Height = -13
  124. Font.Name = #47569#51008' '#44256#46357
  125. Font.Style = [fsBold]
  126. ParentFont = False
  127. Transparent = True
  128. end
  129. object ImgDesc03: TImage
  130. Left = 12
  131. Top = 30
  132. Width = 9
  133. Height = 9
  134. Transparent = True
  135. end
  136. object Label2: TLabel
  137. Left = 434
  138. Top = 26
  139. Width = 26
  140. Height = 17
  141. Alignment = taRightJustify
  142. Caption = #44396#44036
  143. Font.Charset = DEFAULT_CHARSET
  144. Font.Color = clWindowText
  145. Font.Height = -13
  146. Font.Name = #47569#51008' '#44256#46357
  147. Font.Style = [fsBold]
  148. ParentFont = False
  149. Transparent = True
  150. end
  151. object ImgDesc02: TImage
  152. Left = 417
  153. Top = 30
  154. Width = 9
  155. Height = 9
  156. Transparent = True
  157. end
  158. object Label4: TLabel
  159. Left = 217
  160. Top = 26
  161. Width = 19
  162. Height = 17
  163. Alignment = taRightJustify
  164. Caption = ' ~ '
  165. Font.Charset = DEFAULT_CHARSET
  166. Font.Color = clWindowText
  167. Font.Height = -13
  168. Font.Name = #47569#51008' '#44256#46357
  169. Font.Style = [fsBold]
  170. ParentFont = False
  171. Transparent = True
  172. end
  173. object BtnSearch: TcxButton
  174. Left = 977
  175. Top = 22
  176. Width = 80
  177. Height = 25
  178. Cursor = crHandPoint
  179. Hint = #51312#54924
  180. Caption = #51312#54924
  181. Colors.Default = 10737865
  182. TabOrder = 1
  183. Font.Charset = DEFAULT_CHARSET
  184. Font.Color = clBlack
  185. Font.Height = -13
  186. Font.Name = #47569#51008' '#44256#46357
  187. Font.Style = [fsBold]
  188. ParentFont = False
  189. OnClick = BtnSearchClick
  190. end
  191. object DtStDay: TDateTimePicker
  192. Left = 65
  193. Top = 23
  194. Width = 149
  195. Height = 25
  196. BevelInner = bvNone
  197. BevelOuter = bvNone
  198. BevelKind = bkFlat
  199. Date = 39924.557697118050000000
  200. Format = ' yyyy'#45380' MM'#50900' dd'#51068
  201. Time = 39924.557697118050000000
  202. DoubleBuffered = True
  203. ImeName = 'Microsoft Office IME 2007'
  204. ParentDoubleBuffered = False
  205. ParentShowHint = False
  206. ShowHint = True
  207. TabOrder = 0
  208. end
  209. object DtEdDay: TDateTimePicker
  210. Left = 237
  211. Top = 23
  212. Width = 149
  213. Height = 25
  214. BevelInner = bvNone
  215. BevelOuter = bvNone
  216. BevelKind = bkFlat
  217. Date = 39924.557697118050000000
  218. Format = ' yyyy'#45380' MM'#50900' dd'#51068
  219. Time = 39924.557697118050000000
  220. DoubleBuffered = True
  221. ImeName = 'Microsoft Office IME 2007'
  222. ParentDoubleBuffered = False
  223. ParentShowHint = False
  224. ShowHint = True
  225. TabOrder = 2
  226. end
  227. object CbStHour: TcxComboBox
  228. Left = 1310
  229. Top = 32
  230. Cursor = crHandPoint
  231. Properties.Alignment.Horz = taCenter
  232. Properties.Alignment.Vert = taVCenter
  233. Properties.DropDownListStyle = lsFixedList
  234. Properties.DropDownRows = 23
  235. Properties.HideSelection = False
  236. Properties.Items.Strings = (
  237. ' 00'#49884
  238. ' 01'#49884
  239. ' 02'#49884
  240. ' 03'#49884
  241. ' 04'#49884
  242. ' 05'#49884
  243. ' 06'#49884
  244. ' 07'#49884
  245. ' 08'#49884
  246. ' 09'#49884
  247. ' 10'#49884
  248. ' 11'#49884
  249. ' 12'#49884
  250. ' 13'#49884
  251. ' 14'#49884
  252. ' 15'#49884
  253. ' 16'#49884
  254. ' 17'#49884
  255. ' 18'#49884
  256. ' 19'#49884
  257. ' 20'#49884
  258. ' 21'#49884
  259. ' 22'#49884
  260. ' 23'#49884)
  261. Properties.ReadOnly = False
  262. Properties.OnChange = CbStHourPropertiesChange
  263. Style.BorderColor = clWindowFrame
  264. Style.BorderStyle = ebsUltraFlat
  265. Style.LookAndFeel.Kind = lfUltraFlat
  266. Style.LookAndFeel.NativeStyle = False
  267. Style.ButtonStyle = btsUltraFlat
  268. Style.PopupBorderStyle = epbsFlat
  269. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  270. StyleDisabled.LookAndFeel.NativeStyle = False
  271. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  272. StyleFocused.LookAndFeel.NativeStyle = False
  273. StyleFocused.TextColor = clBlack
  274. StyleFocused.TextStyle = [fsBold]
  275. StyleHot.LookAndFeel.Kind = lfUltraFlat
  276. StyleHot.LookAndFeel.NativeStyle = False
  277. TabOrder = 3
  278. Text = ' 00'#49884
  279. Visible = False
  280. Width = 75
  281. end
  282. object CbEdHour: TcxComboBox
  283. Left = 1413
  284. Top = 32
  285. Cursor = crHandPoint
  286. Properties.Alignment.Horz = taCenter
  287. Properties.Alignment.Vert = taVCenter
  288. Properties.DropDownListStyle = lsFixedList
  289. Properties.DropDownRows = 23
  290. Properties.HideSelection = False
  291. Properties.Items.Strings = (
  292. ' 00'#49884
  293. ' 01'#49884
  294. ' 02'#49884
  295. ' 03'#49884
  296. ' 04'#49884
  297. ' 05'#49884
  298. ' 06'#49884
  299. ' 07'#49884
  300. ' 08'#49884
  301. ' 09'#49884
  302. ' 10'#49884
  303. ' 11'#49884
  304. ' 12'#49884
  305. ' 13'#49884
  306. ' 14'#49884
  307. ' 15'#49884
  308. ' 16'#49884
  309. ' 17'#49884
  310. ' 18'#49884
  311. ' 19'#49884
  312. ' 20'#49884
  313. ' 21'#49884
  314. ' 22'#49884
  315. ' 23'#49884)
  316. Properties.ReadOnly = False
  317. Style.BorderColor = clWindowFrame
  318. Style.BorderStyle = ebsUltraFlat
  319. Style.LookAndFeel.Kind = lfUltraFlat
  320. Style.LookAndFeel.NativeStyle = False
  321. Style.ButtonStyle = btsUltraFlat
  322. Style.PopupBorderStyle = epbsFlat
  323. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  324. StyleDisabled.LookAndFeel.NativeStyle = False
  325. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  326. StyleFocused.LookAndFeel.NativeStyle = False
  327. StyleFocused.TextColor = clBlack
  328. StyleFocused.TextStyle = [fsBold]
  329. StyleHot.LookAndFeel.Kind = lfUltraFlat
  330. StyleHot.LookAndFeel.NativeStyle = False
  331. TabOrder = 4
  332. Text = ' 00'#49884
  333. Visible = False
  334. Width = 75
  335. end
  336. object EdAtrd: TcxButtonEdit
  337. Left = 466
  338. Top = 23
  339. Cursor = crHandPoint
  340. Properties.Buttons = <
  341. item
  342. Caption = #49440#53469
  343. Default = True
  344. Kind = bkEllipsis
  345. end>
  346. Properties.ReadOnly = True
  347. Properties.OnButtonClick = EdAtrdPropertiesButtonClick
  348. TabOrder = 5
  349. Text = '['#51204#52404']'
  350. Width = 495
  351. end
  352. end
  353. object PgTab: TcxPageControl
  354. Left = 0
  355. Top = 67
  356. Width = 1550
  357. Height = 688
  358. Align = alClient
  359. Focusable = False
  360. TabOrder = 1
  361. Properties.ActivePage = TsList01
  362. Properties.CloseButtonMode = cbmEveryTab
  363. Properties.HotTrack = True
  364. Properties.TabPosition = tpBottom
  365. Properties.TabSlants.Positions = [spRight]
  366. TabSlants.Positions = [spRight]
  367. OnCanCloseEx = PgTabCanCloseEx
  368. OnDblClick = PgTabDblClick
  369. ClientRectBottom = 657
  370. ClientRectLeft = 2
  371. ClientRectRight = 1545
  372. ClientRectTop = 2
  373. object TsList01: TcxTabSheet
  374. Caption = #44160#49353#44208#44284
  375. ImageIndex = 2
  376. end
  377. end
  378. end
  379. object TmrShow: TTimer
  380. Enabled = False
  381. Interval = 300
  382. OnTimer = TmrShowTimer
  383. Left = 708
  384. Top = 8
  385. end
  386. end