form_bank.frm

一个小小的家庭理财助手软件的VB代码。用vb6.0开发

If Me.Text_Bank_Bank.Text = "" Or Me.Text_Bank_Left.Text = "" Or _
Me.Text_Bank_Money.Text = "" Or Me.Text_Bank_Name.Text = "" Or _
Me.Text_Bank_No.Text = "" Or Me.Text_Bank_Num.Text = "" Or _
Me.Text_Bank_Type.Text = "" Or Me.DTPicker_Bank.Value = "" Then
    MsgBox "不能空白!"
     Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Money.Text) Then
    MsgBox "初始金额必须是数字"
    Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Left.Text) Then
    MsgBox "余额必须是数字"
    Exit Sub
End If

On Error Resume Next


   '添加一个活期帐户记录到数据库
sqlstr = "insert into LiveBank" & "(LiveBankNo," & _
         "LiveBankType,LiveBankKa,LiveBankName," & _
         "LiveBankChu,LiveBankYu,LiveBankBank,LiveBankDate)" & _
            "values(" & "'" & Me.Text_Bank_Num.Text & "'," & _
                    "'" & Me.Text_Bank_Type.Text & "'," & _
                    "'" & Me.Text_Bank_No.Text & "'," & _
                    "'" & Me.Text_Bank_Name.Text & "'," & _
                   Val(Me.Text_Bank_Money.Text) & "," & _
                   Val(Me.Text_Bank_Left.Text) & "," & _
                    "'" & Me.Text_Bank_Bank.Text & "'," & _
                    "'" & Me.DTPicker_Bank.Value & "');"
RemoteCnn.Execute sqlstr
MsgBox "添加成功！"

'界面更新
Me.Adodc_bank.Refresh

Me.Text_Bank_Bank.Text = ""
Me.Text_Bank_Left.Text = ""
Me.Text_Bank_Money.Text = ""
Me.Text_Bank_Name.Text = ""
Me.Text_Bank_No.Text = ""
Me.Text_Bank_Num.Text = ""
Me.Text_Bank_Type.Text = ""
End Sub

Private Sub Command2_Click()             '修改一个活期帐户记录
Dim sqlstr As String
If Me.Text_Bank_Bank.Text = "" Or Me.Text_Bank_Left.Text = "" Or _
Me.Text_Bank_Money.Text = "" Or Me.Text_Bank_Name.Text = "" Or _
Me.Text_Bank_No.Text = "" Or Me.Text_Bank_Num.Text = "" Or _
Me.Text_Bank_Type.Text = "" Or Me.DTPicker_Bank.Value = "" Then
    MsgBox "不能空白!"
     Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Money.Text) Then
    MsgBox "初始金额必须是数字"
    Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Left.Text) Then
    MsgBox "余额必须是数字"
    Exit Sub
End If

On Error Resume Next

  '在数据库中修改一个活期帐户记录
sqlstr = "update LiveBank set LiveBankNo=" & "'" & Me.Text_Bank_Num.Text & "'" & _
                        ",LiveBankType=" & "'" & Me.Text_Bank_Type.Text & "'" & _
                        ",LiveBankKa=" & "'" & Me.Text_Bank_No.Text & "'" & _
                        ",LiveBankName=" & "'" & Me.Text_Bank_Name.Text & "'" & _
                        ",LiveBankChu=" & Val(Me.Text_Bank_Money.Text) & _
                        ",LiveBankYu=" & Val(Me.Text_Bank_Left.Text) & _
                        ",LiveBankBank=" & "'" & Me.Text_Bank_Bank.Text & "'" & _
                        ",LiveBankDate=" & "'" & Me.DTPicker_Bank.Value & "'" & _
                        "where LiveBankID=" & Val(DataGrid_bank.Columns(0).Text)
RemoteCnn.Execute sqlstr
MsgBox "修改成功！"

'界面更新
Me.Adodc_bank.Refresh

Me.Text_Bank_Bank.Text = ""
Me.Text_Bank_Left.Text = ""
Me.Text_Bank_Money.Text = ""
Me.Text_Bank_Name.Text = ""
Me.Text_Bank_No.Text = ""
Me.Text_Bank_Num.Text = ""
Me.Text_Bank_Type.Text = ""
End Sub

Private Sub Command3_Click()                  '删除一个活期账户记录
'是否选择了记录
If Me.DataGrid_bank.Row = -1 Then
    MsgBox "没有数据"
    Exit Sub
