天狮专卖店管理数据库全套(注：进销存换了模式，可下载看，附操作演示)

tz-chf

天狮是一个全国保健品连锁公司，好象是直销，这是它们的一个专卖店定做的。

给菜鸟参考，包括所有的资料（说明书、备份程序、安全文件、数据库前后台、）。

产品目录已输入，其它都是空的。

只有分开才传得上。这是天狮后台及其它文件，解压到D盘根目录。






这是多年以前的东西，现在进销存换了模式，有兴趣可以下载看看，附操作演示动画。http://tzchf.3adisk.com/

[此贴子已经被作者于2005-11-22 15:12:04编辑过]

tz-chf

预计下星期推出adp版的，可以对照一下，看看mdb和adp+SQL到底有多大的不同。

希望有空能用flash cam做出视频演示，还得看有没有这个需求了。

我感觉mdb可能用习惯了，觉得方便，但adp更简洁，特别是处理速度比mdb快很多。

aone

谢谢分享！下来学习学习。

方漠

呵呵,不错,窗体界面还可以设计得更漂亮一些,帮助和说明可以用HTML WORKSHOP做,那样会显得更专业一些.用FRONTPAGE把你的那些文档内容COPY建WEB页,然后用HTML WORKSHOP编成一个HLP文件就行了.

tz-chf

写word的帮助有个好处，就是可以打印出来拿在手里看。

现在不写word了，用flash cam做演示，感觉蛮好。

小软件，用一下就会了，不会老要帮助，太复杂成本太高，用处也不大。

yzt2005

以下是引用tz-chf在2005-11-25 11:31:00的发言：


写word的帮助有个好处，就是可以打印出来拿在手里看。

现在不写word了，用flash cam做演示，感觉蛮好。

小软件，用一下就会了，不会老要帮助，太复杂成本太高，用处也不大。

zzq_1001

支持。。。

宿命的风

可以再建立一个启动文件，指定工作组。这样更好些。

tz-chf

“可以再建立一个启动文件，指定工作组。”

此话怎讲？请教！

我现在的问题是没法指定工作组，只能让用户自己去做。

宿命的风

建立一个MDB作为启动文件，在里面建立一个模块，代码如下：

Function MyShell()

    On Error Resume Next
   
    Dim strAPP As String    '命令行字串
    Dim strSecuredFileName As String
    Dim strAppFileName As String
    Dim strPassword As String
    Dim strUserName As String
   
    strSecuredFileName = "Security.mdw"     '工作组信息文件
    strAppFileName = "数据库.mdb"         '被保护的应用程序数据库
    strUserName = "admin"                      '用户名
    strPassword = ""           '密码
   
    '带工作组启动的命令行
    strAPP = """" & SysCmd(acSysCmdAccessDir) & "msaccess.exe"" """ & _
                CurrentProject.Path & "\" & strAppFileName & """ /wrkgrp """ & _
                CurrentProject.Path & "\" & strSecuredFileName & """ /user " & strUserName & " /pwd " & strPassword
               
    'MsgBox "您要的命令行如下：" & vbCrLf & strAPP
    Shell strAPP, 3     '启动
    If Err <> 0 Then
        MsgBox Err.Description
    End If
    DoCmd.Quit '退出外壳
   
    '以下是一个完整的命令行
    '"C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" "C:\My Documents\应用程序 db1.mdb" /WRKGRP "C:\My Documents\Secured1.mdw"  /user ec /pwd access911.net
End Function


再建立一个AUTOEXE的宏，RUNCODE就可以了。