|
เคยเห็นคุณ hurudoy แสดงความคิดเห็นเรื่อง INDEX พังแล้วตัวใครตัวมันอยู่บ่อยๆ
ผมก็บอกวิธีแก้ปัญหาให้แล้ว ตามที่แสดงความคิดเห็น บอกแล้วว่าเขียนโปรแกรมด้วย คำสั่ง foxpro for windows เข้าใช้แก้ปัญหากับแบบนี้
แล้วโปรแกรม FOXPRO มันดึตรงที่ลูกค้าไม่ต้องจ่ายค่าลิขสิทธิ์อะไรมากมาย แค่ซื้อโปรแกรมจากผู้พัฒนา
อย่างเดียว แล้วก็จ่ายค่าดูแบบระบบเล็กๆน้อย ผมคิดค่าดูแลระบบทุกโปรแกรมอยู่ปีละ 12,000 บาท
ถ้าเป็นลูกค้าใหม่ค่าพัฒนาโปรแกรมทุกระบบก็ แสนต้นๆ แต่กว่าจะเสร็จงานก็เหลือนิดหน่อย ที่จริง
อยู่ได้ก็เพราะค่าดูแลระบบโปรแกรม ปีละ 12,000 บาท สี่สิบแห่งก็เอา 40 คูณเข้าไป
***************************************************************
ส่วนโปรแกรมก็ใช้คำสั่งง่ายๆ ไม่ยุ่งยากอะไร คำสั่งพื้นฐานทั้งนั้น เลยถือโอกาศแสดงให้ดูส่วนหนึ่ง
แต่ไม่ได้แสดงเป็นภาษาไทย และไม่ได้จัดระบบอะไร เป็นส่วนหนึ่งเท่านั้น เป็นตัวอย่างนะครับ
SET COLOR OF SCHEME 2 TO RGB(0,0,0,236,233,216),RGB(0,0,255,255,255,255),RGB(255,0,0,128,128,128), ;
RGB(128,0,128,255,0,0),RGB(255,255,0,192,192,192),RGB(255,255,0,255,0,0),RGB(255,0,0,255,0,0),;
RGB(255,255,255,255,0,0),RGB(0,0,0,236,233,216),RGB(128,128,128,128,0,128)
SELECT 2
SET ORDER TO 1
GO TOP
define windows win41 from 0,0 to 31,133 TITLE [ »ÃѺ»Ãا·ÐàºÕ¹¢éÍÁÙÅ ] ;
color scheme 2 ;
FONT [AngsanaUPC],14
activate windows win41
MEN1 = " F2=á¡éä¢ F3=ź F4=ËÒÃËÑÊ F5=ËÒª×èÍà¨éҢͧ F6=ËÒª×èͼÙé¡Õ´ F7=ËÒ˹èÇ F9=ºÑ¹·Ö¡ÃѺÂÒ§ ESC=¶Í¡ÅѺ "
@ 17,2 get MEN1 FONT [AngsanaUPC],14
CLEAR GET
define windows win42 from 0,0 to 28,100 TITLE [ »ÃѺ»ÃاÃÒ¡Òà ] ;
color scheme 2 ;
FONT [AngsanaUPC],14
PUSH KEY CLEAR
on key label f2 do SALA422
on key label f3 do SALA423
on key label f4 do ftest4N
on key label f5 do ftest5N
on key label f6 do ftest6N
on key label f7 do ftest7N
on key label f9 do SALA429
browse field NUMBER:h="àÅ¢ÊÁÒªÔ¡",name:h="ª×èÍà¨éÒͧÊǹ",;
remark:h='ª×èͼÙé¡Õ´ÂÒ§',CODE:h="¡ÅØèÁ",;
TOTAL1:h="ÃÇÁà§Ô¹":p="###,###.##",;
DISC1:h="ËÑ¡1%":p="###,###.##",NET1:h="ÃѺÊØ·¸Ô":p="###,###.##",;
NUMBANK:h=" àÅ¢·Õ踹ҤÒà " ;
noedit color scheme 2 WINDOWS WIN42
deactivate window win42
deactivate window win41
set color to
RETURN
proc SALA422
define windows win43 from 0,0 to 33,134 TITLE [ *** á¡é䢻ÃÐÇѵÔÊÁÒªÔ¡ ] ;
color scheme 2 ;
FONT [AngsanaUPC],14
activate windows win43
@ 0,5 SAY 'àÅ¢·Õè : '
@ 0,22 SAY 'ª×èÍ : '
@ 0,80 SAY '¡ÅØèÁ : '
@ 2,5 say 'ª×èͼÙé¡ÃÕ´ÂÒ§ : '
@ 3,5 say 'àÅ¢ºÑªÕ : '
@ 4,5 SAY ' %Êèǹáºè§ à¨éҢͧÊǹ : '
@ 4,50 SAY '%Êèǹáºè§ ¼Ùé¡Õ´ÂÒ§ : '
@ 5,5 SAY ' »ÃÔÁÒ³ÂÒ§(¡.Å.) ÃÒ¤Ò/¡ÔâÅ '
@ 6,5 SAY 'ÂÒ§ªÑé¹ 1 : '
@ 7,5 SAY 'ÂÒ§ªÑé¹ 2 : '
@ 8,5 SAY 'ÂÒ§ªÑé¹ 3 : '
@ 9,5 SAY 'ÂÒ§ªÑé¹ 4 : '
@ 10,5 SAY 'ÂÒ§ªÑé¹ 5 : '
@ 11,5 SAY ' ÃÒ¤ÒÃÇÁ : '
@ 12,5 SAY ' ¤èÒ´Óà¹Ô¹¡Òà 1 % : '
@ 13,5 SAY ' ÃѺÊØ·¸Ô : '
IF LOCK()
@ 0,15 GET NUMBER
@ 0,30 GET NAME
@ 0,90 GET CODE PICT 'XX'
@ 2,30 GET REMARK
@ 3,30 GET NUMBANK PICT 'XXXXXXXXXXXXXX'
@ 3,60 SAY '1 ¡Ãاä·Â 2 ¸¡Ê : ' GET BANK PICT 'X'
@ 4,37 GET RATE1 PICT '###.##'
@ 4,73 GET RATE2 PICT '###.##'
@ 6,25 GET AMT1 PICT '#,###,###.##'
@ 7,25 GET AMT2 PICT '#,###,###.##'
@ 8,25 GET AMT3 PICT '#,###,###.##'
@ 9,25 GET AMT4 PICT '#,###,###.##'
@ 10,25 GET AMT5 PICT '#,###,###.##'
@ 6,52 GET PRICE1 PICT '#,###,###.##'
@ 7,52 GET PRICE2 PICT '#,###,###.##'
@ 8,52 GET PRICE3 PICT '#,###,###.##'
@ 9,52 GET PRICE4 PICT '#,###,###.##'
@ 10,52 GET PRICE5 PICT '#,###,###.##'
READ
MTOTAL1 = ROUND(AMT1 * PRICE1,2) + ROUND(AMT2 * PRICE2,2) +;
ROUND(AMT3 * PRICE3,2) + ROUND(AMT4 * PRICE4,2) + ROUND(AMT5 * PRICE5,2)
MDISC1 = ROUND(MTOTAL1 * 1/100,0)
MNET1 = MTOTAL1 - MDISC1
REPL TOTAL1 WITH MTOTAL1
REPL DISC1 WITH MDISC1
REPL NET1 WITH MNET1
@ 11,52 GET TOTAL1 PICT '#,###,###.##'
@ 12,52 GET DISC1 PICT '#,###,###.##'
@ 13,52 GET NET1 PICT '#,###,###.##'
READ
UNLOCK
ELSE
WAIT WINDOWS
ENDIF
deactivate windows win43
RETURN 1
* ต้องขออภัย ÃѺ»Ãا·ÐàºÕ¹¢éÍÁÙÅ ที่จริงเป็นภาษาไทย แต่ไม่ได้แสดงให้เห็น
*******************************************************************
ที่จริงกว่าจะเปลี่ยนคำสั่งจาก CLIPPER5 มาเป็น FOXPRO FOR WINDOWS ได้ก็ใช้เวลา 2-3 ปี
ที่จะต้องนั่งทดสอบคำสั่ง มันเหนื่อยากลำบากมาก แทบไม่ได้กิน ไม่ได้นอนเป็นปี ๆ นั่งแต่หน้าคอมพิวเตอร์
ใช้คำสั่งทดสอบ ลองผิดลองถูก จนผ่านมาได้ พอผ่านมาได้งานเข้า และเงินเข้าด้วย คุ้มจริงๆ
เหมือนสวรรคบันดาล
เหมือนเพลงนี้ละมั้ง
" เมื่อฉันพบเธอวันนั้น ดังสรรคเป็นใจ สุขฤทัยเมื่อยามเราได้ ชิดเคียงกายใจคู่กัน .... "
ระบบโปรแกรมที่เขียนมีมูลค่ามาก ไม่ใช่ได้มาง่ายๆนะครับ มันเป็นลิขสิทธิ์ของผู้พัฒนาโปรแกรม
|
OLD FoxBoard
Home FoxBoard
หัวข้อสนทนาทั้งหมด
ประกาศทั่วไป
#02256 หัวข้อ: ทบทวน #02052 เอา vfp ทำโปรเจค จบไม่ได้
