tpPeg_GclFme.dfm 9.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331
  1. object tpPeg_GclFrame: TtpPeg_GclFrame
  2. Left = 0
  3. Top = 0
  4. Width = 703
  5. Height = 484
  6. TabOrder = 0
  7. object sprPeg_Gcl: TSplitter
  8. Left = 0
  9. Top = 281
  10. Width = 703
  11. Height = 3
  12. Cursor = crVSplit
  13. Align = alBottom
  14. end
  15. object zgGclBills: TZJGrid
  16. Left = 0
  17. Top = 284
  18. Width = 703
  19. Height = 200
  20. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  21. OptionsEx = []
  22. ColCount = 7
  23. ShowGridLine = False
  24. DefaultColWidth = 73
  25. DefaultFixedColWidth = 25
  26. Selection.AlphaBlend = False
  27. Selection.TransparentColor = False
  28. FrozenCol = 0
  29. FrozenRow = 0
  30. Align = alBottom
  31. end
  32. object zgPeg: TZJGrid
  33. Left = 0
  34. Top = 0
  35. Width = 703
  36. Height = 281
  37. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  38. OptionsEx = []
  39. ColCount = 9
  40. RowCount = 6
  41. FixedRowCount = 2
  42. ShowGridLine = False
  43. DefaultColWidth = 73
  44. DefaultFixedColWidth = 25
  45. Selection.AlphaBlend = False
  46. Selection.TransparentColor = False
  47. FrozenCol = 0
  48. FrozenRow = 0
  49. Align = alClient
  50. end
  51. object saGclBills: TsdGridDBA
  52. Columns = <
  53. item
  54. Title.Caption = #28165#21333#32534#21495
  55. Title.CaptionAcrossCols = '1'
  56. Title.Font.Charset = GB2312_CHARSET
  57. Title.Font.Color = clWindowText
  58. Title.Font.Height = -12
  59. Title.Font.Name = #23435#20307
  60. Title.Font.Style = []
  61. Alignment = taLeftJustify
  62. Font.Charset = GB2312_CHARSET
  63. Font.Color = clWindowText
  64. Font.Height = -12
  65. Font.Name = #23435#20307
  66. Font.Style = []
  67. FieldName = 'B_Code'
  68. ReadOnly = True
  69. end
  70. item
  71. Title.Caption = #21517#31216
  72. Title.CaptionAcrossCols = '1'
  73. Title.Font.Charset = GB2312_CHARSET
  74. Title.Font.Color = clWindowText
  75. Title.Font.Height = -12
  76. Title.Font.Name = #23435#20307
  77. Title.Font.Style = []
  78. Alignment = taLeftJustify
  79. Font.Charset = GB2312_CHARSET
  80. Font.Color = clWindowText
  81. Font.Height = -12
  82. Font.Name = #23435#20307
  83. Font.Style = []
  84. FieldName = 'Name'
  85. Width = 200
  86. ReadOnly = True
  87. end
  88. item
  89. Title.Caption = #21333#20301
  90. Title.CaptionAcrossCols = '1'
  91. Title.Font.Charset = GB2312_CHARSET
  92. Title.Font.Color = clWindowText
  93. Title.Font.Height = -12
  94. Title.Font.Name = #23435#20307
  95. Title.Font.Style = []
  96. Alignment = taCenter
  97. Font.Charset = GB2312_CHARSET
  98. Font.Color = clWindowText
  99. Font.Height = -12
  100. Font.Name = #23435#20307
  101. Font.Style = []
  102. FieldName = 'Units'
  103. Width = 45
  104. ReadOnly = True
  105. end
  106. item
  107. Title.Caption = #21333#20215
  108. Title.CaptionAcrossCols = '1'
  109. Title.Font.Charset = GB2312_CHARSET
  110. Title.Font.Color = clWindowText
  111. Title.Font.Height = -12
  112. Title.Font.Name = #23435#20307
  113. Title.Font.Style = []
  114. Alignment = taRightJustify
  115. Font.Charset = GB2312_CHARSET
  116. Font.Color = clWindowText
  117. Font.Height = -12
  118. Font.Name = #23435#20307
  119. Font.Style = []
  120. FieldName = 'Price'
  121. Width = 80
  122. ReadOnly = True
  123. end
  124. item
  125. Title.Caption = #25968#37327
  126. Title.CaptionAcrossCols = '1'
  127. Title.Font.Charset = GB2312_CHARSET
  128. Title.Font.Color = clWindowText
  129. Title.Font.Height = -12
  130. Title.Font.Name = #23435#20307
  131. Title.Font.Style = []
  132. Alignment = taRightJustify
  133. Font.Charset = GB2312_CHARSET
  134. Font.Color = clWindowText
  135. Font.Height = -12
  136. Font.Name = #23435#20307
  137. Font.Style = []
  138. FieldName = 'Quantity'
  139. Width = 80
  140. ReadOnly = True
  141. end
  142. item
  143. Title.Caption = #37329#39069
  144. Title.CaptionAcrossCols = '1'
  145. Title.Font.Charset = GB2312_CHARSET
  146. Title.Font.Color = clWindowText
  147. Title.Font.Height = -12
  148. Title.Font.Name = #23435#20307
  149. Title.Font.Style = []
  150. Alignment = taRightJustify
  151. Font.Charset = GB2312_CHARSET
  152. Font.Color = clWindowText
  153. Font.Height = -12
  154. Font.Name = #23435#20307
  155. Font.Style = []
  156. FieldName = 'TotalPrice'
  157. Width = 80
  158. ReadOnly = True
  159. end>
  160. Grid = zgGclBills
  161. ExtendRowCount = 0
  162. Options = []
  163. Left = 120
  164. Top = 296
  165. end
  166. object saPeg: TsdGridDBA
  167. Columns = <
  168. item
  169. Title.Caption = #39033#30446#33410#32534#21495
  170. Title.CaptionAcrossCols = '1'
  171. Title.CaptionAcrossRows = 2
  172. Title.Font.Charset = GB2312_CHARSET
  173. Title.Font.Color = clWindowText
  174. Title.Font.Height = -12
  175. Title.Font.Name = #23435#20307
  176. Title.Font.Style = []
  177. Alignment = taLeftJustify
  178. Font.Charset = GB2312_CHARSET
  179. Font.Color = clWindowText
  180. Font.Height = -12
  181. Font.Name = #23435#20307
  182. Font.Style = []
  183. FieldName = 'Code'
  184. Width = 120
  185. ReadOnly = False
  186. end
  187. item
  188. Title.Caption = #21517#31216
  189. Title.CaptionAcrossCols = '1'
  190. Title.CaptionAcrossRows = 2
  191. Title.Font.Charset = GB2312_CHARSET
  192. Title.Font.Color = clWindowText
  193. Title.Font.Height = -12
  194. Title.Font.Name = #23435#20307
  195. Title.Font.Style = []
  196. Alignment = taLeftJustify
  197. Font.Charset = GB2312_CHARSET
  198. Font.Color = clWindowText
  199. Font.Height = -12
  200. Font.Name = #23435#20307
  201. Font.Style = []
  202. FieldName = 'Name'
  203. Width = 200
  204. ReadOnly = True
  205. end
  206. item
  207. Title.Caption = #21333#20301
  208. Title.CaptionAcrossCols = '1'
  209. Title.CaptionAcrossRows = 2
  210. Title.Font.Charset = GB2312_CHARSET
  211. Title.Font.Color = clWindowText
  212. Title.Font.Height = -12
  213. Title.Font.Name = #23435#20307
  214. Title.Font.Style = []
  215. Alignment = taCenter
  216. Font.Charset = GB2312_CHARSET
  217. Font.Color = clWindowText
  218. Font.Height = -12
  219. Font.Name = #23435#20307
  220. Font.Style = []
  221. FieldName = 'Unit'
  222. Width = 45
  223. ReadOnly = True
  224. end
  225. item
  226. Title.Caption = #37329#39069
  227. Title.CaptionAcrossCols = '1'
  228. Title.CaptionAcrossRows = 2
  229. Title.Font.Charset = GB2312_CHARSET
  230. Title.Font.Color = clWindowText
  231. Title.Font.Height = -12
  232. Title.Font.Name = #23435#20307
  233. Title.Font.Style = []
  234. Alignment = taRightJustify
  235. Font.Charset = GB2312_CHARSET
  236. Font.Color = clWindowText
  237. Font.Height = -12
  238. Font.Name = #23435#20307
  239. Font.Style = []
  240. FieldName = 'TotalPrice'
  241. Width = 80
  242. ReadOnly = True
  243. end
  244. item
  245. Title.Caption = #36215#28857'|'#26729#21495
  246. Title.CaptionAcrossCols = '2'
  247. Title.Font.Charset = GB2312_CHARSET
  248. Title.Font.Color = clWindowText
  249. Title.Font.Height = -12
  250. Title.Font.Name = #23435#20307
  251. Title.Font.Style = []
  252. Alignment = taLeftJustify
  253. Font.Charset = GB2312_CHARSET
  254. Font.Color = clWindowText
  255. Font.Height = -12
  256. Font.Name = #23435#20307
  257. Font.Style = []
  258. FieldName = 'BeginPeg'
  259. ReadOnly = False
  260. end
  261. item
  262. Title.Caption = '|'#20540
  263. Title.CaptionAcrossCols = '1'
  264. Title.Font.Charset = GB2312_CHARSET
  265. Title.Font.Color = clWindowText
  266. Title.Font.Height = -12
  267. Title.Font.Name = #23435#20307
  268. Title.Font.Style = []
  269. Alignment = taLeftJustify
  270. Font.Charset = GB2312_CHARSET
  271. Font.Color = clWindowText
  272. Font.Height = -12
  273. Font.Name = #23435#20307
  274. Font.Style = []
  275. FieldName = 'BeginPegNum'
  276. Width = 60
  277. ReadOnly = False
  278. end
  279. item
  280. Title.Caption = #32456#28857'|'#26729#21495
  281. Title.CaptionAcrossCols = '2'
  282. Title.Font.Charset = GB2312_CHARSET
  283. Title.Font.Color = clWindowText
  284. Title.Font.Height = -12
  285. Title.Font.Name = #23435#20307
  286. Title.Font.Style = []
  287. Alignment = taLeftJustify
  288. Font.Charset = GB2312_CHARSET
  289. Font.Color = clWindowText
  290. Font.Height = -12
  291. Font.Name = #23435#20307
  292. Font.Style = []
  293. FieldName = 'EndPeg'
  294. ReadOnly = True
  295. end
  296. item
  297. Title.Caption = '|'#20540
  298. Title.CaptionAcrossCols = '1'
  299. Title.Font.Charset = GB2312_CHARSET
  300. Title.Font.Color = clWindowText
  301. Title.Font.Height = -12
  302. Title.Font.Name = #23435#20307
  303. Title.Font.Style = []
  304. Alignment = taRightJustify
  305. Font.Charset = GB2312_CHARSET
  306. Font.Color = clWindowText
  307. Font.Height = -12
  308. Font.Name = #23435#20307
  309. Font.Style = []
  310. FieldName = 'EndPegNum'
  311. Width = 60
  312. ReadOnly = True
  313. end>
  314. Grid = zgPeg
  315. ExtendRowCount = 0
  316. Options = []
  317. Left = 120
  318. Top = 88
  319. end
  320. object dxBarPopupMenu1: TdxBarPopupMenu
  321. BarManager = tpMainForm.dxBarManager
  322. ItemLinks = <
  323. item
  324. Item = tpMainForm.dxbtnGatherGclBills
  325. Visible = True
  326. end>
  327. UseOwnFont = False
  328. Left = 176
  329. Top = 88
  330. end
  331. end