zyrsunit.pas

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

unit zyrsunit;

interface

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

type
  Tzyrs = class(TForm)
    ToolBar1: TToolBar;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    qry: TQuery;
    DataSource1: TDataSource;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zyrs: Tzyrs;

implementation

uses rstempunit, rstemp1unit;

{$R *.dfm}

procedure Tzyrs.Button3Click(Sender: TObject);
begin
datamodule1.qry_zyrs.edit;
datamodule1.qry_zyrs.Post;
datamodule1.qry_zyrs.close;
datamodule1.qry_zyrs.Open;
end;

procedure Tzyrs.Button4Click(Sender: TObject);
begin
close;
end;

procedure Tzyrs.FormCreate(Sender: TObject);
var i:integer;
begin

with datamodule1.qry_zyrs do
begin
close;
sql.Clear ;
sql.Add('select * from zyb0');
execsql;
open;
first;
while not datamodule1.qry_zyrs.eof do
begin

i:=0;
with qry do
begin
close;
sql.Clear ;
//sql.Add('select xsmc.xsxh_id from xsmc,byqk where (xsmc.xsxh_id<>byqk.xsxh_id) and (xsmc.zyh0=:id) ');
sql.Add('select xsxh_id from xsmc where xsxh_id not in (select xsxh_id from byqk) and zyh0=:id');
ParamByName('id').asstring:=datamodule1.qry_zyrs.fields[0].asstring;
open;
 while not qry.Eof do
 begin
 i:=i+1;
 qry.Next;
 end;
close;
sql.Clear;
sql.add('update zyb0 set xyrs=:rs00 where zyh0=:id');
parambyname('id').asstring:=datamodule1.qry_zyrs.fields[0].asstring;
parambyname('rs00').asinteger:=i;
execsql;
end;
datamodule1.qry_zyrs.next;
end;
close;
sql.Clear ;
sql.Add('select * from zyb0');

open;


end;

end;

procedure Tzyrs.DBGrid1DblClick(Sender: TObject);
var a:string;

begin
{try
if dbgrid1.selectedfield.asinteger=0 then
begin
application.MessageBox('确实要删除这条记录吗?','提示',mb_ok+mb_iconinformation);
end;
except
 application.MessageBox('ddd?','提示',mb_ok+mb_iconinformation);
end;}



if dbgrid1.SelectedField.FieldName='ljrs' then
begin
a:='留级';
end;
if dbgrid1.SelectedField.FieldName='xxrs' then
begin
a:='休学';
end;
if dbgrid1.SelectedField.FieldName='fxrs' then
begin
a:='复学';
end;
if dbgrid1.SelectedField.FieldName='kcrs' then
begin
a:='开除';
end;
if dbgrid1.SelectedField.FieldName='swrs' then
begin
a:='死亡';
end;
if dbgrid1.SelectedField.FieldName='txrs' then
begin
a:='退学';
end;
if dbgrid1.SelectedField.FieldName='lxrs' then
begin
a:='留学';
end;
if dbgrid1.SelectedField.FieldName='blzg' then
begin
a:='保留入学资格';
end;
if dbgrid1.SelectedField.FieldName='zkjy' then
begin
a:='专科结业';
end;
if dbgrid1.SelectedField.FieldName='wxzr' then
begin
a:='外校转入';
end;
if dbgrid1.SelectedField.FieldName='zcwx' then
begin
a:='转校';
end;
if dbgrid1.SelectedField.FieldName='wzyz' then
begin
a:='外专业转入';
end;
if dbgrid1.SelectedField.FieldName='zcwz' then
begin
a:='转出外专业';
end;


if dbgrid1.SelectedField.FieldName='xyrs' then
begin
with datamodule1.qry_rstemp1 do
begin
close;
sql.clear;
sql.add('select * from xsmc where xsxh_id not in (select xsxh_id from byqk) and zyh0=:id');
parambyname('id').asstring:=dbgrid1.Fields[0].asstring;
execsql;
open;
end;
rstemp1:=trstemp1.create(self);
rstemp1.showmodal;
end
else

with datamodule1.qry_rstemp do
begin

close;
sql.clear;
sql.add('select * from xsbd where (bdyy=:yy) and (yzyh=:id) or (xzyh=:id)');
parambyname('id').asstring:=dbgrid1.fields[0].asstring;
parambyname('yy').asstring:=a;
open;
rstemp:=trstemp.create(self);
rstemp.edit1.text:=dbgrid1.fields[0].asstring;
rstemp.showmodal;
end;



end;
end.