日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 运维知识 > windows >内容正文

windows

VB.NET版机房收费系统—DataGridView应用

發(fā)布時間:2023/12/31 windows 27 豆豆
生活随笔 收集整理的這篇文章主要介紹了 VB.NET版机房收费系统—DataGridView应用 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

? 事實(shí)上,先前剛剛開始敲機(jī)房的時候,剛用到DataGridView的時候,總顯得力不從心,先要一下子就學(xué)會,看了非常多的資料,但是依照寫的時候,自己有不知道從什么地方下手,于是,當(dāng)自己用查詢SQL語句,并用DataGridView顯示出來,這個功能不能實(shí)現(xiàn),但這里給大家寫一下,假設(shè)有什么地方不好的會,請大家指出:

? 第一版:

? 窗口設(shè)計(jì):

?

? 須要的控件:

? DateTimePicker、DataSet、DataGridView

? 把握的三步驟:

? 第一步:使用視圖,創(chuàng)建出你要的產(chǎn)尋結(jié)果的視圖(假設(shè)是一個表就能夠解決的,就能夠僅僅用一個查詢即可了)。

? 第二步:查詢視圖返回DataTable

? 第三步:直接讓GridView的DataSource等于DataTable中的數(shù)據(jù)即可了。

? 詳細(xì)實(shí)現(xiàn)方法:

??

Imports System.Data.SqlClient Imports System.Windows.Forms Public Class FrmOperGetChargePrivate Sub btnqurry_Click(ByVal sender As Object, e As EventArgs) Handles btnqurry.ClickDim Start_DateTime As String '定義為string是由于SQL表中的該字段是string類型Dim End_dateTime As StringStart_DateTime = Convert.ToString(DateTimePicker1.Value + " 00:00:00") '設(shè)置的為字符串類型也能夠直接進(jìn)行比較,加上后面的00:00:00是由于數(shù)據(jù)庫中的數(shù)據(jù)時有時間的End_dateTime = Convert.ToString(DateTimePicker2.Value) '接收來自DateTimePicker的數(shù)據(jù)Dim strConnection As String = "Server=mx; Database=ReconsitutionCharge_sys; User ID=sa; Password=123456"Dim sqlConnection1 As New SqlConnection(strConnection)Dim dataAdapter As New SqlDataAdapterDim dst As New DataSet '存儲在DataSet中Dim dt As New DataTable '接收查詢結(jié)果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 = cmddataAdapter.Fill(dst, "Recharge") '將DataAdapter中的數(shù)據(jù)傳到DataSet中dt = dst.Tables("Recharge") '把DataSet中的數(shù)據(jù)返回給DataTablesqlConnection1.Close()DataGridView1.AutoGenerateColumns = True '自己主動創(chuàng)建列DataGridView1.DataSource = dt '數(shù)據(jù)源End Sub End Class

? 事實(shí)上這個應(yīng)該也能夠用三層來實(shí)現(xiàn)。

??

? ??


總結(jié)

以上是生活随笔為你收集整理的VB.NET版机房收费系统—DataGridView应用的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。