module1.bas

来自「这个一个用VB写的车辆管理系统论文」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public Sub main()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
    frmLogin.Show
    frmLogin.Text1.SetFocus
End Sub

Function valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
  If Editable = False Then
     valiDatelist = UCase(validateString) & Chr(8)
  Else
     valiDatelist = UCase(validateString)
  End If
  If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
     keyOut = keyIn
  Else
     keyOut = 0
  Beep
  End If
  valiText = keyOut
End Function