利率查询.vb

银行帐户管理系统

Public Class 利率查询
    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 strsql As String
    Dim str As String
    Dim objcommand As SqlClient.SqlCommand
    Dim objdr As SqlClient.SqlDataReader

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        objds.Clear()
        strsql = "select accrual.theYear as 存款方式,accrual.percentage as 利率 from accrual"
        objda = New SqlClient.SqlDataAdapter(strsql, strconn)
        objda.Fill(objds, "FConsumers")
        DataGridView1.DataSource = objds.Tables("FConsumers")
    End Sub



    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class