formscorestudent.pas

Delphi数据库编程

unit FormScoreStudent;

interface

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

type
  TfrmScoreStudent = class(TForm)
    edtStudentID: TEdit;
    GroupBox1: TGroupBox;
    dbgScore: TDBGrid;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    btnQuit: TButton;
    qryScore: TQuery;
    qryStudentInfo: TQuery;
    qryScoreStat: TQuery;
    dsStudentInfo: TDataSource;
    dbtStudentID: TDBText;
    dbtName: TDBText;
    dbtSex: TDBText;
    dbtBirthday: TDBText;
    dbtClassName: TDBText;
    dbtDepartName: TDBText;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    dsScoreStat: TDataSource;
    dbtMaxScore: TDBText;
    dbtMinScore: TDBText;
    dbtAvgScore: TDBText;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    dsScore: TDataSource;
    dbtCourses: TDBText;
    Label11: TLabel;
    dbtFaults: TDBText;
    Label12: TLabel;
    qryScoreFault: TQuery;
    dsScoreFault: TDataSource;
    procedure edtStudentIDChange(Sender: TObject);
    procedure btnQuitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmScoreStudent: TfrmScoreStudent;

implementation

{$R *.dfm}

procedure TfrmScoreStudent.FormShow(Sender: TObject);
begin
  qryStudentInfo.Active := false;
  qryScore.Active := false;
  qryScoreStat.Active := false;
  qryScoreFault.Active := false;
end;

procedure TfrmScoreStudent.btnQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmScoreStudent.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qryStudentInfo.Active := false;
  qryScore.Active := false;
  qryScoreStat.Active := false;
  qryScoreFault.Active := false;
end;

procedure TfrmScoreStudent.edtStudentIDChange(Sender: TObject);
begin
  qryStudentInfo.Active := false;
  qryStudentInfo.ParamByName('StudentID').AsString := edtStudentID.Text;
  qryStudentInfo.Active := true;

  qryScore.Active := false;
  qryScore.ParamByName('StudentID').AsString := edtStudentID.Text;
  qryScore.Active := true;

  qryScoreStat.Active := false;
  qryScoreStat.ParamByName('StudentID').AsString := edtStudentID.Text;
  qryScoreStat.Active := true;

  qryScoreFault.Active := false;
  qryScoreFault.ParamByName('StudentID').AsString := edtStudentID.Text;
  qryScoreFault.Active := true;
end;

end.