3.2Êг¡Ó¦ÓÃÇ÷ÊÆ
3.2.1Êг¡²úÖµ¸ü¸ß
ÓÉÓÚRFID¶ÀÌØµÄÌØÐÔ¼°Óŵ㣬Ôڶ̶̵ÄÊ®¶àÄêÖУ¬Æä·¢Õ¹Ò쳣ѸÃÍ£¬ÒѾ³ÉΪÊÀ½ç¾¼ÃÖÐÖØÒªµÄ·¢Õ¹ÁìÓòÖ®Ò»¡£¾ÝÓйØÈ¨ÍþÊý¾Ýͳ¼ÆÏÔʾ£¬ÉäÆµÊ¶±ð²úÆ·ÔÚÈ«ÊÀ½çµÄÏúÁ¿1993ÄêΪ990ÍòÌ×£¬1994Äê¾ÍÃÍÔöµ½2030ÍòÌ×£¬1997ÄêÓйزúÆ·µÄÏúÁ¿Îª9810ÍòÌ×£¬¶øÔÚÈ«ÊÀ½ç·¶Î§ÄÚÉ䯵²úÆ·µÄÏúÊ۶1989ÄêΪ0.81ÒÚÃÀÔª£¬1992ÄêΪ1.41ÒÚÃÀÔª¡¢1997ÄêΪ4.33ÒÚÃÀÔª£¬1999ÄêÔòΪ6.85ÒÚÃÀÔª£¬ÆäÖÐÔÚ1992¡«1999Äê¼äÉäÆµÊ¶±ð²úÆ·ÔÚÈ«ÊÀ½çÏúÊÛ¶îµÄÄêÆ½¾ùÔö³¤ÂÊ´ï25.3%¡£2000ÄêÈ«ÇòRFIDÏúÊÛ¶îÒÑ´ï9ÒÚÃÀÔª£¬Ô¤¼Æ2005Ä꽫´ïµ½26.5ÒÚÃÀÔª£¬¶øµ½2010ÄêǰRFIDÊг¡½«Ôö³¤255%£¬È«ÇòÊг¡½«´ï3000ÒÚÃÀÔª¡£Óɴ˿ɼû£¬ÉäÆµÊ¶±ð¼¼Êõ¾ßÓйãÀ«µÄÊг¡Ç°¾°¡£
µÚËÄÕ չÍûÓë×ܽá
RFIDÊÇÒ»ÏîÅ·¢Õ¹µÄ¼¼Êõ£¬ÉäÆµÊ¶±ð¼¼ÊõÔÚδÀ´µÄ·¢Õ¹ÖУ¬½«¸ü¶àµÄ½áºÏÆäËû¸ßм¼Êõ£¬ÈçGPS¡¢ÉúÎïʶ±ðµÈ¼¼Êõ£¬Óɵ¥Ò»Ê¶±ðÏò¶à¹¦ÄÜʶ±ðµÄ·½Ïò·¢Õ¹¡£Í¬Ê±£¬»¹½«½áºÏÏÖ´úͨÐż°¼ÆËã»ú¼¼Êõ£¬ÊµÏÖ¿çµØÇø¡¢¿çÐÐÒµÓ¦Óã¬Ó¦Óõķ¶Î§Ò²½«¸ü¼Ó¹ãÀ«£¬ÏàÐÅRFID¼¼Êõ½«³ÉΪ¶à¸öÐÐÒµµÄ±Ø±¸¼¼Êõ£¬¸Ä½øÎÒÃǵÄÉú²úÉú»î·½Ê½¡£ÒÔRFID¼¼ÊõΪºËÐĸĽøµÄÏà¹Ø²úÒµ£¬½«¼«´óÌá¸ß¸÷ÆóÒµ¡¢ÏµÍ³µÄ¹¤×÷ЧÂʺ͹ÜÀíˮƽ£¬´ø¶¯Éç»á¾¼ÃµÄ·¢Õ¹¡£
¸½Â¼ ³ÌÐò´úÂë ´°Ìå´úÂë
Private Sub Form_Load()
Dim a As Date, b As Date, c As Date, d As Date a = #4152013 8:15:30 PM# b = #4152013 10:43:30 PM# c = b - a Text7.Text = c d = \If c > d Then Check2.Value = 0 Else
Check2.Value = 1 End If End Sub
ÃüÁî°´Å¥¡°ÉÏÒ»Á¾¡±
Private Sub Command1_Click()
Dim a As Date, b As Date, c As Date, d As Date a = #4152013 8:15:30 PM# b = #4152013 10:30:30 PM# c = b - a Text7.Text = c d = \If c > d Then
Check2.Value = 0 Else
Check2.Value = 1 End If
Command2.Enabled = True If Adodc1.Recordset.BOF Then Command1.Enabled = False Command2.SetFocus Else
Adodc1.Recordset.MovePrevious End If End Sub
ÃüÁî°´Å¥¡°ÏÂÒ»Á¾¡±
Private Sub Command2_Click()
Dim a As Date, b As Date, c As Date, d As Date a = #4152013 9:20:00 AM# b = #4152013 12:13:30 PM# c = b - a Text7.Text = c d = \If c > d Then Check2.Value = 0 Else
Check2.Value = 1 End If