BatchInsertBillsFrm.dfm 9.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380
  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. RowCount = 7
  153. ShowGridLine = False
  154. DefaultColWidth = 50
  155. DefaultFixedColWidth = 60
  156. Selection.AlphaBlend = False
  157. Selection.TransparentColor = False
  158. FrozenCol = 0
  159. FrozenRow = 0
  160. OnCellTextChanged = zgBillsCellTextChanged
  161. OnMouseDown = zgPositionMouseDown
  162. end
  163. object pnlBillsSpr: TPanel
  164. Left = 62
  165. Top = 14
  166. Width = 414
  167. Height = 2
  168. BevelInner = bvLowered
  169. BevelOuter = bvNone
  170. TabOrder = 1
  171. end
  172. end
  173. object pnlOther: TPanel
  174. Left = 0
  175. Top = 329
  176. Width = 480
  177. Height = 25
  178. Align = alBottom
  179. BevelOuter = bvNone
  180. TabOrder = 2
  181. object leBeginCode: TLabeledEdit
  182. Left = 99
  183. Top = 1
  184. Width = 38
  185. Height = 20
  186. EditLabel.Width = 90
  187. EditLabel.Height = 12
  188. EditLabel.Caption = #36215#22987#37096#20301#32534#21495#65306' '
  189. EditLabel.Font.Charset = ANSI_CHARSET
  190. EditLabel.Font.Color = clBlue
  191. EditLabel.Font.Height = -12
  192. EditLabel.Font.Name = #23435#20307
  193. EditLabel.Font.Style = []
  194. EditLabel.ParentFont = False
  195. LabelPosition = lpLeft
  196. TabOrder = 0
  197. Text = '1'
  198. OnKeyPress = leBeginCodeKeyPress
  199. end
  200. object leDrawingCode: TLabeledEdit
  201. Left = 231
  202. Top = 0
  203. Width = 244
  204. Height = 20
  205. EditLabel.Width = 66
  206. EditLabel.Height = 12
  207. EditLabel.Caption = #22270'('#20876')'#21495#65306' '
  208. EditLabel.Font.Charset = ANSI_CHARSET
  209. EditLabel.Font.Color = clBlue
  210. EditLabel.Font.Height = -12
  211. EditLabel.Font.Name = #23435#20307
  212. EditLabel.Font.Style = []
  213. EditLabel.ParentFont = False
  214. LabelPosition = lpLeft
  215. MaxLength = 255
  216. TabOrder = 1
  217. end
  218. object udBeginCode: TUpDown
  219. Left = 137
  220. Top = 1
  221. Width = 16
  222. Height = 20
  223. Associate = leBeginCode
  224. Max = 10
  225. Position = 1
  226. TabOrder = 2
  227. end
  228. end
  229. end
  230. object pnlDealBills: TPanel
  231. Left = 480
  232. Top = 0
  233. Width = 299
  234. Height = 354
  235. Align = alRight
  236. BevelOuter = bvNone
  237. TabOrder = 1
  238. object lblDealBills: TLabel
  239. Left = 5
  240. Top = 8
  241. Width = 48
  242. Height = 12
  243. Caption = #31614#32422#28165#21333
  244. Font.Charset = ANSI_CHARSET
  245. Font.Color = clBlue
  246. Font.Height = -12
  247. Font.Name = #23435#20307
  248. Font.Style = []
  249. ParentFont = False
  250. end
  251. object zgDealBills: TZJGrid
  252. Left = 0
  253. Top = 27
  254. Width = 295
  255. Height = 322
  256. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  257. OptionsEx = []
  258. RowCount = 7
  259. ShowGridLine = False
  260. DefaultColWidth = 50
  261. DefaultFixedColWidth = 25
  262. Selection.AlphaBlend = False
  263. Selection.TransparentColor = False
  264. FrozenCol = 0
  265. FrozenRow = 0
  266. OnMouseDown = zgDealBillsMouseDown
  267. end
  268. object pnlDealBillsSpr: TPanel
  269. Left = 58
  270. Top = 14
  271. Width = 236
  272. Height = 2
  273. BevelInner = bvLowered
  274. BevelOuter = bvNone
  275. TabOrder = 1
  276. end
  277. end
  278. end
  279. object dxpmInsertBills: TdxBarPopupMenu
  280. BarManager = MainForm.dxBarManager
  281. ItemLinks = <
  282. item
  283. Visible = True
  284. end
  285. item
  286. Visible = True
  287. end
  288. item
  289. Item = MainForm.dxbtnCopy
  290. Visible = True
  291. end
  292. item
  293. Item = MainForm.dxbtnPaste
  294. Visible = True
  295. end>
  296. UseOwnFont = False
  297. Left = 139
  298. Top = 99
  299. end
  300. object sgdDealBills: TsdGridDBA
  301. Columns = <
  302. item
  303. Title.Caption = #28165#21333#32534#21495
  304. Title.CaptionAcrossCols = '1'
  305. Title.Font.Charset = GB2312_CHARSET
  306. Title.Font.Color = clWindowText
  307. Title.Font.Height = -12
  308. Title.Font.Name = #23435#20307
  309. Title.Font.Style = []
  310. Alignment = taLeftJustify
  311. Font.Charset = GB2312_CHARSET
  312. Font.Color = clWindowText
  313. Font.Height = -12
  314. Font.Name = #23435#20307
  315. Font.Style = []
  316. FieldName = 'B_Code'
  317. Width = 60
  318. ReadOnly = True
  319. end
  320. item
  321. Title.Caption = #28165#21333#21517#31216
  322. Title.CaptionAcrossCols = '1'
  323. Title.Font.Charset = GB2312_CHARSET
  324. Title.Font.Color = clWindowText
  325. Title.Font.Height = -12
  326. Title.Font.Name = #23435#20307
  327. Title.Font.Style = []
  328. Alignment = taLeftJustify
  329. Font.Charset = GB2312_CHARSET
  330. Font.Color = clWindowText
  331. Font.Height = -12
  332. Font.Name = #23435#20307
  333. Font.Style = []
  334. FieldName = 'Name'
  335. Width = 80
  336. ReadOnly = True
  337. end
  338. item
  339. Title.Caption = #21333#20301
  340. Title.CaptionAcrossCols = '1'
  341. Title.Font.Charset = GB2312_CHARSET
  342. Title.Font.Color = clWindowText
  343. Title.Font.Height = -12
  344. Title.Font.Name = #23435#20307
  345. Title.Font.Style = []
  346. Alignment = taCenter
  347. Font.Charset = GB2312_CHARSET
  348. Font.Color = clWindowText
  349. Font.Height = -12
  350. Font.Name = #23435#20307
  351. Font.Style = []
  352. FieldName = 'Units'
  353. Width = 40
  354. ReadOnly = True
  355. end
  356. item
  357. Title.Caption = #21333#20215
  358. Title.CaptionAcrossCols = '1'
  359. Title.Font.Charset = GB2312_CHARSET
  360. Title.Font.Color = clWindowText
  361. Title.Font.Height = -12
  362. Title.Font.Name = #23435#20307
  363. Title.Font.Style = []
  364. Alignment = taRightJustify
  365. Font.Charset = GB2312_CHARSET
  366. Font.Color = clWindowText
  367. Font.Height = -12
  368. Font.Name = #23435#20307
  369. Font.Style = []
  370. FieldName = 'Price'
  371. Width = 60
  372. ReadOnly = True
  373. end>
  374. Grid = zgDealBills
  375. ExtendRowCount = 0
  376. Options = []
  377. Left = 568
  378. Top = 139
  379. end
  380. end