khzlgl.bas

从网上搜集的快递管理软件VB源码,还未仔细研究.

Attribute VB_Name = "mdl_cpkcgl"
'用于设置窗体移动
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2




'用于数据库连接

Public conn As ADODB.Connection
Public rst As ADODB.Recordset

Public Function ConnectString() As String
'returns a database connectstring
'ConnectString = "Dsn=ssss;uid=soso;pwd=123456"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data\快递管理.mdb;Persist Security Info=False"
End Function

Public Function ExecuteSQL(ByVal SQL As String, ByVal MsgString As String) As ADODB.Recordset
Dim Keyword() As String
On Error GoTo ExecuteSQL_ERR
Keyword = Split(SQL)    '将SQL语句分割
Set conn = New ADODB.Connection
conn.Open ConnectString    '连接数据库
'数据库操作
If InStr("INSERT,DELETE,UPDATE", UCase(Keyword(0))) Then
    conn.Execute (SQL)
    MsgString = Keyword(0) & "操作成功"
Else  '返回记录集
    Set rst = New ADODB.Recordset
    rst.Open Trim(SQL), conn, adOpenKeyset, adLockOptimistic
    Set ExecuteSQL = rst
    MsgString = "查询到" & rst.RecordCount & "条记录"
End If

'退出数据库操作

ExecuteSQL_Exit:
Set rst = Nothing
Set conn = Nothing
Exit Function

'发生错误返回
ExecuteSQL_ERR:
    MsgString = "查询错误" & Err.Description
    Resume ExecuteSQL_Exit
End Function