mdlmain.bas

一套鞋厂的销售管理系统

Attribute VB_Name = "mdlMain"
Option Explicit

Public Function GetConnect() As ADODB.Connection
On Error GoTo err_fun
    If cn.State = 0 Then
        cn.CursorLocation = adUseClient
        cn.CommandTimeout = 300
        cn.Open "PROVIDER=MSDASQL;driver={SQL Server};server=Turing-tongmd;uid=sa;pwd=;database=sell;"
    End If
    Set GetConnect = cn
exit_fun:
    Exit Function
err_fun:
    MsgBox "数据库不能连接？" & Chr(13) & Err.Number & ": " & Err.Description
    End
End Function


Function ConnectionString()
    ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=Turing-tongmd;uid=sa;pwd=;database=sell;"
End Function
Public Sub Main()
Dim start
   start = Timer
  pub_Splash.Show
  DoEvents
   'Do While Timer < start + 3
   '   DoEvents
   'Loop
   GetConnect
   frmLogin.Show 1
   'Unload frmfresh
    'Form1.Show
End Sub