module1.bas

SQL Server 2000应用系统开发教案例 学习SQL Server 2000 的好东西！~

Attribute VB_Name = "Module1"
Public userlevel As String  '保存用户级别
Public flag As Integer      '用作记录操作标记
Public Num As Integer       '用于保存报名号
Public condstr As String    '条件字符串
Public recs As Integer      '保存记录集中记录个数
Public sel As Boolean

Sub main()
  pass.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
   sql = Trim$(sql)
   Set conn = New ADODB.Connection
   Set rst = New ADODB.Recordset
   conn.ConnectionString = "DSN=KS;UID=sa;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=KS;UID=sa;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 endata(Keyasc As Integer)
  If Keyasc = 13 Then
     SendKeys "{TAB}"  '将回车键转换成Tab键
  End If
End Sub