formscoreclass.pas

Delphi数据库编程

unit FormScoreClass;

interface

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

type
  TfrmScoreClass = class(TForm)
    GroupBox1: TGroupBox;
    tblClass: TTable;
    dbgClass: TDBGrid;
    qryClassInfo: TQuery;
    dsClassInfo: TDataSource;
    dbtClassID: TDBText;
    dbtClassName: TDBText;
    dbtBeginDate: TDBText;
    dbtMaster: TDBText;
    dbtDepartName: TDBText;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    dsClass: TDataSource;
    DBGrid1: TDBGrid;
    dbgScore: TDBGrid;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    qryScore: TQuery;
    dbtDepartHead: TDBText;
    Label7: TLabel;
    qryCourse: TQuery;
    dsCourse: TDataSource;
    Label8: TLabel;
    dbtCourseID: TDBText;
    Label9: TLabel;
    dbtTeacher: TDBText;
    Label10: TLabel;
    dbtCourseName: TDBText;
    Label11: TLabel;
    dbtCredit: TDBText;
    Label12: TLabel;
    dbtPeriod: TDBText;
    qryCourseInfo: TQuery;
    dsCourseInfo: TDataSource;
    Label13: TLabel;
    dbtMaxScore: TDBText;
    Label14: TLabel;
    dbtMinScore: TDBText;
    Label15: TLabel;
    dbtAvgScore: TDBText;
    Label16: TLabel;
    dbtFaults: TDBText;
    Label17: TLabel;
    dbtCourses: TDBText;
    qryScoreStat: TQuery;
    dsScoreStat: TDataSource;
    qryScoreFault: TQuery;
    dsScoreFault: TDataSource;
    dsScore: TDataSource;
    procedure tblClassAfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure qryCourseAfterOpen(DataSet: TDataSet);
    procedure qryCourseAfterScroll(DataSet: TDataSet);
    procedure tblClassAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmScoreClass: TfrmScoreClass;

implementation

{$R *.dfm}

procedure TfrmScoreClass.FormShow(Sender: TObject);
begin
  qryClassInfo.Active := false;
  qryCourseInfo.Active := false;
  qryCourse.Active := false;
  qryScore.Active := false;
  tblClass.Active := false;
  tblClass.Active := true;
end;

procedure TfrmScoreClass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qryScore.Active := false;
  qryClassInfo.Active := false;
  qryCourseInfo.Active := false;
  qryCourse.Active := false;
  tblClass.Active := false;
end;

procedure TfrmScoreClass.tblClassAfterOpen(DataSet: TDataSet);
begin
  qryClassInfo.Active := false;
  qryCourse.Active := false;
end;

procedure TfrmScoreClass.tblClassAfterScroll(DataSet: TDataSet);
begin
  qryClassInfo.Active := false;
  qryClassInfo.ParamByName('ClassID').AsString := tblClass.FieldByName('ClassID').AsString;
  qryClassInfo.Active := true;

  qryCourse.Active := false;
  qryCourse.ParamByName('ClassID').AsString := tblClass.FieldByName('ClassID').AsString;
  qryCourse.Active := true;
end;

procedure TfrmScoreClass.qryCourseAfterOpen(DataSet: TDataSet);
begin
  qryCourseInfo.Active := false;
  qryScore.Active := false;
  qryScoreStat.Active := false;
  qryScoreFault.Active := false;
end;

procedure TfrmScoreClass.qryCourseAfterScroll(DataSet: TDataSet);
begin
  qryCourseInfo.Active := false;
  qryCourseInfo.ParamByName('CourseID').AsString := qryCourse.FieldByName('CourseID').AsString;
  qryCourseInfo.Active := true;

  qryScore.Active := false;
  qryScore.ParamByName('ClassID').AsString := tblClass.FieldByName('ClassID').AsString;
  qryScore.ParamByName('CourseID').AsString := qryCourse.FieldByName('CourseID').AsString;
  qryScore.Active := true;

  qryScoreStat.Active := false;
  qryScoreStat.ParamByName('CourseID').AsString := qryCourse.FieldByName('CourseID').AsString;
  qryScoreStat.Active := true;

  qryScoreFault.Active := false;
  qryScoreFault.ParamByName('CourseID').AsString := qryCourse.FieldByName('CourseID').AsString;
  qryScoreFault.Active := true;
end;

end.