projectcenter.dpr

报警地图电子显示源代码

program ProjectCenter;

uses
  Forms,
  Windows,
  MainSrc in 'MainSrc.pas' {FormMain},
  LogonSrc in 'LogonSrc.pas' {FormLogon},
  ChangePassSrc in 'ChangePassSrc.pas' {FormChangePass},
  BJDataSrc in 'BJDataSrc.pas' {FormBJData},
  BJInfoSrc in 'BJInfoSrc.pas' {FormBJInfo},
  ModifyBJDataSrc in 'ModifyBJDataSrc.pas' {FormModifyBJData},
  SearchBJDataSrc in 'SearchBJDataSrc.pas' {FormSearchBJData},
  SearchBJInfoSrc in 'SearchBJInfoSrc.pas' {FormSearchBJInfo},
  HardwareInterfaceSrc in 'HardwareInterfaceSrc.pas' {FormHardwareInterface},
  QuickReportSrc in 'QuickReportSrc.pas' {DataReport: TQuickRep},
  InfoReportSrc in 'InfoReportSrc.pas' {InfoReport: TQuickRep},
  AutoSaveSrc in 'AutoSaveSrc.pas' {FormAutoSave},
  Map1Src in 'Map1Src.pas' {FormMap1},
  Map2Src in 'Map2Src.pas' {FormMap2},
  DeleteInfoSrc in 'DeleteInfoSrc.pas' {FormDeleteInfo},
  PopUpSrc in 'PopUpSrc.pas' {FormPopUp},
  AboutSrc in 'AboutSrc.pas' {FormAbout},
  JieDianWeiHuScr in 'JieDianWeiHuScr.pas' {Formjiedian},
  AddBJDataSrc in 'AddBJDataSrc.pas' {FormAddBJData};

{$R *.res}
const iAtom='联网报警中心byww0830caojun18';
begin
//if GlobalFindAtom(iAtom)=0 then
//begin
  GlobalAddAtom(iAtom);
  Application.Initialize;
  Application.CreateForm(TFormLogon, FormLogon);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormBJData, FormBJData);
  Application.CreateForm(TFormModifyBJData, FormModifyBJData);
  Application.CreateForm(TFormBJInfo, FormBJInfo);
  Application.CreateForm(TFormChangePass, FormChangePass);
  Application.CreateForm(TFormSearchBJData, FormSearchBJData);
  Application.CreateForm(TFormSearchBJInfo, FormSearchBJInfo);
  Application.CreateForm(TFormHardwareInterface, FormHardwareInterface);
  Application.CreateForm(TDataReport, DataReport);
  Application.CreateForm(TInfoReport, InfoReport);
  Application.CreateForm(TFormAutoSave, FormAutoSave);
  Application.CreateForm(TFormMap1, FormMap1);
  Application.CreateForm(TFormMap2, FormMap2);
  Application.CreateForm(TFormDeleteInfo, FormDeleteInfo);
  Application.CreateForm(TFormPopUp, FormPopUp);
  Application.CreateForm(TFormAbout, FormAbout);
  Application.CreateForm(TFormjiedian, Formjiedian);
  Application.CreateForm(TFormAddBJData, FormAddBJData);
  Application.Run;
   GlobalDeleteAtom(GlobalFindAtom(iAtom));
 //  end
 // else
      //  MessageBox(0,'联网报警中心已经在运行','联网报警中心',mb_OK);
   
end.