main.pas

图书管理系统(Delphi),可作毕业设计

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls, MPlayer;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    StatusBar1: TStatusBar;
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Button9: TButton;
    Button8: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
Uses Bookm,Reader,Bookq,Readerq,Lendborrow;
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
self.StatusBar1.Panels[2].Text:='欢迎你使用本图书管理系统!!!';
self.statusbar1.Panels[1].Text:=datetostr(date)+timetostr(time);
self.StatusBar1.Color:=rgb(200,100,100);
self.StatusBar1.Panels[0].Text:='请选择音乐:';
self.StatusBar1.Panels[0].Alignment:=tacenter;
self.StatusBar1.Panels[1].Alignment:=tacenter;
self.StatusBar1.Panels[2].Alignment:=tarightJustify;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
If opendialog1.Execute then
mediaplayer1.FileName:=Opendialog1.FileName;
Mediaplayer1.Open;
Mediaplayer1.Play;
self.StatusBar1.Panels[0].Alignment:=taleftJustify;
Statusbar1.Panels[0].Text:='当前正在播放的文件是:  '+extractfilename(opendialog1.filename);

end;

procedure TForm2.Button5Click(Sender: TObject);
begin
If messagedlg('你确实要退出系统吗？',mtconfirmation,[Mbyes,Mbcancel],0)=Mryes then
begin
Mediaplayer1.Close;
Form2.Close;
Application.Terminate;
end
else
form2.Show;
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
If messagedlg('你确实要退出系统吗？',Mtconfirmation,[Mbyes,Mbcancel],0)=Mryes then
begin
Mediaplayer1.Close;
Form2.Close;
Application.Terminate;
end
else
form2.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close;
Form3.Show;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
Form4.Show;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
Form2.Close;
Form5.Show;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
Form2.Close;
Form6.Show;
end;


procedure TForm2.Button3Click(Sender: TObject);
begin
Winexec('Notepad.exe',5);
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
Winexec('Calc.exe',5);
end;

end.