纯净水管理系统(四)

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

纯净水管理系统(四)
End Sub
Private Sub Command7_Click()
    Call outsearch_Click
End Sub
Private Sub Command8_Click()
    Call about_Click
End Sub
Private Sub Command9_Click()
    Call outcardsearch_Click
End Sub
Private Sub about_Click()
    frmAbout.Show
End Sub
Private Sub cardsearch_Click()
    frmcardsearch.Show
End Sub
Private Sub customer_Click()
    frmcustomer.Show
End Sub
Private Sub incard_Click()
    frmincard.Show
End Sub
Private Sub incardsearch_Click()
    frmincardsearch.Show
End Sub
Private Sub insearch_Click()
    frminsearch.Show
End Sub
Private Sub instore_Click()
    frminstore.Show
End Sub
Private Sub outcard_Click()
    frmoutcard.Show
End Sub
Private Sub outcardsearch_Click()
    frmoutcardsearch.Show
End Sub
Private Sub outsearch_Click()
    frmoutsearch.Show
End Sub
Private Sub outstore_Click()
    frmoutstore.Show
End Sub
Private Sub reg_Click()
    frmreg.Show
End Sub
Private Sub showtip_Click()
    frmTip.Show
End Sub
Private Sub storesearch_Click()
    frmsearch.Show
End Sub
Private Sub user_Click()
    frmuser.Show
End Sub
4.4 “客户管理”模块
客户管理模块主要是管理商品资料信息。包括3个标签控件、3个文本框控件和8个CommandButton控件。窗体如图15。

                         图15 客户管理模块图
                  Fig15 Customer management module chart
程序代码如下：
Dim rs As adodb.Recordset
Private Sub Command1_Click()
    rs.MoveFirst
    Call disprecord
End Sub
Private Sub Command2_Click()
    rs.MovePrevious
    Call disprecord
End Sub
Private Sub Command3_Click()
    rs.MoveNext
    Call disprecord
End Sub
Private Sub Command4_Click()
    rs.MoveLast
    Call disprecord
End Sub
Private Sub Command5_Click()
    If checkdata = True Then
    rs.AddNew
       rs.Fields("name") = Trim(Text1.Text)
       rs.Fields("address") = Trim(Text2.Text)
       rs.Fields("phone") = Trim(Text3.Text)
       rs.Update
       MsgBox "新增数据成功！"
    End If
End Sub
Private Sub Command6_Click()
    rs.Delete
    rs.MoveNext
    MsgBox "删除数据成功！"
    Call disprecord
End Sub
Private Sub Command7_Click()
    rs.Fields("name") = Trim(Text1.Text)
    rs.Fields("address") = Trim(Text2.Text)
    rs.Fields("phone") = Trim(Text3.Text)
    rs.Update
    MsgBox "数据更新成功！"
    Call disprecord
End Sub
Private Sub Command8_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    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 customer", sqlconnection, adOpenDynamic
    Call disprecord
End Sub
Private Sub disprecord()
    If rs.EOF And rs.BOF Then Exit Sub
    If rs.EOF Then rs.MoveLast
    If rs.BOF Then rs.MoveFirst
    Text1.Text = rs.Fields("name")
    Text2.Text = rs.Fields("address")
    Text3.Text = rs.Fields("phone")
End Sub
Private Function checkdata() As Boolean
    If Len(Trim(Text1.Text)) <= 0 Or Len(Trim(Text2.Text)) <= 0 Then
       MsgBox "请输入客户名称、地址和电话！"
       checkdata = False
    Else
       checkdata = True
    End If
End Function
4.5 “水卡入库”模块
水卡入库模块主要是管理水卡入库信息，增加水卡入库表记录，同时修改水卡库存表记录。窗体如图16。

                          图16 水卡入库模块图
                Fig16 Water storage module chart card
程序代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As adodb.Recordset
Private Sub Command1_Click()
    rs.MoveFirst
    Call disprecord
End Sub
Private Sub Command2_Click()
    rs.MovePrevious
    Call disprecord
End Sub
Private Sub Command3_Click()
    rs.MoveNext
    Call disprecord
End Sub
Private Sub Command4_Click()
    rs.MoveLast
    Call disprecord
End Sub
Private Sub Command5_Click()
    If checkdata = True Then
       rs.AddNew
       rs.Fields("numb") = Trim(Text3.Text)
       rs.Fields("date") = Trim(DTPicker1.Value)
       rs.Fields("cata") = Trim(Text4.Text)
       rs.Update
       Call incard
       MsgBox "入库数据成功！"
       Text3.Text = ""
       Text4.Text = "新增"
       DTPicker1.Value = Date
    End If
End Sub
Private Sub Command6_Click()
    frmincardsearch.Show , frmmain
End Sub
Private Sub Command8_Click()
    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 incard", sqlconnection, adOpenDynamic
    Call disprecord
End Sub
Private Sub disprecord()
    If rs.EOF Then rs.MoveLast
    If rs.BOF Then rs.MoveFirst
    Text3.Text = rs.Fields("numb")
    Text4.Text = rs.Fields("cata")
    DTPicker1.Value = rs.Fields("date")
End Sub
Private Function checkdata() As Boolean
    If Len(Trim(Text3.Text)) <= 0 Then
       MsgBox "请输入入库数量！"
       checkdata = False
    Else
       checkdata = True
    End If
End Function
Private Sub incard()
    Dim rstemp As adodb.Recordset
    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
4.6 “水卡出库”模块
水卡出库模块主要管理商品出库信息，增加水卡出库表记录，同时修改水卡库存表记录。窗体如图17。

                       图17 水卡出库模块图
               Fig17 Water delivery card module chart
程序代码如下：
Dim cn As Connection
Dim rs As adodb.Recordset
Dim rstemp As adodb.Recordset
Private Sub Command1_Click()
    rs.MoveFirst
    Call disprecord
End Sub
Private Sub Command2_Click()
    rs.MovePrevious
    Call disprecord
End Sub
Private Sub Command3_Click()
    rs.MoveNext
    Call disprecord
End Sub
Private Sub Command4_Click()
    rs.MoveLast
    Call disprecord
End Sub
Private Sub Command5_Click()
    If checkdata = True Then
       rs.AddNew
       rs.Fields("date") = Trim(DTPicker1.Value)
       rs.Fields("cata") = Trim(Text2.Text)
       rs.Fields("numb") = Trim(Text3.Text)
       rs.Fields("price") = Trim(Text4.Text)
       rs.Fields("money") = Trim(Text5.Text)
       rs.Update
       Call outstore
       MsgBox "出库数据成功！"
       DTPicker1.Value = Date
       Text2.Text = "销售"
       Text3.Text = ""
       Text4.Text = ""
       Text5.Text = ""
    End If
End Sub
Private Sub Command6_Click()
    frmoutcardsearch.Show , frmmain
End Sub
Private Sub Command8_Click()

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

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