fplrfunit.pas

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

unit fplrfunit;

interface

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

type
  Tfplr = class(TForm)
    DataSource1: TDataSource;
    qry: TQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    MaskEdit1: TMaskEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fplr: Tfplr;

implementation

uses datadomule, fplrunit;

{$R *.dfm}

procedure Tfplr.FormCreate(Sender: TObject);
begin
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from xsmc where bjh0=:id') ;
parambyname('id').asstring:=fplrfrm.combobox2.text;
open;
first;
edit1.text:=fields[0].asstring;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;
end;
end;

procedure Tfplr.Edit1Change(Sender: TObject);
begin
{with datamodule1.qry_fpsrf do
begin
close;
sql.clear;
sql.add('select * from xscm where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;
end;}
end;

procedure Tfplr.Edit4Exit(Sender: TObject);
begin

with datamodule1.qry_fpsrf do
begin
close;
sql.Clear ;
sql.add('select * from kcb0 where kcbh=:id');
parambyname('id').asstring:=edit4.Text;
open;
if not findfirst then
begin
application.MessageBox('没有找到该课的信息，请在课程维护中添加这门课!','提示',mb_ok+mb_iconinformation);
edit4.SetFocus ;
edit3.Clear ;
exit;
end;
edit5.text:=fields[1].asstring;
combobox1.text:=fields[2].asstring;
edit7.text:=fields[3].asstring;
edit9.text:=fields[4].asstring;
end;



with qry do
begin
close;
sql.Clear ;
sql.Add('select * from xsmc where xsxh_id not in (select xsxh_id from cjb0 where bjh0=:id and kcbh=:bh and kclb='+''''+'必修'+''') and bjh0=:bj');
parambyname('id').AsString:=edit3.text;
parambyname('bh').AsString:=edit4.text;
parambyname('bj').AsString:=edit3.text;
open;
if not findfirst then
begin
application.MessageBox('该班的该项成绩已经存在,不需要输入!','提示',mb_ok+mb_iconinformation);
edit4.Clear ;
end;
first;
edit1.text:=fields[0].asstring;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;


end;


{
with datamodule1.qry_fpsrf do
begin
close;
sql.Clear ;
sql.add('select * from cjb0 where kcbh=:id and bjh0=:name and kclb='+''''+'必修'+'''');
parambyname('id').asstring:=edit4.Text;
parambyname('name').asstring:=edit3.text;
open;
if recordcount>0 then
begin
application.MessageBox('该班的该项成绩已经存在,不需要输入!','提示',mb_ok+mb_iconinformation);
edit4.Clear ;
exit;
end;
end;
}

end;

procedure Tfplr.Button1Click(Sender: TObject);
begin

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


with datamodule1.qry_fpsrf do
begin
close;
sql.Clear;
sql.add('select * from cjb0 ');
open;
edit;
append;
fields[1].asstring:=edit1.text;
fields[2].asstring:=edit2.text;
fields[3].asstring:=edit3.text;
fields[4].asstring:=edit4.text;
fields[5].asstring:=edit5.text;
fields[6].asstring:=combobox1.text;
fields[7].asstring:=edit7.text;
fields[8].asstring:=maskedit1.text;
fields[9].asstring:=edit9.text;
fields[10].asstring:=edit11.text;
fields[11].asstring:=edit10.text;
post;
end;
with qry do
begin

next;
edit1.text:=fields[0].asstring;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;

if eof then
begin
application.MessageBox('该班级成绩输入已经完成!','提示',mb_ok+mb_iconinformation);
fplr.Close;
end;
edit11.Clear;
edit11.SetFocus ;
end;
end;
procedure Tfplr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
selectnext (activecontrol,true,true);
end;

procedure Tfplr.Button2Click(Sender: TObject);
begin
if not qry.Eof then
begin
qry.Next;
edit1.text:=qry.fields[0].asstring;
edit2.text:=qry.fields[5].asstring;
edit3.text:=qry.fields[3].asstring;
end
else
application.MessageBox('已经是最后一个学生了!','提示',mb_ok+mb_iconinformation);
edit11.SetFocus ;

end;

end.