u_wrong.pas

来自「delphi编的排课管理系统」· PAS 代码 · 共 58 行

unit u_wrong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGridEh, ExtCtrls;

type
  Tf_wrong = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Bevel2: TBevel;
    DBGridEh2: TDBGridEh;
    Label2: TLabel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_wrong: Tf_wrong;

implementation
uses u_data;
{$R *.dfm}

procedure Tf_wrong.FormShow(Sender: TObject);
begin
with datamodule1 do
begin
  tb_class.Close;
  tb_class.Open;
  tb_apply.Close;
  tb_apply.Open;
end;
end;

procedure Tf_wrong.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with datamodule1 do
begin
  tb_class.Close;

  tb_apply.Close;

end;
end;

end.