cjcxunit.pas

delphi sqlserver 学生学籍管理系统

unit cjcxunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, ToolWin, ComCtrls,datadomule,
  DB, DBTables;

type
  Tcjcx = class(TForm)
    ToolBar1: TToolBar;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    qry: TQuery;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjcx: Tcjcx;

implementation

{$R *.dfm}

procedure Tcjcx.Button1Click(Sender: TObject);
var bkcj,cxcj,bh:string;
begin
with datamodule1.qry_cjcx do
begin
close;
sql.Clear ;
sql.Add('delete from cjbtemp');
execsql;

sql.Clear ;   //在成绩表中选出某人的所有成绩
sql.add('insert into cjbtemp(xsxh_id,xm00,bjh0,kcbh,kcmc,kclb,kcml,kkxq,xf00,cj00,js00) select xsxh_id,xm00,bjh0,kcbh,kcmc,kclb,kcml,kkxq,xf00,cj00,js00 from cjb0 where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
execsql;
end;

with qry do
begin
sql.Clear ;
sql.add('select bkcj,kcbh from bkcj where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
end;
if qry.findfirst then
 repeat
  bkcj:=qry.fieldbyname('bkcj').asstring;
  bh:=qry.fieldbyname('kcbh').asstring;
   with datamodule1.qry_cjcx do
   begin
   sql.Clear ;
   sql.add('update cjbtemp set bkcj=:bkcj where kcbh=:bh');  //在表中添加补考成绩
   parambyname('bkcj').asstring:=bkcj;
   parambyname('bh').asstring:=bh;
   execsql;
   end;
 until qry.findnext=false;

with qry do
begin
sql.Clear ;
sql.add('select cxcj,kcbh from cxcj where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
end;
if qry.findfirst then
 repeat
  cxcj:=qry.fieldbyname('cxcj').asstring;
  bh:=qry.fieldbyname('kcbh').asstring;
   with datamodule1.qry_cjcx do
   begin
   sql.Clear ;
   sql.add('update cjbtemp set cxcj=:cxcj where kcbh=:bh');  //在表中添加重修成绩
   parambyname('cxcj').asstring:=cxcj;
   parambyname('bh').asstring:=bh;
   execsql;
   end;
 until qry.findnext=false;

 with datamodule1.qry_cjcx do
 begin
 close;
 sql.clear;
 sql.add('select * from cjbtemp') ;
 open;
 end;
end;

end.