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()