frm_live.frm

家庭理财

         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   1200
         TabIndex        =   27
         Top             =   600
         Width           =   975
      End
      Begin VB.Frame Frame1 
         Height          =   3015
         Left            =   2160
         TabIndex        =   5
         Top             =   2280
         Width           =   4095
         Begin VB.CommandButton Command5 
            Caption         =   "确定"
            Height          =   375
            Left            =   2880
            TabIndex        =   18
            Top             =   2520
            Width           =   735
         End
         Begin VB.TextBox txt_man 
            Height          =   300
            Left            =   1200
            TabIndex        =   11
            Top             =   2520
            Width           =   1335
         End
         Begin VB.TextBox txt_money 
            Height          =   300
            Left            =   1200
            TabIndex        =   10
            Top             =   2040
            Width           =   1335
         End
         Begin VB.TextBox txt_size 
            Height          =   300
            Left            =   1200
            TabIndex        =   9
            Top             =   1560
            Width           =   2655
         End
         Begin VB.TextBox txt_address 
            Height          =   300
            Left            =   1200
            TabIndex        =   8
            Top             =   1080
            Width           =   2655
         End
         Begin VB.TextBox txt_name 
            Height          =   270
            Left            =   1200
            TabIndex        =   7
            Top             =   720
            Width           =   2655
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   300
            Left            =   1200
            TabIndex        =   6
            Top             =   240
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   529
            _Version        =   393216
            Format          =   24772609
            CurrentDate     =   37817
         End
         Begin VB.Label Label7 
            Caption         =   "元"
            Height          =   255
            Left            =   2640
            TabIndex        =   19
            Top             =   2160
            Width           =   375
         End
         Begin VB.Label Label6 
            Caption         =   "开户人："
            Height          =   255
            Left            =   240
            TabIndex        =   17
            Top             =   2640
            Width           =   855
         End
         Begin VB.Label Label5 
            Caption         =   "开户金额："
            Height          =   255
            Left            =   240
            TabIndex        =   16
            Top             =   2160
            Width           =   975
         End
         Begin VB.Label Label4 
            Caption         =   "银行账号："
            Height          =   375
            Left            =   240
            TabIndex        =   15
            Top             =   1680
            Width           =   1095
         End
         Begin VB.Label Label3 
            Caption         =   "银行地址："
            Height          =   375
            Left            =   240
            TabIndex        =   14
            Top             =   1200
            Width           =   975
         End
         Begin VB.Label Label2 
            Caption         =   "银行名称："
            Height          =   255
            Left            =   240
            TabIndex        =   13
            Top             =   720
            Width           =   975
         End
         Begin VB.Label Label1 
            Caption         =   "开户日期："
            Height          =   255
            Left            =   240
            TabIndex        =   12
            Top             =   240
            Width           =   1095
         End
      End
      Begin VB.CommandButton Command4 
         Caption         =   "退    出"
         Height          =   495
         Left            =   360
         TabIndex        =   4
         Top             =   4320
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "删除账户"
         Height          =   495
         Left            =   360
         TabIndex        =   3
         Top             =   3840
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "修改账户信息"
         Height          =   495
         Left            =   360
         TabIndex        =   2
         Top             =   3360
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "新开账户"
         Height          =   495
         Left            =   360
         TabIndex        =   1
         Top             =   2880
         Width           =   1335
      End
      Begin VB.Label Label22 
         Caption         =   "个账户"
         Height          =   255
         Left            =   4320
         TabIndex        =   52
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label21 
         Caption         =   "Label21"
         Height          =   255
         Left            =   4080
         TabIndex        =   51
         Top             =   1560
         Width           =   255
      End
      Begin VB.Label Label20 
         Caption         =   "共有："
         Height          =   255
         Left            =   3480
         TabIndex        =   50
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label15 
         Caption         =   "银行账号："
         Height          =   255
         Left            =   -74760
         TabIndex        =   33
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label14 
         Caption         =   "元"
         Height          =   255
         Left            =   2040
         TabIndex        =   26
         Top             =   1080
         Width           =   375
      End
      Begin VB.Label Label13 
         Caption         =   "银行账号："
         Height          =   375
         Left            =   3480
         TabIndex        =   25
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label12 
         Caption         =   "开户人："
         Height          =   255
         Left            =   3480
         TabIndex        =   24
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label11 
         Caption         =   "银行地址："
         Height          =   375
         Left            =   240
         TabIndex        =   23
         Top             =   2040
         Width           =   975
      End
      Begin VB.Label Label10 
         Caption         =   "银行名称："
         Height          =   255
         Left            =   240
         TabIndex        =   22
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label Label9 
         Caption         =   "开户金额："
         Height          =   375
         Left            =   240
         TabIndex        =   21
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label8 
         Caption         =   "开户日期："
         Height          =   255
         Left            =   240
         TabIndex        =   20
         Top             =   600
         Width           =   975
      End
   End
End
Attribute VB_Name = "frm_live"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Mydb As New ADODB.Recordset
Dim Mydb1 As New ADODB.Recordset
Dim Mydb2 As New ADODB.Recordset
Dim Mydb3 As New ADODB.Recordset
Dim Mydb4 As New ADODB.Recordset
Dim Money As New ADODB.Recordset
Dim Key1 As New ADODB.Recordset
Dim Note As New ADODB.Recordset
Dim Count1 As New ADODB.Recordset
Dim AA As New ADODB.Recordset
Dim BB As New ADODB.Recordset
Dim Str_text As String
Dim Balance As Integer
Dim Panduan As Boolean
Dim Panduan1 As Boolean
Dim Yuen As Integer
Private Sub Combo1_Click()
             Call Wangge
End Sub
Private Sub Command1_Click()
            Call Atrue
            txt_money.Text = ""
            txt_name.Text = ""
            txt_address.Text = ""
            txt_man.Text = ""
            txt_size.Text = ""
            DTPicker1.Value = Date
            Panduan1 = True
End Sub
Private Sub Command10_Click()
            Unload Me
End Sub
Private Sub Command11_Click()
            On Error Resume Next
            Dim A, B, C, D, E, F, Key