BatchInsertBillsFrm.dfm 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394
  1. object BatchInsertBillsForm: TBatchInsertBillsForm
  2. Left = 384
  3. Top = 229
  4. BorderIcons = [biSystemMenu]
  5. BorderStyle = bsSingle
  6. Caption = #25209#37327#25554#20837#21518#39033
  7. ClientHeight = 382
  8. ClientWidth = 779
  9. Color = clBtnFace
  10. Font.Charset = ANSI_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -12
  13. Font.Name = #23435#20307
  14. Font.Style = []
  15. OldCreateOrder = False
  16. Position = poMainFormCenter
  17. PixelsPerInch = 96
  18. TextHeight = 12
  19. object pnlButton: TPanel
  20. Left = 0
  21. Top = 354
  22. Width = 779
  23. Height = 28
  24. Align = alBottom
  25. BevelOuter = bvNone
  26. TabOrder = 0
  27. object lblHint: TLabel
  28. Left = 6
  29. Top = 8
  30. Width = 204
  31. Height = 12
  32. Caption = #21487#20174#31614#32422#21512#21516#28165#21333#22788#21452#20987#28155#21152#28165#21333#20449#24687
  33. Font.Charset = ANSI_CHARSET
  34. Font.Color = clRed
  35. Font.Height = -12
  36. Font.Name = #23435#20307
  37. Font.Style = []
  38. ParentFont = False
  39. Visible = False
  40. end
  41. object btnOK: TButton
  42. Left = 615
  43. Top = 1
  44. Width = 72
  45. Height = 23
  46. Caption = #30830' '#23450
  47. TabOrder = 0
  48. OnClick = btnOKClick
  49. end
  50. object btnCancel: TButton
  51. Left = 702
  52. Top = 1
  53. Width = 72
  54. Height = 23
  55. Caption = #21462' '#28040
  56. ModalResult = 2
  57. TabOrder = 1
  58. end
  59. end
  60. object pnlAllGrid: TPanel
  61. Left = 0
  62. Top = 0
  63. Width = 779
  64. Height = 354
  65. Align = alClient
  66. BevelOuter = bvNone
  67. TabOrder = 1
  68. object pnlPositon_Bills: TPanel
  69. Left = 0
  70. Top = 0
  71. Width = 480
  72. Height = 354
  73. Align = alClient
  74. BevelOuter = bvNone
  75. TabOrder = 0
  76. object pnlPosition: TPanel
  77. Left = 0
  78. Top = 0
  79. Width = 480
  80. Height = 194
  81. Align = alClient
  82. BevelOuter = bvNone
  83. TabOrder = 0
  84. object lblPostion: TLabel
  85. Left = 8
  86. Top = 8
  87. Width = 84
  88. Height = 12
  89. Caption = #37096#20301#25968#37327#22797#26680#34920
  90. Font.Charset = ANSI_CHARSET
  91. Font.Color = clBlue
  92. Font.Height = -12
  93. Font.Name = #23435#20307
  94. Font.Style = []
  95. ParentFont = False
  96. end
  97. object zgPosition: TZJGrid
  98. Left = 3
  99. Top = 27
  100. Width = 474
  101. Height = 166
  102. OptionsEx = []
  103. ColCount = 8
  104. ShowGridLine = False
  105. DefaultColWidth = 50
  106. DefaultFixedColWidth = 25
  107. Selection.AlphaBlend = False
  108. Selection.TransparentColor = False
  109. FrozenCol = 0
  110. FrozenRow = 0
  111. OnCellTextChanged = zgPositionCellTextChanged
  112. OnCustomPaste = zgPositionCustomPaste
  113. OnMouseDown = zgPositionMouseDown
  114. end
  115. object pnlPositionSpr: TPanel
  116. Left = 99
  117. Top = 14
  118. Width = 378
  119. Height = 2
  120. BevelInner = bvLowered
  121. BevelOuter = bvNone
  122. TabOrder = 1
  123. end
  124. end
  125. object pnlBills: TPanel
  126. Left = 0
  127. Top = 194
  128. Width = 480
  129. Height = 135
  130. Align = alBottom
  131. BevelOuter = bvNone
  132. TabOrder = 1
  133. object lblBills: TLabel
  134. Left = 8
  135. Top = 8
  136. Width = 48
  137. Height = 12
  138. Caption = #28165#21333#32534#21495
  139. Font.Charset = ANSI_CHARSET
  140. Font.Color = clBlue
  141. Font.Height = -12
  142. Font.Name = #23435#20307
  143. Font.Style = []
  144. ParentFont = False
  145. end
  146. object zgBills: TZJGrid
  147. Left = 2
  148. Top = 27
  149. Width = 475
  150. Height = 105
  151. OptionsEx = []
  152. ColCount = 6
  153. RowCount = 7
  154. ShowGridLine = False
  155. DefaultColWidth = 50
  156. DefaultFixedColWidth = 60
  157. Selection.AlphaBlend = False
  158. Selection.TransparentColor = False
  159. FrozenCol = 0
  160. FrozenRow = 0
  161. OnCellTextChanged = zgBillsCellTextChanged
  162. OnMouseDown = zgPositionMouseDown
  163. end
  164. object pnlBillsSpr: TPanel
  165. Left = 62
  166. Top = 14
  167. Width = 414
  168. Height = 2
  169. BevelInner = bvLowered
  170. BevelOuter = bvNone
  171. TabOrder = 1
  172. end
  173. end
  174. object pnlOther: TPanel
  175. Left = 0
  176. Top = 329
  177. Width = 480
  178. Height = 25
  179. Align = alBottom
  180. BevelOuter = bvNone
  181. TabOrder = 2
  182. object leBeginCode: TLabeledEdit
  183. Left = 99
  184. Top = 1
  185. Width = 38
  186. Height = 20
  187. EditLabel.Width = 90
  188. EditLabel.Height = 12
  189. EditLabel.Caption = #36215#22987#37096#20301#32534#21495#65306' '
  190. EditLabel.Font.Charset = ANSI_CHARSET
  191. EditLabel.Font.Color = clBlue
  192. EditLabel.Font.Height = -12
  193. EditLabel.Font.Name = #23435#20307
  194. EditLabel.Font.Style = []
  195. EditLabel.ParentFont = False
  196. LabelPosition = lpLeft
  197. TabOrder = 0
  198. Text = '1'
  199. OnKeyPress = leBeginCodeKeyPress
  200. end
  201. object leDrawingCode: TLabeledEdit
  202. Left = 231
  203. Top = 0
  204. Width = 244
  205. Height = 20
  206. EditLabel.Width = 66
  207. EditLabel.Height = 12
  208. EditLabel.Caption = #22270'('#20876')'#21495#65306' '
  209. EditLabel.Font.Charset = ANSI_CHARSET
  210. EditLabel.Font.Color = clBlue
  211. EditLabel.Font.Height = -12
  212. EditLabel.Font.Name = #23435#20307
  213. EditLabel.Font.Style = []
  214. EditLabel.ParentFont = False
  215. LabelPosition = lpLeft
  216. MaxLength = 255
  217. TabOrder = 1
  218. end
  219. object udBeginCode: TUpDown
  220. Left = 137
  221. Top = 1
  222. Width = 16
  223. Height = 20
  224. Associate = leBeginCode
  225. Max = 10
  226. Position = 1
  227. TabOrder = 2
  228. end
  229. end
  230. end
  231. object pnlDealBills: TPanel
  232. Left = 480
  233. Top = 0
  234. Width = 299
  235. Height = 354
  236. Align = alRight
  237. BevelOuter = bvNone
  238. TabOrder = 1
  239. object lblDealBills: TLabel
  240. Left = 5
  241. Top = 8
  242. Width = 48
  243. Height = 12
  244. Caption = #31614#32422#28165#21333
  245. Font.Charset = ANSI_CHARSET
  246. Font.Color = clBlue
  247. Font.Height = -12
  248. Font.Name = #23435#20307
  249. Font.Style = []
  250. ParentFont = False
  251. end
  252. object zgDealBills: TZJGrid
  253. Left = 0
  254. Top = 27
  255. Width = 295
  256. Height = 322
  257. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  258. OptionsEx = []
  259. RowCount = 7
  260. ShowGridLine = False
  261. DefaultColWidth = 50
  262. DefaultFixedColWidth = 25
  263. Selection.AlphaBlend = False
  264. Selection.TransparentColor = False
  265. FrozenCol = 0
  266. FrozenRow = 0
  267. OnMouseDown = zgDealBillsMouseDown
  268. end
  269. object pnlDealBillsSpr: TPanel
  270. Left = 58
  271. Top = 14
  272. Width = 236
  273. Height = 2
  274. BevelInner = bvLowered
  275. BevelOuter = bvNone
  276. TabOrder = 1
  277. end
  278. end
  279. end
  280. object dxpmInsertBills: TdxBarPopupMenu
  281. BarManager = MainForm.dxBarManager
  282. ItemLinks = <
  283. item
  284. Visible = True
  285. end
  286. item
  287. Visible = True
  288. end
  289. item
  290. Item = MainForm.dxbtnCopy
  291. Visible = True
  292. end
  293. item
  294. Item = MainForm.dxbtnPaste
  295. Visible = True
  296. end
  297. item
  298. Item = MainForm.dxbtnInsertCol
  299. Visible = True
  300. end>
  301. UseOwnFont = False
  302. OnPopup = dxpmInsertBillsPopup
  303. Left = 139
  304. Top = 99
  305. end
  306. object sgdDealBills: TsdGridDBA
  307. Columns = <
  308. item
  309. Title.Caption = #28165#21333#32534#21495
  310. Title.CaptionAcrossCols = '1'
  311. Title.Font.Charset = GB2312_CHARSET
  312. Title.Font.Color = clWindowText
  313. Title.Font.Height = -12
  314. Title.Font.Name = #23435#20307
  315. Title.Font.Style = []
  316. Alignment = taLeftJustify
  317. Font.Charset = GB2312_CHARSET
  318. Font.Color = clWindowText
  319. Font.Height = -12
  320. Font.Name = #23435#20307
  321. Font.Style = []
  322. FieldName = 'B_Code'
  323. Width = 60
  324. ReadOnly = True
  325. end
  326. item
  327. Title.Caption = #28165#21333#21517#31216
  328. Title.CaptionAcrossCols = '1'
  329. Title.Font.Charset = GB2312_CHARSET
  330. Title.Font.Color = clWindowText
  331. Title.Font.Height = -12
  332. Title.Font.Name = #23435#20307
  333. Title.Font.Style = []
  334. Alignment = taLeftJustify
  335. Font.Charset = GB2312_CHARSET
  336. Font.Color = clWindowText
  337. Font.Height = -12
  338. Font.Name = #23435#20307
  339. Font.Style = []
  340. FieldName = 'Name'
  341. Width = 80
  342. ReadOnly = True
  343. end
  344. item
  345. Title.Caption = #21333#20301
  346. Title.CaptionAcrossCols = '1'
  347. Title.Font.Charset = GB2312_CHARSET
  348. Title.Font.Color = clWindowText
  349. Title.Font.Height = -12
  350. Title.Font.Name = #23435#20307
  351. Title.Font.Style = []
  352. Alignment = taCenter
  353. Font.Charset = GB2312_CHARSET
  354. Font.Color = clWindowText
  355. Font.Height = -12
  356. Font.Name = #23435#20307
  357. Font.Style = []
  358. FieldName = 'Units'
  359. Width = 40
  360. ReadOnly = True
  361. end
  362. item
  363. Title.Caption = #21333#20215
  364. Title.CaptionAcrossCols = '1'
  365. Title.Font.Charset = GB2312_CHARSET
  366. Title.Font.Color = clWindowText
  367. Title.Font.Height = -12
  368. Title.Font.Name = #23435#20307
  369. Title.Font.Style = []
  370. Alignment = taRightJustify
  371. Font.Charset = GB2312_CHARSET
  372. Font.Color = clWindowText
  373. Font.Height = -12
  374. Font.Name = #23435#20307
  375. Font.Style = []
  376. FieldName = 'Price'
  377. Width = 60
  378. ReadOnly = True
  379. end>
  380. Grid = zgDealBills
  381. ExtendRowCount = 0
  382. Options = []
  383. Left = 568
  384. Top = 139
  385. end
  386. object alBatchInsertBills: TActionList
  387. Left = 203
  388. Top = 99
  389. object actnInsertCol: TAction
  390. Caption = #25554#20837#19968#21015
  391. OnExecute = actnInsertColExecute
  392. end
  393. end
  394. end