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

hygcn

软件简介：简洁、灵活、高效、环环相扣、深入浅出、东方智慧型的家电零售进销存。
一、创新亮点：
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

lzqlaj

无法下载，换个网盘吧。。

gjsz007

excel没有秘密可言，楼主你不要指望没人看内容，论坛有要求，不要过多谈论，谢谢。程序中部分的如下：
Option Explicit
Public Wjm_1 As String, Wjm_2 As String
Private Const GWL_STYLE         As Long = (-16)
Private Const WS_SYSMENU        As Long = &H80000
Private Const HWND_TOP          As Long = 0
Private Const SWP_NOMOVE        As Long = &H2
Private Const SWP_NOSIZE        As Long = &H1
Private Const SWP_DRAWFRAME     As Long = &H20
Private Declare Function GetWindowLong Lib "user32.dll" _
  Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) _
  As Long
Private Declare Function SetWindowLong Lib "user32.dll" _
  Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) _
  As Long
Private Declare Function SetWindowPos Lib "user32.dll" ( _
  ByVal hwnd As Long, _
  ByVal hWndInsertAfter As Long, _
  ByVal x As Long, _
  ByVal y As Long, _
  ByVal cx As Long, _
  ByVal cy As Long, _
  ByVal wFlags As Long) _
  As Long
Private Sub HasSystemMenu(ByVal Allow As Boolean)
  Dim lStyle As Long: lStyle = GetWindowLong(ApphWnd, GWL_STYLE)
  If Allow Then
    lStyle = lStyle Or WS_SYSMENU
  Else
    lStyle = lStyle And Not WS_SYSMENU
  End If
  Call SetWindowLong(ApphWnd, GWL_STYLE, lStyle)
  Call SetWindowPos(ApphWnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub
Private Function FindOurWindow(Optional ByVal sClass As String = vbNullString, Optional ByVal sCaption As String = vbNullString)
  Dim hWndDesktop As Long
  Dim hwnd As Long
  Dim hProcThis As Long
  Dim hProcWindow As Long
  hWndDesktop = GetDesktopWindow
  hProcThis = GetCurrentProcessId
  Do
    hwnd = FindWindowEx(hWndDesktop, hwnd, sClass, sCaption)
    GetWindowThreadProcessId hwnd, hProcWindow
  Loop Until hProcWindow = hProcThis Or hwnd = 0
  FindOurWindow = hwnd
End Function
Private Function ApphWnd() As Long
  If Val(Application.Version) >= 10 Then
    ApphWnd = Application.hwnd
  Else
    ApphWnd = FindOurWindow("XLMAIN", Application.Caption)
  End If
End Function

aob

谢谢分享。。。。。。。。。。。。。。。

zw1996

想看看，可惜下载不了啦