前面的博客记录了使用MSHFGrid控件的各种操作，今天开始学习另一个数据库控件DBGrid。还是以用户归档的数据表为例子，假设用户归档已经建立好，数据模拟（随机函数）也已经写好，定期添加用户归档代码已经写好（这些功能代码参考其他博客），项目模块中数据表查询的代码也写好。相关代码请参考其他博客。

     画面上放置了一个DTPicker控件，名字修改为DT，一个DBGRID控件，名字修改为Report，一个按钮，按钮的鼠标点击事件添加以下vbs代码：

Sub OnClick(ByVal Item)               
Dim DBName,ssql,scon,conn
Dim Report,DT
Dim sYear,sMonth,sDay,sDate
Set DT=ScreenItems("DT")
Set Report=ScreenItems("Report")
Set DBName=HMIRuntime.Tags("@DatasourceNameRT")
sYear=Year(DT.Value)
sMonth=Month(DT.Value)
sDay=Day(DT.Value)
sDate=sYear & "/" & sMonth & "/" & sDay
ssql="select Curdate as '日期',Curtime as '时间',FT101 as '流量1',FT102 as '流量2',FT103 as '流量3'," _
     & "PT101 as '压力1',PT102 as '压力2',PT103 as '压力3',TT101 as '温度1',TT102 as '温度2',TT103 as '温度3'," _
     & "LT101 as '液位1',LT102 as '液位2',LT103 as '液位3' from UA#UA where Curdate='" & sDate & "'"
SearchTable report,DBName.Read ,ssql
End Sub