Question

在Visual Foxpro6.0中，怎样实现表单之间的跳转？如何实现数据库与表单的链接？

老师要我们用Visual Foxpro6.0设计一个学籍管理系统，我不知道从何下手，请高手多多指教......

Answer 1

数据连接sqlsetprop(0,"displogin",3) &&设置环境为：从不显示ODBC登陆对话框
driver_temp='SQL SERVER'
server_temp='10.1.0.12'
database_temp='biocclock'
uid_temp='sa'
pwd_temp='sa'connect_temp="driver="+driver_temp+";server="+server_temp+";uid="+uid_temp+";pwd="+pwd_temp+";database="+database_temp
con=SQLSTRINGCONNECT(connect_temp)
IF con<=0
MESSAGEBOX( "连接数据失败！请重新设置！",0+16,"提示信息")
RETURN
ENDIF 数据查询TEXT TO cmd NOSHOW
SELECT * FROM user
ENDTEXT
if used('dsk')
select dsk
use
endif
N1=SQLEXEC(CON,cmd,"dsk")
if n1<0
messagebox('命令错误！！',0+48,'系统提示')
return
endif
select dsk数据保存Transactions_error=.f.
= SQLSETPROP(con, 'Transactions', 2) &&启动手动事务处理
N1=SQLEXEC(CON,"UPDATE gly SET 密码=?txt2 WHERE 编号=?grbh")
IF N1<=0
Transactions_error=.t.
ENDIF
IF Transactions_error=.t.
=SQLROLLBACK(con)
=MESSAGEBOX("重要提示：密码修改失败，请重试！！！"+CHR(13)+CHR(13)+;
CHR(13)+CHR(13),0+16,"错误提示信息")
RETURN
ELSE
=SQLCOMMIT(con)
MESSAGEBOX("提示：密码修改成功！！！"+CHR(13)+CHR(13)+;
CHR(13)+CHR(13),0+48,"提示信息",3)
thisform.Release
ENDIF
= SQLSETPROP(con, 'Transactions', 1) &&恢复自动事务处理

Answer 2

Show使表单可见，而Hide则是隐藏表单 form2.show()