dl_main.pas

delphi编的排课管理系统

unit dl_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, DB, DBTables, TransEff, teTimed, teRoll,
  FormCont, teForm, teBlend, teBmpMsk, teMasked, teBlock, teCircle, teDrip,
  teFuse, teWipe, teIntrlc, teWFall, teRadial;

type
  Tmainform = class(TForm)
    Timer1: TTimer;
    FormTransitions1: TFormTransitions;
    TransitionList1: TTransitionList;
    Transition1: TInterlacedTransition;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses yhdl, main;

{$R *.dfm}

procedure Tmainform.Timer1Timer(Sender: TObject);
begin

mainform.Hide ;
f_main.Show;
f_main.Enabled :=false;
f_dl.show ;
mainform.Timer1.Enabled :=false;
end;

procedure Tmainform.FormShow(Sender: TObject);
begin
timer1.Enabled :=true;   //如果注标志为真的话，刚直接运行；

end;

end.