[分享]excel进销存 小系统

lzqlaj

是这个情况：

[ 本帖最后由 lzqlaj 于 2011-2-1 12:01 编辑 ]

kwinawyeth

我又下来看过，没问题。我用的是excel2003.我估计是thiswork中的代码出现问题，里面的代码如下：（你可以按ctrl+break进去看看）。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Sheets("空白").Select
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
On Error Resume Next
'Application.Visible = False '隐藏工作簿
Sheets("空白").Select
Mytime = 1
'Application.Caption = "普通药品销售（2.2.1.5）"
登录.Show
End Sub

还有就是登陆窗口的代码有问题：（登陆窗体代码如下：）

Private Sub CommandButton1_Click()
登录_输入
End Sub

Private Sub CommandButton2_Click()
Unload 登录
Application.Quit
End Sub

Sub 登录_输入()
Dim x
Label3.Caption = "启动"
Select Case TextBox1.Value
      Case "1"
           If TextBox2 = 1 Then
              Label3.Caption = "启动"
              Unload 登录
              主页面2.Show
           End If
       Case "2"
           If TextBox2 = 2 Then
              Label3.Caption = "启动"
              Unload 登录
              主页面.Show
           End If
       Case "3"
           If TextBox2 = 3 Then
              Label3.Caption = "启动"
              Unload 登录
              主页面2.Show
           End If
        Case "4"
           If TextBox2 = 4 Then
              Label3.Caption = "启动"
              Unload 登录
              主页面2.Show
           End If
       Case Else
       x = MsgBox("密码错误，是否关闭系统？", vbYesNo)
          If x = vbYes Then
             Unload 登录
             Application.Quit
          Else
              TextBox2 = ""
              TextBox2.SetFocus
          End If
End Select
End Sub

Private Sub TextBox2_Change()

End Sub


Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    CommandButton1.SetFocus
  End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Label3.Caption <> "启动" Then
        Sheets("空白").Select
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub


主页面和主页面2窗体中没有初始化窗体的代码，应该不会出现问题。具体的我就不好找了，因为我的电脑上运行正常。

银鱼

感谢楼主，马上就测试看看

银鱼

能否先做相关基础档案，直接输入容易错。
请楼主帮忙解释下， 谢谢

银鱼

补充下， 我打开正常了。

银鱼

呵呵， 不好意思没有仔细看。最好能在销售、入库等地方商品编码进行选择，而非直接输入

kwinawyeth

你所的功能，应该都有，小系统是可以自动检索的。可以输入商品编码，条码，拼音码，汉字，零售价等。
具体说明在help文档里。

kinphen

我也想学这个，谢谢

银鱼

原帖由 kwinawyeth 于 2011-2-6 07:52 发表
你所的功能，应该都有，小系统是可以自动检索的。可以输入商品编码，条码，拼音码，汉字，零售价等。
具体说明在help文档里。

好的。我在帮助文档里面仔细看下

tianma111

楼主，下载解压之后，再点 ，提示模块错误。什么意思...