⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cjzbtempunit.pas

📁 高校学生学籍管理系统源码
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if (qry1.fields[9].AsString='优秀') or (qry1.fields[9].AsString='良好') or (qry1.fields[9].AsString='中等') or (qry1.fields[9].AsString='及格') then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if qry1.fields[9].AsString<>'' then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end;
end;
end;
end
else
begin
if (qry.fields[10].AsString<>'') and (strtofloat(qry.fields[10].AsString)<60) then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
cj:=0;
if qry1.fields[9].AsString<>'' then
begin
cj:=strtofloat(qry1.fields[9].AsString);
end;
if (qry1.fields[9].AsString<>'') and (strtofloat(qry1.fields[9].AsString)>59) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if  (qry1.fields[9].AsString='') and (cj<>0) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+floattostr(cj)+')'
end
else
begin
if qry1.fields[9].AsString<>'' then
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end;
end;
end

end;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.Post;
end;
end;  //2

////////////////////////////////////////////以下是选修课程成绩
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.Add('select * from cjzb2') ;
open;
first;     //point to the first student
end;

with qry do
begin
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'选修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-2';
open;
first;
if findfirst then
begin

datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+14].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+29].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+44].AsString:=qry.fields[10].AsString;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.post;
end;
end;

/////////////////////////////////////第四学期
with qry do
begin
close;
sql.Clear ;
sql.Add('select xsxh_id,xm00,zymc from vzyb where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
end;

with datamodule1.qry_cjzb do
begin
close;

sql.Clear;
sql.Add('delete from cjzb4');
execsql;
sql.Clear;
sql.Add('select * from cjzb4');

open;
edit;
fields[0].AsString:=qry.Fields[0].AsString;     //添加姓名学号
fields[1].AsString:=qry.Fields[1].AsString;
post;
end;

with qry do
begin   //2
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'必修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-4';
open;
first;
if findfirst then
begin
datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+2].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+17].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+32].AsString:=qry.fields[10].AsString;
if (qry.fields[10].AsString='优秀') or (qry.fields[10].AsString='良好') or (qry.fields[10].AsString='中等') or (qry.fields[10].AsString='及格') or (qry.fields[10].AsString='不及格') then
begin
if (qry.fields[10].AsString='不及格') then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if (qry1.fields[9].AsString='优秀') or (qry1.fields[9].AsString='良好') or (qry1.fields[9].AsString='中等') or (qry1.fields[9].AsString='及格') then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if qry1.fields[9].AsString<>'' then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end;
end;
end;
end
else
begin
if (qry.fields[10].AsString<>'') and (strtofloat(qry.fields[10].AsString)<60) then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
cj:=0;
if qry1.fields[9].AsString<>'' then
begin
cj:=strtofloat(qry1.fields[9].AsString);
end;
if (qry1.fields[9].AsString<>'') and (strtofloat(qry1.fields[9].AsString)>59) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if  (qry1.fields[9].AsString='') and (cj<>0) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+floattostr(cj)+')'
end
else
begin
if qry1.fields[9].AsString<>'' then
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end;
end;
end

end;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.Post;
end;
end;  //2

////////////////////////////////////////////以下是选修课程成绩
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.Add('select * from cjzb4') ;
open;
first;     //point to the first student
end;

with qry do
begin
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'选修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-4';
open;
first;
if findfirst then
begin

datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+14].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+29].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+44].AsString:=qry.fields[10].AsString;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.post;
end;
end;


///////////////////////////////////////第五学期
with qry do
begin
close;
sql.Clear ;
sql.Add('select xsxh_id,xm00,zymc from vzyb where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
end;

with datamodule1.qry_cjzb do
begin
close;

sql.Clear;
sql.Add('delete from cjzb5');
execsql;
sql.Clear;
sql.Add('select * from cjzb5');

open;
edit;
fields[0].AsString:=qry.Fields[0].AsString;     //添加姓名学号
fields[1].AsString:=qry.Fields[1].AsString;
post;
end;

with qry do
begin   //2
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'必修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-5';
open;
first;
if findfirst then
begin
datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+2].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+17].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+32].AsString:=qry.fields[10].AsString;
if (qry.fields[10].AsString='优秀') or (qry.fields[10].AsString='良好') or (qry.fields[10].AsString='中等') or (qry.fields[10].AsString='及格') or (qry.fields[10].AsString='不及格') then
begin
if (qry.fields[10].AsString='不及格') then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if (qry1.fields[9].AsString='优秀') or (qry1.fields[9].AsString='良好') or (qry1.fields[9].AsString='中等') or (qry1.fields[9].AsString='及格') then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if qry1.fields[9].AsString<>'' then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end;
end;
end;
end
else
begin
if (qry.fields[10].AsString<>'') and (strtofloat(qry.fields[10].AsString)<60) then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
cj:=0;
if qry1.fields[9].AsString<>'' then
begin
cj:=strtofloat(qry1.fields[9].AsString);
end;
if (qry1.fields[9].AsString<>'') and (strtofloat(qry1.fields[9].AsString)>59) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if  (qry1.fields[9].AsString='') and (cj<>0) then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+floattostr(cj)+')'
end
else
begin
if qry1.fields[9].AsString<>'' then
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';;
end;
end;
end

end;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.Post;
end;
end;  //2

////////////////////////////////////////////以下是选修课程成绩
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.Add('select * from cjzb5') ;
open;
first;     //point to the first student
end;

with qry do
begin
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'选修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-5';
open;
first;
if findfirst then
begin

datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+14].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+29].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+44].AsString:=qry.fields[10].AsString;
i:=i+1;
qry.Next;
end;
datamodule1.qry_cjzb.post;
end;
end;

///////////////////////////////////////第六学期
with qry do
begin
close;
sql.Clear ;
sql.Add('select xsxh_id,xm00,zymc from vzyb where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
end;

with datamodule1.qry_cjzb do
begin
close;

sql.Clear;
sql.Add('delete from cjzb6');
execsql;
sql.Clear;
sql.Add('select * from cjzb6');

open;
edit;
fields[0].AsString:=qry.Fields[0].AsString;     //添加姓名学号
fields[1].AsString:=qry.Fields[1].AsString;
post;
end;

with qry do
begin   //2
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kkxq=:xq and kclb='+''''+'必修'+'''');
parambyname('id').asstring:=edit1.Text;
parambyname('xq').asstring:=maskedit1.Text+'-6';
open;
first;
if findfirst then
begin
datamodule1.qry_cjzb.Edit;
i:=0;
while i<qry.RecordCount do
begin
datamodule1.qry_cjzb.Fields[i+2].AsString:=qry.fields[5].AsString;
datamodule1.qry_cjzb.Fields[i+17].AsString:=qry.fields[9].AsString;
datamodule1.qry_cjzb.Fields[i+32].AsString:=qry.fields[10].AsString;
if (qry.fields[10].AsString='优秀') or (qry.fields[10].AsString='良好') or (qry.fields[10].AsString='中等') or (qry.fields[10].AsString='及格') or (qry.fields[10].AsString='不及格') then
begin
if (qry.fields[10].AsString='不及格') then
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from bkcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if (qry1.fields[9].AsString='优秀') or (qry1.fields[9].AsString='良好') or (qry1.fields[9].AsString='中等') or (qry1.fields[9].AsString='及格') then
begin
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end
else
begin
qry1.Close;
qry1.SQL.Clear ;
qry1.SQL.Add('select * from cxcj where xsxh_id=:id and kcbh=:kc');
qry1.ParamByName('id').asstring:=edit1.text;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -