图25 纯净水出库查询
Fig25 Water delivery
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
sql = "where date=#" & Trim(DTPicker1.Value) & "#"
Call outsearch(sql)
End Sub
Private Sub Form_Load()
sql = ""
Call outsearch(sql)
End Sub
Private Sub outsearch(ByVal sql As String)
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cjs.mdb;"
Set rs = New adodb.Recordset
rs.LockType = adLockOptimistic
If Len(Trim(sql)) <= 0 Then
rs.Open "select * from outstore", cn, adOpenDynamic
Else
rs.Open "select * from outstore " & Trim(sql), cn, adOpenDynamic
End If
Set DataGrid1.DataSource = rs
End Sub
4.15 “关于窗体”模块
关于窗体模块主要用来声明程序名称、版本、公司等。窗体如图26。
图26 关于窗体模块图
Fig26 About form module chart
4.16 “日积月累”模块
日积月累窗体主要是用来显示每日小提示。主要包括一个提示信息文本文件。如图27。
