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

📄 cjzbtempunit.pas

📁 高校学生学籍管理系统源码
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
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 cjzb6') ;
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+'-6';
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 cjzb7');
execsql;
sql.Clear;
sql.Add('select * from cjzb7');

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+'-7';
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 cjzb7') ;
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+'-7';
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 cjzb8');
execsql;
sql.Clear;
sql.Add('select * from cjzb8');

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+'-8';
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 cjzb8') ;
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+'-8';
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;




end;     //1



//////////////////////////////////////////打印全班成绩
if radiobutton1.Checked then
begin    //q
with datamodule1.qry_cjzb do    //第一学期
begin
close;
sql.Clear ;
sql.add('delete from cjzb1');
execsql;

sql.Clear ;
sql.Add('insert into cjzb1(xsxh_id,xm00) select xsxh_id,xm00 from xsmc where bjh0=:name');
parambyname('name').asstring:=combobox2.text;
execsql;

sql.Clear ;
sql.Add('select * from cjzb1');
execsql;
open;
first;
end;


while not datamodule1.qry_cjzb.Eof do
begin

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:=datamodule1.qry_cjzb.Fields[0].asstring;
parambyname('xq').asstring:=maskedit1.Text+'-1';
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:=datamodule1.qry_cjzb.Fields[0].asstring;
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:=datamodule1.qry_cjzb.Fields[0].asstring;
qry1.ParamByName('kc').asstring:=qry.fields[4].AsString;
qry1.open;
if qry1.fields[9].AsString<>'' then
datamodule1.qry_cjzb.Fields[i+47].AsString:='('+qry1.fields[9].AsString+')';
end;
end;
end
else
begin
if (qry.fields[10].AsString<>'') and (strtofloat(qry.fields[10].AsString)<60) then
12345

⌨️ 快捷键说明

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