标题:新手报到请教高手一个安装后出现的问题
只看楼主
lzy9796
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-2-13
结帖率:0
已结贴  问题点数:20 回复次数:3 
新手报到请教高手一个安装后出现的问题
我为单位编写了一个销售程序,但在安装时出现如下两个问题,百思不得其解,特来请教:
一、一个修改密码的表单,按钮的click方法中有一段是这样的
If PublicPassName==Alltrim(This.Parent.Text3.Value) .And. PublicPassword==Alltrim(This.Parent.Text4.Value)
            CursorSetProp("SendUpdates",.T.,"操作员权限")
            Do While Txnlevel()>0
                RollBack
            EndDo
            Begin Transaction
            Replace 操作员姓名 With PublicPassName,操作员口令;
With PublicPassword  
   这样在编好的程序下可以用,但打包安装后出错,未指定要更新的表.我改为如下
If PublicPassName==Alltrim(This.Parent.Text3.Value) .And. PublicPassword==Alltrim(This.Parent.Text4.Value)

          CursorSetProp("SendUpdates",.T.,"操作员权限")
          CursorSetProp("table",'主表操作员权限',"操作员权限")
            Do While Txnlevel()>0
                RollBack
            EndDo
            Begin Transaction
    Replace 操作员姓名 With PublicPassName,操作员口令;
     With PublicPassword
   加了一行后,打包安装前出错,但安装后的程序却可以用,真是不可理解,特来请教
二、由于每年的数据结构和表都会有变化,我每年都是把原来的表释放为自由表分年度建好文件夹保存下来,(如2004年的文件都放在2004文件夹里),然后自动重建适合当年数据库及表,查询历史资料时直接进各年度的文件夹调用。但又出现了一个怪问题,制作好的程序能够认识各个年度的文件夹,自动进入找出所要的资料,但把各年度的历史资料打包安装后却不能正确查找各年度的文件夹了。如果这些文件夹在安装时不一同打包,而是安装后再把文件夹复制进存放数据的地方,却可以准确找到。难道打包制作安装程序会破坏文件夹的名字么
搜索更多相关主题的帖子: 操作员 安装 修改密码 
2010-02-13 15:45
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
得分:20 
1、我猜测:你的表“操作员权限”,是否放在了数据环境中,或执行这个窗体时提前没有打开。
   最好在执行窗体前,预先打开窗体内用到的全部数据库表。
2、请检查你在打包前,程序和数据库一齐打包的路径,因为打包时,程序和数据库文件夹路径都服从打包的默认路径,他们有时都被默认为同一个路径的。分开打包时,这个问题不存在。
2010-02-17 00:08
lzy9796
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-2-13
得分:0 
谢谢回复,我的“操作员权限”表确实是放在了数据库中,而且我为了防止表未打开的现象,每当要用到一个表时都会使用一下这个语句:
if !used("tablename")
 select 0
 use tablename
else
 select tablename
endif
另外,我打包前放EXE文件和放数据的文件夹的相对位置与打包前是一致的:
就是说,打包前,EXE文件和数据文件夹都在同一文件夹下,打包时也是把他们都放在目录树文件夹下,这个是不会错的
而且我搞不通的是,数据文件夹下有2004到2009年六个历史资料夹,它却能找到2004的,而且换年度资料时不报错说找不到,而是找出来的全都是2004年的。把这几个历史资料不打包直接COPY进去时全部正确找到,呵呵
   我想这个问题可能得请高手把我的程序全部看一下才能知道毛病出在哪里了,我自己是无法弄清楚的,幸好程序只是自己单位用,不会变成商品,我自己知道就行,别人出是外行,还以为我很高明,混到我退休就不管了,不然会被人笑死的,哈哈
2010-02-21 20:25
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
得分:0 
(clear)         

[ 本帖最后由 qingfameng 于 2010-2-26 23:49 编辑 ]
2010-02-21 23:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-297642-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.601249 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved