studentquery.pas

一款比较好的学生信息管理系统DELPHI+ACCE

unit studentquery;

interface

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

type
  Tfrmstudentquery = class(TForm)
    Label1: TLabel;
    edtstudentID: TEdit;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    dbtname: TDBText;
    dbtsex: TDBText;
    dbtbirthday: TDBText;
    dbtclassname: TDBText;
    dbtmaster: TDBText;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    dbgchange: TDBGrid;
    dbgreward: TDBGrid;
    dbgpunish: TDBGrid;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    tblstudent: TTable;
    tblclass: TTable;
    tblchange: TTable;
    tblreward: TTable;
    tblpunish: TTable;
    dsstudent: TDataSource;
    dsclass: TDataSource;
    dschange: TDataSource;
    dsreward: TDataSource;
    dspunish: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtstudentIDChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmstudentquery: Tfrmstudentquery;

implementation

{$R *.dfm}

procedure Tfrmstudentquery.FormShow(Sender: TObject);
begin
tblstudent.Active:=false;
tblclass.Active:=false;
tblchange.Active:=false;
tblreward.Active:=false;
tblpunish.Active:=false;
end;

procedure Tfrmstudentquery.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
tblstudent.Active:=false;
tblclass.Active:=false;
tblchange.Active:=false;
tblreward.Active:=false;
tblpunish.Active:=false;
end;

procedure Tfrmstudentquery.edtstudentIDChange(Sender: TObject);
begin
tblstudent.Active:=false;
tblclass.Active:=false;
tblchange.Active:=false;
tblreward.Active:=false;
tblpunish.Active:=false;
tblstudent.Filter:='studentID='''+edtstudentID.Text+'''';
tblstudent.Filtered:=true;
tblstudent.Active:=true;
if not tblstudent.Eof then
 begin
 tblclass.Active:=true;
 tblchange.Active:=true;
 tblreward.Active:=true;
 tblpunish.Active:=true;
 end;
end;

procedure Tfrmstudentquery.Button1Click(Sender: TObject);
begin
   close;
end;

end.