他山之石——VBA出入库管理

说实话，不知道这样的程序还有没有实际价值？也就是说，有没有人在实际的出入库业务中使用这样的Excel程序来辅助业务？

Sub 入库录入()Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As StringDim mydata As New Data查询mydate = [e6]: hm = [g6]If mydata.是否存在("Ruku", "入库单号码", hm) = True ThenMsgBox "已存在该入库单号码，请不要重复录入"Exit SubElsearr = Range("c8:g" & Range("f18").End(xlUp).Row)For x = 1 To UBound(arr)sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)sql = "Insert into ruku (入库日期, 入库单号码, 商品代码,商品名称,入库数量,入库单价,入库金额) VALUES(" & sr & ")"mydata.执行sql命令 (sql)Next xMsgBox "成功录入数据库"End If
End Sub
Sub 入库查询()Dim mydata As New Data查询Dim sql As String, arr, x, yIf mydata.是否存在("Ruku", "入库单号码", [g6]) = False ThenMsgBox "该入库单号码不存在"Exit SubElseApplication.EnableEvents = FalseRange("c8:f17") = ""sql = "select * from RuKu where 入库单号码='" & [g6] & "'"arr = mydata.筛选结果(sql)[e6] = arr(0, 0)For y = 0 To UBound(arr, 2)For x = 2 To UBound(arr) - 1Cells(y + 8, x + 1) = arr(x, y)Next xNext yApplication.EnableEvents = TrueEnd If
End Sub
Sub 入库单修改()Call 入库删除Call 入库录入
End Sub
Sub 入库删除()Dim data As New Data查询, sql As StringIf data.是否存在("Ruku", "入库单号码", [g6]) = False ThenMsgBox "此入库单号码不存在"Exit SubElsesql = "Delete from Ruku where 入库单号码='" & [g6] & "'"data.执行sql命令 sqlMsgBox "已删除入库单号码为" & [g6] & "的记录"End If
End Sub
Sub 代码表存为数组()Dim data As New Data查询Dim sql As StringDim arr, ysql = "Select * from 代码表"arr = data.筛选结果(sql)For y = 1 To UBound(arr, 2)D(arr(0, y)) = arr(1, y) & "-" & arr(2, y)Next y
End Sub
Sub 生成下拉()Dim sr As StringCall 代码表存为数组sr = Join(D.Keys, ",")With Range("c8:c17").Validation.Delete.Add Type:=xlValidateList, Formula1:=srEnd With
End SubSub 出库录入()Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As StringDim mydata As New Data查询mydate = [e6]: hm = [g6]If mydata.是否存在("ChuKu", "出库单号码", hm) = True ThenMsgBox "已存在该出库单号码，请不要重复录入"Exit SubElsearr = Range("c8:g" & Range("f18").End(xlUp).Row)For x = 1 To UBound(arr)sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)sql = "Insert into ChuKu (销售日期, 出库单号码, 商品代码,商品名称,销售数量,销售单价,销售金额) VALUES(" & sr & ")"mydata.执行sql命令 (sql)Next xMsgBox "成功录入数据库"End If
End Sub
Sub 出库查询()Dim mydata As New Data查询Dim sql As String, arr, x, yIf mydata.是否存在("ChuKu", "出库单号码", [g6]) = False ThenMsgBox "该出库单号码不存在"Exit SubElseApplication.EnableEvents = FalseRange("c8:f17") = ""sql = "select * from ChuKu where 出库单号码='" & [g6] & "'"arr = mydata.筛选结果(sql)[e6] = arr(0, 0)For y = 0 To UBound(arr, 2)For x = 2 To UBound(arr) - 1Cells(y + 8, x + 1) = arr(x, y)Next xNext yApplication.EnableEvents = TrueEnd If
End Sub
Sub 出库单修改()Call 出库删除Call 出库录入
End Sub
Sub 出库删除()Dim data As New Data查询, sql As StringIf data.是否存在("ChuKu", "出库单号码", [g6]) = False ThenMsgBox "此入库单号码不存在"Exit SubElsesql = "Delete from ChuKu where 出库单号码='" & [g6] & "'"data.执行sql命令 sqlMsgBox "已删除出库单号码为" & [g6] & "的记录"End If
End Sub

他山之石——VBA出入库管理相关推荐

简单实用出入库管理系统开源实用进销存管理系统快销品管理平台电商进出库管理系统全开源
大家好,给大家推荐最近给研究的出入库管理平台,非常实用,直接使用EXCEL开发,业务基本小企业需求,如果有特别需要,自己直接修改. 对于一些规模较小的快销品.电商.实体店和家具店等小规模企业, 使用进 ...
Android pda出入库管理,出入库PDA管理系统软件
随着经济的高速发展,市场的日新月异,仓库管理越来越重要起来,企业里从原料的入库到成品的出库都需经过仓库来管理控制,仓库工作责任重大.数据即时准确犹为关键,现代企业大多都借助出入库管理系统软件来管控仓库 ...
Android pda出入库管理,WMS+PDA扫描出入库管理系统
原标题:WMS+PDA扫描出入库管理系统出入库工作一直是让仓库人员比较头疼的一项工作,因为涉及到的工作量大,部门广,人员多,出错率高方面,提升了出入库的难度. 再很多传统仓库中,出入库工作是通过纸张 ...
SpringBoot+Vue打造资产出入库管理系统
作者主页:Designer 小郑作者简介:浙江某公司软件工程师,负责开发管理公司OA.CRM业务系统,全栈领域优质创作者,CSDN学院.蓝桥云课认证讲师,开发过20余个前后端分离实战项目,主要发展方 ...
java计算机毕业设计钢材出入库管理系统（附源码、数据库）
java计算机毕业设计钢材出入库管理系统(附源码.数据库) 项目运行环境配置: Jdk1.8 + Tomcat8.5 + Mysql + HBuilderX(Webstorm也行)+ Eclispe ...
RFID出入库管理是如何实施的
RFID技术在仓库管理的应用非常广泛,仓库管理包括入库.出库.盘点等,传统的方式统计起来非常累,效率低,使用RFID技术,无线采集标签信息,实现批量.快速盘点,省时.省力.省心. RFID出入库管理是 ...
简单实用的出入库管理系统，帮你实现库存精细化管理！
出入库管理系统是用于对工厂/批发商/零售店的商品出入库情况进行记录.管理和查询的软件系统: 可以帮助工厂/批发商/零售店精准管理商品,有效预测库存需求,避免库存过多或不足,提高库存管理效率,比同行更快 ...
库存出入库管理业务流程图怎么做？
我们在日常工作中,最讲究的就是方法,办一件事情,那么,结果一定指向你想要的,而无任何方法的具体实施,就设计到流程. 没见事情都有它发生的流程,做饭有做饭的流程:洗菜--切菜--炒菜.哪怕它有多普通多小 ...
出入库管理系统1（配件报表-后录编号）
. 本出入库系统支持事后输入配件编号,进销存出入库管理

他山之石——VBA出入库管理

他山之石——VBA出入库管理相关推荐

最新文章

热门文章