bdljunit.pas

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

unit bdljunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ExtCtrls;

type
  Tbdlj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    MaskEdit1: TMaskEdit;
    Button1: TButton;
    Label8: TLabel;
    Edit7: TEdit;
    Label9: TLabel;
    Edit8: TEdit;
    Label10: TLabel;
    Edit9: TEdit;
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bdlj: Tbdlj;

implementation

uses datadomule;

{$R *.dfm}

procedure Tbdlj.Edit1Exit(Sender: TObject);
begin
with datamodule1.qry_xsbd do
begin
close;
sql.Clear ;
sql.Add('select * from xsmc where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
edit2.text:=fields[5].AsString;
edit3.text:=fields[1].AsString;
edit4.text:=fields[2].AsString;
edit5.text:=fields[3].AsString;
end;
end;

procedure Tbdlj.Button1Click(Sender: TObject);
begin

if (edit1.text='') or (edit6.text='') then
begin
application.MessageBox('请输入完整信息!','提示',mb_ok+mb_iconinformation);
exit;
end;

with datamodule1.qry_xsbd do
begin
close;    //在变动表里添加信息
sql.clear;
sql.add('select * from xsbd');
open;
edit;
append;
fields[0].asstring:=edit1.text;
fields[1].asstring:=edit2.text;
fields[2].asstring:=edit3.text;
fields[3].asstring:=edit4.text;
fields[4].asstring:=edit5.text;
fields[8].asstring:=maskedit1.text;
fields[9].asstring:=edit6.text;
fields[5].asstring:=edit7.text;
fields[6].asstring:=edit8.text;
fields[7].asstring:=edit9.text;
post;

close;        //在学生名册里更新该学生信息
sql.Clear ;
sql.Add('update xsmc set xh00=:xh,zyh0=:zyh,bjh0=:bjh where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
parambyname('xh').asstring:=edit7.text;
parambyname('zyh').asstring:=edit8.text;
parambyname('bjh').asstring:=edit9.text;
execsql;


close;
sql.Clear ;
sql.Add('select * from zyb0 where zyh0=:id');
parambyname('id').asstring:=edit4.text;
execsql;
open;
edit;
fields[17].AsInteger:=fields[17].AsInteger+1;  //留级人数+1
fields[10].AsInteger:=fields[10].AsInteger-1;; //原专业人数-1
post;

close;
sql.Clear ;
sql.Add('select * from bjb0 where bjh0=:id');
parambyname('id').asstring:=edit5.text;
execsql;
open;
edit;
fields[3].AsInteger:=fields[3].AsInteger-1;  //原班级人数-1
post;

close;
sql.Clear ;
sql.Add('select * from bjb0 where bjh0=:id');
parambyname('id').asstring:=edit9.text;
execsql;
open;
edit;
fields[3].AsInteger:=fields[3].AsInteger+1;  //现班级人数+1
post;

close;
sql.Clear ;
sql.Add('select * from zyb0 where zyh0=:id');
parambyname('id').asstring:=edit8.text;
execsql;
open;
edit;
fields[10].AsInteger:=fields[10].AsInteger+1;; //现专业人数+1
post;
end;
application.MessageBox('操作已完成！','提示',mb_ok+mb_iconinformation);
end;

procedure Tbdlj.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext (activecontrol,true,true);
end;

end.