senguoqiunit.pas

这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活编写作时间,并有手动打铃功能,能自已加入铃声.你自己看吧

unit senguoqiUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  Tsenguoqi = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    memo1: TMemo;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  senguoqi: Tsenguoqi;

implementation
uses zrzxkzxt,uGloabVar;
{$R *.dfm}

procedure Tsenguoqi.BitBtn2Click(Sender: TObject);
var
medpath:string;
begin
  medpath:=BellName+'\国歌.mp3';
  form1.MediaPlayer1.FileName:=medpath;
  form1.MediaPlayer1.Open;
  form1.MediaPlayer1.Play;
  memo1.text:='礼毕.请XXX国旗下的讲话';
end;

procedure Tsenguoqi.BitBtn3Click(Sender: TObject);
begin

close;
end;

procedure Tsenguoqi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
zrzxkzxt.Form1.Loged:=-1;
zrzxkzxt.Form1.Init(-1);
form1.MediaPlayer1.Close;
form1.bitbtn2.Enabled:=false; //如果没有用户登录则“查看、编辑、升旗、特殊功能”都不能用
form1.bitbtn3.Enabled:=false;
form1.bitbtn4.Enabled:=false;
form1.bitbtn5.Enabled:=false;
form1.bitbtn6.Enabled:=false;
end;

procedure Tsenguoqi.BitBtn1Click(Sender: TObject);
begin
memo1.Visible:=true;
memo1.text:='升旗仪式开始,全体肃立,旗手就位.请全体老师同学行注目礼. 升旗,凑国歌';
end;

end.