´óѧVFÉÏ»úÊÔÌâ ÏÂÔØ±¾ÎÄ

select count(*) as ×ÜÈËÊý from JSB where ¿Î³Ì´úÂë in;

(select ¿Î³Ì´úÂë from KCB where ¿Î³ÌÃû³Æ=\ÍâÓï\ *£¨3£©

select ÐÕÃû,ÄêÁä,Ժϵ from JSB where ÄêÁä<35 ; order by ¿Î³Ì´úÂë desc

3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM912.SCX¡£

°üÀ¨1¸ö±êÇ©£¬2¸öÃüÁî°´Å¥£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУº £¨1£©±íµ¥µÄ±êÌâΪ¿¼Éú×Ô¼ºµÄ×¼¿¼Ö¤ºÅºÍÐÕÃû£»

£¨2£©¸Ã±íµ¥ÔËÐкó£¬Ã¿´Îµ¥»÷¡°·Å´ó¡±ÃüÁťʱ£¬±êÇ©1ÖеÄ×ÖÌ彫·Å´ó5¸öµã£¬Ö±µ½×ÖÌå´óСΪ60£»Ã¿´Îµ¥»÷¡°ËõС¡±ÃüÁťʱ£¬±êÇ©1ÖеÄ×ÖÌ彫ËõС5¸öµã£¬Ö±µ½×ÖÌå´óСΪ12£¬ÈçͼËùʾ£» £¨3£©Ë«»÷±íµ¥¿Õ°×´¦£¬½áÊø±íµ¥ÔËÐС£

²Î¿¼´ð°¸

±íµ¥µÄCaptionÊôÐÔÉèÖÃΪ£º¿¼Éú×Ô¼ºµÄÐÕÃûºÍ¿¼ºÅ£»£¨½çÃæÉè¼Æ5·Ö£© ¡°·Å´ó¡±ÃüÁî°´Å¥µÄClickʼþ´úÂ룺£¨10·Ö£©

X=Thisform.Label1.Fontsize

IF X<60 X=X+5 ELSE X=60 ENDIF

Thisform.Label1.Fontsize=X

¡°ËõС¡±ÃüÁî°´Å¥µÄClickʼþ´úÂ룺£¨10·Ö£©

X=Thisform.Label1.Fontsize IF X>12 X=X-5

ELSE

X=12 ENDIF

Thisform.Label1.Fontsize=X

±íµ¥µÄ¡°DblClick¡±Ê¼þ´úÂ룺£¨5·Ö£© Thisform.Release

*09103

1¡¢½¨Á¢Ò»¸ö¸ß¿¼Ñ§Éúµµ°¸¹ÜÀíÊý¾Ý¿â£¬ÎļþÃûΪDAGL.DBC£¬²¢ÊäÈëÊý¾Ý¡££¨40·Ö£©

¸ÃÊý¾Ý¿â°üÀ¨£º¸ß¿¼Ñ§Éúµµ°¸±íDAB.DBF¡¢¸ß¿¼³É¼¨±íGKB.DBF£¬ÆäÄÚÈÝÈçÏ£º

DAB.DBF GKB.DBF

ÒªÇ󣺽«Êý¾Ý¿â£¨DAGL.DBC£©ÖеÄDAB.DBFºÍGKB.DBFÁ½±íÒÔ¡°×¼¿¼Ö¤ºÅ¡±½¨Á¢ÓÀ¾Ã¹ØÏµ¡£ ²Î¿¼´ð°¸£º

Êý¾ÝÀàÐÍ£º×¼¿¼Ö¤ºÅ (C,4)£¬ÐÕÃû (C,4)£¬±ÏҵѧУ (C,3)£¬Ö¾Ô¸ (C,8)

×¼¿¼Ö¤ºÅ (C,4)£¬ÓïÎÄ N(3)£¬ÊýѧN(3)£¬ÍâÓïN(3)£¬×ÛºÏN(3)£¬Â¼È¡·ñ L

Ë÷ÒýÀàÐÍ£º DAB±í¡ª¡ª×¼¿¼Ö¤ºÅ£¨Ö÷Ë÷Òý£©

GKB±í¡ª¡ª×¼¿¼Ö¤ºÅ£¨Ö÷Ë÷Òý»òºòÑ¡Ë÷Òý£©

2¡¢½¨Á¢³ÌÐòÎļþCOM£­SQL913.PRG£¬ÒªÇó½«Íê³ÉÏÂÁи÷СÌâÈÎÎñµÄVFPÊý¾Ý±í²Ù×÷ÃüÁî»òVFP£­SQLÃüÁîдÔڸóÌÐòÎļþÖС£ÔÚ³ÌÐòÊ×ÐÐÓÃ×¢ÊÍÓï¾ä×¢Ã÷¿¼ÉúÐÕÃûºÍ×¼¿¼Ö¤ºÅ£¬²¢ÓÃ×¢ÊÍÓï¾ä±êעСÌâºÅ¡££¨30·Ö£©

£¨1£©¸ù¾Ý¼ȡ·ÖÊýÏß500·Ö£¬³¬¹ý500·Ö£¨º¬£©Â¼È¡·ñ×Ö¶ÎֵΪ.T.£¬·ñÔòΪ.F.£¬²¢ÌîÈëGKB.DBFÖУ» £¨2£©°´×ܳɼ¨´Ó¸ßµ½µÍÏÔʾÒÔ¼ȡ¿¼ÉúµÄ×¼¿¼Ö¤ºÅºÍ×ܳɼ¨£»

£¨3£©ÏÔʾ¼ȡ¿¼ÉúµÄÐÕÃû£¬±ÏҵѧУºÍ¼ȡѧУ£¨ÆäÖмȡѧУ¼´Îª¿¼ÉúµÄÖ¾Ô¸£©¡£ ²Î¿¼´ð°¸£º

* ÐÕÃû£º ×¼¿¼Ö¤ºÅ£º

*(1)

update gkb set ¼ȡ·ñ=.T. where (ÓïÎÄ+Êýѧ+ÍâÓï+×ÛºÏ)>=500 update gkb set ¼ȡ·ñ=.F. where (ÓïÎÄ+Êýѧ+ÍâÓï+×ÛºÏ)<500 *(2)

select ×¼¿¼Ö¤ºÅ,ÓïÎÄ+Êýѧ+ÍâÓï+×ÛºÏ as ×ܳɼ¨ from gkb;

where ¼ȡ·ñ=.T. order by ×ܳɼ¨ desc

*(3)

select ÐÕÃû,±ÏҵѧУ,Ö¾Ô¸ as ¼ȡѧУ from dab,gkb;

where dab.×¼¿¼Ö¤ºÅ=gkb.×¼¿¼Ö¤ºÅ and ¼ȡ·ñ=.T.

3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM913.SCX¡££¨30·Ö£©

°üÀ¨2¸ö±êÇ©£¬2¸öÎı¾¿ò£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУº £¨1£©±íµ¥µÄ±êÌâΪ¿¼Éú×Ô¼ºµÄ×¼¿¼Ö¤ºÅºÍÐÕÃû£»

£¨2£©Á½¸öÎı¾¿òµÄÏÔʾ³õÖµ¾ùΪ0£»

£¨3£©¸Ã±íµ¥ÔËÐк󣬿ÉÒÔÔÚÉÏÃæÎı¾¿òTEXT1ÖÐÊäÈëÒ»¸ö1000ÒÔÄÚµÄÕýÕûÊý£¬¹â±êÒÆ¶¯µ½ÏÂÃæÎı¾¿òTEXT2Öм´¿ÉÄæÐòÊä³ö¸ÃÊý£¬Èçͼ1Ëùʾ£»

£¨4£©Èç¹ûÊäÈëµÄ²»ÊÇ1000ÒÔÄÚµÄÕýÕûÊý£¬¹â±êÒÆ¶¯µ½TEXT2ʱ£¬Ôò¸ø³öÐÅÏ¢¿òÌáÊ¾ÖØÐÂÊäÈ룬Èçͼ2Ëùʾ¡£

ͼ1 ͼ2

²Î¿¼´ð°¸£º

£¨1£©ÉèÖÃ±íµ¥form1µÄcaptionÊôÐÔΪ¿¼Éú×Ô¼ºµÄ×¼¿¼Ö¤ºÅºÍÐÕÃû£» £¨2£©ÉèÖÃÎı¾¿òtext1ºÍtext2µÄvalueÊôÐÔΪ0£» £¨3£©Ôڿؼþtext2µÄgotfocusʼþÀï±àд´úÂ룺

x=thisform.text1.value if x>0 and x<1000 and x=int(x) a1=int(x/100) a2=int(mod(x,100)/10) a3=mod(x,10) y=a3*100+a2*10+a1

thisform.text2.value=y else

messagebox(\ÊäÈë´íÎó£¬ÇëÖØÐÂÊäÈ룡\ thisform.text1.value=0

thisform.text2.value=0 thisform.text1.setfocus endif *09201

1¡¢½¨Á¢Ò»¸öÍø°É¹ÜÀíÊý¾Ý¿â£¬ÎļþÃûΪWBGL.DBC£¬²¢ÊäÈëÊý¾Ý£¨40·Ö£©

¸ÃÊý¾Ý¿âÖÐÓÐÁ½¸öÊý¾Ý±í£º¹¤×÷Õ¾±í£¨stat.DBF£©ºÍÍøÕ¾µÇ¼±í£¨log.DBF£©¡£ÆäÊý¾ÝÐÎʽÈçÏ£º

¹¤×÷Õ¾±í£¨STAT.DBF£© ÍøÕ¾µÇ½±í£¨LOG.DBF£©

×¢Ò⣺¿ªÊ¼Ê±¼äºÍ½áÊøÊ±¼äÒÔXX:YYÐÎʽ±íʾ£¬ÆäÖÐXX±íʾСʱ£¬YY ±íʾ·ÖÖÓ¡£

ÒªÇ󣺽«Êý¾Ý¿â£¨WBGL.DBC£©ÖеÄSTAT.DBFºÍlog.DBFÁ½±íÒÔ¡°IPµØÖ·¡±½¨Á¢Ò»¶Ô¶àÓÀ¾Ã¹ØÏµ¡£ ²Î¿¼´ð°¸£º

Êý¾ÝÀàÐÍ£ºIPµØÖ·C(13)£¬ÇøÓòC(1)

IPµØÖ·C(13)£¬ÈÕÆÚD£¬¿ªÊ¼Ê±¼äC(5)£¬½áÊøÊ±¼äC(5)£¬Êý¾ÝÁ÷Á¿N(12,2) Ë÷ÒýÀàÐÍ£ºSTAT±í ¡ª¡ª IPµØÖ·£¨Ö÷Ë÷Òý£© log±í ¡ª¡ª IPµØÖ·£¨ÆÕͨË÷Òý£©

2¡¢½¨Á¢³ÌÐòÎļþCOM-SQL923.PRG£¬ÒªÇó½«Íê³ÉÏÂÁи÷СÌâÈÎÎñµÄVFPÊý¾Ý±í²Ù×÷ÃüÁî»òVFP-SQLÃüÁîдÔڸóÌÐòÎļþÖС£ÔÚ³ÌÐòÊ×ÐÐÓÃ×¢ÊÍÓï¾ä×¢Ã÷¿¼ÉúÐÕÃûºÍ×¼¿¼Ö¤ºÅ£¬²¢ÇëÓÃ×¢ÊÍÓï¾ä±êעСÌâºÅ¡££¨30·Ö£©

£¨1£©ÍøÕ¾µÇ½µÄÊý¾ÝÁ÷Á¿¼ÆË㹫ʽΪ£ºµÇ½µÄ×ÜÃëÊý/100£¨µ¥Î»KB£©¡£Çë¸ù¾ÝÍøÕ¾µÇ½µÄ¿ªÊ¼¡¢½áÊøÊ±¼ä£¬¼ÆËãÊý¾ÝÁ÷Á¿²¢ÌîÈëlog.DBFÖС£

£¨2£©°´Êý¾ÝÁ÷Á¿´Ó¸ßµ½µÍµÄ˳ÐòÏÔʾIPµØÖ·Îª202.202.0.12¹¤×÷Õ¾µÄµÇ½Ã÷ϸ£¬°üÀ¨IPµØÖ·¡¢ÇøÓò¡¢¿ªÊ¼Ê±¼ä¡¢½áÊøÊ±¼ä¡¢Êý¾ÝÁ÷Á¿¡£

£¨3£©°´IPµØÖ··ÖÀà»ã×ÜÊý¾ÝÁ÷Á¿²¢ÏÔʾ¡£ ²Î¿¼´ð°¸£º

*ÐÕÃû£º¡Á¡Á¡Á ×¼¿¼Ö¤ºÅ£º¡Á¡Á¡Á¡Á¡Á¡Á

*£¨1£©

update log set Êý¾ÝÁ÷Á¿=(val(left(½áÊøÊ±¼ä,2))*3600+val(right(½áÊøÊ±¼ä,2))*60; -val(left(¿ªÊ¼Ê±¼ä,2))*3600-val(right(¿ªÊ¼Ê±¼ä,2))*60)/100 *£¨2£©

select log.ipµØÖ·,ÇøÓò,¿ªÊ¼Ê±¼ä,½áÊøÊ±¼ä,Êý¾ÝÁ÷Á¿ from log,stat; where log.ipµØÖ·=stat.ipµØÖ· and log.ipµØÖ·=\ order by Êý¾ÝÁ÷Á¿ desc

*£¨3£©

select ipµØÖ·,sum(Êý¾ÝÁ÷Á¿) from log group by ipµØÖ·

3¡¢±íµ¥Éè¼Æ¡£°´ÒÔÏÂÒªÇóÉè¼Æ³ÌÐò½çÃæ£¬±íµ¥ÎļþÃûΪ£ºFORM923.SCX¡££¨30·Ö£©

Éè¼ÆÈçͼ1Ëùʾ±íµ¥£¬°üÀ¨3¸öÎı¾¿ò£¬2¸öÃüÁî°´Å¥£¨¸÷¿Ø¼þµÄ´óС¡¢ÑÕÉ«¡¢×ÖÌå¡¢×ֺŵÈÊôÐÔÓÉ¿¼Éú×Ô¶¨£©¡£ÆäÖУ¬ £¨1£©±íµ¥µÄ±êÌ⣺¿¼Éú×Ô¼ºµÄ¿¼ºÅºÍÐÕÃû£» £¨2£©Èý¸öÎı¾¿òµÄ³õֵΪ0£º

£¨3£©¸Ã±íµ¥ÔËÐкó£¬ÔÚÈý¸öÎı¾¿òÄÚÊäÈëÈý¸öÊý£¬µ¥»÷ÅÅÐò°´Å¥£¬ÔòÊäÈëµÄÈý¸öÊý½«°´ÓÉ´óµ½Ð¡µÄ˳ÐòÏÔʾ¡£µ¥»÷½áÊø°´Å¥Í˳ö³ÌÐò¡£Èçͼ2Ëùʾ.

ͼ1 ÊäÈëÈý¸öÊý