VB.NET版机房收费系统—DataGridView应用
事实上,先前刚刚開始敲机房的时候,刚用到DataGridView的时候,总显得力不从心,先要一下子就学会,看了非常多的资料,但是依照写的时候,自己有不知道从什么地方下手,于是,当自己用查询SQL语句,并用DataGridView显示出来,这个功能不能实现,但这里给大家写一下,假设有什么地方不好的会,请大家指出:
第一版:
窗口设计:
须要的控件:
DateTimePicker、DataSet、DataGridView
把握的三步骤:
第一步:使用视图,创建出你要的产寻结果的视图(假设是一个表就能够解决的,就能够仅仅用一个查询即可了)。
第二步:查询视图返回DataTable
第三步:直接让GridView的DataSource等于DataTable中的数据即可了。
详细实现方法:
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public 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 Sub
End Class
事实上这个应该也能够用三层来实现。
VB.NET版机房收费系统—DataGridView应用的更多相关文章
- VB.NET版机房收费系统---导出Excel表格
datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,能够显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件很easy和直观,大多数情 ...
- VB.NET版机房收费系统---异常处理
异常处理,英文名为Exceptional Handling, 那时年少,还记得那年一起学习过的VB6.0的时候,常常使用ONError的错误语句.与传统VB6.0中的OnError语句相比.NET平台 ...
- VB.net版机房收费系统——结账功能实现(调错与优化)
调错部分 上一篇博客<VB.net版机房收费系统--结账功能实现(代码部分>说的是结账功能的实现,亮出了代码.是在为这篇博客做铺垫.尽管结账功能代码是借鉴的巨人的博客.可是自己比着葫芦画瓢 ...
- VB.NET版机房收费系统---报表
报表,即报告情况的表格,简单的说:报表就是用表格.图表等格式来动态显示数据,可以用公式表示为:"报表 = 多样的格式 + 动态的数据". 在没有计算机以前,人们利用纸和笔来记录数据 ...
- VB.NET版机房收费系统---七仙女之系统登录
VB.NET第一版机房收费系统,告一段落,验收的时候.问题也是大大的存在,没实用上设计模式,什么触发器.存储过程,都没实用上.看看其她小伙伴的,七层实现登录?那是什么东东,相比較我的三层而言,多了两倍 ...
- VB.NET版机房收费系统---组合查询
查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我? 啊哦,这个信息并不是我想 ...
- VB.NET版机房收费系统---外观层如何写
外观设计模式,<大话设计模式>第103页详细讲解,不记得这块知识的小伙伴可以翻阅翻阅,看过设计模式,敲过书上的例子,只是学习的第一步,接着,如果在我们的项目中灵活应用,把设计模式用出花儿来 ...
- VB.NET版机房收费系统---外观层怎样写
外观设计模式.<大话设计模式>第103页具体解说,不记得这块知识的小伙伴能够翻阅翻阅,看过设计模式,敲过书上的样例,仅仅是学习的第一步,接着,假设在我们的项目中灵活应用,把设计模式用出花儿 ...
- VB.NET版机房收费系统—数据库设计
之前第一遍机房收费的时候,用的数据库是别人的.认知也仅仅能建立在别人的基础上,等自考中<数据库系统原理>这本书学完了之后,再去看曾经的数据库,发现数据库真的还须要进一步的优化.以下是我设计 ...
随机推荐
- 【POJ1442】【Treap】Black Box
Description Our Black Box represents a primitive database. It can save an integer array and has a sp ...
- Bootstrap_表单_表单提示信息
平常在制作表单验证时,要提供不同的提示信息.在Bootstrap框架中也提供了这样的效果.使用了一个"help-block"样式,将提示信息以块状显示,并且显示在控件底部. < ...
- 颤抖吧,Css3
相关文章地址:http://sc.chinaz.com/info/140315283609.htm http://files.cnblogs.com/xinlinux/csshake.min.css ...
- Linux系统管理技术手册——第6章 添加新用户
6.1/etc/passwd文件 用户登录时Linux识别用户的文件/etc/passwd /etc/passwd包括7个字段: 登录名(不超过32位,使用NIS系统后不超过8位) 经过加密的口令或口 ...
- 已安装好的tengine编译添加未被安装的模块
nginx -V 可以查看原来编译时都带了哪些参数 原来的参数: --prefix=/usr/local/tengine 需添加的参数: --with-http_stub_status_module ...
- Vue 2.0基础
我们将会选择使用一些vue周边的库vue-cli, vue-router,vue-resource,vuex 1.使用vue-cli创建项目2.使用vue-router实现单页路由3.用vuex管理我 ...
- Webpack 傻瓜式指南(一)
modules with dependencies webpack module bundler static assetss .js .js .png Webpack傻瓜式指南 n ...
- angular2 学习笔记 (Typescript - Attribute & reflection)
refer : https://www.npmjs.com/package/reflect-metadata refer : https://www.typescriptlang.org/docs/h ...
- Hibernate中的事务隔离
在我们的项目中,老发现程序报告sesssion is closed或者因数据已经被其他事务修改而导致当前事务无法提交,由于系统的运行用户最多也就几十个人,所以考虑使用严格的事务隔离来防止这种类型的问题 ...
- P2032 「Poetize9」升降梯上
描述 开启了升降梯的动力之后,探险队员们进入了升降梯运行的那条竖直的隧道,映入眼帘的是一条直通塔顶的轨道.一辆停在轨道底部的电梯.和电梯内一杆控制电梯升降的巨大手柄.Nescafe之塔一共有N层,升降 ...