prjgis.~dpr

校园GIS系统——介绍校园个部门

program PrjGIS;

uses
  Forms,
  Main in 'Main.pas' {MainFrm},
  ViewAttra in 'ViewAttra.pas' {ViewAttrFrm},
  Welcome in 'Welcome.pas' {WelcomeFrm},
  DragFeedback in 'DragFeedback.pas',
  layermanage in 'layermanage.pas' {LayerManaFrm},
  renderer in 'renderer.pas' {RendererFrm},
  LayerSet in 'LayerSet.pas' {LayerSetFrm},
  Labels in 'Labels.pas' {LabelFrm},
  query in 'query.pas' {QueryFrm},
  Identify in 'Identify.pas' {IdentifyFrm},
  Ziliao in 'Ziliao.pas' {ZLFrm},
  EasyQuery in 'EasyQuery.pas' {EasyFrm},
  about in 'about.pas' {aboutFrm},
  Zpicture in 'Zpicture.pas' {PictureFrm},
  Zmedia in 'Zmedia.pas' {MediaFrm},
  SelectFiled in 'SelectFiled.pas' {SelectFrm},
  sInfo in 'sInfo.pas' {SInfoFrm};

{$R *.RES}

begin
  Application.Initialize;
  Welcomefrm := TWelcomefrm.Create(Application); {创建闪现窗口对象}
  Welcomefrm.Show;
  Welcomefrm.Update;
  Application.Title := '地理信息系统';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TViewAttrFrm, ViewAttrFrm);
  Application.CreateForm(TLayerManaFrm, LayerManaFrm);
  Application.CreateForm(TRendererFrm, RendererFrm);
  Application.CreateForm(TLayerSetFrm, LayerSetFrm);
  Application.CreateForm(TLabelFrm, LabelFrm);
  Application.CreateForm(TQueryFrm, QueryFrm);
  Application.CreateForm(TIdentifyFrm, IdentifyFrm);
  Application.CreateForm(TZLFrm, ZLFrm);
  Application.CreateForm(TPictureFrm, PictureFrm);
  Application.CreateForm(TMediaFrm, MediaFrm);
  Application.CreateForm(TSInfoFrm, SInfoFrm);
  Welcomefrm.Hide;
  Welcomefrm.Free;
  Application.Run;
end.