module1.bas

来自「这是一个VB+ACCESS开发的学生信息管理系统,我是用了一个多月才弄出来的嘎,」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Option Explicit
Public gstruser As String
Public gblnPurview As Boolean
Public pubCnn As New ADODB.Connection

Public Sub CreateConnection()
   pubCnn.CursorLocation = adUseClient
   pubCnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\student_data\student_massage.mdb"
End Sub
 Public Sub FocusBack(txtX As TextBox)
 txtX.SelStart = 0
 txtX.SelLength = Len(txtX.Text)
 txtX.SetFocus
 End Sub