纯净水管理系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

纯净水管理系统(五)

作者: 浏览:617次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：纯净水管理系统(五)，论文范文关键词：纯净水管理系统(五)
纯净水管理系统(五)毕业论文范文介绍开始：

    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.zjwd.net)整理,更多论文,请点论文范文查找