家庭/个人应用

开发平台：
Visual Basic

frm_live.frm：源码内容
							VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frm_live 
   Caption         =   "活期存款"
   ClientHeight    =   5415
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6375
   Icon            =   "frm_live.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5415
   ScaleWidth      =   6375
   StartUpPosition =   2  'CenterScreen
   Begin TabDlg.SSTab SSTab1 
      Height          =   5415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6375
      _ExtentX        =   11245
      _ExtentY        =   9551
      _Version        =   393216
      Style           =   1
      Tabs            =   2
      Tab             =   1
      TabHeight       =   520
      BackColor       =   -2147483648
      TabCaption(0)   =   "账户信息"
      TabPicture(0)   =   "frm_live.frx":030A
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Label8"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Label9"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Label10"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Label11"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Label12"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "Label13"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Label14"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "Label20"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "Label21"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "Label22"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "Command1"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "Command2"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "Command3"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "Command4"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "Frame1"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "txt_date"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "txt_money1"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "txt_name1"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "txt_address1"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).Control(19)=   "txt_man1"
      Tab(0).Control(19).Enabled=   0   'False
      Tab(0).Control(20)=   "txt_size1"
      Tab(0).Control(20).Enabled=   0   'False
      Tab(0).Control(21)=   "Command12"
      Tab(0).Control(21).Enabled=   0   'False
      Tab(0).Control(22)=   "Command13"
      Tab(0).Control(22).Enabled=   0   'False
      Tab(0).ControlCount=   23
      TabCaption(1)   =   "取款记录"
      TabPicture(1)   =   "frm_live.frx":0326
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "Label15"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Combo1"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Frame2"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Command6"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "Command7"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).Control(5)=   "Command9"
      Tab(1).Control(5).Enabled=   0   'False
      Tab(1).Control(6)=   "Command10"
      Tab(1).Control(6).Enabled=   0   'False
      Tab(1).Control(7)=   "MSHFlexGrid1"
      Tab(1).Control(7).Enabled=   0   'False
      Tab(1).Control(8)=   "txt_key"
      Tab(1).Control(8).Enabled=   0   'False
      Tab(1).ControlCount=   9
      Begin VB.CommandButton Command13 
         Caption         =   "上一个"
         Height          =   255
         Left            =   -70800
         TabIndex        =   54
         Top             =   1920
         Width           =   735
      End
      Begin VB.CommandButton Command12 
         Caption         =   "下一个"
         Height          =   255
         Left            =   -71520
         TabIndex        =   53
         Top             =   1920
         Width           =   735
      End
      Begin VB.TextBox txt_key 
         Height          =   285
         Left            =   120
         TabIndex        =   49
         Top             =   4800
         Visible         =   0   'False
         Width           =   615
      End
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
         Height          =   2655
         Left            =   120
         TabIndex        =   48
         Top             =   840
         Width           =   6135
         _ExtentX        =   10821
         _ExtentY        =   4683
         _Version        =   393216
         AllowUserResizing=   1
         BandDisplay     =   1
         _NumberOfBands  =   1
         _Band(0).Cols   =   2
      End
      Begin VB.CommandButton Command10 
         Caption         =   "退出"
         Height          =   375
         Left            =   1440
         TabIndex        =   39
         Top             =   4200
         Width           =   735
      End
      Begin VB.CommandButton Command9 
         Caption         =   "删除"
         Height          =   375
         Left            =   600
         TabIndex        =   38
         Top             =   4200
         Width           =   735
      End
      Begin VB.CommandButton Command7 
         Caption         =   "存款"
         Height          =   375
         Left            =   600
         TabIndex        =   37
         Top             =   3720
         Width           =   735
      End
      Begin VB.CommandButton Command6 
         Caption         =   "取款"
         Height          =   375
         Left            =   1440
         TabIndex        =   36
         Top             =   3720
         Width           =   735
      End
      Begin VB.Frame Frame2 
         Height          =   1815
         Left            =   2760
         TabIndex        =   35
         Top             =   3480
         Width           =   3255
         Begin MSComCtl2.DTPicker DTPicker2 
            Height          =   300
            Left            =   1080
            TabIndex        =   46
            Top             =   360
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   529
            _Version        =   393216
            Format          =   64487425
            CurrentDate     =   37817
         End
         Begin VB.CommandButton Command11 
            Caption         =   "确定"
            Height          =   375
            Left            =   2520
            TabIndex        =   42
            Top             =   1320
            Width           =   615
         End
         Begin VB.TextBox Text2 
            Height          =   300
            Left            =   1080
            TabIndex        =   41
            Top             =   1320
            Width           =   1335
         End
         Begin VB.TextBox Text1 
            Height          =   300
            Left            =   1080
            TabIndex        =   40
            Top             =   840
            Width           =   1335
         End
         Begin VB.Label Label19 
            Caption         =   "元"
            Height          =   255
            Left            =   2520
            TabIndex        =   47
            Top             =   840
            Width           =   495
         End
         Begin VB.Label Label18 
            Caption         =   "经手人："
            Height          =   375
            Left            =   120
            TabIndex        =   45
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label17 
            Caption         =   "金额："
            Height          =   375
            Left            =   120
            TabIndex        =   44
            Top             =   840
            Width           =   615
         End
         Begin VB.Label Label16 
            Caption         =   "存款日期："
            Height          =   375
            Left            =   120
            TabIndex        =   43
            Top             =   360
            Width           =   1095
         End
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Left            =   1440
         Style           =   2  'Dropdown List
         TabIndex        =   34
         Top             =   360
         Width           =   1455
      End
      Begin VB.TextBox txt_size1 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -70560
         TabIndex        =   32
         Top             =   1080
         Width           =   1815
      End
      Begin VB.TextBox txt_man1 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -70560
         TabIndex        =   31
         Top             =   600
         Width           =   975
      End
      Begin VB.TextBox txt_address1 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -73800
         TabIndex        =   30
         Top             =   2040
         Width           =   2175
      End
      Begin VB.TextBox txt_name1 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -73800
         TabIndex        =   29
         Top             =   1560
         Width           =   2175
      End
      Begin VB.TextBox txt_money1 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -73800
         TabIndex        =   28
         Top             =   1080
         Width           =   615
      End
      Begin VB.TextBox txt_date 
         BackColor       =   &H80000000&
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   -73800
         TabIndex        =   27
         Top             =   600
         Width           =   975
      End
      Begin VB.Frame Frame1 
         Height          =   3015
         Left            =   -72840
         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          =   64487425
            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            =   -74640
         TabIndex        =   4
         Top             =   4320
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "删除账户"
         Height          =   495
         Left            =   -74640
         TabIndex        =   3
         Top             =   3840
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "修改账户信息"
         Height          =   495
         Left            =   -74640
         TabIndex        =   2
         Top             =   3360
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "新开账户"
         Height          =   495
         Left            =   -74640
         TabIndex        =   1
         Top             =   2880
         Width           =   1335
      End
      Begin VB.Label Label22 
         Caption         =   "个账户"
         Height          =   255
         Left            =   -70680
         TabIndex        =   52
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label21 
         Caption         =   "Label21"
         Height          =   255
         Left            =   -70920
         TabIndex        =   51
         Top             =   1560
         Width           =   255
      End
      Begin VB.Label Label20 
         Caption         =   "共有："
         Height          =   255
         Left            =   -71520
         TabIndex        =   50
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label15 
         Caption         =   "银行账号："
         Height          =   255
         Left            =   240
         TabIndex        =   33
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label14 
         Caption         =   "元"
         Height          =   255
         Left            =   -72960
         TabIndex        =   26
         Top             =   1080
         Width           =   375
      End
      Begin VB.Label Label13 
         Caption         =   "银行账号："
         Height          =   375
         Left            =   -71520
         TabIndex        =   25
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label12 
         Caption         =   "开户人："
         Height          =   255
         Left            =   -71520
         TabIndex        =   24
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label11 
         Caption         =   "银行地址："
         Height          =   375
         Left            =   -74760
         TabIndex        =   23
         Top             =   2040
         Width           =   975
      End
      Begin VB.Label Label10 
         Caption         =   "银行名称："
         Height          =   255
         Left            =   -74760
         TabIndex        =   22
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label Label9 
         Caption         =   "开户金额："
         Height          =   375
         Left            =   -74760
         TabIndex        =   21
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label8 
         Caption         =   "开户日期："
         Height          =   255
         Left            =   -74760
         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
            
            Set Count1 = ExeCutesql("select key from 活期存取", Str_text)
            If Count1.EOF Then
               E = Null
            End If
            If IsNull(E) Then
               Key = 1
            Else
               Count1.MoveLast
               Key = Count1.Fields(0) + 1
            End If
            
            Set Note = ExeCutesql("select  余额 from  活期存取 ", Str_text)
            If Note.EOF Then
               D = Null
            End If
            
            If IsNull(D) Then
               Set Money = ExeCutesql("select 款额 from 活期帐户 where 银行帐号='" & Combo1.Text & "'", Str_text)
               C = Money.Fields(0)
               Balance = C
            Else
               Note.MoveLast
               Balance = Note.Fields(0)
            End If
            
               If Len(Combo1.Text) = 0 Then
                  MsgBox "请选择银行账号！", vbOKOnly + 32
               End If
               A = MsgBox("是否添加此条记录？", vbYesNo + 32, "添加记录")
               If A = vbYes Then
                  If Panduan = True Then
                     Balance = Balance - CInt(Text1.Text)
                     ExeCutesql "insert into 活期存取 values('" & Combo1.Text & "','取款'," & Text1.Text & ",'" _
                     & Format(DTPicker2.Value, "yyyy-mm-dd") & "','" & Text2.Text & "','" & Balance & "','" & Key & "')", Str_text
                     Call Wangge
                     Text1.Enabled = False
                     Text2.Enabled = False
                     Text1.Text = ""
                     Text2.Text = ""
                     MsgBox "数据添加成功！", vbOKOnly, "成功"
                  Else
                     Balance = Balance + CInt(Text1.Text)
                     ExeCutesql "insert into 活期存取 values('" & Combo1.Text & "','存款'," & Text1.Text & ",'" _
                     & Format(DTPicker2.Value, "yyyy-mm-dd") & "','" & Text2.Text & "','" & Balance & "','" & Key & "')", Str_text
                     Call Wangge
                     Text1.Enabled = False
                     Text2.Enabled = False
                     Text1.Text = ""
                     Text2.Text = ""
                     MsgBox "数据添加成功！", vbOKOnly, "成功"
                 End If
               End If
               Command11.Enabled = False
