main.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,mmsystem, StdCtrls,Buttons, ExtCtrls, Menus,shellapi, ComCtrls,
  ImgList, jpeg;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N9: TMenuItem;
    N20: TMenuItem;
    N18: TMenuItem;
    N24: TMenuItem;
    SpeedButton7: TSpeedButton;
    Image1: TImage;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    procedure SpeedButton9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  
    procedure N18Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
 
  private
{ Private declarations }


public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses denglu, diepianchuzu, xinpianruku, diepianguihuan, kucunzonglan,
  tianjiahuiyuan, huiyuancaozuo,zuhuantongji, yonghuguanli,
  guanyu, caiwutongji, yichangchuli, beifen, huanyuan, datamoban,
  dayindiepian, dayinhuiyuan, jisuanjikongzhi,inifiles, zhuce;

{$R *.dfm}


procedure TForm1.SpeedButton9Click(Sender: TObject);
begin

 if messagedlg('确实要退出系统吗？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin
application.Terminate;
close;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var

        Strtmp:String;
begin
statusbar1.Panels[0].Text:=' 版权: neiep毕业设计';
        Strtmp:=FormatDateTime('YYYY',Date)+'年'+FormatDateTime('MM',Date)+'月'+FormatDateTime('DD',Date)+'日';
        statusbar1.Panels[2].Text:='     '+formatdatetime('hh:mm:ss',now);
        case DayOfWeek(Now) of
                1:begin
                        Strtmp:=Strtmp+' 星期日';
                end;
                2:begin
                        Strtmp:=Strtmp+' 星期一';
                end;
                3:begin
                        Strtmp:=Strtmp+' 星期二';
                end;
                4:begin
                        Strtmp:=Strtmp+' 星期三';
                end;
                5:begin
                        Strtmp:=Strtmp+' 星期四';
                end;
                6:begin
                        Strtmp:=Strtmp+' 星期五';
                end;
                7:begin
                        Strtmp:=Strtmp+' 星期六';
                end;
        end;
        //Lbl_currtime.Caption:=Strtmp;
         statusbar1.Panels[1].Text:='  '+strtmp;
end;

procedure URlink(URL:pchar);
begin
 shellexecute(0,nil,URL,nil,nil,sw_normal);
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
URlink('help.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   if (i=1)  then
   begin
   N12.enabled:=false;
   speedbutton8.Enabled:=false;
   N19.Enabled:=false;
   end;
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
form10.ShowModal;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
form5.showmodal;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form6.showmodal;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form6.showmodal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
form7.showmodal;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
if messagedlg('确实要退出系统吗？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin
application.Terminate;
close;
end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
form8.showmodal;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
form9.showmodal;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
form9.showmodal;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
form7.ShowModal;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
URlink('help.txt');
end;



procedure TForm1.N18Click(Sender: TObject);
begin
form13.showmodal;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
form11.showmodal;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
form13.showmodal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form10.showmodal;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if datamodule1.adotable5['标识']='b' then
form4.Showmodal;
if datamodule1.adotable5['标识']='c' then
form5.Showmodal;
if datamodule1.adotable5['标识']='d' then
form7.Showmodal;
if datamodule1.adotable5['标识']='a' then
form6.Showmodal;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
form5.showmodal;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
form12.ShowModal;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
form11.showmodal;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
form12.ShowModal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
form19.showmodal;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
form11.showmodal;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('确实要退出系统吗？',mtInformation,[mbOK, mbCancel],0)=mrok then
close;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
form15.showmodal;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
form17.showmodal;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
form16.ShowModal;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
form18.ShowModal;
end;

procedure TForm1.N26Click(Sender: TObject);
begin
form20.showmodal;
end;

end.