ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 29389|回复: 67

[讨论] 小白做个进销存

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2017-8-19 23:14 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 uynayna 于 2017-8-20 11:19 编辑

        几年前,因为工作的需要,找到了Excel Home,在论坛上下载了n多资料,东拼西凑后用于工作上,对于工作有很大帮助,水平一直很烂。一直想做个系统点的东西,提高一下自己的水平,因为懒惰未能实现,也羞于见人。最近有点空闲时间,想把这个想法兑现,做个进销存,Excel+Access。论坛上进销存的精品很多,我做这个就当是做个作业,进度和论坛同步,论坛也能督促我一下,新人及有兴趣的网友可以和我一起做,高手、大神们略过。
       总体思路,Excel前台操作,Access后台做数据记录。数据库分为基础资料、进销存汇总表、现存量表等几部分。操作分期初建账、基础数据操作、出入库单据、数据查询4部分(采购订单、销售订单、生产订单、成本核算如果大家有兴趣,一起探讨)。本人使用环境:winxp、office2010。vsFlex8.ocx复制到windows\system32文件夹,并注册。
       建立数据库:新建一个文件夹命名为“一起做个进销存”,文件里新建ACCESS数据库命名为“进销存数据库”,建立数据表“用户档案”。前期准备到此结束。
       做个登录框:文件夹内新建excel文件,Alt+F11 打开Visual Basic 编辑器,标题栏:插入→用户窗体,标题栏工具→引用,引用ADO和treeview控件,及一楼附件里面的VSFlexGrid8.0,并在工具箱里面附加控件,ListView控件一起加上吧。调整窗体大小,窗体名称修改为Login或登入,你能看懂就好,在窗体上添加2个Label,2个text,2个CommandButton。登入ID:1001,密码:admin,数据库“用户档案”表里也有,登入验证用户名和密码就是一个学习连接Access数据库,执行查询语句的学习过程,曾经用过我很多时间。Excel功能区用Custom UI Editor进行了修改,修改过程比较简单,先不说了,看情况。找了半天图片,明天有时间把回调做了。

附件在二楼,登入ID:1001,密码:admin,以后只更新Excel文件,不更新Access文件,Excel文件要放在二楼附件的文件夹中使用。


补充内容 (2017-8-24 19:55):
   目的是和大家一起完成,要求了解基本SQL语句,如果你不了解,会稍感吃力。在过程中,我们会一起学习和使用,建立数据库、建立数据表,对数据表进行增、改、删、查的基本操作。会用到一维数组。关于控件的问题,用到了CommandButton、TextBox1、ComboBox,3种最基本的控件,另外使用了第三方控件VSFlexGrid,因为它实在是太好了,使程序简化了N多。如果你对第三方控件深恶痛绝,请略过。如果你和我一起完成了这个“进销存”的操作过程,打造一个更适合你的的门店销售、销售发货之类的小系统应该没有问题。
1.jpg
2.jpg

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-8-19 23:15 | 显示全部楼层
附件忘记发了。

一起做个进销存.rar

273.74 KB, 下载次数: 2605

TA的精华主题

TA的得分主题

发表于 2017-8-19 23:31 | 显示全部楼层
原来还没有做...我还以为已经做好了,打开一看,,,空的

TA的精华主题

TA的得分主题

发表于 2017-8-19 23:32 | 显示全部楼层
楼主,你的那个菜单栏是怎么弄的?
新图片.jpg

TA的精华主题

TA的得分主题

发表于 2017-8-19 23:36 | 显示全部楼层
凌空一羽 发表于 2017-8-19 23:32
楼主,你的那个菜单栏是怎么弄的?

Ribbon..............

TA的精华主题

TA的得分主题

