| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1537 人关注过本帖
标题:如何查询某个老师所带班级科目及班级积分和班级总类型数?
只看楼主 加入收藏
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
结帖率:77.78%
收藏
已结贴  问题点数:40 回复次数:4 
如何查询某个老师所带班级科目及班级积分和班级总类型数?
积分.zip (13.77 KB)

查询表格出现  姓名  所带班级列表  所带班级积分及 该老师任课科目?
搜索更多相关主题的帖子: 类型 查询 列表 积分 老师 
2021-11-07 21:43
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:20 
程序代码:
SET LIBRARY TO  "C:\Program Files (x86)\Microsoft Visual FoxPro 9\foxtools.fll"
SET SAFETY OFF

CLOSE TABLES all
CREATE TABLE tjjg (xm c(10),bj c(2),jf i,skmc c(6))
kcmc='语文 数学 英语 物理 化学 生物 政治 历史 地理'
FOR i=1 TO 9
    SELECT EVALUATE(FIELD(i*20+7)), bj,  EVALUATE(FIELD(i*20+5)),WordNum(kcmc,i) FROM 积分 INTO ARRAY tmpar WHERE  !EMPTY(EVALUATE(FIELD(i*20+7)))
    APPEND FROM ARRAY  tmpar
ENDFOR

brow

dBase有人接盘了。
2021-11-07 22:24
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
如果是所带班级名次呢?EVALUATE(FIELD(i*20+5)) 里的 i*20+5 是什么意思?
2021-11-08 07:37
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:0 
回复 3楼 分号
改EVALUATE(FIELD(i*20+5))为 EVALUATE(FIELD(i*20+6)),也增加这个但是tjjg表中要增加一项。
i*20+5 代表第i门课积分所在的列

dBase有人接盘了。
2021-11-08 08:09
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1088
专家分:2682
注 册:2015-12-30
收藏
得分:20 
程序代码:
CLOSE DATABASES 

LOCAL xchr,xkcmc[1],xfields[1],ii
xchr = '语文,数学,英语,物理,化学,生物,政治,历史,地理'
ALINES(xkcmc,xchr,2,',')

xchr = 'yw,sx,yy,wl,hx,sw,zz,ls,dl'
ALINES(xfields,xchr,2,',')

CREATE CURSOR tjjg (xm c(10),bj c(2),jf i,jfmc i,skmc c(6))

FOR ii=1 TO ALEN(xkcmc)
    INSERT INTO tjjg (xm,bj,jf,jfmc,skmc) ;
        SELECT EVALUATE(LEFT(xkcmc[ii],2)+'任课教师') xm,bj,EVALUATE(xfields[ii]+'jf') jf,EVALUATE(xfields[ii]+'jfmc') jfmc,xkcmc[ii] skmc ;
        FROM 积分 WHERE !EMPTY(EVALUATE(LEFT(xkcmc[ii],2)+'任课教师'))
ENDFOR 

SELECT tjjg
GO TOP 
BROWSE



积分统计.zip (15.42 KB)
2021-11-08 09:44
快速回复:如何查询某个老师所带班级科目及班级积分和班级总类型数?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040428 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved