ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

纯粹EXCEL+VBA制做的家电零售进销存系统

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-8-21 08:25 | 显示全部楼层 |阅读模式
本帖最后由 hygcn 于 2011-8-21 08:39 编辑

软件简介:简洁、灵活、高效、环环相扣、深入浅出、东方智慧型的家电零售进销存。
一、创新亮点:
1、利用本机/网盘模式实现数据共享:程序文件和数据文件都采用EXCEL+VBA开发,程序文件在本机上运行,数据文件在本机和千脑网盘之间保持同步更新,既是单机版又是网络版。
2、排他性的安全保护模式:数据文件不能单独打开,只有对应的程序文件才能打开该数据文件。系统运行时自动关闭其他的EXCEL文档,通过逻辑设计关闭文件入口,提供了一种保护EXCEL开发文档的新思路。
二、客户要求:
1、家电分类:大家电公共产品、小家电公共产品、大家电员工专管产品、小家电员工专管产品;员工休假时专管产品自动成为公共产品,新入职员工专管产品考核期满前设为公共产品。
2、员工薪酬:基本工资、提成工资、完成销售金额奖励。
提成工资计算规则如下:
  a.专管和公共产品单价达到限价,全额提取限价提成,超出部分提成10%;
  b.非专管产品单价达到限价,半额提取限价提成,超出部分提成10%
  c.所有产品单价低于限价,没有提成。若经上级批准做特价处理,
可半额提取限价提成。
3、每月18号盘点,19号考勤时自动初始化。入库数据保留一年;销售、调入、调出数据保留三个月。普通用户只能看到当月的数据,超级用户隐蔽登录,可查询历史数据。
三、有针对性的主要功能:
1、键入商品的分类、类别、品牌、型号,自动生成唯一编码。
2、限制普通用户对进货价、限售价、限售提成进行增改删操作。
3、已录数据不许删除、修改,若有错误只能作废处理。
4、复合条件下的瞬间查询统计。如查询统计某员工,某段时间的销售金额、提成等。
5、查询统计时,禁止普通用户查看进货价和利润。
6、简单灵活的数据字典应用。
7、严谨快捷的出入单据录入。
8、考勤日期变动与开单日期变动环环相扣,当日考勤结果与员工销售提成环环相扣。
四、接受类似进销存管理要求的定制开发。

显示设置: 1280*720
幸福树电器密码:4222299   美的专卖店密码:4272588
该软件采用逻辑关系设计进行保护,欢迎高手破解,并请发帖告知。
文件下载地址:
http://down.qiannao.com/space/file/yxywg/-91d1-9e70-8fdb-9500-5b58-5343-8111-7248.zip/.page
演示文件下载地址:
http://down.qiannao.com/space/file/yxywg/-6c49-79d1-5f00-83b2-8fdb-9500-5b58-8f6f-4ef6-6f14-793a.exe/.page

TA的精华主题

TA的得分主题

发表于 2011-8-21 08:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
挺漂亮的
学习学习

TA的精华主题

TA的得分主题

