tpMainFrm.dfm 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515
  1. object tpMainForm: TtpMainForm
  2. Left = 462
  3. Top = 202
  4. Width = 1104
  5. Height = 675
  6. ActiveControl = zgNoPeg
  7. BorderIcons = [biSystemMenu]
  8. Caption = #26631#27573#21010#20998
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'MS Sans Serif'
  14. Font.Style = []
  15. OldCreateOrder = False
  16. Position = poMainFormCenter
  17. PixelsPerInch = 96
  18. TextHeight = 13
  19. object jtsMainDatas: TJimTabSet
  20. Left = 0
  21. Top = 26
  22. Width = 1096
  23. Height = 21
  24. Align = alTop
  25. BackgroundColor = clGradientInactiveCaption
  26. Font.Charset = ANSI_CHARSET
  27. Font.Color = clWindowText
  28. Font.Height = -12
  29. Font.Name = #23435#20307
  30. Font.Style = []
  31. StartMargin = 0
  32. SelectedColor = clWhite
  33. XPSelectedColor = clWhite
  34. XPUnSelectedColor = 15200496
  35. Tabs.Strings = (
  36. #22522#30784#20449#24687
  37. #26729#21495#35797#31639
  38. #26631#27573#21010#20998)
  39. TabIndex = 0
  40. TabPosition = jtpTop
  41. TabStyle = tdsNew
  42. UnselectedColor = 15200496
  43. OnChange = jtsMainDatasChange
  44. end
  45. object jpsMain: TJimPages
  46. Left = 0
  47. Top = 47
  48. Width = 1096
  49. Height = 594
  50. ActivePage = jpsMainBaseTender
  51. ActivePageIndex = 0
  52. Align = alClient
  53. Caption = 'jpsMain'
  54. object jpsMainBaseTender: TJimPage
  55. Left = 0
  56. Top = 0
  57. Width = 1096
  58. Height = 594
  59. TabName = 'BaseTender'
  60. Caption = 'BaseTender'
  61. object labGatherResult: TJimGradLabel
  62. Left = 0
  63. Top = 574
  64. Width = 1096
  65. Height = 20
  66. Align = alBottom
  67. AutoSize = False
  68. ColorBegin = clGradientInactiveCaption
  69. ColorEnd = clGradientInactiveCaption
  70. Caption = ' '#27719#24635#21518#65292#20849#21547#26729#21495#33410#28857'%d'#20010#65292#36215#28857#26729#21495#20026'%s'#65292#32456#28857#26729#21495#20026'%s'
  71. Font.Charset = GB2312_CHARSET
  72. Font.Color = clWindowText
  73. Font.Height = -12
  74. Font.Name = #23435#20307
  75. Font.Style = [fsBold]
  76. ParentFont = False
  77. Layout = tlCenter
  78. end
  79. object sprNoPegData: TSplitter
  80. Left = 390
  81. Top = 0
  82. Height = 574
  83. end
  84. object pnlNoPegData: TPanel
  85. Left = 393
  86. Top = 0
  87. Width = 703
  88. Height = 574
  89. Align = alClient
  90. BevelOuter = bvNone
  91. TabOrder = 0
  92. object labNoPegData: TJimGradLabel
  93. Left = 0
  94. Top = 0
  95. Width = 703
  96. Height = 20
  97. Align = alTop
  98. AutoSize = False
  99. ColorBegin = clGradientInactiveCaption
  100. ColorEnd = clGradientInactiveCaption
  101. Caption = ' '#26080#26729#21495#25968#25454
  102. Font.Charset = GB2312_CHARSET
  103. Font.Color = clWindowText
  104. Font.Height = -12
  105. Font.Name = #23435#20307
  106. Font.Style = [fsBold]
  107. ParentFont = False
  108. Layout = tlCenter
  109. end
  110. object zgNoPeg: TZJGrid
  111. Left = 0
  112. Top = 20
  113. Width = 703
  114. Height = 554
  115. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
  116. OptionsEx = []
  117. ColCount = 8
  118. ShowGridLine = False
  119. DefaultColWidth = 73
  120. DefaultFixedColWidth = 25
  121. Selection.AlphaBlend = False
  122. Selection.TransparentColor = False
  123. FrozenCol = 0
  124. FrozenRow = 0
  125. Align = alClient
  126. end
  127. end
  128. object pnlGatherTenders: TPanel
  129. Left = 0
  130. Top = 0
  131. Width = 390
  132. Height = 574
  133. Align = alLeft
  134. BevelOuter = bvNone
  135. TabOrder = 1
  136. object labGatherTenders: TJimGradLabel
  137. Left = 0
  138. Top = 0
  139. Width = 390
  140. Height = 20
  141. Align = alTop
  142. AutoSize = False
  143. ColorBegin = clGradientInactiveCaption
  144. ColorEnd = clGradientInactiveCaption
  145. Caption = ' '#21442#19982#27719#24635#39033#30446
  146. Font.Charset = GB2312_CHARSET
  147. Font.Color = clWindowText
  148. Font.Height = -12
  149. Font.Name = #23435#20307
  150. Font.Style = [fsBold]
  151. ParentFont = False
  152. Layout = tlCenter
  153. end
  154. object zgSelectTenders: TZJGrid
  155. Left = 0
  156. Top = 20
  157. Width = 401
  158. Height = 554
  159. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  160. OptionsEx = []
  161. ColCount = 4
  162. ShowGridLine = False
  163. DefaultColWidth = 73
  164. DefaultFixedColWidth = 25
  165. Selection.AlphaBlend = False
  166. Selection.TransparentColor = False
  167. FrozenCol = 0
  168. FrozenRow = 0
  169. Align = alLeft
  170. end
  171. end
  172. end
  173. object jpsMainTrial: TJimPage
  174. Left = 0
  175. Top = 0
  176. Width = 1096
  177. Height = 594
  178. TabName = 'Trial'
  179. Caption = 'Result'
  180. end
  181. object jpsMainPart: TJimPage
  182. Left = 0
  183. Top = 0
  184. Width = 1096
  185. Height = 594
  186. TabName = 'Part'
  187. Caption = 'Part'
  188. end
  189. end
  190. object dxBarManager: TdxBarManager
  191. Font.Charset = DEFAULT_CHARSET
  192. Font.Color = clWindowText
  193. Font.Height = -12
  194. Font.Name = #23435#20307
  195. Font.Style = []
  196. Bars = <
  197. item
  198. AllowCustomizing = False
  199. AllowQuickCustomizing = False
  200. Caption = #33756#21333
  201. DockedDockingStyle = dsTop
  202. DockedLeft = 0
  203. DockedTop = 0
  204. DockingStyle = dsTop
  205. FloatLeft = 484
  206. FloatTop = 279
  207. FloatClientWidth = 65
  208. FloatClientHeight = 92
  209. IsMainMenu = True
  210. ItemLinks = <
  211. item
  212. Item = dxsiPart
  213. Visible = True
  214. end
  215. item
  216. Item = dxbtnTrial
  217. Visible = True
  218. end
  219. item
  220. Item = dxbtnReGather
  221. Visible = True
  222. end>
  223. MultiLine = True
  224. Name = #33756#21333
  225. OneOnRow = True
  226. Row = 0
  227. UseOwnFont = False
  228. Visible = True
  229. WholeRow = True
  230. end
  231. item
  232. BorderStyle = bbsNone
  233. Caption = #35828#26126
  234. DockedDockingStyle = dsTop
  235. DockedLeft = 0
  236. DockedTop = 26
  237. DockingStyle = dsTop
  238. FloatLeft = 724
  239. FloatTop = 369
  240. FloatClientWidth = 23
  241. FloatClientHeight = 22
  242. ItemLinks = <>
  243. Name = #35828#26126
  244. OneOnRow = True
  245. Row = 1
  246. ShowMark = False
  247. UseOwnFont = False
  248. Visible = False
  249. WholeRow = False
  250. end>
  251. CanCustomize = False
  252. Categories.Strings = (
  253. #40664#35748)
  254. Categories.ItemsVisibles = (
  255. 2)
  256. Categories.Visibles = (
  257. True)
  258. PopupMenuLinks = <>
  259. Style = bmsOffice11
  260. UseSystemFont = True
  261. Left = 192
  262. Top = 120
  263. DockControlHeights = (
  264. 0
  265. 0
  266. 26
  267. 0)
  268. object dxsiPart: TdxBarSubItem
  269. Caption = #26631#27573#21010#20998
  270. Category = 0
  271. Visible = ivAlways
  272. ItemLinks = <
  273. item
  274. Item = dxbtnPartByLength
  275. Visible = True
  276. end
  277. item
  278. Item = dxbtnPartByPrice
  279. Visible = True
  280. end>
  281. end
  282. object dxbtnTrial: TdxBarButton
  283. Caption = #26729#21495#35797#31639
  284. Category = 0
  285. Visible = ivAlways
  286. OnClick = dxbtnTrialClick
  287. end
  288. object dxbtnPartByLength: TdxBarButton
  289. Caption = #36317#31163#27169#24335
  290. Category = 0
  291. Hint = #36317#31163#27169#24335
  292. Visible = ivAlways
  293. OnClick = dxbtnPartByLengthClick
  294. end
  295. object dxbtnPartByPrice: TdxBarButton
  296. Caption = #37329#39069#27169#24335
  297. Category = 0
  298. Hint = #37329#39069#27169#24335
  299. Visible = ivAlways
  300. OnClick = dxbtnPartByPriceClick
  301. end
  302. object dxbtnReGather: TdxBarButton
  303. Caption = #20999#25442#27719#24635#39033#30446
  304. Category = 0
  305. Hint = #20999#25442#27719#24635#39033#30446
  306. Visible = ivNever
  307. OnClick = dxbtnReGatherClick
  308. end
  309. object dxbtnGatherGclBills: TdxBarButton
  310. Caption = #27719#24635#24037#31243#37327#28165#21333
  311. Category = 0
  312. Hint = #27719#24635#20840#37096#26729#21495#33410#28857#19979#30340#24037#31243#37327#28165#21333
  313. Visible = ivAlways
  314. end
  315. end
  316. object saSelectTenders: TsdGridDBA
  317. Columns = <
  318. item
  319. Title.Caption = #26631#27573#21517#31216
  320. Title.CaptionAcrossCols = '1'
  321. Title.Font.Charset = GB2312_CHARSET
  322. Title.Font.Color = clWindowText
  323. Title.Font.Height = -12
  324. Title.Font.Name = #23435#20307
  325. Title.Font.Style = []
  326. Alignment = taLeftJustify
  327. Font.Charset = GB2312_CHARSET
  328. Font.Color = clWindowText
  329. Font.Height = -12
  330. Font.Name = #23435#20307
  331. Font.Style = []
  332. FieldName = 'Name'
  333. Width = 200
  334. ReadOnly = True
  335. end
  336. item
  337. Title.Caption = #37329#39069
  338. Title.CaptionAcrossCols = '1'
  339. Title.Font.Charset = GB2312_CHARSET
  340. Title.Font.Color = clWindowText
  341. Title.Font.Height = -12
  342. Title.Font.Name = #23435#20307
  343. Title.Font.Style = []
  344. Alignment = taRightJustify
  345. Font.Charset = GB2312_CHARSET
  346. Font.Color = clWindowText
  347. Font.Height = -12
  348. Font.Name = #23435#20307
  349. Font.Style = []
  350. FieldName = 'TotalPrice'
  351. Width = 80
  352. ReadOnly = False
  353. end
  354. item
  355. Title.Caption = #28165#21333#34892#25968
  356. Title.CaptionAcrossCols = '1'
  357. Title.Font.Charset = GB2312_CHARSET
  358. Title.Font.Color = clWindowText
  359. Title.Font.Height = -12
  360. Title.Font.Name = #23435#20307
  361. Title.Font.Style = []
  362. Alignment = taRightJustify
  363. Font.Charset = GB2312_CHARSET
  364. Font.Color = clWindowText
  365. Font.Height = -12
  366. Font.Name = #23435#20307
  367. Font.Style = []
  368. FieldName = 'NodeCount'
  369. Width = 60
  370. ReadOnly = False
  371. end>
  372. Grid = zgSelectTenders
  373. ExtendRowCount = 3
  374. Options = []
  375. Left = 192
  376. Top = 222
  377. end
  378. object staNoPeg: TsdGridTreeDBA
  379. Columns = <
  380. item
  381. Title.Caption = #39033#30446#33410#32534#21495
  382. Title.CaptionAcrossCols = '1'
  383. Title.Font.Charset = GB2312_CHARSET
  384. Title.Font.Color = clWindowText
  385. Title.Font.Height = -12
  386. Title.Font.Name = #23435#20307
  387. Title.Font.Style = []
  388. Alignment = taLeftJustify
  389. Font.Charset = GB2312_CHARSET
  390. Font.Color = clWindowText
  391. Font.Height = -12
  392. Font.Name = #23435#20307
  393. Font.Style = []
  394. FieldName = 'Code'
  395. Width = 120
  396. ReadOnly = True
  397. end
  398. item
  399. Title.Caption = #28165#21333#32534#21495
  400. Title.CaptionAcrossCols = '1'
  401. Title.Font.Charset = GB2312_CHARSET
  402. Title.Font.Color = clWindowText
  403. Title.Font.Height = -12
  404. Title.Font.Name = #23435#20307
  405. Title.Font.Style = []
  406. Alignment = taLeftJustify
  407. Font.Charset = GB2312_CHARSET
  408. Font.Color = clWindowText
  409. Font.Height = -12
  410. Font.Name = #23435#20307
  411. Font.Style = []
  412. FieldName = 'B_Code'
  413. Width = 80
  414. ReadOnly = True
  415. end
  416. item
  417. Title.Caption = #21517#31216
  418. Title.CaptionAcrossCols = '1'
  419. Title.Font.Charset = GB2312_CHARSET
  420. Title.Font.Color = clWindowText
  421. Title.Font.Height = -12
  422. Title.Font.Name = #23435#20307
  423. Title.Font.Style = []
  424. Alignment = taLeftJustify
  425. Font.Charset = GB2312_CHARSET
  426. Font.Color = clWindowText
  427. Font.Height = -12
  428. Font.Name = #23435#20307
  429. Font.Style = []
  430. FieldName = 'Name'
  431. Width = 200
  432. ReadOnly = True
  433. end
  434. item
  435. Title.Caption = #21333#20301
  436. Title.CaptionAcrossCols = '1'
  437. Title.Font.Charset = GB2312_CHARSET
  438. Title.Font.Color = clWindowText
  439. Title.Font.Height = -12
  440. Title.Font.Name = #23435#20307
  441. Title.Font.Style = []
  442. Alignment = taCenter
  443. Font.Charset = GB2312_CHARSET
  444. Font.Color = clWindowText
  445. Font.Height = -12
  446. Font.Name = #23435#20307
  447. Font.Style = []
  448. FieldName = 'Units'
  449. Width = 45
  450. ReadOnly = True
  451. end
  452. item
  453. Title.Caption = #21333#20215
  454. Title.CaptionAcrossCols = '1'
  455. Title.Font.Charset = GB2312_CHARSET
  456. Title.Font.Color = clWindowText
  457. Title.Font.Height = -12
  458. Title.Font.Name = #23435#20307
  459. Title.Font.Style = []
  460. Alignment = taRightJustify
  461. Font.Charset = GB2312_CHARSET
  462. Font.Color = clWindowText
  463. Font.Height = -12
  464. Font.Name = #23435#20307
  465. Font.Style = []
  466. FieldName = 'Price'
  467. Width = 60
  468. ReadOnly = True
  469. end
  470. item
  471. Title.Caption = #25968#37327
  472. Title.CaptionAcrossCols = '1'
  473. Title.Font.Charset = GB2312_CHARSET
  474. Title.Font.Color = clWindowText
  475. Title.Font.Height = -12
  476. Title.Font.Name = #23435#20307
  477. Title.Font.Style = []
  478. Alignment = taRightJustify
  479. Font.Charset = GB2312_CHARSET
  480. Font.Color = clWindowText
  481. Font.Height = -12
  482. Font.Name = #23435#20307
  483. Font.Style = []
  484. FieldName = 'Quantity'
  485. Width = 60
  486. ReadOnly = True
  487. end
  488. item
  489. Title.Caption = #37329#39069
  490. Title.CaptionAcrossCols = '1'
  491. Title.Font.Charset = GB2312_CHARSET
  492. Title.Font.Color = clWindowText
  493. Title.Font.Height = -12
  494. Title.Font.Name = #23435#20307
  495. Title.Font.Style = []
  496. Alignment = taRightJustify
  497. Font.Charset = GB2312_CHARSET
  498. Font.Color = clWindowText
  499. Font.Height = -12
  500. Font.Name = #23435#20307
  501. Font.Style = []
  502. FieldName = 'TotalPrice'
  503. Width = 60
  504. ReadOnly = True
  505. end>
  506. Grid = zgNoPeg
  507. ExtendRowCount = 0
  508. Options = []
  509. AutoExpand = False
  510. TreeOptions = []
  511. TopLevelBold = True
  512. Left = 548
  513. Top = 227
  514. end
  515. end