|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 29, 2003 3:13 pm ¤å³¹¥DÃD: ¦h²Ó¸`±a³øªíªº¹ê²{(Âà¶K) |
|
|
¦h²Ó¸`±a³øªíªº¹ê²{
ì¤å¨Ó¦Û¡Gfoxtalk 2001¦~2¤ë¥Z
§@ªÌ¡GCathy Pountney
ĶªÌ¡Gfbilo
«e¨¥¡G
³oÓ¤ë¡ACathy Pountney ±N¦V§A®i¥Ü§ó¦hªº FoxPro ³øªí½s¿è¾¹§Þ¥©¡C¦o±q¸ÑÄÀ«ç¼Ë¦b³æÓ³øªí¤W«Ø¥ß¦hÓ²Ó¸`±a°Ï¶}©l¡X¡X¦³¨Çµ{¦¡®v»{¬°¥Î FoxPro ¦Û±aªº³øªí½s¿è¾¹¨Ó°µ¨ì³o¤@ÂI¬O¤£¥i¯àªº¡C¦oÁÙ¬°§A®i¥Ü¤F«ç¼Ë§â¤@Ó²Ó¸`±a°Ï©î¤À¨ì´X¶¤W¥h¡AÁÙ¦³´XÓ¦p³B²z¹Ï§Î¹Ï¹³¡B½u±ø©Mboxesªº§Þ¥©¡C
¥¿¤å¡G
²{¦b¡A§A¤w¸g¦]¬°³øªí½s¿è¾¹§Þ¥©ªº²Ä¤@³¡¤À¡]¬d¬Ýfoxtalk 2000¦~12¤ë¥Z¡^¦Ó¿³¾Ä°_¨Ó¤F¡A¬O®ÉÔ²`¤J±´¯Á³øªí½s¿è¾¹¤F¡C³\¦hµ{¦¡®v¹ï²Ó¸`±a°Ï«Ü§x´b¡C¥L̶ɦV©ó§å°«¦Û±aªº³øªí½s¿è¾¹¡A¦]¬°¥¦¤£¤¹³\¥L̵۪̾½Ä±ºë½Tªº³]p¥X¶H¥LÌ©Ò»Ýnªº¨º¼Ëªº³øªí¡C¨Ò¦p¡A¦Û±aªº³øªí½s¿è¾¹¤£¥¥³\¦h²Ó¸`±a°Ï¡A¥¦¤]¤£¤¹³\§A§â¤@Ó²Ó¸`±a°Ï©î¤À¨ì´X¶¤W¡C¤£¹L¡A½Ð§O¥¢±æ¡X¡X§A¥i¯à°µ¨ì©Ò¦³³o¨ÇªF¦è¡A¥un§Aª¾¹D¤@ÂIÂI¯µ±Kªº¸Ü¡C
¨º»ò¡AÅý§Ú̶}©l§a¡C¥i¥H±q www.pinnaclepublishing.com/ft¤U¸üªº·½¥N½XÀÉ¥]§t¤F¶°¦¨³o¨Ç§Þ¥©¤¤ªº¨C¤@Óªº¤u§@¥Ü¨Ò¡C¬d¬Ý readme.txt¡A¨ä¤¤¦³¤@Ó¦Cªí¡A¥¦§i¶D§AþÓÀɬOºt¥ÜþÓ§Þ¥©ªº¡C
¦h²Ó¸`±a°Ï
§A±`±`·|±¹ïn¦b¤@Ó³øªí¤W«Ø¥ß¦hÓ²Ó¸`±a°Ïªº±¡ªp¡]¦p¹Ï1¡^¡C¦b³oÓ¨Ò¤lùØ¡A³øªí¤¤¯A¤Î¨âÓªí¡C²Ä¤@Óªí¬O«È¤áªº³fª«²M³æ¦Cªí¡]Invoice ªí¡^¡C²Ä¤GÓªí¬O¨Ó¦Û«È¤áªº¥I´Ú¦Cªí¡]Paymentªí¡^¡C¦b²{¹ê¥@¬ÉùØ¡A§A«Ü¥i¯à¦³¤TÓªí¡A¦]¬°§AÁÙ»Ýn¤@Ó³æ¿Wªº«È¤áªí¡C¤£¹L¬°¤FÅý§Úªº¨Ò¤l§ó¥[ªºÂ²³æ¡A§Ú§â¦³Ãö«È¤á¸ê°Tªº¤º®e¥]§t¦b¨CÓªí¤¤¡A³o¼Ë§Ú´N¤£»Ýn¨Ï¥Î/¤¶²Ð²Ä¤TÓªí¤F¡C»¡ªº°÷¦h¤F¡I§A«Ø¥ßªº³øªí»Ýn®Ú¾Ú«È¤á¨Ó±Æ§Ç¡A¬°¡§A¡¨«È¤á¦C¥X³fª«²M³æ¡A±µµÛ¬O¡§A¡¨«È¤áªº¥I´Ú¡A±µ¤U¨Ó¬O¡§B¡¨«È¤áªº³fª«²M³æ¡AµM«á¬O¡§B¡¨«È¤áªº¥I´Ú¡Aµ¥µ¥¡C§Ú·Q§A¤w¸g¬Ý¨ì¹Ï¤ù¤F¡C
¤£©¯ªº¬O¡A¦Û±aªº³øªí½s¿è¾¹¤£¤¹³\¦h²Ó¸`±a°Ï¡C¨CÓ³øªí§A¥u¦³¤@Ó²Ó¸`±a°Ï¡A¦Ó¨º¬O Microsoft ªº³Ì²×¦^µª¡I¨º»ò§A«ç»ò°µ¡X¡X©ñ±ó¨Ã§i¶D§Aªº«È¤á¥¦¬O¤£¥i¯à°µ¨ìªº¶Ü¡HÁöµM²{¦b¹ï§A¨Ó»¡³o¥i¯à¬O¤@Ó¦n¥D·N¡A§Ú¤£»{¬°§Aªº«È¤á·|°ª¿³¡C¨Æ¹ê¤W¡A¥L̤]³\·|¨M©wµ¹ªB¤Í¥´¤@Ó¹q¸Ü©ÎªÌ°Ý°Ý¨ä¥L¤H¡C§ó¦nªº¸Ñ¨M¤èªk¬O§â¨âÓ¤lªí¤¤ªº©Ò¦³¬ö¿ý³£©ñ¨ì¤@ÓÁ{®Éªí¤¤¥h¡AµM«á¨Ï¥Î¤@Ó¯S®íªº²Õ»P"Print When "ÅÞ¿èÅܼƵ²¦X¨Ó±±¨î¨CÓ»Ýnªº²Ó¸`±a°Ïªº¦C¦L¡C
§Ú̱q«Ø¥ß¤@Ó¥]§t³fª«²M³æªí©M¥I´Úªíªº©Ò¦³Äæ¦ìªºÁ{®Éªí©ÎªÌªí¨Ó¶}©l¡A§AÁÙ»Ýn¤@ÓÃB¥~ªºÄæ¦ì¨Ó¸òÂܨCÓ¬ö¿ýªº·½¡]Source¡^¡C¤U±ªº¥N½X«Ø¥ß¤@ÓÁ{®Éªí¨Ã¥]§t¤@Ó¦W¥s"REC_TYPE"ªº¦r¤¸«¬Äæ¦ì¡C¹ï©Ò¦³¨Ó¦Û³fª«²M³æªíªº¬ö¿ý¡A³oÓÄæ¦ìªºÈ¬O"1"¡]¦r¤¸«¬¡A¤£¬O¼ÆÈ«¬¡^¡F¹ï©Ò¦³¨Ó¦Û¥I´Úªíªº¬ö¿ý¡A³oÓȬO"2"¡C
¹Ï1?.¸g¹L¤@¨Ç¯S®íªº§V¤O¡A¦h²Ó¸`±a°Ï¤]¯à³q¹L¨Ï¥Î FoxPro ¦Û±aªº³øªí½s¿è¾¹¨Ó°µ¨ì¡C
** «Ø¥ßÁ{®Éªí
CREATE CURSOR tmpcurs
(rec_type C(1), inv_no C(4), client C(30),
po_no C(4), inv_date D(8 ), due_date D(8 ),
inv_amt N(10,2), chk_no C(4), date_rcvd D(8 ),
amt_paid N(10,2))
INDEX ON clent + rec_type + inv_no TAG PrimaryKey
** §â³fª«²M³æªí¡]invoices¡^ªº¤º®e²K¥[¨ìÁ{®Éªí
SELECT tmpcurs
SCATTER MEMVAR MEMO BLANK
SELECT 0
USE invoice
SCAN
SCATTER MEMVAR MEMO
m.rec_type = '1' && ³fª«²M³æ
INSERT INTO tmpcurs FROM MEMVAR
ENDSCAN
** §â¥I´Úªí¡]payments¡^²K¥[¨ìÁ{®Éªí
SELECT tmpcurs
SCATTER MEMVAR MEMO BLANK
SELECT 0
USE payment
SCAN
SCATTER MEMVAR MEMO
m.rec_type = '2' && ¥I´Úªí
INSERT INTO tmpcurs FROM MEMVAR
ENDSCAN
ª`·N³oÓÁ{®Éªí¦³¤@Ó®Ú¾Ú CLIENT + REC_TYPE + INV_NO «Ø¥ßªº½Æ¦X¯Á¤Þ¡A¥¦¥Î¨Ó«OÃÒ³øªí³Q¦C¦L®Éªº¥¿½Tªº¶¶§Ç¡C¬° REC_TYPE ¨Ï¥Î¤@Ó¡§¦r¤¸«¬¡¨Äæ¦ì¥i¥H¨Ï±o¦b½Æ¦X¯Á¤Þ¤¤¥]§t REC_TYPE Åܱo§ó®e©ö¡C¬Û¹ï©ó¨Ï¥Î "INV" ©M "PAY" ¡A¨Ï¥Î "1" ©M "2" µ¹¤F§Ú±j¨î²Ó¸`±a°Ï«ö·Ó§Ú©Ò·Qn¦¸§Ç¦C¦Lªº¾÷°Ê©Ê¡C¦b§Úªº¨Ò¤l¤¤¡A²Ä¤@ӫȤ᪺³fª«²M³æ±N³Q¦C¦L¡A±µµÛ¬O¨ºÓ«È¤áªº¥I´Ú³æ¡A«á±¬O²Ä¤GӫȤ᪺³fª«²M³æ¡A¦A«á±¬O²Ä¤GӫȤ᪺¥I´Ú³æ¡Aµ¥µ¥¡C¦pªG§Ú·Qº¥ýÅã¥Ü¥I´Ú³æ¡A¨º»ò§Ú¹çÄ@¨Ï¥Î "INV" ©M "PAY," ¦Ó¥Ø«e§Úªº¹B®ð¤£¦n¡AI ¦b P ªº«e±¡A©Ò¥H¥X©ó²ßºD¡A§Úµo²{³Ì¦n¨Ï¥Î¼Æ¦ì¨Ó¥N´À´yz¥N½X¨Ó±±¨î±Æ§Ç¡C
²{¦b§Aªº³oÓÁ{®Éªí¤¤¤w¸g¦³¤F©Ò¦³ªº¸ê®Æ¡A§A¥i¥HÂà¦ÓÃöª`¤_«Ø¥ß³øªí¥»¨¤F¡C±q«Ø¥ß¤@Ó¥]§t¨âÓ²Õªº³øªí¶}©l¡A²Ä¤@Ó²Õ«ö·Ó Client Äæ¦ì¤À²Õ¡A²Ä¤GÓ²Õ«ö·Ó Rec_Type Äæ¦ì¤À²Õ¡C¦b²Ó¸`±a°ÏùØ¡A©ñ¤J©Ò¦³¨Ó¦Û©ó³fª«²M³æªíªºÄæ¦ì¡C¨Ì§A¦Û¤vªº»Ýn²¾°Ê¨Ã±Æ¦C¥¦Ì¡C¦P®É¡A§â³fª«²M³æªí¦r¬qªº¼ÐÃD©ñ¤J¨ì Rec_Type ²Õ±a°Ïªº²Õ¼ÐÀY³¡¤ÀùØ¥h¡C²{¦b¡AÂà¦^¥h§â¤U±ªº¥N½X©ñ¨ì¨CÓÄæ¦ì©M¼ÐÃDªº " Printing when " ±ø¥ó¡]ĶªÌª`¡GÂùÀ»Äæ¦ì©Î¼ÐÃD¡A¦b¥X²{ªº¡§³øªí¹Bºâ¦¡¡¨µøµ¡¤¤³æÀ»¡§¦C¦L±ø¥ó¡¨¡A¦b¥X²{ªº¡§¦C¦L±ø¥ó¡¨µøµ¡¤¤§â¥N½X©ñ¤J¨ì¡§¶È·í¤U¦C¹Bºâ¦¡¬°¯u®É¦C¦L¡¨¤å¥»®Ø¡^¤¤¥h¡G
rec_type = "1"
¤U¤@¨B¡A§A»Ýn¹ï¨Ó¦Û¥I´Ú³æªíªº©Ò¦³Äæ¦ì°µ¤@¹M¦P¼Ëªº¨Æ±¡¡C²{¦b³øªíÅܱo«ÜÃø¬Ý¡]¬Ý¹Ï2¡^¡A¦]¬°§A»Ýn§â¥I´Úªí¦r¬q«Å|ªº©ñ¨ì©Ò¦³ªº³fª«²M³æ¼ÐÄæ¦ì¤W±¥h¡A³o¨Ï±o§A«ÜÃø¬Ý²MþÓ¼ÐÃD¨s³º¬OÄÝ©óþÓÄæ¦ìªº¡C§Úµo²{³Ì¦n¬O«Ø¥ß¤@Ó°²ªº³øªí¡A¨Ã§â¥I´Ú³æ¦r¬q©M¼ÐÃD©ñ¨ì¨ºÓ°²³øªí¤W¥h¡Cºë½Tªº«ö§Aªº»Ýn²¾°Ê©M±Æ¦C¦n¥¦Ì¡C§â«e±´£¨ìªº¥N½X²K¥[¨ì¨CÓÄæ¦ì©M¼ÐÃDªº "Printing When" ±ø¥ó¤¤¥h¡A§â¡§1¡¨´À´«¬°¡§2¡¨¡C¤@¥¹§A§G§½¦n¤F¡A±q°²³øªí¤¤°Å¤Á¨Ã§â¥¦ÌÖ߶K¨ì§A¯u¥¿¤u§@ªº³øªí¤¤¥h¡C§â¥¦Ìè¦n©ñ¨ì³fª«²M³æªí¦r¬qªº¤W±¡C
¨º´N¬O©Ò¦³§ÚÌ»Ýn°µªº¨Æ±¡¡I«Ü²³æ¡A¹ï§a¡H¹ï§A¨Ó»¡¡A¥unªá«Ü¤pªº¤@ÂI§V¤O´N¥i¥H¹ê²{³oÓ§Þ¥©¡C
©î¤À¤@Ó²Ó¸`±a°Ï¨Ï¥¦¸ó¶V¦h¶
¦³¨Ç®ÉÔ¡A²Ó¸`±a°Ï¥]§t¨º»ò¦hªº¤º®e¥H¦Ü©ó¥¦»Ýn¸ó¶V¤@¶©ÎªÌ¦h¶¡C¨Ï¥Î¤@ÓÃþ¦ü©ó«e±´£¨ìªº§Þ³N¡A§A¥i¥H§â§Aªº¸ê®Æ¤À°t¨ì¶H§A©Ò»Ýnªº¨º»ò¦h¶¤W±¥h¡C
§Ú̱q«Ø¥ß¤@ÓÁ{®Éªí©ÎªÌ´å¼Ð¡]Cursor¡^¶}©l¡A¨ä¤¤¥]§t¦b§Aªº·½ªí¤¤¨CÓÄæ¦ìªº¦hÓ¬ö¿ý¡C¨Ò¦p¡A¦pªG§A»Ýn¬°§Aªº¨CÓ¬ö¿ý¦C¦L¨âÓ²Ó¸`±a°Ï¡A¨Ã¥B§Aªº·½ªí¥]§t¤»Ó¬ö¿ý¡A¨º»ò§Aªº·sªíùرÀ³¸Ó¦³12Ó¬ö¿ý¡]2¡Ñ6¡^¥H¹ê²{³Ì²×¦³12Ó¦C¦L¶ªºµ²ªG¡C³oÓ·sªº´å¼ÐÀ³¸Ó¦bµ²ºc¤¤¼W¥[¤@ÓÃB¥~ªº¦W¬° REC_TYPE Äæ¦ì¡A¨Ã¥B¥¦ªº±Æ§Ç¨Ì¾ÚÀ³¸Ó¬O§A©Ò§Æ±æªº±Æ§ÇÄæ¦ì¥[¤W REC_TYPE Äæ¦ì¡C¤U±ªº¥N½Xºt¥Ü¤F«ç¼Ë«Ø¥ß³oÓ·sªº´å¼Ð¡]¥¦°²©wªí¤¤ªº²Ä¤@ÓÄæ¦ì¬O§Ú·Q¥Î¨Ó®Ú¾Ú¥¦±Æ§ÇªºÄæ¦ì¡^¡G
** «Ø¥ßÁ{®Éªí
Select '1' as REC_TYPE , * FROM Spaing
UNION
Select '2' AS REC_TYPE, * FROM Spaing
INTO CURSOR tmpcurs
ORDER BY 2, 1
¦b³øªí½s¿è¾¹¤¤¡A½Õ¾ã²Ó¸`±a°Ïªº°ª«×¨ì®t¤£¦h¤@¾ã¶ªº¤j¤p¡C§Ú»¡¡§®t¤£¦h¡¨¬O¦]¬°§A¥²¶·¬°¤]¦s¦b©ó§Aªº³øªí¤Wªº¥ô¦ó¶¼ÐÀY¡B¼ÐÃD¡Bª`¸}¡B²Õ¡B©ÎªÌÁ`µ²±a°Ï¯d¥X¤@ÂIªÅ¶¡¡C½T«O©Ò¦³±a°ÏªºÁ`°ª«×¤£·|¶W¥X¶±ªºªø«×¡C
§â§A©Ò¦³·QnÅã¥Ü¦b¡§²Ä¤@¶¡¨¤WªºÄæ¦ì©ñ¨ì²Ó¸`±a°Ï¤W¡A½T«O " Printing When "±ø¥ó¬° REC_TYPE = '1'¡CµM«á§â§A©Ò¦³·QnÅã¥Ü¦b¡§²Ä¤G¶¡¨¤WªºÄæ¦ì²K¥[¨ì²Ó¸`±a°Ï¤W¡A¨Ã½T«O" Printing When "±ø¥ó¬° REC_TYPE = '2'¡C§Ú¦A¤@¦¸«Øij§A¨Ï¥Î§ÚÌ«e±´£¨ìªº¡§°²³øªí¡¨§Þ³N¡A¥H±N§A¦Û¤v±q¥Ø¥ú¬n±×©M¨g©Þ¦Û¤vÀY¾vªººGª¬¤¤¸Ñ±Ï¥X¨Ó¡C·í³o¨Ç¤u§@°µ§¹¥H«á¡A§A´N¤w¸g·Ç³Æ§¹¤W¸ô¤F¡C¹B¦æ³øªí¡A§A±N¬Ý¨ì§Aªº³øªí¬°·í«eÀɤ¤ªº¨CӨƶµ¤À°t¨ì¨â¶¤¤¥h¤F¡C
°ÊºA¹Ï§Î¹Ï¹³
FoxPro ¦Û±aªº³øªí½s¿è¾¹´£¨Ñ¤F¦C¦L¹Ï§Î¹Ï¹³ªº¯à¤O¡C¦pªG§A¨Ï¥Îªº¬O¦Ñª©¥»ªº FoxPro ©ÎªÌ Visual FoxPro¡A§A´N¥u¯à¨Ï¥Î BMP ÀÉ¡CVisual FoxPro 6.0 ¤Î¥H¤Wªºª©¥»¤¹³\§A¦C¦L BMP ©M JPG ÀÉ¡C³øªí½s¿è¾¹ªº¤@Ó¨üÅwªïªºÅܤơI
§â¡§ÀRºA¡¨ªº¹Ï¹³©ñ¨ì¤@Ó³øªí¤W¬O²³æªº¡C¥un¨Ï¥Î Pictrue ±±¨î¶µ¡A§â³oÓª«¥ó©ñ¨ì§Aªº³øªí¤W¨Ã¿é¤J±±¨î Picture ªºÀɮצW©ÎªÌÄæ¦ì¦W¡C¦ý¦pªG§A·Qn°ÊºAªº§ïÅܹϹ³®É«ç»ò¿ì¡H¨Ò¦p¡A§A¤]³\·Qn®Ú¾Ú³øªíµo°eµ¹þӫȤá¦b³øªíªº¼ÐÃD³¡¤À¨Ï¥Î¤£¦Pªº¼Ð»x¡]logo¡^¡A©ÎªÌ§A·Qn¦b³øªíªº²Ä¤@¶¤W¦C¦L¤@Ó¤jªº¼Ð»x¦Ó¦b¥H«áªº¦U¶¤W¦C¦L¤p¼Ð»x¡C¨º»ò²{¦b§A¸Ó«ç»ò¿ì¡H
¦bÅã¥Ü¦b¹Ï3¤¤ªº¨Ò¤l¤¤¡A¬°©_¼Æ¦æ¨Ï¥Î¤F¨âӹϥܤ¤ªº¤@Ó¡X¡X¦V¤Wªº½bÀY¡A¨Ã¬°°¸¼Æ¦æ¨Ï¥Î¤F¦V¤Uªº½bÀY¡C¾¨ºÞ§Aªº¥Î¤á¤£·|n¨D§A¥h°µ³oºØ©_¼Æ/°¸¼Æªº¨Æ±¡¡A³o¤£¹L¬OÓ¨Ò¤l¡C
²{¦b«ç¼Ë°µ¨ì³oºØ®ÄªG¨ú¨M©ó§A¨Ï¥Îªº¬O FoxPro 2.x ÁÙ¬O Visual FoxPro¡C§ÚÌ¥ý¹ï¥I 2.x¡C¬°¤F¯à°÷²³æªº§P©w²Ó¸`±a°Ï¬O¦b¦C¦L¤@Ó©_¼Æ¦æÁÙ¬O°¸¼Æ¦æ¡A§Ú«Ø¥ß¤F¤@Ó§@¬°¦æ¸¹ªº¦W¬° nRecord ªº³øªíÅܼơA¥¦ªºªì©lȬ°1¡A¨Ã¥B¦b¡§pºâ¡¨¿ï¶µ«ö¶s²Õ¤¤¿ï¤¤¤F¡§Á`©M¡¨¡A¨Ã¥B¥¦±N§@¬°¦æ¸¹Åã¥Ü¦b³øªí¤¤¡C¦b FoxPro 2.x ª©¤¤¡A§Ú§â³o¨âӹϹ³³£©ñ¦b³øªí¤W¡A¨ä¤¤¤@Ó¦b¥t¤@Óªº¤W±¡A§Ú§â¤U±ªº¥N½X©ñ¦b¤F¦V¤Wªº½bÀY©M¦V¤Uªº½bÀYªº " Printing When " »y¥y¤¤¡G
** ¦V¤Wªº½bÀY
MOD(nRecord, 2) <> 0
** ¦V¤Uªº½bÀY
MOD(nRecord, 2) = 0
¦pªG§A¦b¨Ï¥Î Visual FoxPro ¡A¦C¦L°ÊºA¹Ï§Î¹Ï¹³§ó¥[®e©ö¡C¦b³øªí¤W©ñ¤J¤@Ó Picture ±±¨î¶µ¡AµM«á¡A¦b¥X²{ªº¡§³øªí¹Ï¤ù¡¨¹ï¸Ü¤è¶ô¤¤¡A¦b¡§¹Ï¤ù¨Ó·½¡¨ªº¡§ÀÉ¡¨¤å¥»®Ø¤¤¿é¤J¤@Ó¹Bºâ¦¡¨Ó¥N´ÀÀɮצW¡A¦b¹Bºâ¦¡ªº¨âÃän¥[¤W¶ê¬A¸¹¡Cn¥Í¦¨¹Ï3¤¤ªº¥Ü¨Ò¡A¨Ï¥Î¤U±ªº¹Bºâ¦¡¡G
(IIF(MOD(nRecord, 2) = 0, "next.bmp", "Prior.bmp"))
¦A¦¸«½Æ¤@¹M¡A§A»Ýn¦b¹Bºâ¦¡ªº¨âºÝ¥[¤W¶ê¬A¸¹¡C¥¦§i¶D FoxPro ÀɮצW¨ä¹ê¬O¤@Ó»Ýn¹Bºâªº¹Bºâ¦¡¡CVisual FoxPro ´£¨Ñ¤F¤ñ FoxPro 2.x §ó¦hªº¥i¯à©Ê¡C¦b FoxPro 2.x ¤¤¡A§A¥²¶·¦b³]p®É¦V³øªí¤¤©ñ¤J¯u¥¿ªº¹Ï¹³¡C¦Ó¦b Visual FoxPro ¤¤¡A¦b³]p®É§A¨Ã«D¥²¶·nª¾¹D¬OþÓ¥i¥Îªº¹Ï¤ù¡C
Åý§ÚÌ°²³]§A¦³¤@Ó²£«~ªí¡A¦Ó§A§Æ±æ¬°¨CÓ²£«~ÃöÁp¤@´T¹Ï¤ù¡C¤£¦Pªº²£«~±`±`·|¨Ï¥Î¦P¤@´T¹Ï¤ù¡C¦b³oӮרҤ¤¡A¦bªíªº³q¥ÎÄæ¦ì¤¤Àx¦s¹Ï¤ù¨Ã¤£¬O¤@Óºë©úªº¥D·N¡A¦]¬°§A¥i¯à·|¦û¾Ú¤j¶qªºªÅ¶¡¨Ó¤@¦¸¤S¤@¦¸ªº«½ÆÀx¦s¦P¤@´T¹Ï¤ù¡C§@¬°´À¥N¤è®×¡Aµ¹§Aªºªí¼W¥[¤@ÓÄæ¦ì¡A¤ñ¦p MyPicture¡A¥¦¥]§t©ó³oÓ²£«~¬ÛÃöÁpªº¹Ï¤ùªºÀɮצW¡C¦b³øªíªº¡§¹Ï¤ù¨Ó·½¡¨ªº¡§ÀÉ¡¨¤å¥»®Ø¤¤©ñ¤JÄæ¦ì¦W¡A¦b¥¦ªº¨âÃä¥[¤W¶ê¬A¸¹¡A¶H¤U±³o¼Ë¡G
(MyFile.MyPicture)
³o¥u¬O¤@Ó¤p§Þ¥©¡A¤£¹L§A¥i¯à»ÝnÅý³oÓÄæ¦ì¨¬°÷ªºªø¥HÀx¦s±aµÛ§¹¾ã¸ô®|ªºÀɮצW©ÎªÌ¦Ü¤Ö¬O±aµÛ¬Û¹ï¸ô®|ªºÀɮצW¥H¥N´À¥uÀx¦sÀɮצWªº±¡ªp¡C³o·íµM§¹¥þ¨ú¨M©ó§Aªº¾ãÓÀ³¥Îµ{¦¡ªº³]p±¡ªp¡C¡]§Aªº¸ô®|¥i¯à·|§ó°Êªº¡C<s>¡^
©T©w·®æªº³±¼v
·|p¤Hû³ßÅw¬Ý¨ì¨C¹j¤@¦æ¥[¤W³±¼vªº¶±¡C³o±N¦³§U©ó¥L̾\Ū¤@¦æ¤S¤@¦æªº¼Æ¦r¡C¨º»òµ¹¥LÌ·QnªºªF¦è¨ÃÅý¥Ļְּ_¨Ó§a¡I°O¦í¡A¥L̶V§Ö¼Ö¡A´N¶V¤£¥i¯à¥á¤U§A¡C
³±¼v¥i¥H³q¹L¨Ï¥Î¯x§Îª«¥ó¨Ó¹ê²{¡C¦b³øªí¤W©ñ¤W¤@Ó¯x§Î¡CÅý¥¦»P§Aªº²Ó¸`±a°Ïªº°ª«×¬Û¦P¦P®É¶H§A©Ò»Ýnªº¨º¼Ë¼e¡C§ïÅÜ¥¦ªº«e´º¦â©MI´º¦â¬°¦Ç¦â¡Cn¦b FoxPro 2.x ¤¤§ïÅÜI´º¦â¡A±q¥\¯àªíÄ椤¿ï¾Ü object¡A¿ï¾Ü Fill Color¡AµM«á¿ï¾Ü Gray¡Cn§ïÅÜ«e´º¦â¡A±q¥\¯àªíÄ椤¿ï¾Ü object¡A¿ï¾Ü Fill Color¡AµM«á¿ï¾Ü Gray¡C
¦b Visual FoxPro ¤¤¡A¨BÆJ¦³¨Ç¤£¦P¡C½Ð¥ý½T©w½Õ¦âªO¤u¨ãÄæ³Q±Ò°Ê¡]±q¡§Åã¥Ü¡¨¥\¯àªí¤¤¿ï¾Ü¥¦¡^¡Cn§ïÅÜI´º¦â¡A¿ï¤¤ª«¥ó¡A¿ï¾ÜI´º¦â«ö¶s¡]¦³ªoº£±íªº¨ºÓ¡^¡AµM«á¿ï¾Ü¦Ç¦â¡Cn§ïÅÜ«e´º¦â¡A¿ï¤¤ª«¥ó¡A¿ï¾Ü«e´º¦â«ö¶s¡]¤W±¦³Ó "T" ¦rªº¨ºÓ¡^¡AµM«á¿ï¾Ü¦Ç¦â¡C
³Ì«áªº¨BÆJ¬O§â¤U±ªº¥N½X©ñ¤J¨ì " Printing When " ±ø¥ó¤¤¥h¡]³oùØ°²³]§A¤w¸g¶H«e±ªº¡§©î¤À¡¨¥Ü¨Ò¨º¼Ë«Ø¥ß¤F¤@Ó¦W¬° nRecord ªºÅܼơ^¡G
MOD(nRecord, 2) = 0
·í§A¦C¦Lªº®ÉÔ¡A¨C¹j¤@¦æ±N·|§e²{¦Ç¦â³±¼v¡C²{¦b¡A·|p¤HûÌ·|°ª¿³¤F¡A¦Ó§A±N·|¦³¤@¨ÇªÅ¶¢®É¶¡¤F¡C¤£ºÞ«ç»ò»¡¡A³o²¦³º¬O¦n¨Æ±¡¡C
ÁY©ñªº««ª½½u©M¯x§Î
¦b¹L¥h¬ü¦nªºÂIÂI°}¦¡¦Lªí¾÷ªº¤é¤lùØ¡A°£«Dµ´¹ï¥²n¡A§_«h««ª½½u©M¯x§Î¬OÀ³¸Ó¾¨¶qÁקKªº¡C¦ý¬OÅJ®g©M¼Q¾¥¦Lªí¾÷§ïÅܤF¤@¤Á¡C¦b½m²ß¤¤¥Î¯}§é½u¨Ó¥N´À¤ô¥½u¡B¤ô¥½uªº««ª½Ãä¡A¥Î¥[¸¹¨Ó¥N´À¨¤³¡ªº¤é¤l¤w¸g¹L¥h¤F¡C²{¦b¡A§ÚÌ¥i¥H¦V³øªí²K¥[¯u¥¿ªº½u±ø¨Ó·¥¤jªº¼W±j³øªíªº²M´·«×¡C¨Æ¹ê¤W¡A¨º¥¿¬O§Ú̪º¥Î¤á©Ò§Æ±æªº¡C
§Ú¬Û«H§A̳£ª¾¹D«ç¼Ë¦V³øªí¤W²K¥[½u±ø¡B¯x§Î¡B¶ê¨¤ªº¯x§Î¡C¦ý§A¬O§_ª¾¹D³o¨ÇªF¦èªº°ª«×¬O¥i¥HÁY©ñªº¡H·í§Aªº²Ó¸`±a°Ï¥]§t¨ä¥Lª«¥ó¡A¦p³ÆµùÄæ¦ìªº®ÉÔ¡A³o¬O«D±`«nªº¡A¥¦Ì¥i¥HÁY©ñ¤Ø¤o¡C³æÀ»¤@Ó½u±ø©ÎªÌ¯x§Î¡A¦b FoxPro 2.x ¤¤¿ï¾Ü¡§Stretch With band¡¨¡A©ÎªÌ¦b Visual FoxPro ¤¤¿ï¾Ü¡§¬Û¹ï¤_±a°Ïªº°ª«×¦ù®i¡¨¡]ĶªÌª`¡Gª`·N¡X¡X°ì±±¨î¶µ¬O¨S¦³³oӿﶵªº¡A¥u¦³½u±ø¡B¯x§Î³o¨Ç¹Ï§Îª«¥ó¤~¦³¡^¡C³o»ò°µ±N§i¶D FoxPro ¡AµL½×²Ó¸`±a°Ï¦ó®ÉÅܪø³£n§â³oÓ½u±ø¤]Åܪø¡C¦b Visual FoxPro ¤¤¡A§AÁÙ¥i¥H¨Ï¥Î¥t¤@Ó¥i¥Îªº¿ï¶µ¡G ¬Û¹ï©ó²Õ¤¤³Ì°ªªºª«¥ó¦ù®i¡C³oӿﶵ¹À.....¬Oªº....´N¶H¥¦ªº¦W¦r»¡ªº¨º¼Ë¡C
¨ì¥Ø«e¬°¤î¡A§Ú½Í¨ìªº³£¬O¥]§t¦b¤@Ó±a°Ï¤¤ªº½u±ø©M¯x§Î¡C¨º»ò§A¬O§_¯à°÷ÁY©ñ¦b¨âÓ±a°Ï¤§¶¡ªº¤@®Ú½u±ø©O¡H§A¥i¥Hªº¡C¹Ï3¤¤¦³¤@Ó±q¸Ó¶ªº³»³¡ª½¨ì©³³¡ªº¯x§Î¡C§Ú¬O³q¹L¦b³øªí¤W©ñ¤J¤@Ó°_©l©ó¶¼ÐÀY±a°Ï¡B¬ï¹L²Ó¸`±a°Ï¡Bµ²§ô©ó¶ª`¸}±a°Ïªº¯x§Î¨Ó¹ê²{ªº¡C·í§AÅý½u±ø©ÎªÌ¯x§Î¬ï¹L²Õ±a°Ïªº®ÉÔ¡AÃþ¦üªºÁY©ñ¤]¥i¥H¹ê²{¡C
ª`·N¤@¤U««ª½½u©M¯x§Îªº¤£¦P¡C««ª½½u¦b¹F¨ì¸Ó¶²Ó¸`±a°Ïªº³Ì«á¤@¦æ«á¤£·|Ä~Äò¤U¥h¡C¦ý¬O¯x§Î«o·|»·»·ªº¶W¥X¥»¶²Ó¸`±a°Ïªº³Ì«á¤@¦æ¡Aª½¨ì¨ì¹F¶ª`¸}±a°Ï¬°¤î¡C³o¬O¤@Ón²z¸Ñªº«n¯S©Ê¡C¦]¬°¯x§Î°_©l©ó¶¼ÐÀY±a°Ï¡B¨Ãµ²§ô©ó¶ª`¸}±a°Ï¡AVisual FoxPro ·|°²©w§A¶Hn¦ù®i¥¦¤@ª½¬ï¹L¾ãÓ²Ó¸`±a°Ï¡C¡]ĶªÌª`¡G³o¤@¬q§@ªÌ¼gªº¦³ÂIµü¤£¹F·N¡A²³æªº»¡¡A´N¬O««ª½½u±ø¤£¯à¨Ï¥Î¦b¤@Ó²Ó¸`±a°Ï¸ó¶V¦h¶ªº±¡ªp¤U¡A¦]¬°¥¦¥uÅã¥Ü¤F²Ä¤@¶´N¨S¦³¤F¡A¦Ó¯x§Î¥i¥H¡C¡^
¯B¤ô¦L
¯B¤ô¦L¤£¹L´N¬O©ñ¦b¤@¶¤Wªº¤@ӹϧÎ/¹Ï¹³¡C¦b FoxPro ¤¤n¹ê²{¯B¤ô¦L®ÄªGªº´Æ¤â³¡¤À¬OÅý¹Ï¹³¦ù®i¨ì¾ã¶¡CÅý§Ú̸դ@¤U¡C¦V³øªí¤W©ñ¤J¤@Ó Image¡AÁY©ñ¥¦¬°±q¶¼ÐÀY±a°Ïªº³»³¡ª½¨ì¶ª`¸}±a°Ïªº©³³¡¡C²{¦b¹B¦æ³oÓ³øªí¡A¦pªG§A§Æ±æµÛ¹Ï¹³·|¶H½u±ø©M¯x§Î¨º¼ËÁY©ñ¡A¨º»ò§A·|¥¢±æªº¡A¦]¬°¯u¥¿¥X²{ªº¨Ã¤£¬O¨º¼Ëªº®ÄªG¡C¹Ï¹³¤´µM«O«ù¦b¥¦Åã¥Ü¦b³øªí½s¿è¾¹¤¤ªº¤j¤p¡C¦ý¦pªG§A¹B¦æ¥]§t¦b·½¥N½XÀɤ¤ªº¥Ü¨Ò¡A§A±N·|¬Ý¨ì§Ú½T¹êÅý¹Ï¹³¦ù®iº¡¤F¾ã¶¡C§Ú¬O«ç»ò°µ¨ìªº¡H
Åwªï¨Ó¨ì¡§³øªí¶Â«È 101¡¨¡I³oÓ§Þ¥©¤£¯à³q¹L¦Û±aªº³øªí½s¿è¾¹¨Ó¹ê²{¡C§A¥²¶·¶Â¤@¤U³øªíªºFRXÀÉ¡C¦pªG§AÁÙ¤£ª¾¹D³oÓ¤º±¡¡A¨º»òÅý§Ú§i¶D§A¡G³øªí¸ê®Æ«O¦s¦b¨âÓÀɤ¤¡X¡X¤@Ó¥H FRX ¬°°ÆÀɦW¡A¥t¤@Ó¥H FRT ¬°°ÆÀɦW¡C³o¨ÇÀɨä¹ê¤£¹L¤À§O¬O¤@Ó DBF ÀÉ©M¤@Ó FPT ÀÉ¡C³o·N¨ýµÛ§A¥i¥H¶H¨Ï¥Î¨ä¥L¥ô¦ó DBF Àɨº¼Ë USE ³øªíªí¡A¥un§A¦b USE ©R¥O¤¤±a¤W³øªíªº°ÆÀɦW¡C
¦b§AÄ~Äò²`¤J¥H«e¡Aµ¹ FRX ©M FRT ÀÉ°µ¤@ӳƥ÷¡C·í¶Âªº®ÉÔ¥ý°µ¦n¦w¥þ±¹¬I¡A¥H§K§A§â¨Æ±¡·dªº¤@¹ÎÁV¥H¦Ü©ó FoxPro ¦Û±aªº¤u¨ã¦A¤]¤£¯àÃѧO³oÓ³øªí¡]¨º±q¨Ó¤]¨S¦³Åý§Ú¶}¤ß¹L<s>¡^¡C¤@¥¹§A°µ§¹¤F³Æ¥÷¡A¶H¤U±³o¼Ë¥´¶}³øªí¡G
USE MyReport.frx
BROWSE
§Ú¤£·|¸Ô²ÓªºÁ¿z³oÓÀɤ¤¨CÓÄæ¦ìªº²Ó¸`¤º®e¡CJohn Koziol ¦b FoxTalk 2000¦~8¤ë¥ZùØ¥Lªº¤å³¹¡m§Ë²M Visual FoxPro ³øªíÀÉ¡n¤¤°µ¤F¤@¥ó«Ü¦nªº¤u§@¡C¥Ø«e§A°ß¤@»ÝnÃö¤ßªº°O¿ý¬O¥Î©ó§A²K¥[¨ì³øªí¤¤ªºBMPªº¨ºÓ¡C¥¦ªº OBJTYPE Äæ¦ìªºÈÀ³¸Ó¬O 17¡APICTURE Äæ¦ì«h¥]§t BMP ªºÀɮצW¡C
¤@¥¹§A§äã¤F¨ºÓ¬ö¿ý¡A¬d¬Ý¤@¤U VPOS¡BHPOS¡BHEIGHT¡BWDITHÄæ¦ì¡C¦pªG§A·Q¹ï¹Ï¤ùªº¥ª¤W¨¤¦ì¸m¶i¦æ·L½Õ¡A§A¥i¥H³q¹L½Õ¾ã VPOS ©M HPOS Äæ¦ìªºÈ¨Ó°µ¨ì¡CVPOS Äæ¦ìªí¥Ü««ª½¶}©lªº¦ì¸m¡AHPOSÄæ¦ìªí¥Ü¤ô¥¦ì¸m¡A¨Ï¥Îªº«×¶q³æ¦ì¬O1^¤oªº 1/10000¡C©Ò¥H¡An§â¹Ï¤ù©ñ¨ì¶Z³»³¡ 0.5¡B¶Z¥ªÃä 1 ªº¦ì¸m¡A¥i¥H§â VPOS ªºÈ³]¸m¬° 5000¡B§â HPOS ªºÈ³]¸m¬° 10000¡C
n½Õ¾ã¹Ï¤ùªº¤Ø¤o¡Aקï HEIGHT ©M WIDTH Äæ¦ì¡C°O¦í¡A«×¶qªº³æ¦ì¬O1^¤oªº 1/10000¡C©Ò¥H¡An§â¹Ï¤ùªº¤Ø¤oÁY©ñ¨ì°ª«×¬°9¡B¼e«×¬°6.5ªº¤j¤p¡A»Ýn¤À§O§â HEIGHT ©M WIDTH Äæ¦ìªºÈ§ï°Ê¨ì 90000 ©M 65000¡C²{¦bÃö³¬³oÓªíµM«á¹B¦æ³oÓ³øªí¡A¹Ï¤ù±N³Q¦ù®i¨ì¾ã¶¡C
Ãö©ó³oÓ§Þ³NÁÙ¦³¨â¥ó¤p¨Æ±¡¡Cº¥ý¡AÄæ¦ì©M¹Ï¤ù¦b³øªí¤Wªº«e«á¦¸§Ç¬O«nªº¡C¦pªG§A¦b¦V³øªí©ñ¸m¤FÄæ¦ì¤§«á¦A©ñ¸m¹Ï¤ù¡A¹Ï¤ù±NÅã¥Ü¦bÄæ¦ìªº¤W±¡C³o¥i¤£¬O§A¶Hnªº¡C¿ï¤¤¹Ï¤ù¨Ã¿ï¾Ü¡§¸m«á¡¨¿ï¶µ¡A³o±N·|§â¹Ï¤ù©ñ¨ì©Ò¦³Äæ¦ìªº«á±¡C¥t¥~¤@¥ó¨Æ±¡¬O¦pªG§A¶Â¤F³øªí¤§«á¤S¹ï¹Ï¤ù°µ¤F¬Y¨Çקï¡A¤ñ¦p¹Ï¤ùªº«e«á¦¸§Ç¡A¶Â¹Lªº¹Ï¤ù¤Ø¤o±N·|³Q«ì´_¨ì FoxPro »{¬°¥i±µ¨üªº½d³ò¡C©Ò¥H§A¥²¶·¦A¶Â¤@¦¸¤Ø¤o¡C
®i±æ
FoxPro ¦Û±aªº³øªí½s¿è¾¹n¤ñ¥¦°_ªì¬Ý°_¨Óªº¼Ë¤l±j¤jªº¦h¡CÃöÁä¬Onª¾¹DÅý¥¦°µ¨ì§A·Q°µªº¨Æ±¡ªº§Þ¥©¡C©¯¹Bªº¬O¡A§Ú¤w¸g¬°¨Ï¥Î³oÓ¤u¨ãÅS¥X¤F¤@½u¥ú©ú¡C¦ýÁÙ¦³³\¦h§Þ¥©»Ýn§ÚÌ¥h¾Ç²ß¡C§Ú±NÄ~Äò¥h´M§äµ{¦¡®v̨쩳»Ýn¤°»ò¨Ã³ø§iµ¹ Foxtalk ªºÅªªÌÌ¡C¦pªG§A§Æ±æ¬Ý¨ì¤å³¹³]p¬Y¨Ç§A»Ýnªº¤º®e¡A©ÎªÌ§A¤w¸g¦Û¤vµo²{¤F¬Y¨Ç¨Æ±¡¡Aµ¹§Ú¤@Óemail¡A§Ú±NºÉ§Ú©Ò¯à¦b±N¨Óªº¤å³¹¤¤¥]§t¶i¥h¡C _________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|