ZJJLFme.dfm 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306
  1. object ZJJLFrame: TZJJLFrame
  2. Left = 0
  3. Top = 0
  4. Width = 390
  5. Height = 517
  6. Font.Charset = ANSI_CHARSET
  7. Font.Color = clWindowText
  8. Font.Height = -12
  9. Font.Name = #23435#20307
  10. Font.Style = []
  11. ParentFont = False
  12. TabOrder = 0
  13. object labTitle: TJimGradLabel
  14. Left = 0
  15. Top = 0
  16. Width = 390
  17. Height = 20
  18. Align = alTop
  19. AutoSize = False
  20. ColorBegin = clGradientInactiveCaption
  21. ColorEnd = clGradientInactiveCaption
  22. Caption = ' '#20013#38388#35745#37327
  23. Font.Charset = GB2312_CHARSET
  24. Font.Color = clWindowText
  25. Font.Height = -12
  26. Font.Name = #23435#20307
  27. Font.Style = [fsBold]
  28. ParentFont = False
  29. Layout = tlCenter
  30. end
  31. object pnlTop: TPanel
  32. Left = 0
  33. Top = 20
  34. Width = 390
  35. Height = 27
  36. Align = alTop
  37. BevelOuter = bvNone
  38. TabOrder = 0
  39. object pnlButton: TPanel
  40. Left = 0
  41. Top = 0
  42. Width = 81
  43. Height = 27
  44. Align = alLeft
  45. BevelOuter = bvNone
  46. TabOrder = 0
  47. object tobaTop: TToolBar
  48. Left = 0
  49. Top = 0
  50. Width = 81
  51. Height = 22
  52. AutoSize = True
  53. ButtonWidth = 75
  54. Caption = 'tobaTop'
  55. EdgeInner = esNone
  56. EdgeOuter = esNone
  57. Flat = True
  58. Images = MainForm.Images
  59. List = True
  60. ShowCaptions = True
  61. TabOrder = 0
  62. object tobtnGenerate: TToolButton
  63. Left = 0
  64. Top = 0
  65. Action = actnGenerate
  66. end
  67. end
  68. end
  69. object lePreText: TLabeledEdit
  70. Left = 152
  71. Top = 3
  72. Width = 58
  73. Height = 18
  74. Ctl3D = False
  75. EditLabel.Width = 66
  76. EditLabel.Height = 12
  77. EditLabel.Caption = #34920#21495#21069#32512#65306' '
  78. LabelPosition = lpLeft
  79. ParentCtl3D = False
  80. TabOrder = 1
  81. OnExit = lePreTextExit
  82. end
  83. end
  84. object pnlZJJL: TPanel
  85. Left = 0
  86. Top = 47
  87. Width = 390
  88. Height = 190
  89. Align = alClient
  90. BevelOuter = bvNone
  91. TabOrder = 1
  92. object zgZJJL: TZJGrid
  93. Left = 0
  94. Top = 18
  95. Width = 390
  96. Height = 172
  97. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  98. OptionsEx = []
  99. ColCount = 4
  100. ShowGridLine = False
  101. DefaultColWidth = 73
  102. DefaultFixedColWidth = 25
  103. Selection.AlphaBlend = False
  104. Selection.TransparentColor = False
  105. FrozenCol = 0
  106. FrozenRow = 0
  107. OnMouseDown = zgZJJLMouseDown
  108. Align = alClient
  109. end
  110. object pnlListTitle: TPanel
  111. Left = 0
  112. Top = 0
  113. Width = 390
  114. Height = 18
  115. Align = alTop
  116. BevelOuter = bvNone
  117. TabOrder = 1
  118. DesignSize = (
  119. 390
  120. 18)
  121. object lblListTitle: TLabel
  122. Left = 6
  123. Top = 3
  124. Width = 84
  125. Height = 12
  126. Caption = #20013#38388#35745#37327#34920#21015#34920
  127. Font.Charset = ANSI_CHARSET
  128. Font.Color = clBlue
  129. Font.Height = -12
  130. Font.Name = #23435#20307
  131. Font.Style = []
  132. ParentFont = False
  133. end
  134. object pnlListBar: TPanel
  135. Left = 95
  136. Top = 8
  137. Width = 287
  138. Height = 2
  139. Anchors = [akLeft, akTop, akRight]
  140. BevelOuter = bvLowered
  141. TabOrder = 0
  142. end
  143. end
  144. end
  145. object pnlZJJLProperty: TPanel
  146. Left = 0
  147. Top = 237
  148. Width = 390
  149. Height = 280
  150. Align = alBottom
  151. BevelOuter = bvNone
  152. TabOrder = 2
  153. object pnlDataTitle: TPanel
  154. Left = 0
  155. Top = 0
  156. Width = 390
  157. Height = 22
  158. Align = alTop
  159. BevelOuter = bvNone
  160. TabOrder = 0
  161. DesignSize = (
  162. 390
  163. 22)
  164. object lblDataTiel: TLabel
  165. Left = 5
  166. Top = 5
  167. Width = 84
  168. Height = 12
  169. Caption = #20013#38388#35745#37327#34920#25968#25454
  170. Font.Charset = ANSI_CHARSET
  171. Font.Color = clBlue
  172. Font.Height = -12
  173. Font.Name = #23435#20307
  174. Font.Style = []
  175. ParentFont = False
  176. end
  177. object pnlDataBar: TPanel
  178. Left = 94
  179. Top = 10
  180. Width = 287
  181. Height = 2
  182. Anchors = [akLeft, akTop, akRight]
  183. BevelOuter = bvLowered
  184. TabOrder = 0
  185. end
  186. end
  187. end
  188. object alBGL: TActionList
  189. Images = MainForm.Images
  190. Left = 200
  191. Top = 160
  192. object actnGenerate: TAction
  193. Caption = #33258#21160#29983#25104
  194. ImageIndex = 32
  195. OnExecute = actnGenerateExecute
  196. OnUpdate = actnGenerateUpdate
  197. end
  198. object actnLocateBills: TAction
  199. Caption = #23450#20301#33267#21488#36134
  200. OnExecute = actnLocateBillsExecute
  201. OnUpdate = actnLocateBillsUpdate
  202. end
  203. object actnGenerateFxZJJL: TAction
  204. Caption = '0'#21495#21488#36134#26684#24335
  205. ImageIndex = 32
  206. OnExecute = actnGenerateFxZJJLExecute
  207. end
  208. object actnGenerateGclZJJL: TAction
  209. Caption = #24635#37327#25511#21046#26684#24335
  210. ImageIndex = 32
  211. OnExecute = actnGenerateGclZJJLExecute
  212. end
  213. end
  214. object zaZJJL: TZjGridDBA
  215. Columns = <
  216. item
  217. Title.Caption = #20013#38388#35745#37327#34920#21495
  218. Title.CaptionAcrossCols = '1'
  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 = 'Code'
  231. ReadOnly = False
  232. end
  233. item
  234. Title.Caption = #20132#24037#35777#20070'/'#20973#35777#21495
  235. Title.CaptionAcrossCols = '1'
  236. Title.Font.Charset = GB2312_CHARSET
  237. Title.Font.Color = clWindowText
  238. Title.Font.Height = -12
  239. Title.Font.Name = #23435#20307
  240. Title.Font.Style = []
  241. Alignment = taLeftJustify
  242. Font.Charset = GB2312_CHARSET
  243. Font.Color = clWindowText
  244. Font.Height = -12
  245. Font.Name = #23435#20307
  246. Font.Style = []
  247. FieldName = 'CertificateCode'
  248. ReadOnly = False
  249. end
  250. item
  251. Title.Caption = #39033#30446#33410#32534#21495
  252. Title.CaptionAcrossCols = '1'
  253. Title.Font.Charset = GB2312_CHARSET
  254. Title.Font.Color = clWindowText
  255. Title.Font.Height = -12
  256. Title.Font.Name = #23435#20307
  257. Title.Font.Style = []
  258. Alignment = taLeftJustify
  259. Font.Charset = GB2312_CHARSET
  260. Font.Color = clWindowText
  261. Font.Height = -12
  262. Font.Name = #23435#20307
  263. Font.Style = []
  264. FieldName = 'BillsCode'
  265. ReadOnly = True
  266. end>
  267. Grid = zgZJJL
  268. ExtendRowCount = 0
  269. Options = [aoAllowEdit, aoAllowDelete]
  270. Left = 152
  271. Top = 160
  272. end
  273. object dxpmZJJL: TdxBarPopupMenu
  274. BarManager = MainForm.dxBarManager
  275. ItemLinks = <
  276. item
  277. Item = MainForm.dxbtnLocateBills
  278. Visible = True
  279. end
  280. item
  281. BeginGroup = True
  282. Item = MainForm.dxbtnDelete
  283. Visible = True
  284. end>
  285. UseOwnFont = False
  286. OnPopup = dxpmZJJLPopup
  287. Left = 104
  288. Top = 160
  289. end
  290. object dxpmAutoGenerate: TdxBarPopupMenu
  291. BarManager = MainForm.dxBarManager
  292. ItemLinks = <
  293. item
  294. Item = MainForm.dxbtnFxZJJL
  295. Visible = True
  296. end
  297. item
  298. Item = MainForm.dxbtnGclZJJL
  299. Visible = True
  300. end>
  301. UseOwnFont = False
  302. OnPopup = dxpmAutoGeneratePopup
  303. Left = 104
  304. Top = 200
  305. end
  306. end