请教高手这一短VB程序是什么意思？

来源：百度知道 编辑：UC知道 时间：2024/06/22 15:36:55
Sub Main()
'检测是否已运行
If App.PrevInstance Then
MsgBox App.Title + " 已运行!"
End
End If
'连接数据库
pubstr1 = 12
SqlStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\data.mdb;Persist Security Info=False"
DBCnn.Open SqlStr
iniPath$ = App.Path + "\setting.ini"
tmpstr(1) = GetFromINI("Type", "1", iniPath)
tmpstr(2) = GetFromINI("Type", "2", iniPath)
tmpstr(3) = GetFromINI("Type", "3", iniPath)
tmpstr(4) = GetFromINI("Type", "4", iniPath)
tmpstr(5) = GetFromINI("Type", "5", iniPath)
tmpstr(6) = GetFromINI("Type", "6", iniPath)
tmpstr(7) = GetFromINI("Type", "7", iniPath)
tmpstr(8) = GetFromINI("T

Sub Main()
'检测是否已运行
If App.PrevInstance Then
MsgBox App.Title + " 已运行!" ''当App.PrevInstance=True时，说明当前已运行一个实例（调试状态下无效），此时用MsgBox提示"已运行!"
End
End If
'''''''''''''''''''''''''''''''''上面一段语句是检测实例是否已运行
'连接数据库
pubstr1 = 12 '给pubstr1赋值12
SqlStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\data.mdb;Persist Security Info=False" ''''接字符串:SqlStr,其实SqlStr就是识别数据库的
DBCnn.Open SqlStr '''用连接字符串连接好数据库
iniPath$ = App.Path + "\setting.ini" ''设定文件路径:iniPath
'''''''''''''''''''以下是核心,意思是根据路径获取文件setting.ini里面的内容并分别保存在tmpstr,tmpstrx,Headlinestr(根据以下的内容,它应该是存储标题的)这些变量里面''''''