mdlmain.bas

来自「< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理」· BAS 代码 · 共 41 行

Attribute VB_Name = "mdlMain"
Option Explicit

Public Conn As ADODB.Connection
Public UserName As String
Public Base As String

Private Sub Main()
Dim Rst As ADODB.Recordset
Dim SQLstring As String
Dim SysBase As String
Dim UID As String
Dim PWD As String

If App.PrevInstance = True Then MsgBox "请不要运行多个程序实例！", 64: Exit Sub
If Dir(App.Path & "\connaction") = "" Then
  MsgBox "数据库连接文件不存在。请重新进行系统初始化！", 64
  Exit Sub
End If

Open App.Path & "\connaction" For Input Shared As #1
  Input #1, SysBase
Close #1

Base = Mid(SysBase, 1, InStr(SysBase, "/") - 1)
SysBase = Mid(SysBase, InStr(SysBase, "/") + 1)
UID = Mid(SysBase, 1, InStr(SysBase, "/") - 1)
PWD = Mid(SysBase, InStr(SysBase, "/") + 1)

SQLstring = "Provider=SQLOLEDB.1;Password=" & PWD & ";Persist Security Info=True;" & _
      "User ID=" & UID & ";Initial Catalog=pos;Data Source=" & Base
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.ConnectionString = SQLstring
Conn.Open

frmLogonList.Show

End Sub