unit3.~pas

Delph 开发的学生管理信息系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    i_stud_id_1: TMaskEdit;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Panel2: TPanel;
    i_change: TRadioGroup;
    i_descrip_1: TMemo;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    DS_depart_info_1: TDataSource;
    T_depart_info_1: TTable;
    DS_class_info_1: TDataSource;
    T_class_info_1: TTable;
    DS_stud_info_1: TDataSource;
    T_stud_info_1: TTable;
    T_counter_c: TTable;
    T_change: TTable;
    procedure i_stud_id_1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.i_stud_id_1Change(Sender: TObject);
begin
T_stud_info_1.Filter:='ID='''+i_stud_id_1.Text+'''';		//设置过滤器
T_stud_info_1.Filtered:=True;							//激活过滤器
T_stud_info_1.Open;									//打开学生信息数据表
T_class_info_1.Open;									//打开班级信息表
T_depart_info_1.Open;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
	i_stud_id_1.Text:='';								//学号输入框清空
	i_change.ItemIndex:=0;								//学籍变更复位到"转系"
	i_descrip_1.Clear;									//描述清空

end;

procedure TForm3.Button2Click(Sender: TObject);
var
	counter:integer;								//counter变量用于计数器增值
begin
T_stud_info_1.Open;								//打开学生信息表
if T_stud_info_1.RecordCount>0 then					//判断输入的学号是否存在
begin											//学号存在，开始追加记录
	T_counter_c.Open;
	counter:=T_counter_c['COUNTER_VALUE'];
	Inc(counter);									//累加学籍变更计数器
	T_counter_c.Edit;
	T_counter_c['COUNTER_VALUE']:=counter;
	T_counter_c.Post;								//修改计数器值
	T_change.Open;								//打开学籍变更表，追加记录
	T_change.AppendRecord([counter,i_stud_id_1.text,i_change.ItemIndex,Now,i_descrip_1.text]);
	Button1Click(nil);								//初始化表单
end
else												//学号输入有误
	Application.MessageBox('请确认输入的学号是否正确！','错误',MB_OK);
end;


end.