1、 在E盘建一文件夹“信息管理系统”,所有数据文件存入其中
2、 在信息管理系统中建一数据库xxgl,在xxgl中建一表jsdj
3、 建表单“文件和资料接收登记”,其中有打印、退出等按钮(还有添加,修改等),通过数据环境将表jsdj添加进去。单击打印按钮可以调用表单“文件和资料接收登记打印”。
4、 建表单“文件和资料接收登记打印”,其中有预览、打印、退出按钮、及一组单选按钮和两个微调按钮,通过数据环境将表jsdj添加进去。
5、 各部分的代码如下:
A:表单文件和资料接收登记
(1)“打印”mypath="e:\信息管理系统\"
cd(mypath)
do form 文件和资料接收登记打印.scx
(2)“退出“
THISFORM.VISIBLE = .F.
(3)表单的UNLOAD事件:
close all
SET EXCLUSIVE ON
open database e:\信息管理系统\xxgl.dbc
use jsdj
pack &&在此处做物理删除
close database all
SET EXCLUSIVE OFF
B:表单 文件和资料接收登记打印
(1) 表单 ACTIVATE
*获得页面总数totalpage
mypath="e:\信息管理系统\"
cd(mypath)
do case
case thisform.optiongroup1.value=1
repo form 文件和资料接收登记.frx noconsole
case thisform.optiongroup1.value=2
repo form 公文处理.frx noconsole
endcase
totalpage=_pageno
(2) 表单 LOAD
public totalpage
set talk off
set console off
set safety off
(3) 预览
mypath="e:\信息管理系统\"
cd(mypath)
select jsdj
do case
case thisform.optiongroup1.value=1
repo form 文件和资料接收登记.frx preview
case thisform.optiongroup1.value=2
repo form 公文处理.frx preview
endcase
use
(4) 打印
*起始页码thisform.spinner1.value
*结束页码thisform.spinner2.value
mypath="e:\信息管理系统\"
cd(mypath)
do case
case thisform.optiongroup1.value=1
if thisform.spinner1.value<=thisform.spinner2.value
repo form 文件和资料接收登记.frx range thisform.spinner1.value,;
thisform.spinner2.value to printer noconsole
else
messagebox("打印范围设置错误,请重新设置",64,"提示")
endif
use
case thisform.optiongroup1.value=2
if thisform.spinner1.value<=thisform.spinner2.value
repo form 公文处理.frx range thisform.spinner1.value,;
thisform.spinner2.value to printer noconsole
else
messagebox("打印范围设置错误,请重新设置",64,"提示")
endif
use
(5) endcase退出
thisform.visible=.f.
但是在运行这个两个表单分别运行的话一切正常。如果运行表单文件和资料接收登记后,单击打印按钮调用表单“文件和资料接收登记打印”时,如果单击预览按钮后再打印,按“退出”时退出返回到表单“文件和资料接收登记”这一步正常,但是在表单“文件和资料接收登记”中按“退出按钮”时出现下列问题:
1、 如果在表单“文件和资料接收登记”中的“打印”按钮加上select jsdj 系统会提示 “找不到jsdj”
2、 找不到别名 JSDJ
ERROR 13
找不到别名 JSDJ
METHOD:FORM1.备注1.controlsource line (备注是表jsdj 中的一个字段)
并且在表单“文件和资料接收登记”中输入的数据在表jsdj中没有记录。
请各位老师能帮我分析一下问题出在哪儿,在下万分感谢。