BatchInsertBillsFrm.dfm 9.6 KB

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