module1.bas

用VB开发的车辆数据库管理系统

Attribute VB_Name = "Module1"
'*************************************************************************
'**模 块 名：Module1
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：mraj
'**日    期：2007-10-31
'**描    述：
'*************************************************************************
Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public op As String
Public Function cnn() As ADODB.Connection
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
End Function
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
Public Sub main1()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb" & ";Persist Security Info=False"
End Sub