发表于 2017-8-20 00:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-8-20 08:56 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-8-20 09:02 | 显示全部楼层
你的想法是好的,佩是现在的人都很现实,免费的没有多少人愿意帮你,其实做起来没啥难度也没技术含量,主要是工作量稍微大点而以

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-8-20 09:22 | 显示全部楼层
3.jpg
软件打开后界面很简单,如图,选择File→Open你想要修改菜单的Excel文件。
4.jpg
5.jpg
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon>
   <tabs>
     <tab idMso="TabHome" visible="false" /> <tab idMso="TabInsert" visible="false" /> <tab idMso="TabPageLayoutExcel" visible="false" /> <tab idMso="TabFormulas" visible="false" /> <tab idMso="TabData" visible="false" /> <tab idMso="TabReview" visible="false" /> <tab idMso="TabView" visible="false" /> <tab idMso="TabDeveloper" visible="false" /> <tab idMso="TabAddIns" visible="false" />  <tab id="XTGL" label="系统管理">
         <group id="XTWH" label="系统维护">
           <button id="CJSJK" label="创建数据库" size="large" imageMso="DatabaseCopyDatabaseFile" />
           <button id="ModiUser" label="修改用户名" size="large" imageMso="AccessRelinkLists" />
           <button id="ModiPassword" label="修改密码" size="large" imageMso="AdpPrimaryKey" />
       </group>
         <group id="QCJZ" label="期初建账">
           <button id="CJSJB" label="创建数据表" size="large" imageMso="BorderDrawLine" />
           <button id="QCKC" label="期初库存" size="large" imageMso="AccessRelinkLists" />
       </group>
         <group id="QMJZ" label="期末结账">
           <button id="QMKCJZ" label="期末库存结转" size="large" imageMso="BehindText" />
       </group>
       </tab>
       <tab id="JCDA" label="基础档案">
       <group id="GSNBDA" label="内部档案">
           <button id="BMDA" label="部门档案" size="large" imageMso="BlogHomePage" />
           <button id="YGDA" label="员工档案" size="large" imageMso="AccessOfflineLists" />
           <button id="YHDA" label="用户档案" size="large" imageMso="AccessOnlineLists" />
       </group>
       <group id="WLDW" label="往来单位">
           <button id="GYS" label="供应商档案" size="large" imageMso="AdpDiagramAddRelatedTables" />
           <button id="KH" label="客户档案" size="large" imageMso="AddOrRemoveAttendees" />      
       </group>
       <group id="WLDA" label="物料档案">
           <button id="CHDA" label="存货档案" size="large" imageMso="BorderMoreColorsDialog" />
           <button id="BOM" label="BOM档案" size="large" imageMso="ControlUnboundObjectFrame" />      
       </group>
       </tab>
       <tab id="XSGL" label="销售管理">
       <group id="XSDDGL" label="销售订单管理">
           <button id="XSDD" label="销售订单" size="large" imageMso="DatabaseSqlServer" />
           <button id="XS1" label="销售订单列表" size="large" imageMso="DatabaseSwitchboardManager" />
       </group>
       <group id="XSFH" label="销售发货">
           <button id="XSFHD" label="销售发货单" size="large" imageMso="BlogPublish" />
           <button id="XS3" label="订单执行情况" size="large" imageMso="BookmarkInsert" />
           <button id="XS4" label="销售报表" size="large" imageMso="BibliographyStyle" />
       </group>
       </tab>
       <tab id="CGGL" label="采购管理">
         <group id="CGDDGL" label="采购订单管理">
           <button id="CG1" label="采购申请单" size="large" imageMso="FileSendAsAttachment" />
           <button id="CG2" label="采购订单" size="large" imageMso="CreateReport" />
       </group>
         <group id="CGRCYW" label="采购日常业务">
           <button id="CG3" label="采购到货单" size="large" imageMso="AdpDiagramAddTable" />
           <button id="CG4" label="到货退货单" size="large" imageMso="FieldsMenu" />
       </group>
         <group id="CGBB" label="采购报表">
           <button id="CG5" label="采购订单执行情况" size="large" imageMso="CreateReportInDesignView" />
           <button id="CG6" label="采购报表" size="large" imageMso="FieldsMenu" />
       </group>
       </tab>
       <tab id="SCGL" label="生产管理">
         <group id="SCDD" label="生产订单">
           <button id="SC1" label="生产订单" size="large" imageMso="FileSendAsAttachment" />
           <button id="SC2" label="生产订单列表" size="large" imageMso="CreateReport" />
       </group>
          <group id="SCBB" label="生产报表">
           <button id="SC3" label="生产缺料表" size="large" imageMso="CreateReportInDesignView" />
           <button id="SC4" label="生产工时表" size="large" imageMso="FieldsMenu" />
       </group>
       </tab>
       <tab id="KCGL" label="库存管理">
         <group id="RKYW" label="入库业务">
           <button id="RK1" label="采购入库单" size="large" imageMso="AddToFavorites" />
           <button id="RK2" label="产成品入库单" size="large" imageMso="CreateReport" />
           <button id="RK3" label="其他入库单" size="large" imageMso="CreateReportInDesignView" />
       </group>
       <group id="CKYW" label="出库业务">
           <button id="KC1" label="销售出库单" size="large" imageMso="FileSendAsAttachment" />
           <button id="KC2" label="材料出库单" size="large" imageMso="CreateReport" />
           <button id="KC3" label="其它出库单" size="large" imageMso="AdpDiagramNewTable" />
       </group>
       <group id="JYGH" label="借用归还">
           <button id="JYGH1" label="借用单" size="large" imageMso="AdpDiagramRecalculatePageBreaks" />
           <button id="JYGH2" label="归还单" size="large" imageMso="AdpDiagramRelationships" />
           <button id="JYGH3" label="借用归还统计表" size="large" imageMso="AdpDiagramShowRelationshipLabels" />
       </group>
       <group id="PDYW" label="盘点业务">
           <button id="PDYW1" label="盘点单" size="large" imageMso="AdpManageIndexes" />
           <button id="PDYW2" label="货位修改" size="large" imageMso="AdpNewTable" />
       </group>
       <group id="DBYW" label="调拨业务">
           <button id="DBYW1" label="调拨单" size="large" imageMso="AutoFormatDialog" />
       </group>
       <group id="KWGL" label="库位管理">
           <button id="KWGL1" label="添加货位" size="large" imageMso="AsianLayoutCharacterScaling" />
           <button id="KWGL2" label="货位修改" size="large" imageMso="ArrowsMore" />
       </group>
         <group id="DJLB" label="单据列表">
           <button id="DJLB1" label="采购入库单列表" size="large" imageMso="FileSendAsAttachment" />
           <button id="DJLB2" label="产成品入库单列表" size="large" imageMso="CreateReport" />
           <button id="DJLB3" label="其他入库单列表" size="large" imageMso="CreateReportInDesignView" />
           <button id="DJLB4" label="销售出库单列表" size="large" imageMso="AdvancedFileProperties" />
           <button id="DJLB5" label="材料出库单列表" size="large" imageMso="AdpStoredProcedureQuerySelect" />
           <button id="DJLB6" label="其他出库单列表" size="large" imageMso="AccountMenu" />
           <button id="DJLB7" label="借用单列表" size="large" imageMso="AccessTableTasks" />
           <button id="DJLB8" label="归还单列表" size="large" imageMso="AccessTableIssues" />
           <button id="DJLB9" label="调拨单列表" size="large" imageMso="AccessTableEvents" />
       </group>
       <group id="KCZB" label="库存账表">
           <button id="KCZB1" label="进销存汇总表" size="large" imageMso="AccessFormWizard" />
           <button id="KCZB2" label="现存量" size="large" imageMso="AccessFormPivotTable" />
           <button id="KCZB3" label="库存台账" size="large" imageMso="AccessFormModalDialog" />
       </group>
       </tab>
       <tab id="CBGL" label="成本管理">
         <group id="CBD" label="成本核算">
           <button id="CB1" label="制造费用" size="large" imageMso="BusinessFormWizard" />
           <button id="CB2" label="人工费用" size="large" imageMso="BulletListDefault" />
           <button id="CB3" label="物料成本" size="large" imageMso="BuildingBlocksSaveEquation" />
           <button id="CB4" label="成本分析" size="large" imageMso="BuildingBlocksSaveCoverPage" />
       </group>
       </tab>
   </tabs>
</ribbon>
</customUI>

将上面代码粘贴进去,检查,保存。ok,功能区完成,保存的时候不要打开对象excel文件,这个你懂的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-8-20 11:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回调已做好 进销存0820.rar (27.4 KB, 下载次数: 975) ,点击按钮会弹出对话框。下一步做数据库表格,数据结构是个问题,完成一个上传一个把。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-20 23:37 , Processed in 0.047634 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表