VF学生成绩管理系统课程设计(3)

on 课程表.kch=成绩表.kch on 学生表.xh=成绩表.xh where 成绩表.xh = skcm release thisform clear

*set defa to \作业\\\

open database 学生成绩管理系统.dbc public skcm

skcm=thisform.pageframe1.page2.text1.text select * from lyxview where kch=skcm release thisform 3.登陆 clear

*set defa to \作业\\%use mm.dbf excl

loca all for alltrim(mm)=alltrim(thisform.Text1.text) if .not.eof()

messagebox(\登陆成功!\do 主菜单.MPR do form 背景.scx rele thisform else

messagebox(\密码错误\警告\endif quit 4、修改密码

clear close all use mm.dbf excl

if thisform.text2.text!=thisform.text3.Text messagebox(\两次密码输入不同\警告\else

loca all for alltrim(Mm)=alltrim(thisform.Text1.text) if .not.eof()

replace Mm with thisform.text2.text messagebox(\密码修改成功\恭喜\else

messagebox(\密码错误\警告\endif endif

rele thisform close all 5.浏览 close all

open database 学生成绩管理系统.dbc select * from lyxview

select xh as 学号,xm as 姓名,xb as 性别,bj as 班级,csrq as 出生日期,kch as 课程号,kcm as 课程名,xf as 学分,js as 教师,cj as 成绩 from lyxview clear

*set defa to \作业\\\

open database 学生成绩管理系统.dbc public skcm

skcm=thisform.pageframe1.page2.text1.text select * from lyxview where kcm=skcm clear

*set defa to \作业\\\

open database 学生成绩管理系统.dbc public skcm

skcm=thisform.pageframe1.page2.combo1.value thisform.refresh()

select * from lyxview where bj=skcm 6、查找

按班级名查找学生： －－－－－－－－－－－－ clear

*set defa to \作业\\\

open database \学生成绩管理系统.dbc\public skcm

skcm=thisform.pageframe1.page2.text1.text

select 学生表.xh,学生表.xm,学生表.xb,学生表.csrq,学生表.bj,课程表.kcm,课程表.js,课程表.xf,成绩表.cj from 学生表 join 成绩表 join 课程表;

on 课程表.kch=成绩表.kch on 学生表.xh=成绩表.xh where 学生表.bj=skcm ************************* clear

*set defa to \作业\\\

open database 学生成绩管理系统.dbc public skcm

skcm=thisform.pageframe1.page2.text1.text select * from lyxview where bj=skcm

*****************************

skcm=thisform.pageframe1.page2.combo1.value ********************************* 按课程名查找课程： clear

*set defa to \作业\\\

open database \学生成绩管理系统.dbc\public skcm

skcm=thisform.pageframe1.page2.text1.text

select 学生表.xh,学生表.xm,学生表.xb,学生表.csrq,学生表.bj,课程表.kcm,课程表.js,课程表.xf,成绩表.cj from 学生表 join 成绩表 join 课程表;

on 课程表.kch=成绩表.kch on 学生表.xh=成绩表.xh where 课程表.kcm=skcm 查询菜单中的按学号查成绩： clear

*set defa to \作业\\\

open database \学生成绩管理系统.dbc\public skcm

skcm=thisform.pageframe1.page1.text1.text

select 学生表.xh,学生表.xm,学生表.xb,学生表.csrq,学生表.bj,课程表.kcm,课程表.js,课程表.xf,成绩表.cj from 学生表 join 成绩表 join 课程表;

on 课程表.kch=成绩表.kch on 学生表.xh=成绩表.xh where 成绩表.xh=skcm 查询菜单中的按课程号查成绩： clear

*set defa to \作业\\\

open database \学生成绩管理系统.dbc\public skcm

skcm=thisform.pageframe1.page2.text1.text

select 学生表.xh,学生表.xm,学生表.xb,学生表.csrq,学生表.bj,课程表.kch,课程表.kcm,课程表.js,课程表.xf,成绩表.cj from 学生表 join 成绩表 join 课程表;

on 课程表.kch=成绩表.kch on 学生表.xh=成绩表.xh where 课程表.kch=skcm 7.登陆窗口动画 timer1.timer

if thisform.label1.left+thisform.label1.width<0 thisform.label1.left=thisform.width else

thisform.label1.left=thisform.label1.left-10 endif

thisform.refresh()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库VF学生成绩管理系统课程设计(3)在线全文阅读。