Question

visual foxpro 6.0数据库系统开发实例导航(第二版)中有一个 企业工资管理系统，求指教！！！

系统大概都做完了，就是运行不出来，各种问题，很有挑战啊有木有！！求大神路过指导啊啊~~~邮箱联系，我会把压缩文件发过去，或是有做好的直接把完整的程序发我一份，注意是与书上一模一样的，下周之前急要~~小女子跪谢啊~~邮箱是beckyloves@163.com我的金币不多，只有55，就全出了吧，但我会努力赚钱追加分的~~~
1运行表单personnel，点击“第一个”或“最后一个”，弹出提示“在with\endwith外此表达式无效。”可我代码里明明没有with这个命令阿~~还有查询(结果)页框的功能根本不能用。。。
2运行表单grcx时显示“不能识别的成员text1”
3运行表单gresult时显示“操作类型/操作数不匹配”4运行表单result时只有张三的工资,而且数据还不太对，我想显示的是每个人的工资~~

若以下回答无法解决问题，邀请你更新回答

Answer 1

看看吧，我的邮箱是：qdliqiang@163.com.

追问

已发送哦,拜托啦~

追答

执行起来还行。
你能不能具体指出哪里有问题啊。

追问

比如说点个人工资查询时弹出对话框说“不能识别出的成员text1“，单独运行grcx时又显示只有张三的工资，应该是全体员工的工资啊5555，麻烦你把几个表单都分别运行下，问题可多了。。。

追答

public inname
public flag

新添加的一句
inname=" "

首先要给INNAME赋一个初始值，让程序知道它是一个字符变量，如果没有这一句的话系统认为它是一个逻辑变量。
flag=0

下面两句有问题，TEXT1和TEXT2的值还没有确定或者是没有一个初始值，如果能够给INNAME和INPSWD啊。

inname=alltrim(thisform.text1.value)
inpswd=alltrim(thisform.text2.value)

先看到这里，你再想想。
set order to tms_user
seek inname
if ! found()
cMessageTitle='设备管理系统'
nDialogType=4+32
cMessageText='用户名错误，重新输入'
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text1.value=''
thisform.text1.setfocus
case nAnswer=7
messagebox("请勿偷窥他人资料",48,"警告")
thisform.release
endcase
else
if tms_pswd!=inpswd
cMessageTitle='设备管理系统'
cMessageText='密码错误，请重新输入'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
if flag<2
thisform.text2.value=''
thisform.text2.setfocus
flag=flag+1
else
messagebox("请勿偷窥他人资料",48,"警告")
thisform.release
endif
case nAnswer=7
messagebox("请勿偷窥他人资料",48,"警告")
thisform.release
endcase
else
thisform.release
par1=inname
do form salary\gresult
endif
endif

追问

很专业,但我刚入门还是不太懂,改完也运行不出来呢,能把改好的运行好的程序直接发给我吗,具体问题我列在问题补充里了~~又要麻烦你仔细帮我瞧一下哦~因为涉及到期末考试成绩,拜托了~~~

追答

看别人的程序太难，因为不知道他的思路在是什么样的，你可以从百度上搜搜现在的企业工资管理VFP程序就可以了。