form6.frm

个人理财的VB代码

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "ACTSKN43.OCX"
Begin VB.Form Form6 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登陆"
   ClientHeight    =   1890
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3225
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   3225
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "修改密码"
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "登陆"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   1200
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   1335
      Left            =   240
      TabIndex        =   2
      Top             =   360
      Width           =   2775
      Begin VB.TextBox Text1 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Index           =   0
         Left            =   600
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   240
         Width           =   1695
      End
      Begin VB.TextBox Text1 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Index           =   1
         Left            =   600
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   720
         Width           =   1695
      End
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   120
      OleObjectBlob   =   "Form6.frx":08CA
      Top             =   120
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
      Height          =   375
      Left            =   240
      OleObjectBlob   =   "Form6.frx":0AFE
      TabIndex        =   5
      Top             =   120
      Width           =   2415
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fosh As Boolean
Private Sub Form_Load()

'-----------------------------------------------------------------------------
'为界面添加皮肤
Skin1.LoadSkin App.Path & "\chizh.skn"
Skin1.ApplySkin Me.hwnd
'-----------------------------------------------------------------------------
fosh = False
Text1(1).Visible = False
 '--------------------------------------------
 If Len(App.Path) <> 3 Then
    Shell "Regsvr32.exe " + App.Path + "\actskn43.ocx /s"
    Shell "Regsvr32.exe " + App.Path + "\actskn43.ocx /s"
    Else
    Shell "Regsvr32.exe " + App.Path + "actskn43.ocx /s"
    Shell "Regsvr32.exe " + App.Path + "actskn43.ocx /s"
    End If
End Sub

Private Sub Command1_Click()
  Dim inputdata As String
  Dim i As Integer
  Dim mschar As String
  If Dir("c:\windows\winpath.dat") <> "" Then
   If Command1.Caption <> "确定" Then
        mschar = ""
        Open "c:\windows\winpath.dat" For Input As #1
        Line Input #1, inputdata
        Close #1
        i = Len(Text1(0).Text)
        For j = 1 To i
          mschar = mschar + Chr(Asc(Mid$(Text1(0).Text, j, 1)) - i)
        Next j
        If mschar <> inputdata Then
           MsgBox "密码不正确，你无登录的权限", vbRetryCancel + vbInformation, "输入密码"
           Text1(0).Text = ""
           Text1(0).SetFocus
           mschar = ""
        Else
           mschar = ""
           Form1.Show
           fosh = True
           Unload Me
        End If
   Else
        mschar = ""
        If Text1(0).Text = Text1(1).Text And Text1(0) <> "" Then
           i = Len(Text1(0).Text)
           For j = 1 To i
             mschar = mschar + Chr(Asc(Mid$(Text1(0).Text, j, 1)) - i)
           Next j
           Open "c:\windows\winpath.dat" For Output As #1
           Print #1, mschar
           Close #1
           MsgBox "密码修改成功，请记住新密码！", vbOKOnly, "修改密码"
           Form1.Show
           fosh = True
           Unload Me
        Else
           MsgBox "你两次输入的密码不同，请重新输入", vbOKCancel, "修改密码"
           Text1(0).Text = ""
           Text1(1).Text = ""
           Text1(0).SetFocus
        End If
    End If
  ElseIf Dir("c:\windows\winpath.dat") = "" And Command1.Caption = "确定" Then
        mschar = ""
        If Text1(0).Text = Text1(1).Text And Text1(0).Text <> "" Then
           i = Len(Text1(0).Text)
           For j = 1 To i
             mschar = mschar + Chr(Asc(Mid$(Text1(0).Text, j, 1)) - i)
           Next j
           Open "c:\windows\winpath.dat" For Output As #1
           Print #1, mschar
           Close #1
           MsgBox "密码修改成功，请记住新密码！", vbOKOnly, "修改密码"
           Form1.Show
           fosh = True
           Unload Me
        Else
           MsgBox "你两次输入的密码不同，请重新输入", vbOKCancel, "修改密码"
           Text1(0).Text = ""
           Text1(1).Text = ""
           Text1(0).SetFocus
        End If
  End If
End Sub
Private Sub Command2_Click()
  Dim inputdata As String
  Dim i As Integer
  Dim mschar As String
  If Dir("c:\windows\winpath.dat") <> "" Then
    Open "c:\windows\winpath.dat" For Input As #1
    Line Input #1, inputdata
    Close #1
    i = Len(Text1(0).Text)
    For j = 1 To i
      mschar = mschar + Chr(Asc(Mid$(Text1(0).Text, j, 1)) - i)
    Next j
    If mschar <> inputdata Then
       MsgBox "密码不正确，你无修改的权限", vbRetryCancel + vbInformation, "输入密码"
       Text1(0).Text = ""
       Text1(0).SetFocus
       mschar = ""
    Else
       Text1(0).Text = ""
       mschar = ""
       Form6.Height = 3055
       Command1.Top = 1800
       Command2.Top = 1800
       Text1(1).Visible = True
       Command1.Caption = "确定"
    End If
  Else
       Text1(0).Text = ""
       mschar = ""
       Form6.Height = 3055
       Command1.Top = 1800
       Command2.Top = 1800
       Text1(1).Visible = True
       Command1.Caption = "确定"
  End If
End Sub

    
Private Sub Form_Unload(Cancel As Integer)
    If fosh = False Then
       End
    End If
End Sub