潜江的高中排名:谢谢,这些程序是我毕业设计要可能回答的问题,请各路大虾帮忙.
来源:百度文库 编辑:高校问答 时间:2024/10/04 14:48:04
thisform.grdcourse.recordsource=''
select course
use course
set order to 课号
seek thisform.text4.value
if course.课号!=alltrim(thisform.text4.value)
go top
messagebox('课程不存在',48,'信息窗口')
thisform.grdcourse.recordsource='course'
else
thisform.grdcourse.recordsource='course'
thisform.grdcourse.refresh
thisform.text7.refresh
endif
“选课”的click的代码为:
select sc
use sc
set order to 课号
seek thisform.text7.value
if sc.课号=alltrim(thisform.text7.text)
if sc.学号=alltrim(thisform.text1.text)
messagebox('该课程已选',48,'信息窗口')
else
append blank
replace sc.课号 with alltrim(thisform.text7.text)
replace sc.学号 with alltrim(thisform.text1.text)
endif
else
append blank
replace sc.课号 with alltrim(thisform.text7.text)
replace sc.学号 with alltrim(thisform.text1.text)
endif
thisform.grdview1.recordsource=''
select view1
par1=textt1
use view1
thisform.grdview1.recordsource='view1'
thisform.grdview1.refresh
select view3
par3=textt1
use view3
thisform.text5.refresh
thisform.text6.refresh
“退选”的click的代码为:
thisform.grdview1.recordsource=''
select sc
use sc excl
delete all for (sc.课号=alltrim(thisform.text7.text) and sc.学号=alltrim(thisform.text1.text))
pack
select view1
par1=textt1
use view1
thisform.grdview1.recordsource='view1'
thisform.grdview1.refresh
select view3
use
par3=textt1
use view3
thisform.text5.refresh
thisform.text6.refresh
谢谢了..................
我要问的是。这些代码有什么作用,老师答辩时的要提问的,真是让你们费心了。。。。。比如:这个thisform.text5.refresh
就是表单中第5个文本栏,输入后可以更新到里面是不是呀?大概说下是什么意思我理解比较强的。。。费心了。。。
select course
use course
set order to 课号
seek thisform.text4.value
if course.课号!=alltrim(thisform.text4.value)
go top
messagebox('课程不存在',48,'信息窗口')
thisform.grdcourse.recordsource='course'
else
thisform.grdcourse.recordsource='course'
thisform.grdcourse.refresh
thisform.text7.refresh
endif
“选课”的click的代码为:
select sc
use sc
set order to 课号
seek thisform.text7.value
if sc.课号=alltrim(thisform.text7.text)
if sc.学号=alltrim(thisform.text1.text)
messagebox('该课程已选',48,'信息窗口')
else
append blank
replace sc.课号 with alltrim(thisform.text7.text)
replace sc.学号 with alltrim(thisform.text1.text)
endif
else
append blank
replace sc.课号 with alltrim(thisform.text7.text)
replace sc.学号 with alltrim(thisform.text1.text)
endif
thisform.grdview1.recordsource=''
select view1
par1=textt1
use view1
thisform.grdview1.recordsource='view1'
thisform.grdview1.refresh
select view3
par3=textt1
use view3
thisform.text5.refresh
thisform.text6.refresh
“退选”的click的代码为:
thisform.grdview1.recordsource=''
select sc
use sc excl
delete all for (sc.课号=alltrim(thisform.text7.text) and sc.学号=alltrim(thisform.text1.text))
pack
select view1
par1=textt1
use view1
thisform.grdview1.recordsource='view1'
thisform.grdview1.refresh
select view3
use
par3=textt1
use view3
thisform.text5.refresh
thisform.text6.refresh
谢谢了..................
我要问的是。这些代码有什么作用,老师答辩时的要提问的,真是让你们费心了。。。。。比如:这个thisform.text5.refresh
就是表单中第5个文本栏,输入后可以更新到里面是不是呀?大概说下是什么意思我理解比较强的。。。费心了。。。
你要问什么啊?看这些代码应该是VFP的表单代码
你要问什么
谢谢,这些程序是我毕业设计要可能回答的问题,请各路大虾帮忙.
这些程序是我毕业设计要可能回答的问题,请各路大虾帮忙.
我想要一个VB程序的毕业设计
我是大一的医学生(本科),我想问的是:1:我以后可以支援西部吗?2:支援西部所需要的程序?麻烦回答,谢谢!
我要做毕业设计,谁有ASP小型企业网站的整站模板 数据库是用ACCESS,谢谢,帮忙
谁帮我编一个毕业设计的程序啊
我要做毕业设计,题目是:基于形态学的图象对比度的调整与实现(利用MATLAB程序实现),如果有会的请帮个忙
我的毕业设计是有关POP的 麻烦大家帮忙想个题目 哎 谢谢
我的电脑avi格式的电影突然不了了,可能是删除了什么程序,求助啊,谢谢
我的毕业设计是 静止式励磁设计 有高手能给些参考资料吗?谢谢了!