mdl1.bas

数据库销售系统

Attribute VB_Name = "mdl1"
Option Explicit
Public connStr As String '连接字符串
Public conn As New ADODB.Connection
Public all As Boolean   '查询现存商品中使用的
Public allsell As Boolean '查询已售商品时使用
Public allem As Boolean  '查询员工业绩时使用
Public strgname As String  '查询现存商品中使用的商品名
Public strtype As String  '查询现存商品中使用的型号名
'使窗体居中
Public Sub MakeCenter(frm As Form)
    Dim X0 As Long
    Dim Y0 As Long
    '让窗体居中
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - frm.Width) / 2
    Y0 = (Y0 - frm.Height) / 2
    frm.Move X0, Y0
End Sub
Public Function RunProcedure(ByVal strSql As String, strMsg As String) As ADODB.Recordset
'执行sql语句，并返回记录集对象
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rs As ADODB.Recordset


End Function