formcourseclass.pas

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

unit FormCourseClass;

interface

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

type
  TfrmCourseClass = class(TForm)
    GroupBox1: TGroupBox;
    dbgCourseArrange: TDBGrid;
    btnQuit: TButton;
    tblClass: TTable;
    dbgClass: TDBGrid;
    qryClassInfo: TQuery;
    dsClassInfo: TDataSource;
    dbtClassID: TDBText;
    dbtClassName: TDBText;
    dbtBeginDate: TDBText;
    dbtMaster: TDBText;
    dbtDepartName: TDBText;
    dbtDepartHead: TDBText;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    qryCourseArrange: TQuery;
    dsCourseArrange: TDataSource;
    dsClass: TDataSource;
    dbnClass: TDBNavigator;
    procedure tblClassAfterScroll(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
  frmCourseClass: TfrmCourseClass;

implementation

{$R *.dfm}

procedure TfrmCourseClass.FormShow(Sender: TObject);
begin
  tblClass.Active := true;
end;

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

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

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

end.