md_project.dpr

煤矿行业采掘接替计划自动生成系统

program MD_Project;

uses
  Forms,
  Main_Unt in 'Main_Unt.pas' {Main_Frm},
  Tools_Unt in 'Tools_Unt.pas',
  FormBase_Unt in '基类\FormBase_Unt.pas' {FormBase_Frm},
  DataEdit_BaseUnt in '基类\DataEdit_BaseUnt.pas' {DataEdit_BaseFrm},
  DateQuery_BaseUnt in '基类\DateQuery_BaseUnt.pas' {DataQuery_BaseFrm},
  Data_Unt in 'Data_Unt.pas' {Data_Frm: TDataModule},
  BaseInfo_Unt in 'BaseInfo_Unt.pas' {BaseInfo_Frm},
  LevelInfo_Unt in 'LevelInfo_Unt.pas' {LevelInfo_Frm},
  CoalInfo_Unt in 'CoalInfo_Unt.pas' {CoalInfo_Frm},
  AreaInfo_Unt in 'AreaInfo_Unt.pas' {AreaInfo_Frm},
  FaceInfo_Unt in 'FaceInfo_Unt.pas' {FaceInfo_Frm},
  LaneInfo_Unt in 'LaneInfo_Unt.pas' {LaneInfo_Frm},
  WorkSysInfo_Unt in 'WorkSysInfo_Unt.pas' {WorkSysInfo_Frm},
  WorkerEquip_Unt in 'WorkerEquip_Unt.pas' {WorkerEquip_Frm},
  Worker_Unt in 'Worker_Unt.pas' {Worker_Frm},
  MineEquip_Unt in 'MineEquip_Unt.pas' {MineEquip_Frm},
  DrillEquip_Unt in 'DrillEquip_Unt.pas' {DrillEquip_Frm},
  CutMachine_Unt in 'CutMachine_Unt.pas' {CutMachine_Frm},
  ConveyMachine_Unt in 'ConveyMachine_Unt.pas' {ConveyMachine_Frm},
  Braket_Unt in 'Braket_Unt.pas' {Braket_Frm},
  DrillMachine_Unt in 'DrillMachine_Unt.pas' {DrillMachine_Frm},
  ReshipMachine_Unt in 'ReshipMachine_Unt.pas' {ReshipMachine_Frm},
  CarryMachine_Unt in 'CarryMachine_Unt.pas' {CarryMachine_Frm},
  FaceLaneClass_Unt in 'FaceLaneClass_Unt.pas' {FaceLaneClass_Frm},
  FaceClass_Unt in 'FaceClass_Unt.pas' {FaceClass_Frm},
  LaneClass_Unt in 'LaneClass_Unt.pas' {LaneClass_Frm},
  Relay_BaseUnt in '基类\Relay_BaseUnt.pas' {Relay_BaseFrm},
  Relay_Unt in 'Relay_Unt.pas' {Relay_Frm},
  MineRelay_Unt in 'MineRelay_Unt.pas' {MineRelay_Frm},
  DrillRelay_Unt in 'DrillRelay_Unt.pas' {DrillRelay_Frm},
  TimePara_Unt in 'TimePara_Unt.pas' {TimePara_Frm},
  MineRelayInterval_Unt in 'MineRelayInterval_Unt.pas' {MineRelayInterval_Frm},
  MineTechPopup_Unt in 'MineTechPopup_Unt.pas' {MineTechPopup_Frm},
  DrillAssurance_Unt in 'DrillAssurance_Unt.pas' {DrillAssurance_Frm},
  LaneTime_Unt in 'LaneTime_Unt.pas' {LaneTime_Frm},
  DrillTask_Unt in 'DrillTask_Unt.pas' {DrillTask_Frm},
  DrillRelayIntervT_Unt in 'DrillRelayIntervT_Unt.pas' {DrillRelayIntervT_Frm},
  PriorTask_Unt in 'PriorTask_Unt.pas' {PriorTask_Frm},
  AreaAheadPara_Unt in 'AreaAheadPara_Unt.pas' {AreaAheadPara_Frm},
  DrillWorkPriorTask_Unt in 'DrillWorkPriorTask_Unt.pas' {DrillWorkPriorTask_Frm},
  FirstFaceDrillWorkPriorTask_Unt in 'FirstFaceDrillWorkPriorTask_Unt.pas' {FirstFaceDrillWorkPriorTask_Frm},
  CAD_Pro_Exc_Unt in 'CAD_Pro_Exc_Unt.pas',
  WorkGroupConfirm_Unt in 'WorkGroupConfirm_Unt.pas' {WorkGroupConfirm_Frm},
  ReportCondition_Unt in 'ReportCondition_Unt.pas' {ReportCondition_Frm},
  MineStatistic_Unt in 'MineStatistic_Unt.pas' {MineStatistic_Frm},
  DrillStatistic_Unt in 'DrillStatistic_Unt.pas' {DrillStatistic_Frm},
  Unt_Simulate in 'Unt_Simulate.pas',
  Unt_CAD_Pro_Tool in 'Unt_CAD_Pro_Tool.pas',
  Unt_CBase in 'Unt_CBase.pas' {Frm_CBase},
  Unt_DataBase in 'Unt_DataBase.pas' {Frm_dataBase: TDataModule},
  Unt_FBase in 'Unt_FBase.pas' {Frm_FBase},
  Unt_Gra in 'Unt_Gra.pas'{Frm_Gra},
  Unt_Project in 'Unt_Project.pas' {Frm_Project},
  Unt_ReadGra in 'Unt_ReadGra.pas',
  Unt_Base in 'Unt_Base.pas' {Frm_Base},
  Unt_data in 'Unt_data.pas' {Frm_data: TDataModule},
  Hint_Unt in 'Hint_Unt.pas' {Hint_Frm},
  MineRelayEdit_Unt in 'MineRelayEdit_Unt.pas' {MineRelayEdit_Frm},
  DrillRelayEdit_Unt in 'DrillRelayEdit_Unt.pas' {DrillRelayEdit_Frm},
  MineRelayShow_Unt in 'MineRelayShow_Unt.pas' {MineRelayShow_Frm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TMain_Frm, Main_Frm);
  Application.CreateForm(TData_Frm, Data_Frm);
  Application.CreateForm(TFrm_data, Frm_data);
  Data_Frm.ConnectDataBase;
  Frm_data.connectdb;
  Application.Run;
end.