End If
'删除一个选定的记录
Me.Adodc_bank.Recordset.Delete
MsgBox "删除成功"
End Sub




Private Sub Command6_Click()                 '添加一个定期账户记录
Dim sqlstr As String
Dim rscheck As New ADODB.Recordset
'判断该账户是否已经存在

rscheck.Open "select * from FixBank where FixBankNo =" & _
Val(Me.Text_Bank_Num1.Text), RemoteCnn, adOpenStatic, adLockReadOnly, -1
If rscheck.RecordCount > 0 Then
    MsgBox "已经存在该账号！"
    Exit Sub
End If
rscheck.Close



If Me.Text_Bank_Bank1.Text = "" Or Me.Text_Bank_Left1.Text = "" Or Me.Text_Bank_Money1.Text = "" Or _
   Me.Text_Bank_Name1.Text = "" Or Me.Text_Bank_No1.Text = "" Or Me.Text_Bank_Num1.Text = "" Or _
   Me.Text_Bank_Type1.Text = "" Or Me.DTPicker_Bank1.Value = "" Then
    MsgBox "不能空白!"
    Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Money1.Text) Then
    MsgBox "初始金额必须是数字"
    Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Left1.Text) Then
    MsgBox "余额必须是数字"
    Exit Sub
End If

On Error Resume Next


'添加一个定期账户记录到数据库
sqlstr = "insert into FixBank" & "(FixBankNo,FixBankType,FixBankKa,FixBankName,FixBankChu,FixBankYu,FixBankBank,FixBankDate)" & _
            "values(" & "'" & Me.Text_Bank_Num1.Text & "'," & _
                    "'" & Me.Text_Bank_Type1.Text & "'," & _
                    "'" & Me.Text_Bank_No1.Text & "'," & _
                    "'" & Me.Text_Bank_Name1.Text & "'," & _
                   Val(Me.Text_Bank_Money1.Text) & "," & _
                   Val(Me.Text_Bank_Left1.Text) & "," & _
                    "'" & Me.Text_Bank_Bank1.Text & "'," & _
                    "'" & Me.DTPicker_Bank1.Value & "');"
RemoteCnn.Execute sqlstr
MsgBox "添加成功！"
'界面更新
Me.Adodc_Bank1.Refresh

Me.Text_Bank_Bank1.Text = ""
Me.Text_Bank_Left1.Text = ""
Me.Text_Bank_Money1.Text = ""
Me.Text_Bank_Name1.Text = ""
Me.Text_Bank_No1.Text = ""
Me.Text_Bank_Num1.Text = ""
Me.Text_Bank_Type1.Text = ""
End Sub

Private Sub Command7_Click()               '修改一个定期账户记录
Dim sqlstr As String

If Me.Text_Bank_Bank1.Text = "" Or Me.Text_Bank_Left1.Text = "" Or Me.Text_Bank_Money1.Text = "" Or _
   Me.Text_Bank_Name1.Text = "" Or Me.Text_Bank_No1.Text = "" Or Me.Text_Bank_Num1.Text = "" Or _
   Me.Text_Bank_Type1.Text = "" Or Me.DTPicker_Bank1.Value = "" Then
     MsgBox "不能空白!"
     Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Money1.Text) Then
    MsgBox "初始金额必须是数字"
    Exit Sub
End If

If Not IsNumeric(Me.Text_Bank_Left1.Text) Then
    MsgBox "余额必须是数字"
    Exit Sub
End If

On Error Resume Next


'在数据库中修改一个定期账户记录
sqlstr = "update FixBank set FixBankNo=" & "'" & Me.Text_Bank_Num1.Text & "'" & _
                               ",FixBankType=" & "'" & Me.Text_Bank_Type1.Text & "'" & _
                               ",FixBankKa=" & "'" & Me.Text_Bank_No1.Text & "'" & _
                               ",FixBankName=" & "'" & Me.Text_Bank_Name1.Text & "'" & _
                               ",FixBankChu=" & Val(Me.Text_Bank_Money1.Text) & _
                               ",FixBankYu=" & Val(Me.Text_Bank_Left1.Text) & _
                               ",FixBankBank=" & "'" & Me.Text_Bank_Bank1.Text & "'" & _
                               ",FixBankDate=" & "'" & Me.DTPicker_Bank1.Value & "'" & _
                               "where FixBankID=" & Val(DataGrid_Bank1.Columns(0).Text)
RemoteCnn.Execute sqlstr
MsgBox "修改成功！"

