form3.frm

本软件主要的使用对象是家庭与个人。它提供了比较完善的收支记录、查询修改、统计报表等功能。您可以自定义各种系统参数：如自定义用户名、密码、系统自动备份时间、资金不足警示、各种收支类型等。您还可以手动备份

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Form3 
   BorderStyle     =   0  'None
   Caption         =   "Form3"
   ClientHeight    =   1875
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3750
   LinkTopic       =   "Form3"
   ScaleHeight     =   1875
   ScaleWidth      =   3750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   345
      Left            =   2160
      TabIndex        =   6
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确认"
      Default         =   -1  'True
      Height          =   375
      Left            =   960
      TabIndex        =   5
      Top             =   1320
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Caption         =   "用户登陆"
      ForeColor       =   &H000000FF&
      Height          =   1095
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   3495
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         DataSource      =   "Adodc1"
         Enabled         =   0   'False
         Height          =   270
         Left            =   1440
         MaxLength       =   15
         TabIndex        =   2
         Top             =   240
         Width           =   1335
      End
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1440
         MaxLength       =   15
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   675
         Width           =   1335
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   2880
         Picture         =   "Form3.frx":0000
         Top             =   600
         Width           =   480
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "请输入用户ID："
         Height          =   180
         Left            =   120
         TabIndex        =   4
         Top             =   285
         Width           =   1260
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "输入用户密码："
         Height          =   180
         Left            =   120
         TabIndex        =   3
         Top             =   720
         Width           =   1260
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   3600
      Top             =   3600
      Visible         =   0   'False
      Width           =   1200
      _ExtentX        =   2117
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private 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
Dim coun, cou As Integer '错误次数


Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
'检测是否有记录
If Not Adodc1.Recordset.BOF Then

'检测密码
If Text2.Text <> Adodc1.Recordset.Fields(2) Then
coun = coun + 1
   If coun = 3 Then
      MsgBox "您巳经连续三次密码输入错误，软件将退出！"
      End
   End If
MsgBox "密码错误！"
Text2.Text = ""
Text2.SetFocus
Else
Load Form7
Unload Form7
If bjje < Adodc1.Recordset.Fields(9) Then MsgBox "请注意：您的总金额巳不足" & Adodc1.Recordset.Fields(9) & "元！"
Load MDIForm1
MDIForm1.Show
Unload Me
End If

Else

'第一次自动进入系统设置
MsgBox "您是第一次使用，必须进行系统设置后才能正常使用！"
'操作菜单不可用
MDIForm1.szjl.Enabled = False
MDIForm1.baobiao.Enabled = False
MDIForm1.sjcl.Enabled = False
MDIForm1.Toolbar1.Enabled = False

Load Form1
Form1.Show

MsgBox "请您在使用之前一定先看看帮助文件！"
If Dir(App.path & "\help.htm") = "" Then
Dim okc
okc = MsgBox("帮助文件没有找到！是否上网查找？", vbYesNo, "文件没有找到！")
If okc = vbYes Then ShellExecute hWnd, "open", "http://gogzy.126.com", vbNullString, vbNullString, conSwNormal
Else
ShellExecute hWnd, "open", App.path + "\help.htm", vbNullString, vbNullString, conSwNormal
End If

Unload Me
End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = ado
Adodc1.RecordSource = "csh"
Adodc1.Refresh
Text1.DataField = "userid"
End Sub