发表于 2011-8-21 11:52 | 显示全部楼层
Private Sub Workbook_Open()
  On Error Resume Next
  Dim sjk原名, sjk名, Wjm_1
   Wjm_1 = Sheets("数据辅助").Range("D1").Value
   sjk原名 = Workbooks(Wjm_1).Sheets("辅助系统").Range("E5").Text + "数据.xls"
   sjk名 = ThisWorkbook.Name
   Windows(ThisWorkbook.Name).Visible = False
   
   If Dir(ThisWorkbook.Path & "\" & "金鹰幸福树.xls") <> Empty And Workbooks.Count = 1 Then
    Workbooks.Open Filename:=ThisWorkbook.Path + "\" + "金鹰进销存千脑版.xls"
    Workbooks(sjk名).Close False
   End If
   
   If (sjk名 <> sjk原名) Or (Workbooks.Count = 1) Then
    Application.Quit
    Windows(ThisWorkbook.Name).Close False
   End If
   
   If Workbooks.Count = 2 Then
    Wjm_1 = Workbooks(ActiveWorkbook.Name).Sheets("辅助系统").Range("G6").Value
    If LenB(Wjm_1) < 5 Then
     Application.Quit
     Windows(ThisWorkbook.Name).Close False
    End If
   End If
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
On Error Resume Next
  Application.ScreenUpdating = False '防止屏幕抖动,屏幕刷新禁止
   If Workbooks.Count > 2 Then
    Application.Quit
     For i = 1 To 3
      SendKeys "{right}"
      SendKeys "{right}"
      SendKeys "{enter}"
     Next
   End If
  Application.ScreenUpdating = True
End Sub

TA的精华主题

TA的得分主题

发表于 2011-8-21 12:12 | 显示全部楼层
Private Sub Workbook_Open()
Application.ScreenUpdating = False '防止屏幕抖动,屏幕刷新禁止
  HasSystemMenu False '禁止右上角窗口操作
   Windows(ThisWorkbook.Name).Visible = True '主程序窗口显示
    Application.Calculation = xlAutomatic '自动重算
     Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右
      Call JM_GB
ActiveWorkbook.Unprotect Password:="yxywg300866"
  Sheets("系统界面").Visible = True
   Sheets("系统界面").ScrollArea = "A1:B2"
    Sheets("辅助系统").Visible = 2
     Sheets("查询辅助").Visible = 2
      Sheets("员工表拷贝").Visible = 2
       Sheets("商品表拷贝").Visible = 2
        Sheets("macro1").Visible = 2
         Sheets("考勤表").Visible = False
          Sheets("开单").Visible = False
           Sheets("查询").Visible = False
            Sheets("密码表").Visible = False
             Sheets("商品表").Visible = False
ActiveWorkbook.Protect Password:="yxywg300866", Structure:=True, Windows:=False
  
  Sheets("辅助系统").Range("E4").Value = 1 '初始店面选择
   Sheets("辅助系统").Range("A7").Value = 0 '初始开单时间调整
    Sheets("辅助系统").Range("G6").Value = ThisWorkbook.Name '程序文件名
   
  Sheets("系统界面").Shapes("Button 45").Visible = msoFalse '返回主界面按钮
   Sheets("系统界面").Shapes("Group 73").Visible = msoFalse
    Sheets("系统界面").Shapes("Group 74").Visible = msoFalse
     Sheets("系统界面").Shapes("Group 77").Visible = msoFalse
      Sheets("系统界面").Shapes("Group 81").Visible = msoFalse
       Sheets("系统界面").TextBox1.Visible = False '密码输入框显示
        Sheets("系统界面").Label2.Visible = False '密码标签
      
  Sheets("系统界面").Label1.Visible = True '选择店面标签
   Sheets("系统界面").Label4.Visible = True '制作人标签
    Sheets("系统界面").Label5.Visible = True '电话标签
     Sheets("系统界面").Shapes("Drop Down 19").Visible = True '下拉选择框
      Sheets("系统界面").Shapes("Button 63").Visible = msoTrue '退出程序按钮
  
Application.ScreenUpdating = False '防止屏幕抖动,屏幕刷新禁止
End Sub

TA的精华主题

TA的得分主题

发表于 2011-8-21 16:42 | 显示全部楼层
-_-|||, 编辑栏 在退出后没有恢复。
需要修改。

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-21 17:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
正常是进不了编辑栏的,看来你也把它解开了,很不想把它做成DLL的。{:soso_e110:}

TA的精华主题

TA的得分主题

发表于 2011-8-21 19:12 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-8-21 19:50 | 显示全部楼层
即使封装成DLL , 在程序退出的时候还是要将EXCEL的编辑栏恢复可视的。
要不每次使用完进EXCEL都要去手工设置了。

TA的精华主题

TA的得分主题

发表于 2011-8-21 19:51 | 显示全部楼层
hygcn 发表于 2011-8-21 17:09
正常是进不了编辑栏的,看来你也把它解开了,很不想把它做成DLL的。

说明一下,没有解开什么东西,进去退出后就发现我的EXCEL编辑栏不见了。
仅此而已。

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-21 20:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
点“退出程序”按钮,正常退出,所有栏目包括编辑栏在2003下都会正常显示的呀。你是不是用的07或10的吧
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-24 10:34 , Processed in 0.032470 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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