VB.NET版機房收費系統—DataGridView應用

標籤：datagridview   style   class   blog   code   http   

  事實上，先前剛剛開始敲機房的時候，剛用到DataGridView的時候，總顯得力不從心，先要一下子就學會，看了非常多的資料，但是依照寫的時候，自己有不知道從什麼地方下手，於是，當自己用查詢SQL語句，並用DataGridView顯示出來，這個功能不能實現，但這裡給大家寫一下，假設有什麼地方不好的會，請大家指出：

  第一版：

  視窗設計：

 

  須要的控制項：

  DateTimePicker、DataSet、DataGridView

  把握的三步驟：

  第一步：使用視圖，建立出你要的產尋結果的視圖（假設是一個表就能夠解決的，就能夠僅僅用一個查詢即可了）。

  第二步：查詢檢視返回DataTable

  第三步：直接讓GridView的DataSource等於DataTable中的資料即可了。

  詳細實現方法：

  

Imports System.Data.SqlClientImports System.Windows.FormsPublic Class FrmOperGetCharge    Private Sub btnqurry_Click(ByVal sender As Object, e As EventArgs) Handles btnqurry.Click        Dim Start_DateTime As String '定義為string是由於SQL表中的該欄位是string類型        Dim End_dateTime As String        Start_DateTime = Convert.ToString(DateTimePicker1.Value + " 00:00:00") '設定的為字串類型也能夠直接進行比較，加上後面的00:00:00是由於資料庫中的資料時有時間的        End_dateTime = Convert.ToString(DateTimePicker2.Value) '接收來自DateTimePicker的資料        Dim strConnection As String = "Server=mx; Database=ReconsitutionCharge_sys; User ID=sa; Password=123456"        Dim sqlConnection1 As New SqlConnection(strConnection)        Dim dataAdapter As New SqlDataAdapter        Dim dst As New DataSet '儲存在DataSet中        Dim dt As New DataTable '接收查詢結果        sqlConnection1.Open()        Dim sql As String = "select * from T_Recharge_DAL Where @Start_dateTime <= DateTime AND DateTime <= @End_dateTime"        Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)        cmd.Parameters.Add(New SqlParameter("@Start_dateTime",Start_DateTime))                        '賦值，傳參        cmd.Parameters.Add(New SqlParameter("@End_dateTime", End_dateTime))                        '賦值，傳參        dataAdapter.SelectCommand = cmd        dataAdapter.Fill(dst, "Recharge") '將DataAdapter中的資料傳到DataSet中        dt = dst.Tables("Recharge") '把DataSet中的資料返回給DataTable        sqlConnection1.Close()        DataGridView1.AutoGenerateColumns = True '自己主動建立列        DataGridView1.DataSource = dt '資料來源    End SubEnd Class

  事實上這個應該也能夠用三層來實現。