cx=0
set exact off &&字符非精确比较
cif=alltrim(thisform.combo1.displayvalue)
ccif=alltrim(thisform.combo2.displayvalue)
ctext=alltrim(thisform.text1.value)
if empty(ccif)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.combo2.setfocus &&Combo2获得焦点
else
if empty(ctext)
messagebox('请输入查询条件！',48,'操作失败！')
thisform.text1.setfocus
else
set exact on &&字符精确比较
if ccif='='
select *;
from medicamentmanage!tabkc;
where &cif.==alltrim(thisform.text1.value);
order by tabkc.药品编号;
into cursor lindeping
endif
set exact off
if ccif='<'
select *;
from medicamentmanage!tabkc;
where &cif.< alltrim(thisform.text1.value)+"*";
order by tabkc.药品编号;
into cursor lindeping
endif
set exact off
if ccif='>'
select *;
from medicamentmanage!tabkc;
where &cif.>alltrim(thisform.text1.value)+"*";
order by tabkc.药品编号;
into cursor lindeping
endif
if ccif='like'
select *;
from medicamentmanage!tabkc;
where alltrim(thisform.text1.value)$&cif.;
order by tabkc.药品编号;
into cursor lindeping
endif
go top
if eof()
go bottom
messagebox('药品不存在',48,'信息窗口')
thisform.pageframe1.page2.grid1.recordsource='lindeping' &&赋数据源
thisform.commandgroup2.command1.enabled=.f.
thisform.commandgroup2.command2.enabled=.f.
thisform.commandgroup2.command3.enabled=.f.
thisform.commandgroup2.command4.enabled=.f.
cx=1
else
thisform.pageframe1.page2.grid1.recordsource='lindeping' &&赋数据源
lspnumber=lindeping.药品编号
select tabkc
set order to 药品编号 &&指定控制索引文件
seek lspnumber &&快速查询
thisform.resize &&执行表单的Resize事件
thisform.commandgroup2.command1.enabled=.t.
thisform.commandgroup2.command2.enabled=.t.
thisform.commandgroup2.command3.enabled=.t.
thisform.commandgroup2.command4.enabled=.t.
thisform.commandgroup2.command1.setfocus
thisform.refresh &&刷新表单
endif
endif
endif
vfp学生成绩管理系统
5星 · 超过95%的资源 需积分: 0 17 浏览量
2009-06-30
16:49:09
上传
评论 1
收藏 292KB RAR 举报 
vfp学生成绩管理系统 （139个子文件） 
student1.BAK 4KB student.BAK 4KB prof.BAK 4KB score.BAK 3KB classn.BAK 3KB score1.BAK 2KB course.BAK 2KB main.BAK 792B
unknown.bmp 39KB unknown.bmp 39KB student1.CDX 13KB classn.CDX 8KB student.CDX 8KB course.CDX 5KB score1.CDX 5KB score.CDX 5KB Thumbs.db 76KB FOXUSER.DBF 13KB student.dbf 4KB course.DBF 4KB classn.dbf 4KB student1.dbf 3KB prof.dbf 3KB score.dbf 3KB score1.dbf 2KB user.DBF 555B student.FPT 1.19MB FOXUSER.FPT 153KB prof.FPT 4KB classn.FPT 4KB student1.FPT 2KB tscore1.FRT 3KB tscore.FRT 3KB tscore1.frx 20KB tscore.frx 15KB main.FXP 841B ksh.IDX 2KB tempxh.IDX 2KB tempkc.IDX 2KB tempbh.IDX 2KB
u=3997525188,4040017887&fm=0&gp=0[1].jpg 6KB u=2410693322,2551815085&fm=0&gp=2[1].jpg 6KB u=2237119593,3366275300&fm=0&gp=10[1].jpg 5KB 20.jpg 4KB u=3058765832,3059409091&fm=0&gp=32[1].jpg 4KB u=2386481309,3513799031&fm=0&gp=-16[1].jpg 4KB u=1659072445,1587626709&fm=0&gp=6[1].jpg 4KB u=3958891063,5720817&fm=0&gp=20[1].jpg 4KB u=1452529764,1737094445&fm=0&gp=42[1].jpg 4KB u=740094595,1923157008&fm=0&gp=42[1].jpg 4KB u=1034357677,2139606708&fm=0&gp=30[1].jpg 3KB u=913641102,54243895&fm=0&gp=34[1].jpg 3KB u=262495635,3928082109&fm=3&gp=21[1].jpg 3KB u=993037731,3196817781&fm=3&gp=1[1].jpg 3KB u=1052635751,2930700799&fm=3&gp=21[1].jpg 3KB u=1241634383,4186933128&fm=3&gp=1[1].jpg 3KB u=2405577924,4249552016&fm=3&gp=41[1].jpg 3KB u=3135929977,2694134085&fm=0&gp=44[1].jpg 3KB 21.jpg 3KB u=58301422,2760404825&fm=3&gp=1[1].jpg 3KB u=3994884279,151840888&fm=3&gp=41[1].jpg 3KB u=698702757,2707618529&fm=0&gp=4[1].jpg 3KB u=3968502389,4159409795&fm=3&gp=41[1].jpg 3KB u=3968502389,4159409795&fm=3&gp=41[1][1].jpg 3KB u=3034232794,2436371054&fm=0&gp=20[1].jpg 3KB u=2915380465,1404822463&fm=0&gp=-6[1].jpg 3KB u=1996966436,564469412&fm=3&gp=1[1].jpg 3KB u=1539436357,4089912508&fm=0&gp=20[1].jpg 3KB u=1933210170,883045431&fm=3&gp=11[1].jpg 3KB u=2581724522,281198297&fm=3&gp=11[1].jpg 2KB u=3573539338,2935561922&fm=0&gp=12[1].jpg 2KB u=4013295297,1698249893&fm=3&gp=21[1].jpg 2KB u=3601612670,3372464596&fm=3&gp=31[1].jpg 2KB u=728302250,4025657547&fm=3&gp=31[1].jpg 2KB u=527987204,2877359431&fm=0&gp=-20[1].jpg 2KB u=3287598158,580481238&fm=3&gp=41[1].jpg 2KB u=910093200,2079762132&fm=3&gp=31[1].jpg 1KB menu.MNT 3KB menu.mnx 4KB MENU.MPR 7KB menu.MPX 3KB main.PJT 14KB main.PJX 8KB main.prg 798B find.SCT 16KB 信息.SCT 15KB 成绩.SCT 14KB setcourse.SCT 13KB quscore.SCT 11KB setstudent2.SCT 9KB setclass.SCT 9KB pass.SCT 8KB qustudent.SCT 8KB setstudent1.SCT 7KB setscore1.SCT 7KB setcourse1.SCT 7KB printscore.SCT 7KB setscore.SCT 6KB setclass1.SCT 5KB usermain.SCT 5KB共 139 条
- 1
- 2
资源评论
qq_426761182018-08-24感谢！！！
