纯净水管理系统(五)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

纯净水管理系统(五)
    Unload Me
End Sub
Private Sub Form_Load()
      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
    sqlconnection = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cjs.mdb"
    rs.Open "select * from outcard", sqlconnection, adOpenDynamic
    Call disprecord
End Sub
Private Sub disprecord()
    If rs.EOF Then rs.MoveLast
    If rs.BOF Then rs.MoveFirst
    DTPicker1.Value = rs.Fields("date")
    Text2.Text = rs.Fields("cata")
    Text3.Text = rs.Fields("numb")
    Text4.Text = rs.Fields("price")
    Text5.Text = rs.Fields("money")
End Sub
Private Function checkdata() As Boolean
    If Len(Trim(Text2.Text)) <= 0 Or Len(Trim(Text3.Text)) <= 0 Or Len(Trim(Text4.Text)) <= 0 Or Len(Trim(Text5.Text)) <= 0 Then
       MsgBox "请输入类别、数量、单价、金额！"
       checkdata = False
    Else
       checkdata = True
    End If
End Function
Private Sub outstore()
    Set rstemp = New adodb.Recordset
    rstemp.LockType = adLockOptimistic
    sqlconnection = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cjs.mdb"
    rstemp.Open "select * from card", cn, adOpenDynamic
    If rstemp.RecordCount = 1 Then
       rstemp.Fields("numb") = rstemp.Fields("numb") - Text3.Text
       rstemp.Update
    End If
    rstemp.Close
    Set rstemp = Nothing
End Sub
Private Sub Text5_GotFocus()
    Dim s1 As Integer
    Dim s2 As Currency
    If Len(Trim(Text3.Text)) = 0 Or Len(Trim(Text4.Text)) = 0 Then
       Exit Sub
    End If
    s1 = CSng(Text3.Text)
    s2 = CSng(Text4.Text)
    Text5.Text = s1 * s2
End Sub
4.7 “水卡入库查询”模块
水卡入库查询模块主要查询所有商品入库信息。窗体如图18。

                    图18 水卡入库查询模块图
                      Fig18 Water storage module chart inquires card
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    sql = "date=#" & Trim(DTPicker1.Value) & "#"
    Call insearch(sql)
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
    sql = ""
    Call insearch(sql)
End Sub
Private Sub insearch(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 incard", cn, adOpenDynamic
    Else
       rs.Open "select * from incard where " & Trim(sql), cn, adOpenDynamic
    End If
       Set DataGrid1.DataSource = rs
End Sub
4.8 “水卡库存查询”模块
水卡库存查询模块主要查询所有商品库存信息。窗体如图19。

                                 图19 水卡库存查询图
                            Fig19 Water card stock inquiry
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
    sql = ""
    Call insearch(sql)
End Sub
Private Sub insearch(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
       rs.Open "select * from card", cn, adOpenDynamic
       Set DataGrid1.DataSource = rs
End Sub
4.9 “水卡出库查询”模块
水卡出库查询模块主要查询所有商品出库信息。窗体如图20。

                            图20 水卡出库查询图
                  Fig20 Water card. Outbound inquires
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    sql = "date=#" & Trim(DTPicker1.Value) & "#"
    Call outcardsearch(sql)
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
    sql = ""
    Call outcardsearch(sql)
End Sub
Private Sub outcardsearch(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 outcard", cn, adOpenDynamic
    Else
       rs.Open "select * from outcard where " & Trim(sql), cn, adOpenDynamic
    End If
       Set DataGrid1.DataSource = rs
End Sub
4.10 “纯净水入库”模块
纯净水入库模块主要管理纯净水入库信息，增加纯净水入库表记录，同时修改纯净水库存表记录。窗体如图21。

                      图21 纯净水入库模块图
                           Fig21 Water storage module chart
程序代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    '设置sql语句
    sql = "where date=#" & Trim(DTPicker1.Value) & "#"
    '查询记录显示在datagrid控件
    Call insearch(sql)
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
    'sql查询语句
    sql = ""
    '调用过程查询所有记录，显示在datagrid控件中
    Call insearch(sql)
End Sub
Private Sub insearch(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
    '打开记录集
    rs.Open "select * from instore " & Trim(sql), cn, adOpenDynamic
    'datagrid控件数据源赋予记录集
    Set DataGrid1.DataSource = rs
End Sub
4.11 “纯净水出库”模块
纯净水出库模块主要是管理商品出库信息，增加纯净水出库表记录，同时修改纯净水库存表记录。窗体如图22。

                    图22 纯净水出库模块图
              Fig22 Water outbound module chart
代码如下：
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.12 “纯净水入库查询”模块
纯净水入库查询模块主要查询所有商品入库信息。窗体如图23。

                             图23 纯净水入库查询模块
                      Fig23 Water storage inquiry module
程序代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    '设置sql语句
    sql = "where date=#" & Trim(DTPicker1.Value) & "#"
    '查询记录显示在datagrid控件
    Call insearch(sql)
End Sub
Private Sub Form_Load()
    'sql查询语句
    sql = ""
    '调用过程查询所有记录，显示在datagrid控件中
    Call insearch(sql)
End Sub
Private Sub insearch(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
    '打开记录集
    rs.Open "select * from instore " & Trim(sql), cn, adOpenDynamic
    'datagrid控件数据源赋予记录集
    Set DataGrid1.DataSource = rs
End Sub
4.13 “纯净水库存查询”模块
纯净水库存查询模块主要查询所有商品库存信息。窗体如图24。

                    图24 纯净水库存查询模块
                        Fig24 Water stock inquiry module
代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As Recordset
Private Sub Command1_Click()
    '关闭窗体
    Unload Me
End Sub
Private Sub Form_Load()
    '设置sql语句
    sql = ""
    '查询数据显示在datagrid控件中
    Call insearch(sql)
End Sub
Private Sub insearch(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
    'sql语句不同查询不同记录
    If Len(Trim(sql)) <= 0 Then
       rs.Open "select * from store", cn, adOpenDynamic
    Else
        '按sql语句条件查询
       rs.Open "select * from store where " & Trim(sql), cn, adOpenDynamic
    End If
    '在datagrid控件中显示记录集
    Set DataGrid1.DataSource = rs
End Sub
4.14 “纯净水出库查询”模块
纯净水出库查询模块主要查询所有商品库存信息。窗体如图25。

首页上一页 2 3 4 5 6 下一页尾页 5/6/6

纯净水管理系统(五)由毕业论文网（www.huoyuandh.com）会员上传。