form1.vb

银行帐户管理系统

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim strconn As String = "data source=.;initial catalog=weboy;user id= sa;password=;"
    Dim objds As New Data.DataSet
    Dim objda As SqlClient.SqlDataAdapter
    Dim bingpage As BindingManagerBase
    Dim cn As New SqlClient.SqlConnection
    Dim cmd As SqlClient.SqlCommand
    Dim result As String
    Dim objcommand As SqlClient.SqlCommand
    Dim objdr As SqlClient.SqlDataReader
    Dim sql As String
    Dim str As String
    Dim strsql As String

    Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = True
        result = MessageBox.Show("确定保存？", "系统提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)

        If result = Windows.Forms.DialogResult.No Then
            Me.Close()
        Else
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then

                MsgBox("请输入完整信息!")
            End If
        End If

        sql = "update  accrual set  percentage ='" & Trim(TextBox1.Text) & "' where theYear=0 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        sql = "update  accrual set  percentage ='" & Trim(TextBox2.Text) & "' where theYear=1 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        sql = "update  accrual set  percentage ='" & Trim(TextBox3.Text) & "' where theYear=2 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        sql = "update  accrual set  percentage ='" & Trim(TextBox4.Text) & "' where theYear=3 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        sql = "update  accrual set  percentage ='" & Trim(TextBox5.Text) & "' where theYear=5 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        sql = "update  accrual set  percentage ='" & Trim(TextBox6.Text) & "' where theYear=8 "
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        Button1.Enabled = True
        Button2.Enabled = False
        MessageBox.Show("保存成功！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        利率查询.Show()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class