End Sub
Private Sub Command12_Click()
            On Error Resume Next
            Mydb.MoveNext
            If Mydb.EOF Then
               Mydb.MoveLast
            End If
End Sub
Private Sub Command13_Click()
            On Error Resume Next
            Mydb.MovePrevious
            If Mydb.BOF Then
               Mydb.MoveFirst
            End If
End Sub
Private Sub Command2_Click()
            Call Atrue
            Panduan1 = False
End Sub
Private Sub Command3_Click()
            Dim A
             A = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "删除记录")
            If A = vbYes Then
               If Mydb.EOF Then
                  Call Bangding
                  Exit Sub
               Else
                  Mydb.Delete
               End If
            End If
            Call Bangding
End Sub
Private Sub Command4_Click()
            Unload Me
End Sub
Private Sub Command5_Click()
            Dim A, B
            If Panduan1 = True Then
               A = MsgBox("是否添加此记录？", vbYesNo + 32, "")
               If A = vbYes Then
                  ExeCutesql "insert into 活期帐户 values('" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" _
                  & txt_name.Text & "','" & txt_address.Text & "','" & txt_size.Text _
                  & "'," & CCur(txt_money.Text) & " ,'" & txt_man.Text & "') ", Str_text
                  Call Bangding
                  Call Afalse
               End If
            Else
               B = MsgBox("是否修改前记录？", vbYesNo + 32, "添加记录")
               If B = vbYes Then
                  ExeCutesql "Update 活期帐户 Set 开户日期 ='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "',银行名称='" _
                  & txt_name.Text & "',银行地址='" & txt_address.Text & "',银行帐号 ='" & txt_size.Text _
                  & "',款额=" & CCur(txt_money.Text) & " ,开户人='" & txt_man.Text & "'", Str_text
                  Call Bangding
                  Call Afalse
                  MsgBox "Update 活期帐户 Set 开户日期 ='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "',银行名称='" _
                  & txt_name.Text & "',银行地址='" & txt_address.Text & "',银行帐号 ='" & txt_size.Text _
                  & "',款额=" & CCur(txt_money.Text) & " ,开户人='" & txt_man.Text & "'"
                  MsgBox "数据修改成功！", vbOKOnly + 64, "成功"
               End If
            End If
