module1.bas

CELL-ID技术是目前最简单的定位技术

Attribute VB_Name = "Module1"
Option Explicit
Public ClassIni As New CIniFile

Public PublicStr As String
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Dim str As String

Public systemuser As String  '供系统主窗口下栏SBar1调用


Public data_user As String
Public data_pass As String
Public data_ip As String
Public data_name As String
Public data_port As String

Public jingdu As String
Public weidu As String


Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




Public Sub Main()
'-----------读取database.ini文件-----------

ClassIni.IniFileName = App.Path + "\Config\database.ini"
data_user = ClassIni.ReadString("Database", "user", 9999)
data_pass = ClassIni.ReadString("Database", "password", 9999)
data_ip = ClassIni.ReadString("Database", "databaseip", 9999)
data_port = ClassIni.ReadString("Database", "databaseport", 5)
data_name = ClassIni.ReadString("Database", "databasename", 9999)

'------------------------------------------

   '判断是否首次使用
   If GetSetting(appname:="手机定位系统", Section:="user", key:="time") = "" Then
     
     '进行数据库设置
      MsgBox "尊敬的用户：您好！这是您第一次使用本软件，请先设置数据库！"
      SaveSetting appname:="手机定位系统", Section:="user", key:="time", setting:=Date  '将软件第一次使用的日期存储到注册表中
      Dim RetVal
      RetVal = Shell(App.Path & "\初始数据库设置.exe", 1)
    Else
      '附加数据库
      On Error Resume Next
      con.ConnectionString = "Provider=SQLOLEDB.1;Data Source=" & data_ip & "," & data_port & ";Network Library=DBMSSOCN;Persist Security Info=False;User ID=" & data_user & ";Password=" & data_pass & ""
      con.Open     '打开数据库连接
      Set rs = New ADODB.Recordset
      '开始附加数据库
      str = "EXEC sp_attach_db @dbname = N'cellid', @filename1 = N'" + App.Path + "\DataSource\cellid_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\cellid_Log.LDF" + "'"
      '  rs.Open str, con, 1, adLockOptimistic
      Set rs = con.Execute(str)
      con.Close  '关闭数据库连接
      '附加数据库完毕
      
      
      
      
    
      PublicStr = "Provider=SQLOLEDB.1;Data Source=" & data_ip & "," & data_port & ";Network Library=DBMSSOCN;Persist Security Info=False;User ID=" & data_user & ";Password=" & data_pass & ";Initial Catalog=" & data_name & ""
      'PublicStr = "Provider=SQLOLEDB.1;Data Source=127.0.0.1;Network Library=DBMSSOCN;Persist Security Info=False;User ID=sa;Password=sdlzlm;Initial Catalog=cellid"

      启动窗口.Show
      
   End If

End Sub



Public Function cnn() As ADODB.Connection     '共享数据库连接
'-----------读取database.ini文件-----------

ClassIni.IniFileName = App.Path + "\Config\database.ini"
data_user = ClassIni.ReadString("Database", "user", 9999)
data_pass = ClassIni.ReadString("Database", "password", 9999)
data_ip = ClassIni.ReadString("Database", "databaseip", 9999)
data_port = ClassIni.ReadString("Database", "databaseport", 5)
data_name = ClassIni.ReadString("Database", "databasename", 9999)

'------------------------------------------
  Set cnn = New ADODB.Connection
  'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sdlzlm;Initial Catalog=cellid"
  cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=" & data_ip & "," & data_port & ";Network Library=DBMSSOCN;User ID=" & data_user & ";Password=" & data_pass & ";Initial Catalog=" & data_name & ""
End Function