*07101
1¡¢½¨Á¢Ò»¸ö¼ÆËã»ú¿¼ÊԳɼ¨¹ÜÀíÊý¾Ý¿â£¬ÎļþÃûΪ£ºCJGL.DBC£¬²¢ÊäÈëÊý¾Ý¡££¨40·Ö£© ¸ÃÊý¾Ý¿âÖÐÓÐÁ½¸öÊý¾Ý±í£ºÑ§ÉúÐÅÏ¢±í(XS.DBF)ºÍѧÉú³É¼¨±í(CJ.DBF)¡£ÆäÊý¾ÝÐÎʽÈçÏ£º
ѧÉúÐÅÏ¢±í(XS.DBF) ѧÉú³É¼¨±í(CJ.DBF)
ÒªÇ󣺽«Êý¾Ý¿â£¨CJGL.DBC£©ÖеÄXS.DBF£¨¸¸±í£©ºÍCJ.DBF£¨×Ó±í£©ÒÔ¡°¿¼ºÅ¡±½¨Á¢Ò»¶ÔÒ»ÓÀ¾Ã¹ØÏµ¡£
²Î¿¼´ð°¸£º
Êý¾ÝÀàÐÍ£º¿¼ºÅC(8)£¬ÐÕÃûC(6)
¿¼ºÅC(8)£¬±ÊÊԳɼ¨N(2)£¬ÉÏ»ú³É¼¨C(6)£¬³É¼¨ºÏ¸ñ·ñL Ë÷ÒýÀàÐÍ£º XS±í ¡ª¡ª¿¼ºÅ£¨Ö÷Ë÷Òý£© CJ±í ¡ª¡ª¿¼ºÅ£¨ºòÑ¡Ë÷Òý£©
2¡¢½¨Á¢³ÌÐòÎļþCOM-SQL711. PRG£¬ÒªÇó½«Íê³ÉÏÂÁи÷СÌâÈÎÎñµÄVFPÊý¾Ý±í²Ù×÷ÃüÁî»òVFP-SQLÃüÁîдÔڸóÌÐòÎļþÖС£ÔÚ³ÌÐòÊ×ÐÐÓÃ×¢ÊÍÓï¾ä×¢Ã÷¿¼ÉúÐÕÃûºÍ×¼¿¼Ö¤ºÅ£¬²¢ÓÃ×¢ÊÍÓï¾ä±êעСÌâºÅ¡££¨30·Ö£©
£¨1£©ÕýÈ·ÐÞ¸Äÿ¸öѧÉúµÄ¡°³É¼¨ºÏ¸ñ·ñ¡±×ֶΣ¬²¢ÌîÈëѧÉú³É¼¨±íCJ.DBFÖС£¹æ¶¨±ÊÊԳɼ¨<60»òÉÏ»ú³É¼¨Îª¡°È±¿¼¡±»ò¡°²»¼°¸ñ¡±£¬Ôò¸Ã×Ö¶ÎֵΪ.F.£¬·ñÔòΪ.T. £» £¨2£©²éѯ²¢ÏÔʾ³É¼¨ºÏ¸ñµÄ¿¼Éú¿¼ºÅ¡¢ÐÕÃû¡¢±ÊÊԳɼ¨ºÍÉÏ»ú³É¼¨£» £¨3£©Â߼ɾ³ýѧÉú³É¼¨±íCJ.DBFÖУ¬ÉÏ»ú¿¼ÊÔȱ¿¼µÄ¿¼Éú¡£ ²Î¿¼´ð°¸£º
*ÐÕÃû£º¡Á¡Á¡Á ×¼¿¼Ö¤ºÅ£º¡Á¡Á¡Á¡Á¡Á¡Á
*(1)
update CJ set ³É¼¨ºÏ¸ñ·ñ=.T. where ±ÊÊԳɼ¨>=60 and; (ÉÏ»ú³É¼¨=\ÓÅ\ÉÏ»ú³É¼¨=\¼°¸ñ\
*(2)
select CJ.¿¼ºÅ,ÐÕÃû,±ÊÊԳɼ¨,ÉÏ»ú³É¼¨ from XS,CJ; where XS.¿¼ºÅ=CJ.¿¼ºÅ and ³É¼¨ºÏ¸ñ·ñ=.T.
*(3)
delete from CJ where ÉÏ»ú³É¼¨=\ȱ¿¼\
3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM711.SCX¡£
Éè¼ÆÈçͼËùʾһ¸ö±íµ¥£¬°üÀ¨3¸ö±êÇ©£¬3¸öÎı¾¿ò£¬1¸öÃüÁî°´Å¥£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУº
£¨1£©±íµ¥µÄ±êÌâÒªÏÔʾ¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£»
£¨2£©Îı¾¿òtext1¡¢text2ºÍtext3µÄÏÔʾ³õֵΪ0£»
£¨3£©¸Ã±íµ¥ÔËÐк󣬿ÉÒÔÔÚÎı¾¿òtext1¡¢text2ÖÐÊäÈë³É¼¨£¨0~100£©£¬×ó¼üµ¥»÷¡°¼ÆË㡱ÃüÁî°´Å¥£¬ÔòÔÚÎı¾¿òtext3ÖÐÏÔʾƽ¾ù³É¼¨£¬ÒªÇó±£ÁôһλСÊý£» £¨4£©Ë«»÷±íµ¥¿Õ°×´¦½áÊø±íµ¥³ÌÐòµÄÔËÐС£
²Î¿¼´ð°¸£º
£¨1£©ÉèÖÃ±íµ¥form1µÄcaptionÊôÐÔΪ¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£» £¨2£©ÉèÖÃÎı¾¿òtext1¡¢text2ºÍtext3µÄvalueÊôÐÔΪ0£» £¨3£©ÔÚ¡°¼ÆË㡱ÃüÁî°´Å¥command1µÄclickʼþÀï±àд´úÂë
x=thisform.text1.value
y=thisform.text2.value
thisform.text3.value=round((x+y)/2,1) £¨4£©ÔÚform1µÄdblclickʼþÀï±àд´úÂë
thisform.release *07102
1¡¢½¨Á¢Ò»¸ö¹¤×ʹÜÀíÊý¾Ý¿â£¬ÎļþÃûΪGZGL.DBC£¬²¢ÊäÈëÊý¾Ý¡£
¸ÃÊý¾Ý¿âÖÐÓÐÁ½¸öÊý¾Ý±í£ºÖ°¹¤Êý¾Ý±í£¨ZGB.DBF£©ºÍ¹¤×ÊÊý¾Ý±í£¨GZB.DBF£©¡£ÆäÊý¾ÝÐÎʽÈçÏ£º
Ö°¹¤Êý¾Ý±í£¨ZGB.DBF£© ¹¤×ÊÊý¾Ý±í£¨GZB.DBF£©
ÒªÇ󣺽«Êý¾Ý¿â£¨GZGL.DBC£©ÖеÄZGB.DBF£¨¸¸±í£©ºÍGZB .DBF£¨×Ó±í£©ÒÔ¡°Ö°¹¤ºÅ¡±½¨Á¢Ò»¶ÔÒ»ÓÀ¾Ã¹ØÏµ¡£ ²Î¿¼´ð°¸£º
Êý¾ÝÀàÐÍ£ºÖ°¹¤ºÅC(6)£¬ÐÕÃûC(6)£¬»é·ñL£¬Ö°³ÆC(6)
Ö°¹¤ºÅC(6)£¬»ù±¾¹¤×ÊN(7,2)£¬½òÌùN(5,1)£¬½±½ðN(3)£¬¹«»ý½ðN(3)£¬Êµ·¢¹¤×ÊN(7,2) Ë÷ÒýÀàÐÍ£º ZGB±í ¡ª¡ª Ö°¹¤ºÅ£¨Ö÷Ë÷Òý£©
GZB±í ¡ª¡ªÖ°¹¤ºÅ£¨Ö÷Ë÷Òý»òºòÑ¡Ë÷Òý£©
2¡¢½¨Á¢³ÌÐòÎļþCOM-SQL712.PRG£¬ÒªÇó½«Íê³ÉÏÂÁи÷СÌâÈÎÎñµÄVFPÊý¾Ý±í²Ù×÷ÃüÁî»òVFP-SQLÃüÁîдÔڸóÌÐòÎļþÖС£ÔÚ³ÌÐòÊ×ÐÐÓÃ×¢ÊÍÓï¾ä×¢Ã÷¿¼ÉúÐÕÃûºÍ×¼¿¼Ö¤ºÅ£¬²¢ÓÃ×¢ÊÍÓï¾ä±êעСÌâºÅ¡£ £¨1£©¼ÆËãÿ¸öÖ°¹¤µÄ¡°Êµ·¢¹¤×Ê¡±×ֶΣ¬²¢ÌîÈ빤×ÊÊý¾Ý±íGZB .DBFÖС£ÆäÖУºÊµ·¢¹¤×Ê£½»ù±¾¹¤×Ê£«½òÌù£«½±½ð£¹«»ý½ð£»
£¨2£©ÏÔʾδ»éÖ°¹¤µÄÖ°¹¤ºÅ¡¢ÐÕÃû¡¢»ù±¾¹¤×ʺÍʵ·¢¹¤×Ê£» £¨3£©¼ÆË㹤×ʱíGZBÖÐËùÓÐÖ°¹¤µÄƽ¾ù½±½ðºÍʵ·¢¹¤×Ê×ܶ ²Î¿¼´ð°¸£º
*ÐÕÃû£º¡Á¡Á¡Á ×¼¿¼Ö¤ºÅ£º¡Á¡Á¡Á¡Á¡Á¡Á *(1)
update gzb set ʵ·¢¹¤×Ê=»ù±¾¹¤×Ê+½òÌù+½±½ð-¹«»ý½ð *(2)
select gzb.Ö°¹¤ºÅ,ÐÕÃû,»ù±¾¹¤×Ê,ʵ·¢¹¤×Ê from zgb,gzb; where gzb.Ö°¹¤ºÅ=zgb.Ö°¹¤ºÅ and »é·ñ=.F.
*(3)
select avg(½±½ð) as ƽ¾ù½±½ð,sum(ʵ·¢¹¤×Ê) as ʵ·¢¹¤×Ê×ܶî from gzb
3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM712.SCX¡£
Éè¼ÆÈçͼËùʾһ¸ö±íµ¥£¬°üÀ¨4¸ö±êÇ©£¬3¸öÎı¾¿ò£¬1¸öÃüÁî°´Å¥£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУº £¨1£©±íµ¥¶¥²¿µÄ±êÇ©ÓÃÀ´ÏÔʾ¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£» £¨2£©Îı¾¿òtext1¡¢text2ºÍtext3µÄÏÔʾ³õֵΪ0£»
£¨3£©¸Ã±íµ¥ÔËÐк󣬿ÉÒÔÔÚÎı¾¿òtext1ÖÐÊäÈëÔ²µÄ°ë¾¶£¨> 0£©£¬¹â±êÒÆµ½Îı¾¿òtext2¡¢text3ʱ£¬¿ÉÒÔ·Ö±ð¼ÆËãÔ²µÄÃæ»ýºÍÔ²µÄÖܳ¤£¬ÒªÇó±£ÁôÁ½Î»Ð¡Êý£¨ÆäÖЦУ½3.14159£© £¨4£©×ó¼üµ¥»÷¡°¹Ø±Õ¡±°´Å¥£¬½áÊø±íµ¥³ÌÐòµÄÔËÐС£
²Î¿¼´ð°¸£º
£¨1£©ÉèÖñêÇ©LABEL1µÄcaptionÊôÐÔΪ¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£» £¨2£©ÉèÖÃÎı¾¿òtext1¡¢text2ºÍtext3µÄvalueÊôÐÔΪ0£» £¨3£©ÔÚtext2µÄgotfocusʼþÀï±àд´úÂë
a=thisform.text1.value if a>0
b=pi()*a^2
this.value=round(b,2) endif
ÔÚtext3µÄgotfocusʼþÀï±àд´úÂë
a=thisform.text1.value
if a>0
b=2*pi()*a
this.value=round(b,2)
endif
£¨4£©ÔÚcommand1µÄclickʼþÀï±àд´úÂë thisform.release *07103
1¡¢½¨Á¢Ò»¸öÔ˶¯»á³É¼¨¹ÜÀíÊý¾Ý¿â£¬ÎļþÃûΪYDCJGL.DBC£¬²¢ÊäÈëÊý¾Ý¡£
¸ÃÊý¾Ý¿âÖÐÓÐÁ½¸öÊý¾Ý±í£ºÔ˶¯Ô±»ù±¾Çé¿ö±í£¨JBB.DBF£©ºÍÔ˶¯³É¼¨±í£¨YDCJ.DBF£©¡£ÆäÊý¾ÝÐÎʽ
ÈçÏ£º
Ô˶¯Ô±»ù±¾Çé¿ö±í£¨JBB.DBF£© Ô˶¯³É¼¨±í£¨YDCJ.DBF£©
ÒªÇ󣺽«Êý¾Ý¿â£¨YDCJGL£©ÖеÄJBB .DBF£¨¸¸±í£©ºÍYDCJ.DBF£¨×Ó±í£©ÒÔ¡°±àºÅ¡±½¨Á¢Ò»¶ÔÒ»ÓÀ¾Ã¹ØÏµ¡£ ²Î¿¼´ð°¸£º
Êý¾ÝÀàÐÍ£º±àºÅC(5)£¬ÐÕÃûC(6)£¬²¿ÃÅC(4)
±àºÅC(5)£¬Ìø¸ßN(1)£¬ÓÎÓ¾N(1)£¬ÆäËüN(1)£¬×ܳɼ¨N(2) Ë÷ÒýÀàÐÍ£º JBB±í ¡ª¡ª ±àºÅ£¨Ö÷Ë÷Òý£©
YDCJ±í ¡ª¡ª±àºÅ£¨Ö÷Ë÷Òý»òºòÑ¡Ë÷Òý£© 2¡¢½¨Á¢³ÌÐòÎļþCOM-SQL713.PRG£¬ÒªÇó½«Íê³ÉÏÂÁи÷СÌâÈÎÎñµÄVFPÊý¾Ý±í²Ù×÷ÃüÁî»òVFP-SQLÃüÁîдÔڸóÌÐòÎļþÖС£ÔÚ³ÌÐòÊ×ÐÐÓÃ×¢ÊÍÓï¾ä×¢Ã÷¿¼ÉúÐÕÃûºÍ×¼¿¼Ö¤ºÅ£¬²¢ÓÃ×¢ÊÍÓï¾ä±êעСÌâºÅ¡£ £¨1£©¼ÆËãÿλÔ˶¯Ô±µÄ¡°×ܳɼ¨¡±×ֶΣ¬²¢ÌîÈëÔ˶¯³É¼¨±íYDCJ.DBFÖУ¬ÆäÖУº×ܳɼ¨£½Ìø¸ß£«ÓÎÓ¾£«ÆäËü£»
£¨2£©°´×ܳɼ¨´Ó¸ßµ½µÍµÄ˳ÐòÏÔʾÔ˶¯Ô±µÄ±àºÅ¼°×ܳɼ¨£» £¨3£©ÏÔʾ¡°»ú¹Ø¡±²¿ÃŸ÷Ô˶¯Ô±µÄ±àºÅ¡¢ÐÕÃûºÍ×ܳɼ¨¡£ ²Î¿¼´ð°¸£º
*ÐÕÃû£º¡Á¡Á¡Á ×¼¿¼Ö¤ºÅ£º¡Á¡Á¡Á¡Á¡Á¡Á
*(1)
update ydcj set ×ܳɼ¨=Ìø¸ß+ÓÎÓ¾+ÆäËü
*(2)
select ±àºÅ,×ܳɼ¨ from ydcj order by ×ܳɼ¨ desc *(3)
select ydcj.±àºÅ,ÐÕÃû,×ܳɼ¨ from ydcj,jbb; where ydcj.±àºÅ=jbb.±àºÅ and ²¿ÃÅ=\»ú¹Ø\
3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM713.SCX¡£
Éè¼ÆÈçͼËùʾһ¸ö±íµ¥£¬°üÀ¨4¸ö±êÇ©£¬3¸öÎı¾¿ò£¬2¸öÃüÁî°´Å¥£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУº
£¨1£©±íµ¥¶¥²¿µÄ±êÇ©ÓÃÓÚÏÔʾ¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£»
£¨2£©Îı¾¿òtext1¡¢text2ºÍtext3µÄÏÔʾ³õֵΪ0£»
£¨3£©¸Ã±íµ¥ÔËÐк󣬿ÉÒÔÔÚÎı¾¿òtext1¡¢text2ÖзֱðÊäÈëÒ»¸öÊý£¬×ó¼üµ¥»÷¡°±È½Ï´óС¡±ÃüÁî°´Å¥£¬ÔòÔÚÎı¾¿òtext3ÖÐÏÔʾ½Ï´óµÄÒ»¸öÊý£»
£¨4£©×ó¼üµ¥»÷¡°Í˳ö¡±ÃüÁî°´Å¥£¬½áÊø±íµ¥³ÌÐòµÄÔËÐС£