module1.bas

来自「这是一个实用的家庭收支管理系统源代码」· BAS 代码 · 共 51 行

Attribute VB_Name = "Module1"
Option Explicit

'attribute VB_Name ="Module1"

Public userlever As String    '保存用户级别
Public recs As Integer       '保存记录集中记录个数
Public yr As Double        '保存余额
'Dim conn As ADODB.Connection
'Dim rst As ADODB.Recordset

Public Function exesql(ByVal sql As String) As ADODB.Recordset
  sql = Trim$(sql)
  Dim conn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Set conn = New ADODB.Connection
  Set rst = New ADODB.Recordset
  conn.ConnectionString = "DSN=FAM;UID=admin;PWD=;"
  conn.Open
  Set rst.ActiveConnection = conn
  rst.LockType = adLockOptimistic
  rst.CursorType = adOpenKeyset
  rst.Open sql
  Set exesql = rst
  Set rst = Nothing
  Set conn = Nothing
  
End Function

Public Sub delData(ByVal tn As String)
  '删除指定表中所有记录，对于oper表添加一个系统用户
  Dim sql As String
  sql = "delete " & Trim$(tn)
  Set conn = New ADODB.Connection
  conn.ConnectionString = "DSN=FAM;UID=admin;PWD=;"
  conn.Open
  conn.Execute sql
  If Trim(tn) = "oper" Then
     sql = "insert oper values('1234','1234','系统管理员')"
     conn.Execute sql
  End If
  conn.Close
  
End Sub

Public Sub endData(keyasc As Integer)
  If keyasc = 13 Then
    SendKeys "{TAB}"      '将回车键转换成TabQQ键
   End If
End Sub