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

📄 cjzbtempunit.pas

📁 高校学生学籍管理系统源码
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
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;
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:=datamodule1.qry_cjzb.Fields[0].asstring;
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 cjzb1') ;
open;

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:=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+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;

datamodule1.qry_cjzb.Next;
end;


//////////////////////////////////////////////第二学期
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.add('delete from cjzb2');      //!
execsql;

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

sql.Clear ;
sql.Add('select * from cjzb2');          //!
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+'-2';   //!
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
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;
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:=datamodule1.qry_cjzb.Fields[0].asstring;
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 cjzb1') ;
open;

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:=datamodule1.qry_cjzb.Fields[0].asstring;
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;

datamodule1.qry_cjzb.Next;
end;

//////////////////////////////////////////第三学期
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.add('delete from cjzb3');      //!  1
execsql;

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

sql.Clear ;
sql.Add('select * from cjzb3');          //!     3
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:=inttostr(strtoint(maskedit1.Text)+1)+'-1';   //!     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:=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
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;
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:=datamodule1.qry_cjzb.Fields[0].asstring;
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 qry do
begin
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:=inttostr(strtoint(maskedit1.Text)+1)+'-1';  //!   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;

datamodule1.qry_cjzb.Next;
end;

/////////////////////////////////////////    第四学期
with datamodule1.qry_cjzb do
begin
close;
sql.Clear ;
sql.add('delete from cjzb4');      //!  1
execsql;

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

sql.Clear ;
sql.Add('select * from cjzb4');          //!     3
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:=inttostr(strtoint(maskedit1.Text)+1)+'-2';   //!     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:=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
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;
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:=datamodule1.qry_cjzb.Fields[0].asstring;
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)+')'
12345

⌨️ 快捷键说明

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