module1.bas

一套鞋厂的仓库管理系统

Attribute VB_Name = "Module1"
Option Explicit
Private MainDbConnect As New ADODB.Connection
Public Const linkstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=kfb;Data Source=HARSON-IMC"
Public strsum As String
Public pubidname As String
Global Const LISTVIEW_MODE2 = "列表"
Global Const LISTVIEW_MODE3 = "详细资料"
Public pubid As String
Public viewflag As String

Public Function GetConnect() As ADODB.Connection
    On Error GoTo Err_GetConnect
    If MainDbConnect.State = 0 Then
        MainDbConnect.Open linkstring
    Else
    End If
    Set GetConnect = MainDbConnect
Exit_GetConnect:
    Exit Function
Err_GetConnect:
    MsgBox "严重错误:" & Chr(13) & Chr(13) & "    数据库不能连接1!"
    End
End Function

Private Sub Main()
Dim start
   start = Timer
   frmfresh.Show
   Do While Timer < start + 1
      DoEvents
   Loop
   frmLogin.Show
   frmfresh.Hide
   
End Sub