BillsCompileFme.dfm 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851
  1. object BillsCompileFrame: TBillsCompileFrame
  2. Left = 0
  3. Top = 0
  4. Width = 1052
  5. Height = 397
  6. TabOrder = 0
  7. object pnlExprs: TPanel
  8. Left = 0
  9. Top = 0
  10. Width = 1052
  11. Height = 21
  12. Align = alTop
  13. BevelOuter = bvNone
  14. Font.Charset = ANSI_CHARSET
  15. Font.Color = clWindowText
  16. Font.Height = -12
  17. Font.Name = #23435#20307
  18. Font.Style = []
  19. ParentFont = False
  20. TabOrder = 1
  21. DesignSize = (
  22. 1052
  23. 21)
  24. object laEdtExprs: TLabeledEdit
  25. Left = 56
  26. Top = 1
  27. Width = 995
  28. Height = 20
  29. Anchors = [akLeft, akTop, akRight]
  30. Ctl3D = True
  31. EditLabel.Width = 48
  32. EditLabel.Height = 12
  33. EditLabel.Caption = #34920#36798#24335#65306
  34. LabelPosition = lpLeft
  35. ParentCtl3D = False
  36. TabOrder = 0
  37. OnExit = laEdtExprsExit
  38. OnKeyDown = laEdtExprsKeyDown
  39. end
  40. end
  41. object pnlBills: TPanel
  42. Left = 0
  43. Top = 21
  44. Width = 1052
  45. Height = 376
  46. Align = alClient
  47. BevelOuter = bvNone
  48. TabOrder = 0
  49. object zgBillsCompile: TZJGrid
  50. Left = 0
  51. Top = 0
  52. Width = 1052
  53. Height = 376
  54. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
  55. OptionsEx = []
  56. ColCount = 25
  57. RowCount = 7
  58. FixedRowCount = 3
  59. ShowGridLine = False
  60. DefaultColWidth = 73
  61. DefaultFixedColWidth = 30
  62. Selection.AlphaBlend = False
  63. Selection.TransparentColor = False
  64. FrozenCol = 0
  65. FrozenRow = 0
  66. OnCellTextChanged = zgBillsCompileCellTextChanged
  67. OnCustomPaste = zgBillsCompileCustomPaste
  68. OnCopy = zgBillsCompileCopy
  69. OnPaste = zgBillsCompilePaste
  70. OnCellGetColor = zgBillsCompileCellGetColor
  71. OnCellGetFont = zgBillsCompileCellGetFont
  72. OnMouseDown = zgBillsCompileMouseDown
  73. OnKeyDown = zgBillsCompileKeyDown
  74. Align = alClient
  75. end
  76. end
  77. object dxpmBillsCompile: TdxBarPopupMenu
  78. BarManager = MainForm.dxBarManager
  79. ItemLinks = <
  80. item
  81. Item = MainForm.dxbtnCalculateLedger
  82. Visible = True
  83. end
  84. item
  85. BeginGroup = True
  86. Item = MainForm.dxbtnCopyBillsBlock
  87. Visible = True
  88. end
  89. item
  90. BeginGroup = True
  91. Item = MainForm.dxbtnCopy
  92. Visible = True
  93. end
  94. item
  95. Item = MainForm.dxbtnPaste
  96. Visible = True
  97. end
  98. item
  99. Item = MainForm.dxbtnCut
  100. Visible = True
  101. end
  102. item
  103. BeginGroup = True
  104. Item = MainForm.dxbtnRemapedPaste
  105. Visible = True
  106. end
  107. item
  108. BeginGroup = True
  109. Item = MainForm.dxbtnBatchAddChild
  110. Visible = True
  111. end
  112. item
  113. Item = MainForm.dxbtnBatchAddNext
  114. Visible = True
  115. end
  116. item
  117. Item = MainForm.dxbtnReorderChildrenCode
  118. Visible = True
  119. end
  120. item
  121. Item = MainForm.dxbtnBatchReplaceBillsInfo
  122. Visible = True
  123. end
  124. item
  125. BeginGroup = True
  126. Item = MainForm.dxbtnImportGclBillsToXmj
  127. Visible = True
  128. end
  129. item
  130. Item = MainForm.dxbtnImportPlaneFxBillsToXmj
  131. Visible = True
  132. end
  133. item
  134. BeginGroup = True
  135. Item = MainForm.dxbtnCheckAndClear
  136. Visible = True
  137. end
  138. item
  139. BeginGroup = True
  140. Item = MainForm.dxbtnSetBookmark
  141. Visible = True
  142. end
  143. item
  144. BeginGroup = True
  145. Item = MainForm.dxbtnUnlockInfo
  146. Visible = True
  147. end
  148. item
  149. BeginGroup = True
  150. Item = MainForm.dxbtnInsert
  151. Visible = True
  152. end
  153. item
  154. Item = MainForm.dxseBatchInsert
  155. Visible = True
  156. end
  157. item
  158. Visible = True
  159. end
  160. item
  161. Item = MainForm.dxbtnDelete
  162. Visible = True
  163. end
  164. item
  165. BeginGroup = True
  166. Item = MainForm.dxbtnExportGridToExcel
  167. Visible = True
  168. end>
  169. UseOwnFont = False
  170. OnPopup = dxpmBillsCompilePopup
  171. Left = 120
  172. Top = 120
  173. end
  174. object stdBillsCompile: TsdGridTreeDBA
  175. Columns = <
  176. item
  177. Title.Caption = #35745#37327#27719#24635
  178. Title.CaptionAcrossCols = '1'
  179. Title.CaptionAcrossRows = 3
  180. Title.Font.Charset = GB2312_CHARSET
  181. Title.Font.Color = clWindowText
  182. Title.Font.Height = -12
  183. Title.Font.Name = #23435#20307
  184. Title.Font.Style = []
  185. Alignment = taCenter
  186. EditType = sgeCheckBox
  187. Font.Charset = GB2312_CHARSET
  188. Font.Color = clWindowText
  189. Font.Height = -12
  190. Font.Name = #23435#20307
  191. Font.Style = []
  192. FieldName = 'IsGatherZJJL'
  193. Width = 35
  194. ReadOnly = False
  195. end
  196. item
  197. Title.Caption = #39033#30446#33410#32534#21495
  198. Title.CaptionAcrossCols = '1'
  199. Title.CaptionAcrossRows = 3
  200. Title.Font.Charset = GB2312_CHARSET
  201. Title.Font.Color = clWindowText
  202. Title.Font.Height = -12
  203. Title.Font.Name = #23435#20307
  204. Title.Font.Style = []
  205. Alignment = taLeftJustify
  206. Font.Charset = GB2312_CHARSET
  207. Font.Color = clWindowText
  208. Font.Height = -12
  209. Font.Name = #23435#20307
  210. Font.Style = []
  211. FieldName = 'Code'
  212. Width = 150
  213. ReadOnly = False
  214. end
  215. item
  216. Title.Caption = #28165#21333#32534#21495
  217. Title.CaptionAcrossCols = '1'
  218. Title.CaptionAcrossRows = 3
  219. Title.Font.Charset = GB2312_CHARSET
  220. Title.Font.Color = clWindowText
  221. Title.Font.Height = -12
  222. Title.Font.Name = #23435#20307
  223. Title.Font.Style = []
  224. Alignment = taLeftJustify
  225. Font.Charset = GB2312_CHARSET
  226. Font.Color = clWindowText
  227. Font.Height = -12
  228. Font.Name = #23435#20307
  229. Font.Style = []
  230. FieldName = 'B_Code'
  231. Width = 60
  232. ReadOnly = False
  233. end
  234. item
  235. Title.Caption = #21517#31216
  236. Title.CaptionAcrossCols = '1'
  237. Title.CaptionAcrossRows = 3
  238. Title.Font.Charset = GB2312_CHARSET
  239. Title.Font.Color = clWindowText
  240. Title.Font.Height = -12
  241. Title.Font.Name = #23435#20307
  242. Title.Font.Style = []
  243. Alignment = taLeftJustify
  244. Font.Charset = GB2312_CHARSET
  245. Font.Color = clWindowText
  246. Font.Height = -12
  247. Font.Name = #23435#20307
  248. Font.Style = []
  249. FieldName = 'Name'
  250. Width = 180
  251. ReadOnly = False
  252. end
  253. item
  254. Title.Caption = #21035#21517
  255. Title.CaptionAcrossCols = '1'
  256. Title.CaptionAcrossRows = 3
  257. Title.Font.Charset = GB2312_CHARSET
  258. Title.Font.Color = clWindowText
  259. Title.Font.Height = -12
  260. Title.Font.Name = #23435#20307
  261. Title.Font.Style = []
  262. Alignment = taLeftJustify
  263. Font.Charset = GB2312_CHARSET
  264. Font.Color = clWindowText
  265. Font.Height = -12
  266. Font.Name = #23435#20307
  267. Font.Style = []
  268. FieldName = 'Alias'
  269. Visible = False
  270. ReadOnly = False
  271. end
  272. item
  273. Title.Caption = #21333#20301
  274. Title.CaptionAcrossCols = '1'
  275. Title.CaptionAcrossRows = 3
  276. Title.Font.Charset = GB2312_CHARSET
  277. Title.Font.Color = clWindowText
  278. Title.Font.Height = -12
  279. Title.Font.Name = #23435#20307
  280. Title.Font.Style = []
  281. Alignment = taCenter
  282. Font.Charset = GB2312_CHARSET
  283. Font.Color = clWindowText
  284. Font.Height = -12
  285. Font.Name = 'smartSimSun'
  286. Font.Style = []
  287. FieldName = 'Units'
  288. Width = 55
  289. ReadOnly = False
  290. end
  291. item
  292. Title.Caption = #21333#20215
  293. Title.CaptionAcrossCols = '1'
  294. Title.CaptionAcrossRows = 3
  295. Title.Font.Charset = GB2312_CHARSET
  296. Title.Font.Color = clWindowText
  297. Title.Font.Height = -12
  298. Title.Font.Name = #23435#20307
  299. Title.Font.Style = []
  300. Alignment = taRightJustify
  301. Font.Charset = GB2312_CHARSET
  302. Font.Color = clWindowText
  303. Font.Height = -12
  304. Font.Name = #23435#20307
  305. Font.Style = []
  306. FieldName = 'Price'
  307. Width = 60
  308. ReadOnly = False
  309. end
  310. item
  311. Title.Caption = #35774#35745#25968#37327'||'#25968#37327'1'
  312. Title.CaptionAcrossCols = '2'
  313. Title.CaptionAcrossRows = 2
  314. Title.Font.Charset = GB2312_CHARSET
  315. Title.Font.Color = clWindowText
  316. Title.Font.Height = -12
  317. Title.Font.Name = #23435#20307
  318. Title.Font.Style = []
  319. Alignment = taRightJustify
  320. Font.Charset = GB2312_CHARSET
  321. Font.Color = clWindowText
  322. Font.Height = -12
  323. Font.Name = #23435#20307
  324. Font.Style = []
  325. FieldName = 'DgnQuantity1'
  326. Width = 60
  327. ReadOnly = False
  328. end
  329. item
  330. Title.Caption = '||'#25968#37327'2'
  331. Title.CaptionAcrossCols = '1'
  332. Title.Font.Charset = GB2312_CHARSET
  333. Title.Font.Color = clWindowText
  334. Title.Font.Height = -12
  335. Title.Font.Name = #23435#20307
  336. Title.Font.Style = []
  337. Alignment = taRightJustify
  338. Font.Charset = GB2312_CHARSET
  339. Font.Color = clWindowText
  340. Font.Height = -12
  341. Font.Name = #23435#20307
  342. Font.Style = []
  343. FieldName = 'DgnQuantity2'
  344. Width = 60
  345. ReadOnly = False
  346. end
  347. item
  348. Title.Caption = #32463#27982#25351#26631
  349. Title.CaptionAcrossCols = '1'
  350. Title.CaptionAcrossRows = 3
  351. Title.Font.Charset = GB2312_CHARSET
  352. Title.Font.Color = clWindowText
  353. Title.Font.Height = -12
  354. Title.Font.Name = #23435#20307
  355. Title.Font.Style = []
  356. Alignment = taRightJustify
  357. Font.Charset = GB2312_CHARSET
  358. Font.Color = clWindowText
  359. Font.Height = -12
  360. Font.Name = #23435#20307
  361. Font.Style = []
  362. FieldName = 'DgnPrice'
  363. Width = 60
  364. ReadOnly = True
  365. end
  366. item
  367. Title.Caption = '0'#21495#21488#36134#21512#21516'|'#26045#24037#22270#21407#35774#35745'|'#25968#37327
  368. Title.CaptionAcrossCols = '8|2'
  369. Title.Font.Charset = GB2312_CHARSET
  370. Title.Font.Color = clWindowText
  371. Title.Font.Height = -12
  372. Title.Font.Name = #23435#20307
  373. Title.Font.Style = []
  374. Alignment = taRightJustify
  375. Font.Charset = GB2312_CHARSET
  376. Font.Color = clWindowText
  377. Font.Height = -12
  378. Font.Name = #23435#20307
  379. Font.Style = []
  380. FieldName = 'OrgQuantity'
  381. Width = 60
  382. ReadOnly = False
  383. end
  384. item
  385. Title.Caption = '||'#37329#39069
  386. Title.CaptionAcrossCols = '1'
  387. Title.Font.Charset = GB2312_CHARSET
  388. Title.Font.Color = clWindowText
  389. Title.Font.Height = -12
  390. Title.Font.Name = #23435#20307
  391. Title.Font.Style = []
  392. Alignment = taRightJustify
  393. Font.Charset = GB2312_CHARSET
  394. Font.Color = clWindowText
  395. Font.Height = -12
  396. Font.Name = #23435#20307
  397. Font.Style = []
  398. FieldName = 'OrgTotalPrice'
  399. Width = 60
  400. ReadOnly = False
  401. end
  402. item
  403. Title.Caption = '|'#35774#35745#38169#28431#22686#20943'|'#25968#37327
  404. Title.CaptionAcrossCols = '0|2'
  405. Title.CaptionAcrossRows = 2
  406. Title.Font.Charset = GB2312_CHARSET
  407. Title.Font.Color = clWindowText
  408. Title.Font.Height = -12
  409. Title.Font.Name = #23435#20307
  410. Title.Font.Style = []
  411. Alignment = taRightJustify
  412. Font.Charset = GB2312_CHARSET
  413. Font.Color = clWindowText
  414. Font.Height = -12
  415. Font.Name = #23435#20307
  416. Font.Style = []
  417. FieldName = 'MisQuantity'
  418. Width = 60
  419. ReadOnly = False
  420. end
  421. item
  422. Title.Caption = '||'#37329#39069
  423. Title.CaptionAcrossCols = '1'
  424. Title.Font.Charset = GB2312_CHARSET
  425. Title.Font.Color = clWindowText
  426. Title.Font.Height = -12
  427. Title.Font.Name = #23435#20307
  428. Title.Font.Style = []
  429. Alignment = taRightJustify
  430. Font.Charset = GB2312_CHARSET
  431. Font.Color = clWindowText
  432. Font.Height = -12
  433. Font.Name = #23435#20307
  434. Font.Style = []
  435. FieldName = 'MisTotalPrice'
  436. Width = 60
  437. ReadOnly = False
  438. end
  439. item
  440. Title.Caption = '|'#20854#20182#38169#28431#22686#20943'|'#25968#37327
  441. Title.CaptionAcrossCols = '0|2'
  442. Title.Font.Charset = GB2312_CHARSET
  443. Title.Font.Color = clWindowText
  444. Title.Font.Height = -12
  445. Title.Font.Name = #23435#20307
  446. Title.Font.Style = []
  447. Alignment = taRightJustify
  448. Font.Charset = GB2312_CHARSET
  449. Font.Color = clWindowText
  450. Font.Height = -12
  451. Font.Name = #23435#20307
  452. Font.Style = []
  453. FieldName = 'OthQuantity'
  454. Width = 60
  455. ReadOnly = False
  456. end
  457. item
  458. Title.Caption = '||'#37329#39069
  459. Title.CaptionAcrossCols = '1'
  460. Title.Font.Charset = GB2312_CHARSET
  461. Title.Font.Color = clWindowText
  462. Title.Font.Height = -12
  463. Title.Font.Name = #23435#20307
  464. Title.Font.Style = []
  465. Alignment = taRightJustify
  466. Font.Charset = GB2312_CHARSET
  467. Font.Color = clWindowText
  468. Font.Height = -12
  469. Font.Name = #23435#20307
  470. Font.Style = []
  471. FieldName = 'OthTotalPrice'
  472. Width = 60
  473. ReadOnly = False
  474. end
  475. item
  476. Title.Caption = '|'#23567#35745'|'#25968#37327
  477. Title.CaptionAcrossCols = '0|2'
  478. Title.Font.Charset = GB2312_CHARSET
  479. Title.Font.Color = clWindowText
  480. Title.Font.Height = -12
  481. Title.Font.Name = #23435#20307
  482. Title.Font.Style = []
  483. Alignment = taRightJustify
  484. Font.Charset = GB2312_CHARSET
  485. Font.Color = clWindowText
  486. Font.Height = -12
  487. Font.Name = #23435#20307
  488. Font.Style = []
  489. FieldName = 'Quantity'
  490. Width = 60
  491. ReadOnly = True
  492. end
  493. item
  494. Title.Caption = '||'#37329#39069
  495. Title.CaptionAcrossCols = '1'
  496. Title.Font.Charset = GB2312_CHARSET
  497. Title.Font.Color = clWindowText
  498. Title.Font.Height = -12
  499. Title.Font.Name = #23435#20307
  500. Title.Font.Style = []
  501. Alignment = taRightJustify
  502. Font.Charset = GB2312_CHARSET
  503. Font.Color = clWindowText
  504. Font.Height = -12
  505. Font.Name = #23435#20307
  506. Font.Style = []
  507. FieldName = 'TotalPrice'
  508. Width = 60
  509. ReadOnly = True
  510. end
  511. item
  512. Title.Caption = 'ParentID'
  513. Title.CaptionAcrossCols = '1'
  514. Title.Font.Charset = GB2312_CHARSET
  515. Title.Font.Color = clWindowText
  516. Title.Font.Height = -12
  517. Title.Font.Name = #23435#20307
  518. Title.Font.Style = []
  519. Alignment = taLeftJustify
  520. Font.Charset = GB2312_CHARSET
  521. Font.Color = clWindowText
  522. Font.Height = -12
  523. Font.Name = #23435#20307
  524. Font.Style = []
  525. FieldName = 'ParentID'
  526. Visible = False
  527. ReadOnly = False
  528. end
  529. item
  530. Title.Caption = 'NextSiblingID'
  531. Title.CaptionAcrossCols = '1'
  532. Title.Font.Charset = GB2312_CHARSET
  533. Title.Font.Color = clWindowText
  534. Title.Font.Height = -12
  535. Title.Font.Name = #23435#20307
  536. Title.Font.Style = []
  537. Alignment = taLeftJustify
  538. Font.Charset = GB2312_CHARSET
  539. Font.Color = clWindowText
  540. Font.Height = -12
  541. Font.Name = #23435#20307
  542. Font.Style = []
  543. FieldName = 'NextSiblingID'
  544. Visible = False
  545. ReadOnly = False
  546. end
  547. item
  548. Title.Caption = #22270'('#20876')'#21495
  549. Title.CaptionAcrossCols = '1'
  550. Title.CaptionAcrossRows = 3
  551. Title.Font.Charset = GB2312_CHARSET
  552. Title.Font.Color = clWindowText
  553. Title.Font.Height = -12
  554. Title.Font.Name = #23435#20307
  555. Title.Font.Style = []
  556. Alignment = taLeftJustify
  557. Font.Charset = GB2312_CHARSET
  558. Font.Color = clWindowText
  559. Font.Height = -12
  560. Font.Name = #23435#20307
  561. Font.Style = []
  562. FieldName = 'DrawingCode'
  563. Width = 60
  564. ReadOnly = False
  565. end
  566. item
  567. Title.Caption = #25209#22797#32534#21495
  568. Title.CaptionAcrossCols = '1'
  569. Title.CaptionAcrossRows = 3
  570. Title.Font.Charset = GB2312_CHARSET
  571. Title.Font.Color = clWindowText
  572. Title.Font.Height = -12
  573. Title.Font.Name = #23435#20307
  574. Title.Font.Style = []
  575. Alignment = taLeftJustify
  576. Font.Charset = GB2312_CHARSET
  577. Font.Color = clWindowText
  578. Font.Height = -12
  579. Font.Name = #23435#20307
  580. Font.Style = []
  581. FieldName = 'ApprovalCode'
  582. ReadOnly = False
  583. end
  584. item
  585. Title.Caption = #22791#27880
  586. Title.CaptionAcrossCols = '1'
  587. Title.CaptionAcrossRows = 3
  588. Title.Font.Charset = GB2312_CHARSET
  589. Title.Font.Color = clWindowText
  590. Title.Font.Height = -12
  591. Title.Font.Name = #23435#20307
  592. Title.Font.Style = []
  593. Alignment = taLeftJustify
  594. Font.Charset = GB2312_CHARSET
  595. Font.Color = clWindowText
  596. Font.Height = -12
  597. Font.Name = #23435#20307
  598. Font.Style = []
  599. FieldName = 'MemoStr'
  600. ReadOnly = False
  601. end
  602. item
  603. Title.Caption = #38145#23450
  604. Title.CaptionAcrossCols = '1'
  605. Title.CaptionAcrossRows = 3
  606. Title.Font.Charset = GB2312_CHARSET
  607. Title.Font.Color = clWindowText
  608. Title.Font.Height = -12
  609. Title.Font.Name = #23435#20307
  610. Title.Font.Style = []
  611. Alignment = taLeftJustify
  612. EditType = sgeCheckBox
  613. Font.Charset = GB2312_CHARSET
  614. Font.Color = clWindowText
  615. Font.Height = -12
  616. Font.Name = #23435#20307
  617. Font.Style = []
  618. FieldName = 'LockedInfo'
  619. Width = 40
  620. ReadOnly = True
  621. end
  622. item
  623. Title.Caption = #21464#26356#28165#21333
  624. Title.CaptionAcrossCols = '1'
  625. Title.CaptionAcrossRows = 3
  626. Title.Font.Charset = GB2312_CHARSET
  627. Title.Font.Color = clWindowText
  628. Title.Font.Height = -12
  629. Title.Font.Name = #23435#20307
  630. Title.Font.Style = []
  631. Alignment = taLeftJustify
  632. EditType = sgeCheckBox
  633. Font.Charset = GB2312_CHARSET
  634. Font.Color = clWindowText
  635. Font.Height = -12
  636. Font.Name = #23435#20307
  637. Font.Style = []
  638. FieldName = 'IsMeasureAdd'
  639. Width = 40
  640. ReadOnly = True
  641. end
  642. item
  643. Title.Caption = #21512#21516#32534#21495
  644. Title.CaptionAcrossCols = '1'
  645. Title.CaptionAcrossRows = 3
  646. Title.Font.Charset = GB2312_CHARSET
  647. Title.Font.Color = clWindowText
  648. Title.Font.Height = -12
  649. Title.Font.Name = #23435#20307
  650. Title.Font.Style = []
  651. Alignment = taLeftJustify
  652. Font.Charset = GB2312_CHARSET
  653. Font.Color = clWindowText
  654. Font.Height = -12
  655. Font.Name = #23435#20307
  656. Font.Style = []
  657. FieldName = 'DealCode'
  658. Width = 60
  659. ReadOnly = False
  660. end
  661. item
  662. Title.Caption = #21512#21516#31614#35746#21333#20301
  663. Title.CaptionAcrossCols = '1'
  664. Title.CaptionAcrossRows = 3
  665. Title.Font.Charset = GB2312_CHARSET
  666. Title.Font.Color = clWindowText
  667. Title.Font.Height = -12
  668. Title.Font.Name = #23435#20307
  669. Title.Font.Style = []
  670. Alignment = taLeftJustify
  671. Font.Charset = GB2312_CHARSET
  672. Font.Color = clWindowText
  673. Font.Height = -12
  674. Font.Name = #23435#20307
  675. Font.Style = []
  676. FieldName = 'DealCompany'
  677. Width = 80
  678. ReadOnly = False
  679. end
  680. item
  681. Title.Caption = 'ChapterParentID'
  682. Title.CaptionAcrossCols = '1'
  683. Title.CaptionAcrossRows = 3
  684. Title.Font.Charset = GB2312_CHARSET
  685. Title.Font.Color = clWindowText
  686. Title.Font.Height = -12
  687. Title.Font.Name = #23435#20307
  688. Title.Font.Style = []
  689. Alignment = taLeftJustify
  690. Font.Charset = GB2312_CHARSET
  691. Font.Color = clWindowText
  692. Font.Height = -12
  693. Font.Name = #23435#20307
  694. Font.Style = []
  695. FieldName = 'ChapterParentID'
  696. Width = 50
  697. Visible = False
  698. ReadOnly = False
  699. end
  700. item
  701. Title.Caption = 'ID'
  702. Title.CaptionAcrossCols = '1'
  703. Title.CaptionAcrossRows = 3
  704. Title.Font.Charset = GB2312_CHARSET
  705. Title.Font.Color = clWindowText
  706. Title.Font.Height = -12
  707. Title.Font.Name = #23435#20307
  708. Title.Font.Style = []
  709. Alignment = taLeftJustify
  710. Font.Charset = GB2312_CHARSET
  711. Font.Color = clWindowText
  712. Font.Height = -12
  713. Font.Name = #23435#20307
  714. Font.Style = []
  715. FieldName = 'ID'
  716. Width = 50
  717. Visible = False
  718. ReadOnly = True
  719. end
  720. item
  721. Title.Caption = 'ParentID'
  722. Title.CaptionAcrossCols = '1'
  723. Title.CaptionAcrossRows = 3
  724. Title.Font.Charset = GB2312_CHARSET
  725. Title.Font.Color = clWindowText
  726. Title.Font.Height = -12
  727. Title.Font.Name = #23435#20307
  728. Title.Font.Style = []
  729. Alignment = taLeftJustify
  730. Font.Charset = GB2312_CHARSET
  731. Font.Color = clWindowText
  732. Font.Height = -12
  733. Font.Name = #23435#20307
  734. Font.Style = []
  735. FieldName = 'ParentID'
  736. Width = 50
  737. Visible = False
  738. ReadOnly = True
  739. end
  740. item
  741. Title.Caption = 'NextSiblingID'
  742. Title.CaptionAcrossCols = '1'
  743. Title.CaptionAcrossRows = 3
  744. Title.Font.Charset = GB2312_CHARSET
  745. Title.Font.Color = clWindowText
  746. Title.Font.Height = -12
  747. Title.Font.Name = #23435#20307
  748. Title.Font.Style = []
  749. Alignment = taLeftJustify
  750. Font.Charset = GB2312_CHARSET
  751. Font.Color = clWindowText
  752. Font.Height = -12
  753. Font.Name = #23435#20307
  754. Font.Style = []
  755. FieldName = 'NextSiblingID'
  756. Width = 50
  757. Visible = False
  758. ReadOnly = True
  759. end
  760. item
  761. Title.Caption = 'IndexCode'
  762. Title.CaptionAcrossCols = '1'
  763. Title.Font.Charset = GB2312_CHARSET
  764. Title.Font.Color = clWindowText
  765. Title.Font.Height = -12
  766. Title.Font.Name = #23435#20307
  767. Title.Font.Style = []
  768. Alignment = taLeftJustify
  769. Font.Charset = GB2312_CHARSET
  770. Font.Color = clWindowText
  771. Font.Height = -12
  772. Font.Name = #23435#20307
  773. Font.Style = []
  774. FieldName = 'IndexCode'
  775. Visible = False
  776. ReadOnly = False
  777. end>
  778. Grid = zgBillsCompile
  779. ExtendRowCount = 3
  780. AutoExpand = False
  781. TreeCellCol = 2
  782. KeyFieldName = 'ID'
  783. ParentFieldName = 'ParentID'
  784. NextSiblingFieldName = 'NextSiblingID'
  785. TopLevelBold = True
  786. Left = 72
  787. Top = 120
  788. end
  789. object alBillsCompile: TActionList
  790. Images = MainForm.Images
  791. Left = 176
  792. Top = 120
  793. object actnCalculateLedger: TAction
  794. Caption = #21488#36134#35745#31639
  795. ImageIndex = 15
  796. OnExecute = actnCalculateLedgerExecute
  797. end
  798. object actnCopyBillsBlock: TAction
  799. Caption = #22797#21046#25972#22359
  800. OnExecute = actnCopyBillsBlockExecute
  801. end
  802. object actnExportGridToExcel: TAction
  803. Caption = #23548#20986#34920#26684#25968#25454
  804. ImageIndex = 13
  805. OnExecute = actnExportGridToExcelExecute
  806. end
  807. object actnBatchAddChild: TAction
  808. Caption = #25209#37327#25554#20837#23376#39033
  809. OnExecute = actnBatchAddChildExecute
  810. OnUpdate = actnBatchAddChildUpdate
  811. end
  812. object actnBatchAddNext: TAction
  813. Caption = #25209#37327#25554#20837#21518#39033
  814. OnExecute = actnBatchAddNextExecute
  815. OnUpdate = actnBatchAddNextUpdate
  816. end
  817. object actnReorderChildrenCode: TAction
  818. Caption = #39034#24207#37325#25490#23376#39033#32534#21495
  819. OnExecute = actnReorderChildrenCodeExecute
  820. OnUpdate = actnReorderChildrenCodeUpdate
  821. end
  822. object actnBatchReplaceBillsInfo: TAction
  823. Caption = #25209#37327#26367#25442#28165#21333#20449#24687
  824. OnExecute = actnBatchReplaceBillsInfoExecute
  825. OnUpdate = actnBatchReplaceBillsInfoUpdate
  826. end
  827. object actnCheckAndClear: TAction
  828. Caption = #26816#26597#28165#29702
  829. OnExecute = actnCheckAndClearExecute
  830. end
  831. object actnModifiedDealBills: TAction
  832. Caption = #32534#36753#31614#32422#28165#21333
  833. OnExecute = actnModifiedDealBillsExecute
  834. OnUpdate = actnModifiedDealBillsUpdate
  835. end
  836. object actnSetBillsBookmark: TAction
  837. Caption = #35774#32622'/'#21462#28040#20070#31614
  838. OnExecute = actnSetBillsBookmarkExecute
  839. end
  840. object actnImportGclBillsToXmj: TAction
  841. Caption = #23548#20837#24037#31243#37327#28165#21333#33267#39033#30446#33410
  842. OnExecute = actnImportGclBillsToXmjExecute
  843. OnUpdate = actnImportGclBillsToXmjUpdate
  844. end
  845. object actnImportPlaneFxBillsToXmj: TAction
  846. Caption = #23548#20837#21488#36134'('#24179#38754#32467#26500')'#33267#39033#30446#33410
  847. OnExecute = actnImportPlaneFxBillsToXmjExecute
  848. OnUpdate = actnImportGclBillsToXmjUpdate
  849. end
  850. end
  851. end