yinxiangguanli.dpr

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

program yinxiangguanli;

uses
  Forms,
  controls,
  Dialogs,
  main in 'main.pas' {Form1},
  denglu in 'denglu.pas' {Form2},
  qidonghuamian in 'qidonghuamian.pas' {Form3},
  diepianchuzu in 'diepianchuzu.pas' {Form4},
  xinpianruku in 'xinpianruku.pas' {Form5},
  diepianguihuan in 'diepianguihuan.pas' {Form6},
  kucunzonglan in 'kucunzonglan.pas' {Form7},
  datamoban in 'datamoban.pas' {DataModule1: TDataModule},
  tianjiahuiyuan in 'tianjiahuiyuan.pas' {Form8},
  huiyuancaozuo in 'huiyuancaozuo.pas' {Form9},
  guanyu in 'guanyu.pas' {Form10},
  yonghuguanli in 'yonghuguanli.pas' {Form11},
  zuhuantongji in 'zuhuantongji.pas' {Form13},
  baosun in 'baosun.pas' {Form14},
  caiwutongji in 'caiwutongji.pas' {Form12},
  beifen in 'beifen.pas' {Form15},
  huanyuan in 'huanyuan.pas' {Form17},
  yichangchuli in 'yichangchuli.pas' {Form16},
  dayinhuiyuan in 'dayinhuiyuan.pas' {Form18},
  dayindiepian in 'dayindiepian.pas' {Form19},
  jisuanjikongzhi in 'jisuanjikongzhi.pas' {Form20},
  zhuce in 'zhuce.pas' {Form21},
  zhucetianxie in 'zhucetianxie.pas' {Form22};

{$R *.res}
begin
  Application.Initialize;
  form3:=tform3.create(application);
  form3.showmodal;
  if(form3.modalresult=mrok) then
  begin
     form2:=tform2.create(application);
     form2.showmodal;
     form3.hide;
     form3.release;
  end;
  if(form2.modalresult=mrok) then
  begin
           
  Application.Title := '音像租赁管理系统';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm17, Form17);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm18, Form18);
  Application.CreateForm(TForm19, Form19);
  Application.CreateForm(TForm20, Form20);
  Application.CreateForm(TForm21, Form21);
  Application.CreateForm(TForm22, Form22);
  form2.hide;
             form2.release;
             Application.Run;
  end;



end.