login.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, Buttons, StdCtrls, OleCtrls,
  ShockwaveFlashObjects_TLB;

type
  TLoginForm = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    procedure ShockwaveFlash1FSCommand(ASender: TObject; const command,
      args: WideString);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;
  dir1:string;

implementation

uses Unit13, Unit12, Unit8;

{$R *.dfm}

procedure TLoginForm.ShockwaveFlash1FSCommand(ASender: TObject;
  const command, args: WideString);
begin
loginform.close;
useron.Showmodal;
end;

procedure TLoginForm.FormCreate(Sender: TObject);
begin
//shockwaveflash1.Left:=0;
//shockwaveflash1.Top:=0;
//shockwaveflash1.Height:=700;
//shockwaveflash1.Width:=1024;
getdir(0,dir1);
shockwaveflash1.Movie:=dir1+'\train.swf';


end;

procedure TLoginForm.FormShow(Sender: TObject);
begin
shockwaveflash1.Play;
end;

end.