Attribute VB_Name = "ModGeneral"
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發(fā)布日期：2007/09/25
'描    述：江蘇大學(xué)網(wǎng)絡(luò)信息中心網(wǎng)絡(luò)管理系統(tǒng) - v1.0 Beta
'網(wǎng)    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網(wǎng)    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************

Public Function Testtxt(txt As String) As Boolean
   If Trim(txt) = "" Then
    Testtxt = False
   Else
    Testtxt = True
   End If
   
End Function

Public Sub EnterTAB(KeyAscii As Integer)
 If KeyAscii = 13 Then
  SendKeys "{TAB}"
 End If
End Sub

Public Sub EnterEnter(KeyAscii As Integer)
 If KeyAscii = 13 Then
  SendKeys "{TAB}"
  SendKeys "{ENTER}"
 End If
End Sub

Public Function FileExists(FileName As String) As Integer
Dim i As Integer
On Error Resume Next
i = Len(Dir$(FileName))
If Err Or i = 0 Then FileExists = False Else FileExists = True
End Function


Function Quote(strValue As Variant) As String
Quote = Chr(39) & Trim(strValue) & Chr(39)
End Function