农村信用社信贷管理系统

abist

打印的报表表名字体能改变（如放大，缩小等）就更好了

fyb2003

可是现在不是很多省都在开发自己的贷款管理程序吗？我先说的那家公司的应该还不错，有好几个省都在用！你可以看看参考一下，他的网页上有下载试用版！那个软件只是按键不太符合习惯！

dxgzy

报表打印的字体是可以根据我们的需要改变的,  而且还可根据需要增加新的功能

dxgzy

报表打印的字体是可以根据我们的需要改变的,  而且还可根据需要增加新的功能

abist

能说一下在unix foxpro下如何改字体吗?

dxgzy

可具体参考  foxbase2.11 的有关命令

sdccf

[quote]原帖由 "abist"]能说一下在unix foxpro下如何改字体吗?[/quote 发表：



贴一个打印报表的例子：

1. 
   
2. 
   
3. use sydw
   
4. 
   
5. sydwmc=dwmc
   
6. 
   
7. use defaprn
   
8. 
   
9. btd=alltrim(btfd)
   
10. 
    
11. btx=alltrim(btqx)
    
12. 
    
13. lineys=alltrim(ysh)
    
14. 
    
15. lineqx=alltrim(ysqx)
    
16. 
    
17. lx=prtlx
    
18. 
    
19. use xtsetup
    
20. 
    
21. rs=qsrs
    
22. 
    
23. dydh=sfdydh
    
24. 
    
25. rdate=ctod(gzrq)
    
26. 
    
27. use tmp/xcftmp01
    
28. 
    
29. *set safety off
    
30. 
    
31. *copy to tmp/xcftmp for xch=m.dwbh
    
32. 
    
33. *set safety on
    
34. 
    
35. *use tmp/xcftmp
    
36. 
    
37. sum all hqpj to h1
    
38. 
    
39. sum all dqpj to h2
    
40. 
    
41. sum all dhpj to h7
    
42. 
    
43. sum all hqxcf to h3
    
44. 
    
45. sum all dqxcf to h4
    
46. 
    
47. sum all dhxcf to h5
    
48. 
    
49. *sum all hjxcf to h5
    
50. 
    
51. sum all hqdd to z1
    
52. 
    
53. sum all dqdd to z2
    
54. 
    
55. sum all dhdd to z3
    
56. 
    
57. z4=z1+z2+z3
    
58. 
    
59. h6=h1+h2+h7
    
60. 
    
61. h8=h3+h4+h5
    
62. 
    
63. zrs=reccount()
    
64. 
    
65. go top
    
66. 
    
67. define window yw from 6,6 to 10,39 shadow color scheme 5
    
68. 
    
69. activate window yw
    
70. 
    
71. move window yw center
    
72. 
    
73. yn='Y'
    
74. 
    
75. @1,2 say "是否压缩打印?" get yn valid yn$"YyNn" error "只能选择Y或N"
    
76. 
    
77. read
    
78. 
    
79. if yn='Y' .or. yn='y'
    
80. 
    
81.    startys=lineys
    
82. 
    
83.    else
    
84. 
    
85.    startys=lineqx
    
86. 
    
87. endif
    
88. 
    
89. clear
    
90. 
    
91. @1,2 say "每页打印行数:" get rs picture "99" valid rs>;0
    
92. 
    
93. read
    
94. 
    
95. release window yw       
    
96. 
    
97. zys=zrs/rs
    
98. 
    
99.        if dydh='1'
    
100. 
     
101.        LN1=" ┏━━━━━┳━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━┓"
     
102. 
     
103.        LN2=" ┃          ┃      ┃ 活    期 ┃ 活    期 ┃          ┃ 定    期 ┃ 定    期 ┃          ┃ 定    活 ┃ 定    活 ┃          ┃ 合    计 ┃ 合    计 ┃  合  计  ┃        ┃"       
     
104. 
     
105.       LN2b=" ┃ 子协储号 ┃协储员┃          ┃          ┃ 协 储 费 ┃          ┃          ┃ 协 储 费 ┃          ┃          ┃ 协 储 费 ┃          ┃          ┃          ┃ 签  名 ┃"       
     
106. 
     
107.       LN2a=" ┃          ┃      ┃ 到达余额 ┃ 平均余额 ┃          ┃ 到达余额 ┃ 平均余额 ┃          ┃ 到达余额 ┃ 平均余额 ┃          ┃ 到达余额 ┃ 平均余额 ┃  协储费  ┃        ┃"       
     
108. 
     
109.        LN3=" ┣━━━━━╋━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━┫"
     
110. 
     
111.        LN4=" ┗━━━━━┻━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━┛"
     
112. 
     
113.      endif
     
114. 
     
115.        if dydh='0'
     
116. 
     
117.        LN1=" ┏━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━━┳━━━━┳━━━━┓"
     
118. 
     
119.        LN2=" ┃          ┃ 活    期 ┃          ┃ 定    期 ┃          ┃ 合    计 ┃ 合  计 ┃        ┃"       
     
120. 
     
121.       LN2b=" ┃ 子协储号 ┃          ┃协  储  费┃          ┃协  储  费┃          ┃        ┃ 签  名 ┃"       
     
122. 
     
123.       LN2a=" ┃          ┃ 平均余额 ┃          ┃ 平均余额 ┃          ┃ 平均余额 ┃ 协储费 ┃        ┃"       
     
124. 
     
125.        LN3=" ┣━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━━╋━━━━╋━━━━┫"
     
126. 
     
127.        LN4=" ┗━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━━┻━━━━┻━━━━┛"
     
128. 
     
129.      endif
     
130. 
     
131. prtfile=sys(3)
     
132. 
     
133. set device to print
     
134. 
     
135. set print on
     
136. 
     
137. set printer to cat>;tmp/&prtfile
     
138. 
     
139. line=1
     
140. 
     
141. pagenum=1
     
142. 
     
143. do while .not. eof()
     
144. 
     
145.         if dydh='1'
     
146. 
     
147.         @prow()+1,60 say chr(27)+btd+alltrim(sydwmc)+"协储员子协储号协储费表"+chr(27)+btx
     
148. 
     
149.         *@prow()+1,83 say replicate("=",40)
     
150. 
     
151.     if lx="L"
     
152. 
     
153.         @prow()+1,1 say chr(27)+startys+chr(28)+"S"+chr(0)+chr(0)
     
154. 
     
155.         endif
     
156. 
     
157.     if lx="O"
     
158. 
     
159.         @prow()+1,1 say chr(27)+startys+chr(28)+"$"+chr(6)
     
160. 
     
161.         endif
     
162. 
     
163.         @prow()+1,1 say ' '
     
164. 
     
165.         @prow()+1,5 say "单位:"+dwmc+space(86)+"起止日期:"+dtoc(f_date)+"---"+dtoc(s_date)
     
166. 
     
167.         endif
     
168. 
     
169.         if dydh='0'
     
170. 
     
171.         @prow()+1,35 say chr(27)+btd+alltrim(sydwmc)+"协储费清单"+chr(27)+btx
     
172. 
     
173.         @prow()+1,33 say replicate("=",25)
     
174. 
     
175.         @prow()+1,1 say chr(27)+startys+chr(28)+"$"+chr(6)
     
176. 
     
177.         @prow()+1,5 say "协储员:"+xcy+space(33)+"起止日期:"+dtoc(f_date)+"---"+dtoc(s_date)
     
178. 
     
179.         endif
     
180. 
     
181. *    xch2=dyxch
     
182. 
     
183.         @prow()+1,1 say ln1
     
184. 
     
185.         @prow()+1,1 say ln2
     
186. 
     
187.         @prow()+1,1 say ln2b
     
188. 
     
189.         @prow()+1,1 say ln2a
     
190. 
     
191.         for line=1 to rs
     
192. 
     
193.               @prow()+1,1 say ln3
     
194. 
     
195.        if zxch=0
     
196. 
     
197.           if dydh='1'
     
198. 
     
199.           @prow()+1,1 say " ┃"+str(xch,6)+"    ┃"+substr(xcy,1,6)+"┃"+str(hqdd,10,2)+"┃"+str(hqpj,10,2)+"┃"+str(hqxcf,10,2)+"┃"+str(dqdd,10,2)+"┃"+str(dqpj,10,2)+"┃"+str(dqxcf,10,2)+"┃"+str(dhdd,10,2)+"┃"+str(dhpj,10,2)+"┃"+str(dhxcf,10,2)+"┃"+str(hqdd+dqdd+dhdd,10,2)+"┃"+str(hqpj+dqpj+dhpj,10,2)+"┃"+str(hqxcf+dqxcf+dhxcf,10,2)+"┃        ┃"
     
200. 
     
201.           endif
     
202. 
     
203.           if dydh='0'
     
204. 
     
205.           @prow()+1,1 say " ┃"+str(xch,6)+"    ┃"+str(hqpj,10,2)+"┃"+space(8)+"┃"+str(dqpj,10,2)+"┃"+space(8)+"┃"+str(hqpj+dqpj,10,2)+"┃"+space(8)+"┃        ┃"
     
206. 
     
207.           endif
     
208. 
     
209.        endif
     
210. 
     
211.        if zxch>;0 .and. zxch<10
     
212. 
     
213.           if dydh='1'
     
214. 
     
215.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+"  ┃"+substr(xcy,1,6)+"┃"+str(hqdd,10,2)+"┃"+str(hqpj,10,2)+"┃"+str(hqxcf,10,2)+"┃"+str(dqdd,10,2)+"┃"+str(dqpj,10,2)+"┃"+str(dqxcf,10,2)+"┃"+str(dhdd,10,2)+"┃"+str(dhpj,10,2)+"┃"+str(dhxcf,10,2)+"┃"+str(hqdd+dqdd+dhdd,10,2)+"┃"+str(hqpj+dqpj+dhpj,10,2)+"┃"+str(hqxcf+dqxcf+dhxcf,10,2)+"┃        ┃"
     
216. 
     
217.           endif
     
218. 
     
219.           if dydh='0'
     
220. 
     
221.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+"  ┃"+str(hqpj,10,2)+"┃"+space(8)+"┃"+str(dqpj,10,2)+"┃"+space(8)+"┃"+str(hqpj+dqpj,10,2)+"┃"+space(8)+"┃        ┃"
     
222. 
     
223.           endif
     
224. 
     
225.        endif
     
226. 
     
227.        if zxch>;=10 .and. zxch<100
     
228. 
     
229.           if dydh='1'
     
230. 
     
231.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+" ┃"+substr(xcy,1,6)+"┃"+str(hqdd,10,2)+"┃"+str(hqpj,10,2)+"┃"+str(hqxcf,10,2)+"┃"+str(dqdd,10,2)+"┃"+str(dqpj,10,2)+"┃"+str(dqxcf,10,2)+"┃"+str(dhdd,10,2)+"┃"+str(dhpj,10,2)+"┃"+str(dhxcf,10,2)+"┃"+str(hqdd+dqdd+dhdd,10,2)+"┃"+str(hqpj+dqpj+dhpj,10,2)+"┃"+str(hqxcf+dqxcf+dhxcf,10,2)+"┃        ┃"
     
232. 
     
233.           endif
     
234. 
     
235.           if dydh='0'
     
236. 
     
237.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+" ┃"+str(hqpj,10,2)+"┃"+space(8)+"┃"+str(dqpj,10,2)+"┃"+space(8)+"┃"+str(hqpj+dqpj,10,2)+"┃"+space(8)+"┃        ┃"
     
238. 
     
239.           endif
     
240. 
     
241.        endif
     
242. 
     
243.        if zxch>;=100
     
244. 
     
245.           if dydh='1'
     
246. 
     
247.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+"┃"+substr(xcy,1,6)+"┃"+str(hqdd,10,2)+"┃"+str(hqpj,10,2)+"┃"+str(hqxcf,10,2)+"┃"+str(dqdd,10,2)+"┃"+str(dqpj,10,2)+"┃"+str(dqxcf,10,2)+"┃"+str(dhdd,10,2)+"┃"+str(dhpj,10,2)+"┃"+str(dhxcf,10,2)+"┃"+str(hqdd+dqdd+dhdd,10,2)+"┃"+str(hqpj+dqpj+dhpj,10,2)+"┃"+str(hqxcf+dqxcf+dhxcf,10,2)+"┃        ┃"
     
248. 
     
249.           endif
     
250. 
     
251.           if dydh='0'
     
252. 
     
253.           @prow()+1,1 say " ┃"+str(xch,6)+"-"+alltrim(str(zxch,3))+"┃"+str(hqpj,10,2)+"┃"+space(8)+"┃"+str(dqpj,10,2)+"┃"+space(8)+"┃"+str(hqpj+dqpj,10,2)+"┃"+space(8)+"┃        ┃"
     
254. 
     
255.           endif
     
256. 
     
257.       endif
     
258. 
     
259.           skip
     
260. 
     
261.           if eof()
     
262. 
     
263.              @prow()+1,1 say ln3
     
264. 
     
265.              if dydh='1'
     
266. 
     
267.              @prow()+1,1 say " ┃ 合    计 ┃      ┃"+str(z1,10,2)+"┃"+str(h1,10,2)+"┃"+str(h3,10,2)+"┃"+str(z2,10,2)+"┃"+str(h2,10,2)+"┃"+str(h4,10,2)+"┃"+str(z3,10,2)+"┃"+str(h7,10,2)+"┃"+str(h5,10,2)+"┃"+str(z4,10,2)+"┃"+str(h6,10,2)+"┃"+str(h8,10,2)+"┃        ┃"
     
268. 
     
269.              endif
     
270. 
     
271.              if dydh='0'
     
272. 
     
273.              @prow()+1,1 say " ┃ 合    计 ┃"+str(h1,10,2)+"┃"+space(8)+"┃"+str(h2,10,2)+"┃"+space(8)+"┃"+str(h6,10,2)+"┃"+space(8)+"┃        ┃"
     
274. 
     
275.              endif
     
276. 
     
277.              exit
     
278. 
     
279.           endif
     
280. 
     
281.         endfor
     
282. 
     
283.             @prow()+1,1 say ln4
     
284. 
     
285.         if dydh='1'
     
286. 
     
287.         @prow()+1,1 say space(6)+"打印日期: "+alltrim(str(year(rdate)))+"年"+alltrim(str(month(rdate)))+"月"+alltrim(str(day(rdate)))+"日     打印时间: "+time()+space(80)+"第 "+alltrim(str(pagenum))+" 页"+"  (共"+alltrim(str(ceiling(zys)))+"页)"
     
288. 
     
289.         endif
     
290. 
     
291.         if dydh='0'
     
292. 
     
293.         @prow()+1,1 say space(6)+"打印日期: "+alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月"+alltrim(str(day(date())))+"日     打印时间: "+time()+space(20)+"第 "+alltrim(str(pagenum))+" 页"+"  (共"+alltrim(str(ceiling(zys)))+"页)"
     
294. 
     
295.         endif
     
296. 
     
297.         @prow()+1,1 say chr(27)+lineqx
     
298. 
     
299. eject
     
300. 
     
301. pagenum=pagenum+1
     
302. 
     
303. line=1
     
304. 
     
305. enddo
     
306. 
     
307. set printer to
     
308. 
     
309. set device to screen
     
310. 
     
311. set print off
     
312. 
     
313. define window yw from 1,7 to 9,26 shadow color scheme 6
     
314. 
     
315. activate window yw
     
316. 
     
317. move window yw center
     
318. 
     
319. do while .t.
     
320. 
     
321. @0,2 to 6,15
     
322. 
     
323. @1,4 prompt "1-显    示" color scheme 5
     
324. 
     
325. @3,4 prompt "2-打    印" color scheme 5
     
326. 
     
327. @5,4 prompt "0-退    出" color scheme 5
     
328. 
     
329. menu to c
     
330. 
     
331. do case
     
332. 
     
333.    case c=1
     
334. 
     
335.         !vmore tmp/&prtfile
     
336. 
     
337.         m.dwbh=0
     
338. 
     
339.         *release window yw
     
340. 
     
341.    case c=2
     
342. 
     
343.         !lp tmp/&prtfile>;/dev/null
     
344. 
     
345.         m.dwbh=0
     
346. 
     
347.         *release window yw
     
348. 
     
349.    case c=3
     
350. 
     
351.         release window yw
     
352. 
     
353.         retu
     
354. 
     
355. endcase
     
356. 
     
357. enddo
     
358. 
     

复制代码

abist

收藏