End Sub
Private Sub Command6_Click()
            Panduan = True
            Command11.Enabled = True
            Text1.Enabled = True
            Text2.Enabled = True
End Sub
Private Sub Command7_Click()
            Panduan = False
            Command11.Enabled = True
            Text1.Enabled = True
            Text2.Enabled = True
End Sub
Private Sub Command9_Click()
            On Error Resume Next
            Dim A, B, C, I, Ab, Bc, CC
            
            Bc = CInt(txt_key.Text)
           
            Set AA = ExeCutesql("select key from 活期存取", Str_text)
            If AA.EOF Then
               Exit Sub
            End If
            AA.MoveLast
            C = AA.Fields(0)
            B = C - Bc
            
            A = MsgBox("是否删除当前记录？", vbYesNo + 32 + 256, "添加记录")
            If A = vbYes Then
               ExeCutesql "delete from 活期存取 where key=" & txt_key.Text & " ", Str_text
               For I = Bc To C
                   Set BB = ExeCutesql("select 余额 from 活期存取 where key=" & I & " ", Str_text)
                   'If BB.EOF Then Exit Sub
                   Ab = BB.Fields(0)
                   CC = Ab - CInt(Text1.Text)
                   'MsgBox CC
                   ExeCutesql "update 活期存取 set 余额=" & CC & " where key = " & I & "", Str_text
                   'MsgBox "update 活期存取 set 余额=" & CC & " where key = " & I & ""
               Next I
               Call Wangge
               Call MSHFlexGrid1_Click
            End If
