module1.bas

售楼管理系统,含系统源程序和数据库.功能齐全,界面美观,操作方便.

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public Const keyenter = 13              'enter键的ASCII码
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
           ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
           ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
           ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public userID As String
Public username As String    '记录用户类型,以便进行权限设置
Public connectionstring As String