module1.bas

来自「一款非常不错的售楼管理系统」· BAS 代码 · 共 15 行

BAS
15
字号
Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection
Public Const keyenter = 13
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 qx As String


⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?