mrp.~dpr

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

program mrp;

uses
  windows,
  Forms,
  mmain in 'mmain.pas' {main},
  ttemplate1 in 'ttemplate1.pas' {templateform1},
  datamodule in 'datamodule.pas' {dm: TDataModule},
  ttemplate in 'ttemplate.pas' {template2},
  mmaterialmanager in 'mmaterialmanager.pas' {materialmanager},
  mmaterialquery in 'mmaterialquery.pas' {materialquery},
  clientinfo in 'clientinfo.pas' {f_clientinfo},
  querytem in 'querytem.pas' {querytemplate},
  clientquery in 'clientquery.pas' {clientinfoquery},
  providerinfo in 'providerinfo.pas' {F_ProviderInfo},
  pvquery in 'pvquery.pas' {providerquery},
  mplan in 'mplan.pas' {f_mplan},
  mpquery in 'mpquery.pas' {f_mpquery},
  amend in 'amend.pas' {f_amend},
  bom in 'bom.pas' {bomb},
  order in 'order.pas' {ordermanager},
  orderquery in 'orderquery.pas' {oorderquery},
  stock in 'stock.pas' {sstock},
  stockquery in 'stockquery.pas' {sstockquery},
  storage in 'storage.pas' {sstorage},
  storagequery in 'storagequery.pas' {sstoragequery},
  BList in 'BList.pas' {F_BList},
  PList in 'PList.pas' {F_PList},
  rreportorder in 'rreportorder.pas' {reportorder},
  Date in 'Date.pas' {F_Date},
  Maintenance in 'Maintenance.pas' {f_maintenance},
  splash in 'splash.pas' {shadow},
  login in 'login.pas' {f_login},
  about in 'about.pas' {aboutform},
  Config in 'Config.pas' {F_Config},
  CList in 'CList.pas' {F_CList},
  reportmm in 'reportmm.pas' {rreportmm},
  reportstorage in 'reportstorage.pas' {rreportstorage},
  bomc_name in 'bomc_name.pas' {bomc_namemanager},
  bomquery in 'bomquery.pas' {bbomquery};

{$R *.res}

begin
   Application.Initialize;
  Application.CreateForm(Tf_login, f_login);
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(Ttemplateform1, templateform1);
  Application.CreateForm(Ttemplate2, template2);
  Application.CreateForm(Tmaterialquery, materialquery);
  Application.CreateForm(Tquerytemplate, querytemplate);
  Application.CreateForm(Tclientinfoquery, clientinfoquery);
  Application.CreateForm(Tproviderquery, providerquery);
  Application.CreateForm(Tf_mpquery, f_mpquery);
  Application.CreateForm(Tf_amend, f_amend);
  Application.CreateForm(Toorderquery, oorderquery);
  Application.CreateForm(Tsstockquery, sstockquery);
  Application.CreateForm(Tsstoragequery, sstoragequery);
  Application.CreateForm(TF_BList, F_BList);
  Application.CreateForm(TF_PList, F_PList);
  Application.CreateForm(Treportorder, reportorder);
  Application.CreateForm(TF_Date, F_Date);
  Application.CreateForm(Tf_maintenance, f_maintenance);
  Application.CreateForm(Tshadow, shadow);
  Application.CreateForm(Taboutform, aboutform);
  Application.CreateForm(TF_Config, F_Config);
  Application.CreateForm(TF_CList, F_CList);
  Application.CreateForm(Trreportmm, rreportmm);
  Application.CreateForm(Trreportstorage, rreportstorage);
  Application.CreateForm(Tbomc_namemanager, bomc_namemanager);
  Application.CreateForm(Tbbomquery, bbomquery);
  aboutform:=Taboutform.Create(shadow); //创建启动画面窗口

  aboutform.Show;  //显示启动画面窗口
  aboutform.Update;
  Sleep(2000); //启动画面窗口显示一秒钟
  aboutform.Hide;   //隐藏启动画面窗口
  aboutform.Free;   //释放启动画面窗口

  F_Login.ShowModal;
  if ( F_Login.login)then
  begin
  F_login.Free;

  shadow:=Tshadow.Create(shadow); //创建启动画面窗口
  shadow.Show;  //显示启动画面窗口
  shadow.Update;
  //Application.CreateForm(TF_Date, F_Date);
   Sleep(1000); //启动画面窗口显示一秒钟
  shadow.Hide;   //隐藏启动画面窗口
  shadow.Free;   //释放启动画面窗口

   Application.CreateForm(TMain, Main);
  Application.Run;
  end
  else
  Application.Terminate;
end.