unit5.~pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label2: TLabel;
    i_stud_id_4: TMaskEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    DS_stud_info_4: TDataSource;
    DS_class_info_4: TDataSource;
    DS_depart_info_4: TDataSource;
    T_stud_info_4: TTable;
    T_class_info_4: TTable;
    T_depart_info_4: TTable;
    T_change_4: TTable;
    T_reward_4: TTable;
    T_punish_4: TTable;
    DS_change_4: TDataSource;
    DS_reward_4: TDataSource;
    DS_punish_4: TDataSource;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBRadioGroup1: TDBRadioGroup;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    T_change_code_4: TTable;
    T_reward_level_4: TTable;
    T_punish_level_4: TTable;
    DS_change_code_4: TDataSource;
    DS_reward_level_4: TDataSource;
    DS_punish_level_4: TDataSource;
    Button4: TButton;
    Button8: TButton;
    procedure i_stud_id_4Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.i_stud_id_4Change(Sender: TObject);
begin
  T_stud_info_4.Filter:='ID='''+i_stud_id_4.Text+'''';	//设置过滤条件为输入的学号
	T_stud_info_4.Filtered:=True;					//激活过滤器
	T_stud_info_4.Open;							//打开学生信息表
	T_class_info_4.Open;							//打开班级信息表
	T_depart_info_4.Open;							//打开院系信息表
	T_change_4.Open;								//打开学籍变更表
	T_change_code_4.Open;						//打开学籍变更代码表
	T_reward_4.Open;								//打开奖励记录表
	T_reward_level_4.Open;						//打开奖励级别代码表
	T_punish_4.Open;								//打开处罚记录表
	T_punish_level_4.Open;							//打开处罚级别代码表

end;

procedure TForm5.Button4Click(Sender: TObject);
begin
  T_stud_info_4.Post;
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
  T_stud_info_4.Cancel;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  T_change_4.Post;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  T_change_4.Cancel;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
  T_reward_4.Post;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
  T_reward_4.Cancel;
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
  T_punish_4.Post;
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
  T_punish_4.Cancel;
end;

end.