formcoursequery.pas

来自「Delphi数据库编程」· PAS 代码 · 共 77 行

unit FormCourseQuery;

interface

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

type
  TfrmCourseQuery = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    btnQuit: TButton;
    tblCourse: TTable;
    dbgCourse: TDBGrid;
    qryCourseInfo: TQuery;
    dsCourseInfo: TDataSource;
    dbtClassID: TDBText;
    dbtClassName: TDBText;
    dbtBeginDate: TDBText;
    dbtDepartName: TDBText;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    qryCourseArrange: TQuery;
    dsCourseArrange: TDataSource;
    dsCourse: TDataSource;
    dbnCourse: TDBNavigator;
    dbtPeriod: TDBText;
    Label8: TLabel;
    procedure tblCourseAfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure btnQuitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCourseQuery: TfrmCourseQuery;

implementation

{$R *.dfm}

procedure TfrmCourseQuery.FormShow(Sender: TObject);
begin
  tblCourse.Active := true;
end;

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

procedure TfrmCourseQuery.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tblCourse.Active := false;
end;

procedure TfrmCourseQuery.tblCourseAfterScroll(DataSet: TDataSet);
begin
  qryCourseInfo.Active := false;
  qryCourseInfo.ParamByName('CourseID').AsString := tblCourse.FieldByName('CourseID').AsString;
  qryCourseInfo.Active := true;

  qryCourseArrange.Active := false;
  qryCourseArrange.ParamByName('CourseID').AsString := tblCourse.FieldByName('CourseID').AsString;
  qryCourseArrange.Active := true;
end;

end.