miscontainer.dpr

物流行业

program miscontainer;

uses
  Forms,
  Uimportcontainer in 'Uimportcontainer.pas' {fmimportcontainer},
  Uoperoutcontainer in 'Uoperoutcontainer.pas' {fmoperoutcontainer},
  Uexportcontainer in 'Uexportcontainer.pas' {fmexportcontainer},
  Uoperincontainer in 'Uoperincontainer.pas' {fmoperincontainer},
  Uinputtdh in 'Uinputtdh.pas' {fminputtdh},
  Umainmenu in 'Umainmenu.pas' {fmmainmenu},
  Uqueryimport in 'Uqueryimport.pas' {fmqueryimport},
  Uqueryimportxh in 'Uqueryimportxh.pas' {fmqueryimportxh},
  Uqueryimportcm in 'Uqueryimportcm.pas' {fmqueryimportcm},
  Uqueryimportyf in 'Uqueryimportyf.pas' {fmqueryimportyf},
  Uquerykc in 'Uquerykc.pas' {fmquerykc},
  Uqueryexport in 'Uqueryexport.pas' {fmqueryexport},
  Uqueryexportyf in 'Uqueryexportyf.pas' {fmqueryexportyf},
  Uquerytdhyf in 'Uquerytdhyf.pas' {fmquerytdhyf},
  Uqueryoperout in 'Uqueryoperout.pas' {fmqueryoperout},
  Uqueryoperin in 'Uqueryoperin.pas' {fmqueryoperin},
  Uqueryoutyf in 'Uqueryoutyf.pas' {fmqueryoutyf},
  Uqueryinyf in 'Uqueryinyf.pas' {fmqueryinyf},
  Uqueryexportcm in 'Uqueryexportcm.pas' {fmqueryexportcm},
  Uimportreport in '..\misreport\Uimportreport.pas' {fmimportreport},
  Uexportreport in '..\misreport\Uexportreport.pas' {fmexportreport},
  Uinputtdhreport in '..\misreport\Uinputtdhreport.pas' {fminputtdhreport},
  Uinputtdhsubreport in '..\misreport\Uinputtdhsubreport.pas' {fminputtdhsubreport},
  Uoperoutreport in '..\misreport\Uoperoutreport.pas' {fmoperoutreport},
  Uoperinreport in '..\misreport\Uoperinreport.pas' {fmoperinreport},
  Usetuser in 'Usetuser.pas' {Fmsetuser},
  Uemptytable in 'Uemptytable.pas' {Fmemptytable},
  Uedittable in 'Uedittable.pas' {Fmedittable},
  Uqueryexportxh in 'Uqueryexportxh.pas' {fmqueryexportxh},
  Uquerykcreport in '..\misreport\Uquerykcreport.pas' {fmquerykcreport},
  udm_user in 'udm_user.pas' {fmuser: TDataModule},
  ulogin in 'ulogin.pas' {fmlogin},
  Uchangepass in 'Uchangepass.pas' {Fmchangepass};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '马鞍山外轮理货公司集装箱管理系统';
  Application.CreateForm(Tfmuser, fmuser);
  Application.CreateForm(Tfmlogin, fmlogin);
  Application.CreateForm(TFmchangepass, Fmchangepass);
  fmlogin.showmodal;
  if fmuser.loginok then
  begin
  fmlogin.free;
  application.CreateForm(Tfmmainmenu,fmmainmenu);
  Application.Run;
 end;
end.