jlsrunit.pas

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

unit jlsrunit;

interface

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

type
  Tjlsr = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jlsr: Tjlsr;

implementation

uses datadomule;

{$R *.dfm}

procedure Tjlsr.Edit1Exit(Sender: TObject);
begin
with datamodule1.qry_jlsr do
begin
close;
sql.clear;
sql.add('select * from xsmc where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
if recordcount=0 then
begin
application.MessageBox('您所输入的学号不存在，请核对后再试！','提示',mb_ok+mb_iconinformation);
jlsr.close;
end;

edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;
edit4.text:=fields[1].asstring;
edit5.text:=fields[2].asstring;

end;
end;

procedure Tjlsr.Button1Click(Sender: TObject);
begin
if edit7.text='' then
begin
application.MessageBox('请输入奖励内容！','提示',mb_ok+mb_iconinformation);
exit;
end;
with datamodule1.qry_jlsr do
begin
close;
sql.Clear ;
sql.Add('select * from jlb0');
open;
edit;
append;
fields[0].asstring:=edit1.text;
fields[1].AsString:=edit7.text;
fields[2].AsString:=maskedit1.text;
post;
edit1.SetFocus ;
application.MessageBox('已经保持好了','提示',mb_ok+mb_iconinformation);
end;
end;

end.