mainfrm.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 45 行

unit MainFrm;

interface

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

type
  TMainForm = class(TForm)
    dbDDGIB: TDatabase;
    qryDepartment: TQuery;
    dsDepartment: TDataSource;
    dbgDepartment: TDBGrid;
    lblDepartment: TLabel;
    lblDeptEmployees: TLabel;
    dbgEmployees: TDBGrid;
    qryGetEmployees: TQuery;
    dsGetEmployees: TDataSource;
    procedure dsDepartmentDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.dsDepartmentDataChange(Sender: TObject; Field: TField);
begin
  with qryGetEmployees do
  begin
   Close;
   ParamByName('iDEPT_NO').AsString := qryDepartment['DEPT_NO'];
   Open;
  end;
end;

end.