End Sub
Private Sub Form_Load()
            On Error Resume Next
            Dim A As Integer
                           
            Set Mydb3 = ExeCutesql("select sum(数目) from 活期存取", Str_text)
            Balance = Mydb3.Fields(0)
            Call Bangding
            Call Afalse
            Command11.Enabled = False
            Text1.Enabled = False
            Text2.Enabled = False
            DTPicker1.Value = Date
            DTPicker2.Value = Date
            
End Sub
Private Sub MSHFlexGrid1_Click()
            On Error Resume Next
            DTPicker2.Value = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
            Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
            Text2.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
            txt_key.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 6)
            'Yuen = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 5)
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
            On Error Resume Next
            Dim A As Integer
            
            If SSTab1.Caption = "取款记录" Then
               Set Mydb1 = ExeCutesql("select 银行帐号 from 活期帐户", Str_text)
               A = Mydb1.RecordCount
               For I = 1 To A
                   Combo1.AddItem Mydb1.Fields(0)
                   Mydb1.MoveNext
                   If Mydb1.EOF Then Exit For
               Next I
            End If
End Sub
Private Sub Text1_LostFocus()
            Dim A As Boolean
            Dim C
            
            C = Text1.Text
            A = IsNumeric(C)
            
            If C = "" Then
               MsgBox "请输入金额！", vbOKOnly + 32, "注意！"
               Text1.SetFocus
            Else
               If A = False Then
                  MsgBox "金额只能输入数字！", vbOKOnly + 32, "注意！"
                  Text1.SetFocus
               End If
            End If
End Sub
Private Sub txt_money_LostFocus()
            Dim A As Boolean
            Dim C
            
            C = txt_money.Text
            A = IsNumeric(C)
            
            If C = "" Then
               MsgBox "请输入金额！", vbOKOnly + 32, "注意！"
               txt_money.SetFocus
            Else
               If A = False Then
                  MsgBox "金额只能输入数字！", vbOKOnly + 32, "注意！"
                  txt_money.SetFocus
               End If
            End If
End Sub
Private Function Bangding()
                 On Error Resume Next
                 Set Mydb = ExeCutesql("select * from 活期帐户", Str_text)
                 Mydb.MoveFirst
                 Set txt_date.DataSource = Mydb
                 Set txt_money1.DataSource = Mydb
                 Set txt_name1.DataSource = Mydb
                 Set txt_address1.DataSource = Mydb
                 Set txt_man1.DataSource = Mydb
                 Set txt_size1.DataSource = Mydb
                 txt_date.DataField = "开户日期"
                 txt_money1.DataField = "款额"
                 txt_name1.DataField = "银行名称"
                 txt_address1.DataField = "银行地址"
                 txt_man1.DataField = "开户人"
                 txt_size1.DataField = "银行帐号"
                 Label21.Caption = Mydb.RecordCount
                 
End Function
Private Function Atrue()
                 txt_money.Locked = False
                 txt_name.Locked = False
                 txt_address.Locked = False
                 txt_man.Locked = False
                 txt_size.Locked = False
                 Command5.Enabled = True
End Function
Private Function Afalse()
                 txt_money.Locked = True
                 txt_name.Locked = True
                 txt_address.Locked = True
                 txt_man.Locked = True
                 txt_size.Locked = True
                 Command5.Enabled = False
End Function
Private Function Wangge()
                 Set Mydb2 = ExeCutesql("select 日期, 姓名, 存取,数目,余额,key from 活期存取 where 帐号='" & Combo1.Text & "'", Str_text)
                 Set MSHFlexGrid1.DataSource = Mydb2
End Function

						