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

AVEL

hygcn 发表于 2011-8-21 20:26
点“退出程序”按钮，正常退出，所有栏目包括编辑栏在2003下都会正常显示的呀。你是不是用的07或10的吧

hehe ,的确，我用的是2010的。

hygcn

该软件已被使用了一年零3个月，目前客户提出新的要求，用条码扫描入单。正在准备实施中。
不知10版的EXCEL对文档保护是不是做得好些，打算放到10版下测试通过。如果文档保护能做得好些，准备把商品批量编号部分也植入程序文件中。

AVEL

要做正规软件 还是建议你用VB吧。EXCEL不适合做数据库的。

hygcn

用EXCEL+VBA做程序最大的好处，是可以把公式与代码结合快速实现自己的想法，而且测试方便，特别适合做管理方面的应用软件。若是用VB、VC等去做的话要花费成倍的时间和精力。

JLF2003

03应用好像没有问题。借鉴，谢楼主共享作品！

lk868

下载了演示动画。无法关闭！也无法操作电脑！只能强制把电源关了。

lk868

Private Sub TextBox1_Change()
Dim xb, mc_B, SJK, Wjm_2
  On Error Resume Next
    xb = Sheets("开单").Range("G6").Value
    mc_B = Sheets("密码表").Range("C4").Text '普通用户密码
    mc_cj = Sheets("辅助系统").Range("H4").Text '超级用户密码
   If mc_B = TextBox1.Value Or mc_cj = TextBox1.Value Then
    If xb = "1" Then
     Application.ScreenUpdating = False '防止屏幕抖动，屏幕刷新禁止
      ActiveWorkbook.Unprotect Password:="yxywg300866"
       Shapes("Group 73").Visible = msoTrue
        Shapes("Group 74").Visible = msoTrue
         Shapes("Group 77").Visible = msoTrue
          Shapes("Group 81").Visible = msoTrue
           Shapes("Button 45").Visible = msoTrue
            TextBox1.Visible = False
             Label1.Visible = False
              Label2.Visible = False
               Shapes("Button 63").Visible = msoFalse
                Shapes("Drop Down 19").Visible = False
                 Sheets("商品表").Visible = True
                  ActiveWorkbook.Protect Password:="yxywg300866", Structure:=True, Windows:=False
     Workbooks.Open Filename:=ThisWorkbook.Path & "\" + Sheets("密码表").Range("B4").Value & "数据.xls"
      SJK = Sheets("密码表").Range("B4").Value
       Wjm_2 = Workbooks(SJK & "数据.xls").Name
        Workbooks(Wjm_2).Sheets("员工").Range("A2:W3650").Copy Sheets("员工表拷贝").Range("a1")
         Workbooks(Wjm_2).Sheets("库存").Range("F2:P3333").Copy Sheets("商品表拷贝").Range("a1")
          Workbooks(Wjm_2).Sheets("数据辅助").Range("B1").Value = Sheets("辅助系统").Range("E5").Text + "数据.xls"
           Workbooks(Wjm_2).Sheets("数据辅助").Range("D1").Value = Sheets("辅助系统").Range("G6").Value
            Workbooks(Wjm_2).Sheets("数据辅助").Range("E1").Value = Sheets("辅助系统").Range("I3").Value
     Application.ScreenUpdating = True '防止屏幕抖动，屏幕刷新禁止
    Else
     If xb = "A" Then
       MsgBox "非专用客户,请与开发商联系" & Chr(50), 48, "提示"
        Application.Quit
         Windows(ThisWorkbook.Name).Close False
     Else
       MsgBox "服务期限已过,请与开发商联系", 48, "提示"
        Application.Quit
         Windows(ThisWorkbook.Name).Close False
     End If
    End If
   End If
   
   If mc_cj = TextBox1.Value Then
    Sheets("辅助系统").Range("H7").Value = "Y"
   Else
    Sheets("辅助系统").Range("H7").Value = "N"
   End If
End Sub
好久没用EXCEL写程序了。看了有点不习惯

iamgxc

想问下楼主，条码扫描入单 的方向和思路是什么呢，有个困惑就是，如何把扫描枪读入的条码输入进窗体文本框中。

WESLEY_WANG

下了LZ的东东看了，很不错，可等我做其它的报表时，编辑栏不能使用（已解决），发现工作表的右键不能使用了，还在研究当中。我用的是07版。

天太冷

一共三个文档，所有密码如下：
正在恢复密码，文件:
F:\编程资料\excel\金鹰进销\金鹰进销存千脑版.xls

已侦测到 MS Excel 2000/97 文档

已侦测到 Visual Basic 工程

工作簿密码: [BQVILNXXTCMWSZX] (无括号) <复制>
工作簿共享密码: 未设置密码
表格 1密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 3密码: [XXZQXAVUSUVTQKS] (无括号) <复制>
表格 7密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 8密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 13密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 14密码: [BQVILNXXTCMWSZX] (无括号) <复制>
文件打开密码: 未设置密码

创建备份副本:
F:\编程资料\excel\金鹰进销\金鹰进销存千脑版.bak

正在更新安全...
VBA 工程密码: [3GFY] (无括号) <复制>

正在恢复密码，文件:
F:\编程资料\excel\金鹰进销\美的专卖店数据.xls

已侦测到 MS Excel 2000/97 文档

已侦测到 Visual Basic 工程

工作簿密码: [BQVILNXXTCMWSZX] (无括号) <复制>
工作簿共享密码: 未设置密码
范围 ''密码: [RABWSPIPCIFYAJX] (无括号) <复制>
范围 ''密码: [BSQBTCTKSWIBIBR] (无括号) <复制>
表格 4密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 5密码: [BQVILNXXTCMWSZX] (无括号) <复制>
范围 ''密码: 未设置密码
表格 7密码: [XXZQXAVUSUVTQKS] (无括号) <复制>
表格 8密码: [XXZQXAVUSUVTQKS] (无括号) <复制>
文件打开密码: 未设置密码

创建备份副本:
F:\编程资料\excel\金鹰进销\美的专卖店数据.bak

正在更新安全...
VBA 工程密码: [2JFR] (无括号) <复制>

正在恢复密码，文件:
F:\编程资料\excel\金鹰进销\幸福树电器数据.xls

已侦测到 MS Excel 2000/97 文档

已侦测到 Visual Basic 工程

工作簿密码: [BQVILNXXTCMWSZX] (无括号) <复制>
工作簿共享密码: 未设置密码
范围 ''密码: [RABWSPIPCIFYAJX] (无括号) <复制>
范围 ''密码: [BSQBTCTKSWIBIBR] (无括号) <复制>
表格 4密码: [BQVILNXXTCMWSZX] (无括号) <复制>
表格 5密码: [BQVILNXXTCMWSZX] (无括号) <复制>
范围 ''密码: 未设置密码
表格 7密码: [XXZQXAVUSUVTQKS] (无括号) <复制>
表格 8密码: [XXZQXAVUSUVTQKS] (无括号) <复制>
文件打开密码: 未设置密码

创建备份副本:
F:\编程资料\excel\金鹰进销\幸福树电器数据.bak

正在更新安全...
VBA 工程密码: [A59] (无括号) <复制>

显示设置: 1280*720
幸福树电器密码：4222299   美的专卖店密码：4272588