ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж¨ÒåµÄ¹«¹²Óû§ÀàÐÍ¿ÉÒÔ×÷Ϊ²ÎÊý¡£¡£¡£¡£¡£¡£ ¡±£¬Èç¹ûÎÒÐèÒªÔÚDownloadAdditionalSiteº¯ÊýÖÐʹÓÃsiteconfigÀàÐ͵ÄÊý¾Ý£¬Ó¦¸ÃÈçºÎ½â¾öÄØ£¿¶øÇÒÕâ¸öº¯ÊýÓÖÓ¦¸ÃÊÇpublicµÄÀàÐ͵쬲»ÄÜÊÇprivateµÄ¡£
½«siteconfig¶¨ÒåÔÚ¹«¹²Ä£¿éÖÐ
Ã²ËÆÐ´µ½¹«¹²Ä£¿é²»ÐеÄ
ding
ÔÚFARMÖУº
Private Function P_SaveBook(ByVal pOldStatus As eTransStatus, ByVal pNewStatus As eTransStatus, ByVal pTableName As String) As Boolean
ÔÚCLASS MODULESÖУº
Public Enum eTransStatus
trNone = 0
trPaid = 2
trHold = 3
trPreBalance = 4
trCancel = 5
trJoin = 6
trBook = 7
' trNoSaleOpen = 7
End Enum
¶¼·Åµ½±ê׼ģ¿é£¬¿´ÄÜ·ñÖ´ÐÐ
°ï¶¥
ÒýÓà ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж¨ÒåµÄ¹«¹²Óû§ÀàÐÍ¿ÉÒÔ×÷Ϊ²ÎÊý¡£¡£¡£¡£¡£¡£ ¡±£¬Èç¹ûÎÒÐèÒªÔÚDownloadAdditionalSiteº¯ÊýÖÐʹÓÃsiteconfigÀàÐ͵ÄÊý¾Ý£¬Ó¦¸ÃÈçºÎ½â¾öÄØ£¿¶øÇÒÕâ¸öº¯ÊýÓÖÓ¦¸ÃÊÇpublicµÄÀàÐ͵쬲»ÄÜÊÇprivateµÄ¡£ÔÚÒ»¸ö±ê׼ģ¿éÖж¨Ò壺
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿ c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net. VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£ ±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡ ²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£ Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Private Sub Form_Load() recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý If recs > 0 Then 'ÒÑÓп¼Éú Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼ num = V ......
ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬ Option Explicit Private Type De '¿é¶¨Òå FSize(1 To 1024) As Byte End Type Private Sub Command1_Click() Dim F As De Dim N As Integer Open "C:\WINDOWS\N ......