WCAMH101F.dfm 9.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310
  1. object WCAMH101: TWCAMH101
  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 = #50937#52852#47700#46972' '#49345#53468' '#51060#47141
  10. ClientHeight = 698
  11. ClientWidth = 1139
  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. OnShow = FormShow
  24. ExplicitWidth = 320
  25. ExplicitHeight = 240
  26. PixelsPerInch = 96
  27. TextHeight = 17
  28. object PnlTop: TPanel
  29. Left = 0
  30. Top = 0
  31. Width = 1139
  32. Height = 34
  33. Align = alTop
  34. BevelOuter = bvNone
  35. TabOrder = 0
  36. DesignSize = (
  37. 1139
  38. 34)
  39. object LblSearch: TLabel
  40. Left = 20
  41. Top = 9
  42. Width = 52
  43. Height = 17
  44. Caption = #44160#49353#51312#44148
  45. Transparent = True
  46. end
  47. object ImgDesc01: TImage
  48. Left = 5
  49. Top = 12
  50. Width = 9
  51. Height = 9
  52. Transparent = True
  53. end
  54. object LblRecords: TLabel
  55. Left = 989
  56. Top = 9
  57. Width = 52
  58. Height = 17
  59. Alignment = taRightJustify
  60. Anchors = [akTop, akRight]
  61. Caption = #51312#54924#44148#49688
  62. Transparent = True
  63. ExplicitLeft = 863
  64. end
  65. object BtnExlSave: TcxButton
  66. Left = 1057
  67. Top = 5
  68. Width = 75
  69. Height = 25
  70. Cursor = crHandPoint
  71. Hint = #51312#54924' '#44208#44284' '#45936#51060#53552#47484' '#54028#51068#47196' '#51200#51109#54633#45768#45796'.'
  72. Anchors = [akTop, akRight]
  73. Caption = #51200#51109
  74. Colors.Default = 3893744
  75. TabOrder = 0
  76. Font.Charset = DEFAULT_CHARSET
  77. Font.Color = clWindowText
  78. Font.Height = -13
  79. Font.Name = #47569#51008' '#44256#46357
  80. Font.Style = [fsBold]
  81. ParentFont = False
  82. OnClick = BtnExlSaveClick
  83. end
  84. end
  85. object PnlList: TPanel
  86. Left = 0
  87. Top = 34
  88. Width = 1139
  89. Height = 664
  90. Align = alClient
  91. BevelOuter = bvNone
  92. TabOrder = 1
  93. DesignSize = (
  94. 1139
  95. 664)
  96. object CxList: TcxGrid
  97. Left = 0
  98. Top = 0
  99. Width = 1139
  100. Height = 664
  101. Align = alClient
  102. TabOrder = 1
  103. object TvList: TcxGridTableView
  104. Navigator.Buttons.Append.Visible = True
  105. Navigator.Buttons.SaveBookmark.Visible = False
  106. Navigator.InfoPanel.Visible = True
  107. DataController.Summary.DefaultGroupSummaryItems = <>
  108. DataController.Summary.FooterSummaryItems = <>
  109. DataController.Summary.SummaryGroups = <>
  110. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  111. OptionsBehavior.CellHints = True
  112. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  113. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  114. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  115. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  116. OptionsData.Deleting = False
  117. OptionsData.DeletingConfirmation = False
  118. OptionsData.Editing = False
  119. OptionsData.Inserting = False
  120. OptionsView.Indicator = True
  121. object Column00: TcxGridColumn
  122. Caption = #44288#47532#48264#54840
  123. PropertiesClassName = 'TcxLabelProperties'
  124. Properties.Alignment.Horz = taCenter
  125. Properties.Alignment.Vert = taVCenter
  126. HeaderAlignmentHorz = taCenter
  127. HeaderAlignmentVert = vaCenter
  128. Width = 80
  129. end
  130. object Column11: TcxGridColumn
  131. Caption = #50937#52852#47700#46972' ID'
  132. PropertiesClassName = 'TcxLabelProperties'
  133. Properties.Alignment.Horz = taCenter
  134. Properties.Alignment.Vert = taVCenter
  135. HeaderAlignmentHorz = taCenter
  136. HeaderAlignmentVert = vaCenter
  137. Width = 90
  138. end
  139. object Column09: TcxGridColumn
  140. Caption = #50937#52852#47700#46972' '#47749#52845
  141. PropertiesClassName = 'TcxLabelProperties'
  142. Properties.Alignment.Horz = taLeftJustify
  143. Properties.Alignment.Vert = taVCenter
  144. HeaderAlignmentHorz = taCenter
  145. HeaderAlignmentVert = vaCenter
  146. Width = 206
  147. end
  148. object Column01: TcxGridColumn
  149. Caption = #49688#51665#49884#44033
  150. PropertiesClassName = 'TcxTextEditProperties'
  151. Properties.Alignment.Horz = taCenter
  152. Properties.Alignment.Vert = taVCenter
  153. HeaderAlignmentHorz = taCenter
  154. HeaderAlignmentVert = vaCenter
  155. Options.Editing = False
  156. Width = 168
  157. end
  158. object Column02: TcxGridColumn
  159. Caption = #45348#53944#50892#53356' '#49345#53468
  160. PropertiesClassName = 'TcxLabelProperties'
  161. Properties.Alignment.Horz = taCenter
  162. Properties.Alignment.Vert = taVCenter
  163. OnCustomDrawCell = Column02CustomDrawCell
  164. HeaderAlignmentHorz = taCenter
  165. HeaderAlignmentVert = vaCenter
  166. Options.Editing = False
  167. Width = 95
  168. end
  169. object Column03: TcxGridColumn
  170. Caption = #51204#50896
  171. PropertiesClassName = 'TcxLabelProperties'
  172. Properties.Alignment.Horz = taCenter
  173. Properties.Alignment.Vert = taVCenter
  174. Visible = False
  175. OnCustomDrawCell = Column02CustomDrawCell
  176. HeaderAlignmentHorz = taCenter
  177. HeaderAlignmentVert = vaCenter
  178. Options.Editing = False
  179. VisibleForCustomization = False
  180. Width = 95
  181. end
  182. object Column04: TcxGridColumn
  183. Caption = #54632#52404#47928
  184. PropertiesClassName = 'TcxLabelProperties'
  185. Properties.Alignment.Horz = taCenter
  186. Properties.Alignment.Vert = taVCenter
  187. Visible = False
  188. OnCustomDrawCell = Column02CustomDrawCell
  189. HeaderAlignmentHorz = taCenter
  190. HeaderAlignmentVert = vaCenter
  191. Options.Editing = False
  192. VisibleForCustomization = False
  193. Width = 95
  194. end
  195. object Column05: TcxGridColumn
  196. Caption = #54060
  197. PropertiesClassName = 'TcxLabelProperties'
  198. Properties.Alignment.Horz = taCenter
  199. Properties.Alignment.Vert = taVCenter
  200. Visible = False
  201. HeaderAlignmentHorz = taCenter
  202. HeaderAlignmentVert = vaCenter
  203. VisibleForCustomization = False
  204. Width = 95
  205. end
  206. object Column06: TcxGridColumn
  207. Caption = #55176#53552
  208. PropertiesClassName = 'TcxLabelProperties'
  209. Properties.Alignment.Horz = taCenter
  210. Properties.Alignment.Vert = taVCenter
  211. Visible = False
  212. OnCustomDrawCell = Column02CustomDrawCell
  213. HeaderAlignmentHorz = taCenter
  214. HeaderAlignmentVert = vaCenter
  215. VisibleForCustomization = False
  216. Width = 95
  217. end
  218. object Column08: TcxGridColumn
  219. Caption = #48512#51228#50612#44592#44050
  220. PropertiesClassName = 'TcxLabelProperties'
  221. Properties.Alignment.Horz = taRightJustify
  222. Properties.Alignment.Vert = taVCenter
  223. Visible = False
  224. OnCustomDrawCell = Column02CustomDrawCell
  225. HeaderAlignmentHorz = taCenter
  226. HeaderAlignmentVert = vaCenter
  227. Width = 95
  228. end
  229. object Column10: TcxGridColumn
  230. Caption = #54632#52404#50728#46020
  231. PropertiesClassName = 'TcxLabelProperties'
  232. Properties.Alignment.Horz = taRightJustify
  233. Properties.Alignment.Vert = taVCenter
  234. Visible = False
  235. HeaderAlignmentHorz = taCenter
  236. HeaderAlignmentVert = vaCenter
  237. VisibleForCustomization = False
  238. end
  239. object Column07: TcxGridColumn
  240. Caption = #48708#46356#50724' '#51077#47141
  241. PropertiesClassName = 'TcxLabelProperties'
  242. Properties.Alignment.Horz = taCenter
  243. Properties.Alignment.Vert = taVCenter
  244. Visible = False
  245. OnCustomDrawCell = Column02CustomDrawCell
  246. HeaderAlignmentHorz = taCenter
  247. HeaderAlignmentVert = vaCenter
  248. VisibleForCustomization = False
  249. Width = 95
  250. end
  251. object Column12: TcxGridColumn
  252. Caption = #50976#54805
  253. PropertiesClassName = 'TcxLabelProperties'
  254. Properties.Alignment.Vert = taVCenter
  255. HeaderAlignmentHorz = taCenter
  256. HeaderAlignmentVert = vaCenter
  257. end
  258. end
  259. object GlList: TcxGridLevel
  260. GridView = TvList
  261. end
  262. end
  263. object ChkExpand: TcxCheckBox
  264. Tag = 9
  265. Left = 1025
  266. Top = 7
  267. Cursor = crHandPoint
  268. Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
  269. Anchors = [akTop, akRight]
  270. Caption = #54869#51109'/'#52629#49548
  271. ParentBackground = False
  272. ParentColor = False
  273. ParentShowHint = False
  274. ShowHint = True
  275. State = cbsChecked
  276. Style.BorderColor = 9868950
  277. Style.BorderStyle = ebsThick
  278. Style.Color = 14671839
  279. Style.Shadow = False
  280. TabOrder = 0
  281. Transparent = True
  282. OnClick = ChkExpandClick
  283. Width = 85
  284. end
  285. end
  286. object CbType: TcxComboBox
  287. Left = 488
  288. Top = 3
  289. Cursor = crHandPoint
  290. Properties.Alignment.Vert = taVCenter
  291. Properties.DropDownListStyle = lsFixedList
  292. Properties.DropDownSizeable = True
  293. Properties.ReadOnly = False
  294. TabOrder = 2
  295. Visible = False
  296. Width = 200
  297. end
  298. object ADOQry: TADOQuery
  299. Parameters = <>
  300. Left = 240
  301. Top = 148
  302. end
  303. object TmrShow: TTimer
  304. Enabled = False
  305. Interval = 300
  306. OnTimer = TmrShowTimer
  307. Left = 320
  308. Top = 156
  309. end
  310. end