module1.bas

来自「本软件涉及 物料管理 库存管理 生产计划 薪酬管理 等 界面简洁 操作方便」· BAS 代码 · 共 64 行

Attribute VB_Name = "Module1"
Public gintMode As Integer
Public flagEdit As Boolean
Public UserName As String
Public loginOK As Boolean
Public ErrCount As Integer
Public txtmsg As String
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    conn.Open ConnString
    Dim sTokens() As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(SQL)
    If InStr("insert,update,delete", UCase$(sTokens(0))) Then
        conn.Execute SQL
        MsgString = sTokens(0) & "query successful!"
    Else
        Set rs = New ADODB.Recordset
        rs.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rs
        MsgString = "查询到" & rs.RecordCount & "条记录"
    End If
ExecuteSQL_Exit:
    Set rs = Nothing
    Set conn = Nothing
    Exit Function
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End Function
Public Function ConnString() As String
    Dim DbName As String
    DbName = "/database.mdb"
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & DbName
End Function
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub
Private Sub mdiform_Load()
    UserName = ""
    loginOK = False
    If UserName = "" Then
        mainform.StatusBar1.Panels(2).Text = "用户未登陆"
    Else
        mainform.StatusBar1.Panels(2).Text = UserName
    End If
    If loginOK = False Then
        mainform.tcdl.Enabled = False
        mainform.xgma.Enabled = False
        mainform.tjyh.Enabled = False
        mainform.cmdpk.Enabled = False
        mainform.cmdrk.Enabled = False
        mainform.cmdck.Enabled = False
        mainform.cmdcx.Enabled = False
        mainform.cmdqt.Enabled = False
    End If
End Sub