一个VB的、与数据库连接子过程代码，请问这是什么意思？有修改注册表吗？

来源：百度知道 编辑：UC知道 时间：2024/05/26 16:10:00
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 30
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\cg.ini")
If ret <> 0 Then
ret1 = GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\cg.ini")
Label13.Caption = buff
If Label13.Caption = "NO" Then
ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\cg.ini")
Label13.Caption = buff
MsgBox Label13.Caption
ElseIf Label13.Caption <= Date Then
ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\cg.ini")
Label13.Caption = buff
MsgBox Label13.Caption
success1 = WritePrivateProfileString("Bakxj", "qs&qu

没有 修改注册表
GetPrivateProfileString 这是从c:\cg.ini文件里读取相应的值
GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\cg.ini")

[OKxj]
yesno'读取这个值

GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\cg.ini")

[Bakxj]
qs'读取这个值

以下的类推

没有修改注册表
GetPrivateProfileString 这是从c:\cg.ini文件里读取相应的值
GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\cg.ini")