'界面更新
Me.Adodc_Bank1.Refresh

Me.Text_Bank_Bank1.Text = ""
Me.Text_Bank_Left1.Text = ""
Me.Text_Bank_Money1.Text = ""
Me.Text_Bank_Name1.Text = ""
Me.Text_Bank_No1.Text = ""
Me.Text_Bank_Num1.Text = ""
Me.Text_Bank_Type1.Text = ""
End Sub

Private Sub Command8_Click()                  '删除一个定期账户记录
'是否选择了记录
If Me.DataGrid_Bank1.Row = -1 Then
    MsgBox "没有数据"
    Exit Sub
End If
'删除选定的记录
Me.Adodc_Bank1.Recordset.Delete
MsgBox "删除成功"
End Sub



Private Sub DataGrid_bank_Click()                 '选择一个活期账户记录

'在界面显示选定的记录
Me.Text_Bank_Num.Text = DataGrid_bank.Columns(1).Text
Me.Text_Bank_Type.Text = DataGrid_bank.Columns(2).Text
Me.Text_Bank_No.Text = DataGrid_bank.Columns(3).Text
Me.Text_Bank_Name.Text = DataGrid_bank.Columns(4).Text
Me.Text_Bank_Money.Text = DataGrid_bank.Columns(5).Text
Me.Text_Bank_Left.Text = DataGrid_bank.Columns(6).Text
Me.Text_Bank_Bank.Text = DataGrid_bank.Columns(7).Text
Me.DTPicker_Bank.Value = DataGrid_bank.Columns(8).Text
End Sub

Private Sub DataGrid_Bank1_Click()               '选择一个定期账户记录

'在界面显示选定的记录
Me.Text_Bank_Num1.Text = DataGrid_Bank1.Columns(1).Text
Me.Text_Bank_Type1.Text = DataGrid_Bank1.Columns(2).Text
Me.Text_Bank_No1.Text = DataGrid_Bank1.Columns(3).Text
Me.Text_Bank_Name1.Text = DataGrid_Bank1.Columns(4).Text
Me.Text_Bank_Money1.Text = DataGrid_Bank1.Columns(5).Text
Me.Text_Bank_Left1.Text = DataGrid_Bank1.Columns(6).Text
Me.Text_Bank_Bank1.Text = DataGrid_Bank1.Columns(7).Text
Me.DTPicker_Bank1.Value = DataGrid_Bank1.Columns(8).Text
End Sub

Private Sub Form_Load() '窗体装载
On Error Resume Next

'打开活期银行账户表并填充表格
Me.Adodc_bank.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=" & _
                "False;User ID=" & UID & ";pwd=" & PWD & ";Data Source=" & MyDSN
Adodc_bank.RecordSource = "select LiveBankID as 编号," & _
                                 "LiveBankNo as 账号," & _
                                 "LiveBankType as 账户类型," & _
                                 "LiveBankKa as 卡号," & _
                                 "LiveBankName as 账户户主姓名," & _
                                 "LiveBankChu as 初始金额," & _
                                 "LiveBankYu as 余额," & _
                                 "LiveBankBank as 开户银行," & _
                                 "LiveBankDate as 开户日期 from LiveBank"
Adodc_bank.Refresh

'打开定期银行账户表并填充表格
Me.Adodc_Bank1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=" & _
                 "False;User ID=" & UID & ";pwd=" & PWD & ";Data Source=" & MyDSN
Adodc_Bank1.RecordSource = "select FixBankID as 编号," & _
                           "FixBankNo as 账号," & _
                           "FixBankType as 账户类型," & _
                           "FixBankKa as 卡号," & _
                           "FixBankName as 账户户主姓名," & _
                           "FixBankChu as 初始金额," & _
                           "FixBankYu as 余额," & _
                           "FixBankBank as 开户银行," & _
                           "FixBankDate as 开户日期 from FixBank"
Adodc_Bank1.Refresh
End Sub

Private Sub TabStrip1_Click()                    '处理界面切换，可以用SSTab代替，更方便
Select Case TabStrip1.SelectedItem.Index
    Case 1:       '显示活期账户处理界面
        Me.Frame1.Visible = True
        Me.Frame2.Visible = False
    Case 2:       '显示定期账户处理界面
        Me.Frame1.Visible = False
        Me.Frame2.Visible = True
End Select
End Sub


Private Sub Command9_Click()
Unload Me
End Sub