main.bas

个人财务计算的好工具

Attribute VB_Name = "Module1"
Option Explicit
Public mw As String
Sub main()
Dim i As Integer, pas(7) As String
Dim zb As Database
Dim re As Recordset
Set zb = OpenDatabase(App.Path + "/zb.mdb")
Set re = zb.OpenRecordset("xb")
If re.RecordCount <> 0 Then 'XB中有记录，说明不是首次使用
        If Dir(App.Path + "/OK.PAS") <> "ok.pas" Then '保存密码的文件不在
           MsgBox "保存密码的文件你藏哪去了?它叫OK.PAS,在同一目录里.", 32, "出错"
           End
        Else
           mw = ""
           Open App.Path + "/ok.pas" For Input As #1
           Input #1, mw
           Close #1
           For i = 1 To Len(mw)
               pas(i - 1) = Mid(mw, i, 1) '将密文分成单个字符
               pas(i - 1) = Chr(Asc(pas(i - 1)) - 50 - i * 2) '单个字符解密
           Next i
           mw = ""
           For i = 1 To 8
               mw = mw + pas(i - 1) '合并得到明文
            Next i
            i = 0
            Do While True
                frmpass.Show 1 '确认密码对话框
                If frmpass.grzbpass <> mw Then '密码不对
                    i = i + 1
                    If i = 3 Then '三次都不对
                      MsgBox "请尊重他人的隐私权！你没有隐私吗？", 48, "我会告你的哦！"
                      End
                    End If
                Else
                Exit Do
                End If
            Loop
        End If
End If
        frmxb.Show
        
        
End Sub