Attribute VB_Name = "Modado"
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發(fā)布日期：2008/05/11
'描    述：天宏鋼構(gòu)倉(cāng)庫(kù)管理系統(tǒng) Ver 2.96
'網(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 adoCon As New ADODB.Connection      '定義一個(gè)數(shù)據(jù)連接
Public adoRs As New ADODB.Recordset        '定義一個(gè)數(shù)據(jù)集對(duì)象
Public adoRs1 As New ADODB.Recordset        '定義一個(gè)數(shù)據(jù)集對(duì)象

Public Name1 As String
Public StrNums As Integer
Public Temps    '定義一個(gè)變體類(lèi)型的公共變量
'聲明一個(gè)API函數(shù)，用于實(shí)現(xiàn)使窗體置前還是取消窗體置前的功能
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public rtn
Public TWidth As Long
Public THeigth As Long
Public Sub WHScreen()     '獲得屏幕分辨率
   TWidth = Screen.width \ Screen.TwipsPerPixelX
   THeigth = Screen.Height \ Screen.TwipsPerPixelY
End Sub