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 dbEstate As Database
Public sBuffer As String
Public GongH As String
Public dbstu As Database
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long