u_training_plan.~pas

以多个信息系统为例

unit u_training_plan;

interface

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

type
  TF_training_plan = class(TForm)
    DBGrid1: TDBGrid;
    Label3: TLabel;
    Label4: TLabel;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_training_plan: TF_training_plan;

implementation

uses u_datamodule, u_number_list;

{$R *.DFM}

procedure TF_training_plan.FormShow(Sender: TObject);
begin
  DM_main.Q_course_list.Open;
  DM_main.Q_student_list.Open;
end;

procedure TF_training_plan.Button2Click(Sender: TObject);
begin
  with DM_main do
  begin
    Q_change_state.Params[0].AsInteger:=Q_course_list['ID'];
    Q_change_state.ExecSQL;
  end;
end;

procedure TF_training_plan.Button1Click(Sender: TObject);
begin
  F_student_list.QuickRep1.PreviewModal;
end;

end.