main.pas

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, Menus, ImgList, ExtCtrls, MPlayer, Db, DBTables;

type
  Tmain_frm = class(TForm)
    MainMenu1: TMainMenu;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    S1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    HELP1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N21: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    E1: TMenuItem;
    ImageList1: TImageList;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    N32: TMenuItem;
    MediaPlayer1: TMediaPlayer;
    Table1: TTable;
    procedure E1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure N24Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_frm: Tmain_frm;

implementation

uses password, find_Unit,  Unit1, Unit3, Unit4, Unit5, Unit6, Unit7,
  Unit8, Unit9, Unit10, Unit11, Unit13, Unit12, Unit14, Unit15, Unit16,
  Unit17, Unit18, Unit19, Unit2, Unit23;

{$R *.DFM}

procedure Tmain_frm.E1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tmain_frm.N2Click(Sender: TObject);
begin
   find:=tfind.Create(self);
   find.show;
end;

procedure Tmain_frm.N9Click(Sender: TObject);
begin
  AboutBox:=tAboutBox.Create(AboutBox);
  AboutBox.showmodal;
end;

procedure Tmain_frm.N10Click(Sender: TObject);
begin
  form1:=tform1.create(self);
  form1.show;
end;

procedure Tmain_frm.N11Click(Sender: TObject);
begin
  form3:=tform3.Create(self);
  form3.show;
end;

procedure Tmain_frm.N13Click(Sender: TObject);
begin
  form4:=tform4.create(self);
  form4.show;
end;

procedure Tmain_frm.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[3].Text:=
      formatdatetime('  yyyy"年"m"月"d"日 "dddd '+'hh:mm:ss AM/PM', now);
end;

procedure Tmain_frm.N6Click(Sender: TObject);
begin
  form5:=tform5.Create(self);
  form5.showmodal;
end;

procedure Tmain_frm.N37Click(Sender: TObject);
begin
   form6:=tform6.Create(self);
   form6.showmodal;
end;

procedure Tmain_frm.N4Click(Sender: TObject);
begin
  form7:=tform7.Create(self);
  form7.showmodal;
end;

procedure Tmain_frm.N33Click(Sender: TObject);
begin
  form8:=tform8.Create(self);
  form8.showmodal;
end;

procedure Tmain_frm.ToolButton23Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tmain_frm.ToolButton1Click(Sender: TObject);
begin
  find:=tfind.Create(self);
  find.show;
end;

procedure Tmain_frm.ToolButton2Click(Sender: TObject);
begin
  form1:=tform1.create(self);
  form1.show;
end;

procedure Tmain_frm.ToolButton3Click(Sender: TObject);
begin
  form3:=tform3.Create(self);
  form3.show;
end;

procedure Tmain_frm.ToolButton14Click(Sender: TObject);
begin
  form8:=tform8.Create(self);
  form8.showmodal;
end;

procedure Tmain_frm.ToolButton16Click(Sender: TObject);
begin
  form7:=tform7.Create(self);
  form7.showmodal;
end;

procedure Tmain_frm.ToolButton17Click(Sender: TObject);
begin
   form6:=tform6.Create(self);
   form6.showmodal;
end;

procedure Tmain_frm.ToolButton18Click(Sender: TObject);
begin
  form5:=tform5.Create(self);
  form5.showmodal;
end;

procedure Tmain_frm.ToolButton21Click(Sender: TObject);
begin
  AboutBox:=tAboutBox.Create(AboutBox);
  AboutBox.showmodal;
end;

procedure Tmain_frm.N17Click(Sender: TObject);
begin
  form9:=tform9.Create(self);
  form9.show;
end;

procedure Tmain_frm.ToolButton5Click(Sender: TObject);
begin
  form9:=tform9.Create(self);
  form9.show;
end;

procedure Tmain_frm.N18Click(Sender: TObject);
begin
  form10:=tform10.Create(self);
  form10.show;
end;

procedure Tmain_frm.ToolButton6Click(Sender: TObject);
begin
  form10:=tform10.Create(self);
  form10.show;
end;

procedure Tmain_frm.N15Click(Sender: TObject);
begin
  form11:=tform11.Create(self);
  form11.Show;
end;

procedure Tmain_frm.N3Click(Sender: TObject);
begin
  form13:=tform13.Create(form13);
  form13.showmodal;
end;

procedure Tmain_frm.N16Click(Sender: TObject);
begin
 form12:=tform12.Create(self);
 form12.show;
end;

procedure Tmain_frm.N27Click(Sender: TObject);
begin
  form14:=tform14.Create(self);
  form14.show;
end;

procedure Tmain_frm.ToolButton8Click(Sender: TObject);
begin
  form14:=tform14.Create(self);
  form14.show;
end;

procedure Tmain_frm.ToolButton9Click(Sender: TObject);
begin
  form15:=tform15.Create(self);
  form15.show;
end;

procedure Tmain_frm.N28Click(Sender: TObject);
begin
  form15:=tform15.Create(self);
  form15.show;
end;

procedure Tmain_frm.ToolButton10Click(Sender: TObject);
begin
  form16:=tform16.Create(self);
  form16.show;
end;

procedure Tmain_frm.N30Click(Sender: TObject);
begin
  form16:=tform16.Create(self);
  form16.show;
end;

procedure Tmain_frm.ToolButton11Click(Sender: TObject);
begin
  form17:=tform17.Create(self);
  form17.show;
end;

procedure Tmain_frm.N31Click(Sender: TObject);
begin
  form17:=tform17.Create(self);
  form17.show;
end;

procedure Tmain_frm.N23Click(Sender: TObject);
begin
  form18:=tform18.Create(self);
  form18.Show;
end;

procedure Tmain_frm.N25Click(Sender: TObject);
begin
  form19:=tform19.Create(self);
  form19.Show;
end;

procedure Tmain_frm.FormCreate(Sender: TObject);
begin
if table1.fieldbyname('open').asboolean then
begin
mediaplayer1.filename:=table1.fieldbyname('path').asstring;
mediaplayer1.notify:=true;
mediaplayer1.Open;
mediaplayer1.play;
end;
end;

procedure Tmain_frm.MediaPlayer1Notify(Sender: TObject);
begin
if (mediaplayer1.NotifyValue=nvsuccessful) and
(mediaplayer1.Mode=mpstopped) and (table1.FieldByName('rewind').asboolean)
then
begin
mediaplayer1.Rewind;
mediaplayer1.Play;
end;
end;

procedure Tmain_frm.N24Click(Sender: TObject);
begin
  form23:=tform23.Create(form23);
  form23.showmodal;
end;

end.