modado.bas

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

Attribute VB_Name = "Modado"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Public adoCon As New ADODB.Connection      '定义一个数据连接
Public adoRs As New ADODB.Recordset        '定义一个数据集对象
Public adoRs1 As New ADODB.Recordset        '定义一个数据集对象

Public Name1 As String
Public StrNums As Integer
Public Temps    '定义一个变体类型的公共变量
'声明一个API函数，用于实现使窗体置前还是取消窗体置前的功能
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