(ÍêÕû°æ)RFID¼¼ÊõµÄÓ¦ÓÃÓëÑо¿±ÏÒµÂÛÎÄ ÏÂÔØ±¾ÎÄ

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