菜鸟求救！！怎么样才能使打包的安装程序在别人安装我们的程序时自动生成桌面快捷方式？？

Question

菜鸟求救！！怎么样才能使打包的安装程序在别人安装我们的程序时自动生成桌面快捷方式？？
代码应该怎么写？写在哪里？还有怎么才能访问access2000。
第三，怎么使用sql语言使数据库里的数据分类汇总求和，或者做加加渐减，我用的是access97，用vb6写的程序。在学做一个进销存的小系统。哪位大虾指点指点，在下感激不尽！

Answer 1

看你用什么工具打的包？不同的安装工具有不同的创建快捷方式的方法。分类汇总主要用到SQL中的计算函数（SUM AVG等）和分组（Group by, Having等）你最好多参考一下基本的SQL语法方面的书籍。

Answer 2

VB自己的打包工具没有这个功能，用wise，这个很不错，installshell也行，我说的这都是比较专业的，一些免费的也有这个功能，我看都比VB的打包工具要好。一般网站都有下载。select id,name, sum(cost) from listplu group by dept 这就是一个很典型的分类汇总求和

Answer 3

如果使用安装工厂，有这个功能
installsheld也可以
select id,name, sum(je) from table group by id,name

Answer 4

//VB自己的打包工具没有这个功能你可以改源文件呀，改完之后重新编译成exe文件

Answer 5

衷心的感谢各位大侠! rainstormmaster,你好,你说的改源文件,是怎么改呀?
还有,我有看网上的文章说改,(vb安装目录)..\vb98\Wizards\PDWizards\setup1\setup1.vbp这个文件就可以使安装程序有带快捷方式,但不知具体该如何改,那位大侠知道呀,help!

Answer 6

VB展开与打包向导生成的安装程序的工作步骤是这样的：先运行Setup.exe，
这个程序将VB的运行库安装到用户的机器上，然后再调用Setup1.exe。
Setup1.exe是由VB写的(正是这个原因所以要先安装VB的运行库)，其源程序
可以在VB98\Wizards\PDWizard\Setup1中找到。所以如果你对VB的安装程序
不满，就可以直接修改Setup1.vbp。对于你的问题，在VB中可以直接改
setup1.vbp。
1.在模块中定义一个Global gbolLink As Boolean  
2.在frmGroup窗体中放一个CheckBox(Name=chkLink,Caption=在桌面上创建快捷方式)
3.在cmdContinue_Click()事件中加句话
Private Sub cmdContinue_Click()
    mstrGroup = txtGroup.Text
    If Not fCreateProgGroup() Then
        '
        ' Couldn't create the group. Let
        ' the user try again.
        '
        txtGroup.SetFocus
    Else
        '
        ' The group got created ok, so unload Choose Program Group dialog
        ' and continue on with setup.
        '我加的，是否在桌面上创建快捷方式
        gbolLink = CBool(chkLink.Value)        Unload Me
    End If
End Sub
4.在frmSetup1的Form_Unload事件中加句话
Private Sub Form_Unload(Cancel As Integer)
    'Get rid of the cab file in the windows dir (if it exists).
    Dim lCount As Long
    Dim sCab As String
    Dim sTemp As String
    '我加的，在桌面上添加快捷方式
    If gbolLink Then OSfCreateShellLink "..\..\Desktop", gstrAppName, gstrDestDir + gstrAppExe, "", True, "$(Programs)"    lCount = 0
    'Get rid of the cab file in the windows dir (if it exists).
    Do
        If gintCabs = 1 Then
            sCab = gstrWinDir
            AddDirSep sCab
            sCab = sCab & BaseName(gsCABNAME)
            If FileExists(sCab) Then Kill sCab
            Exit Do
        End If
        lCount = lCount + 1
        sCab = gstrWinDir
        AddDirSep sCab
        sTemp = Left(gsCABNAME, Len(gsCABNAME) - 5) & CStr(lCount) & gstrSEP_EXT & gsINI_CABNAME
        sCab = sCab & BaseName(sTemp)
        If FileExists(sCab) Then
            Kill sCab
        Else
            Exit Do
        End If
    Loop
End Sub

Answer 7

忘了两步
6.编译setup1.vbp重新生成setup1.exe
7.将该文件复制到你的打包文件的support文件夹下，运行这个目录下的*.BAT
文件，重新生成安装文件.