ZJJLFme.dfm 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291
  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. object rgType: TRadioGroup
  84. Left = 214
  85. Top = -3
  86. Width = 150
  87. Height = 29
  88. Columns = 2
  89. Ctl3D = False
  90. ItemIndex = 0
  91. Items.Strings = (
  92. '0'#21495#21488#36134
  93. #24635#37327#25511#21046)
  94. ParentCtl3D = False
  95. TabOrder = 2
  96. end
  97. end
  98. object pnlZJJL: TPanel
  99. Left = 0
  100. Top = 47
  101. Width = 390
  102. Height = 190
  103. Align = alClient
  104. BevelOuter = bvNone
  105. TabOrder = 1
  106. object zgZJJL: TZJGrid
  107. Left = 0
  108. Top = 18
  109. Width = 390
  110. Height = 172
  111. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  112. OptionsEx = []
  113. ColCount = 4
  114. ShowGridLine = False
  115. DefaultColWidth = 73
  116. DefaultFixedColWidth = 25
  117. Selection.AlphaBlend = False
  118. Selection.TransparentColor = False
  119. OnMouseDown = zgZJJLMouseDown
  120. Align = alClient
  121. end
  122. object pnlListTitle: TPanel
  123. Left = 0
  124. Top = 0
  125. Width = 390
  126. Height = 18
  127. Align = alTop
  128. BevelOuter = bvNone
  129. TabOrder = 1
  130. DesignSize = (
  131. 390
  132. 18)
  133. object lblListTitle: TLabel
  134. Left = 6
  135. Top = 3
  136. Width = 84
  137. Height = 12
  138. Caption = #20013#38388#35745#37327#34920#21015#34920
  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 pnlListBar: TPanel
  147. Left = 95
  148. Top = 8
  149. Width = 287
  150. Height = 2
  151. Anchors = [akLeft, akTop, akRight]
  152. BevelOuter = bvLowered
  153. TabOrder = 0
  154. end
  155. end
  156. end
  157. object pnlZJJLProperty: TPanel
  158. Left = 0
  159. Top = 237
  160. Width = 390
  161. Height = 280
  162. Align = alBottom
  163. BevelOuter = bvNone
  164. TabOrder = 2
  165. object pnlDataTitle: TPanel
  166. Left = 0
  167. Top = 0
  168. Width = 390
  169. Height = 22
  170. Align = alTop
  171. BevelOuter = bvNone
  172. TabOrder = 0
  173. DesignSize = (
  174. 390
  175. 22)
  176. object lblDataTiel: TLabel
  177. Left = 5
  178. Top = 5
  179. Width = 84
  180. Height = 12
  181. Caption = #20013#38388#35745#37327#34920#25968#25454
  182. Font.Charset = ANSI_CHARSET
  183. Font.Color = clBlue
  184. Font.Height = -12
  185. Font.Name = #23435#20307
  186. Font.Style = []
  187. ParentFont = False
  188. end
  189. object pnlDataBar: TPanel
  190. Left = 94
  191. Top = 10
  192. Width = 287
  193. Height = 2
  194. Anchors = [akLeft, akTop, akRight]
  195. BevelOuter = bvLowered
  196. TabOrder = 0
  197. end
  198. end
  199. end
  200. object alBGL: TActionList
  201. Images = MainForm.Images
  202. Left = 200
  203. Top = 160
  204. object actnGenerate: TAction
  205. Caption = #33258#21160#29983#25104
  206. ImageIndex = 32
  207. OnExecute = actnGenerateExecute
  208. end
  209. object actnLocateBills: TAction
  210. Caption = #23450#20301#33267#21488#36134
  211. OnExecute = actnLocateBillsExecute
  212. OnUpdate = actnLocateBillsUpdate
  213. end
  214. end
  215. object zaZJJL: TZjGridDBA
  216. Columns = <
  217. item
  218. Title.Caption = #20013#38388#35745#37327#34920#21495
  219. Title.CaptionAcrossCols = '1'
  220. Title.Font.Charset = GB2312_CHARSET
  221. Title.Font.Color = clWindowText
  222. Title.Font.Height = -12
  223. Title.Font.Name = #23435#20307
  224. Title.Font.Style = []
  225. Alignment = taLeftJustify
  226. Font.Charset = GB2312_CHARSET
  227. Font.Color = clWindowText
  228. Font.Height = -12
  229. Font.Name = #23435#20307
  230. Font.Style = []
  231. FieldName = 'Code'
  232. ReadOnly = False
  233. end
  234. item
  235. Title.Caption = #20132#24037#35777#20070'/'#20973#35777#21495
  236. Title.CaptionAcrossCols = '1'
  237. Title.Font.Charset = GB2312_CHARSET
  238. Title.Font.Color = clWindowText
  239. Title.Font.Height = -12
  240. Title.Font.Name = #23435#20307
  241. Title.Font.Style = []
  242. Alignment = taLeftJustify
  243. Font.Charset = GB2312_CHARSET
  244. Font.Color = clWindowText
  245. Font.Height = -12
  246. Font.Name = #23435#20307
  247. Font.Style = []
  248. FieldName = 'CertificateCode'
  249. ReadOnly = False
  250. end
  251. item
  252. Title.Caption = #39033#30446#33410#32534#21495
  253. Title.CaptionAcrossCols = '1'
  254. Title.Font.Charset = GB2312_CHARSET
  255. Title.Font.Color = clWindowText
  256. Title.Font.Height = -12
  257. Title.Font.Name = #23435#20307
  258. Title.Font.Style = []
  259. Alignment = taLeftJustify
  260. Font.Charset = GB2312_CHARSET
  261. Font.Color = clWindowText
  262. Font.Height = -12
  263. Font.Name = #23435#20307
  264. Font.Style = []
  265. FieldName = 'BillsCode'
  266. ReadOnly = True
  267. end>
  268. Grid = zgZJJL
  269. ExtendRowCount = 0
  270. Options = [aoAllowEdit, aoAllowDelete]
  271. Left = 152
  272. Top = 160
  273. end
  274. object dxpmZJJL: TdxBarPopupMenu
  275. BarManager = MainForm.dxBarManager
  276. ItemLinks = <
  277. item
  278. Item = MainForm.dxbtnLocateBills
  279. Visible = True
  280. end
  281. item
  282. BeginGroup = True
  283. Item = MainForm.dxbtnDelete
  284. Visible = True
  285. end>
  286. UseOwnFont = False
  287. OnPopup = dxpmZJJLPopup
  288. Left = 104
  289. Top = 160
  290. end
  291. end