sjdrunit.pas

高校学生学籍管理系统源码

unit sjdrunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;

type
  Tsjdr = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    qry1: TQuery;
    qry2: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    qry3: TQuery;
    DataSource3: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjdr: Tsjdr;

implementation

{$R *.dfm}

procedure Tsjdr.Button1Click(Sender: TObject);
var a:string;
begin

a:='A_'+edit1.Text;

with qry1 do            //学生名册
begin
close;
sql.Clear ;
sql.Add('select * from '+''''+a+'''');
open;
first;
end;
while not qry1.Eof do
begin
with qry2 do
begin
close;
sql.Clear ;
sql.Add('select * from xsmc where xsxh_id=:id');
parambyname('id').AsString:=qry1.Fields[0].AsString ;
open;
if recordcount=0 then   //数据库里没有这个同学的记录
begin
edit;
append;
fields[0].AsString:=qry1.Fields[0].AsString;
//fields[1].AsString:=qry1.Fields[].AsString;
fields[2].AsString:=qry1.Fields[5].AsString;
fields[3].AsString:=edit1.Text;
fields[4].AsString:=qry1.Fields[2].AsString;
fields[5].AsString:=qry1.Fields[3].AsString;
fields[6].AsString:=qry1.Fields[4].AsString;
fields[7].AsString:=qry1.Fields[7].AsString;
fields[8].AsString:=qry1.Fields[8].AsString;
fields[9].AsString:=qry1.Fields[9].AsString;
fields[10].AsString:=qry1.Fields[11].AsString;
fields[16].AsString:=qry1.Fields[10].AsString;
fields[17].AsString:=qry1.Fields[17].AsString;
fields[18].AsString:=qry1.Fields[18].AsString;
fields[19].AsString:=qry1.Fields[16].AsString;
fields[20].AsString:=qry1.Fields[15].AsString;
fields[21].AsString:=qry1.Fields[13].AsString;
fields[22].AsString:=qry1.Fields[14].AsString;
fields[29].AsString:=qry1.Fields[45].AsString;
post;
end;
end;
qry1.next;
end ;

a:='b_'+edit1.Text;
with qry1 do          //学生成绩
begin
close;
sql.Clear ;
sql.Add('select * from '+''''+a+'''');
open;
first;
end;
while not qry1.Eof do
begin
with qry2 do
begin
close;
sql.Clear ;
sql.Add('select * from cjb0 where xsxh_id=:id and kcmc=:mc');
parambyname('id').AsString:=qry1.Fields[0].AsString ;
parambyname('mc').AsString:=qry1.Fields[1].AsString ;
open;
if recordcount=0 then   //数据库里没有这个同学的记录
begin
qry3.Close;
qry3.SQL.Clear ;
qry3.SQL.Add('select * from kcb0 where kcmc=:id');
qry3.ParamByName('id').AsString:=qry1.Fields[1].AsString ;
qry3.Open;
edit;
append;
fields[1].AsString:=qry1.Fields[0].AsString;
fields[5].AsString:=qry1.Fields[1].AsString;
fields[6].AsString:=qry1.Fields[2].AsString;
fields[10].AsString:=qry1.Fields[3].AsString;
fields[9].AsString:=qry1.Fields[4].AsString;
if qry3.RecordCount>0 then
begin
fields[4].AsString:=qry3.Fields[0].AsString;
end;
post;
end;
end;
qry1.next;
end ;

application.MessageBox('数据导入成功完成！','系统提示',mb_ok+mb_iconinformation);
end;

end.