data_unt.pas

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

    LaneClass_AdoTabSection_Type: TIntegerField;
    LaneClass_AdoTabSupport_Type: TIntegerField;
    LaneClass_AdoTabTechnic_Type: TIntegerField;
    LaneClass_AdoTabRigidity: TFloatField;
    LaneClass_AdoTabObliquity: TIntegerField;
    LaneClass_AdoTabPush_Velocity: TFloatField;
    LaneClass_AdoTabField: TStringField;
    LaneClass_AdoTabField2: TStringField;
    LaneClass_AdoTabField3: TStringField;
    LaneClass_AdoTabField4: TStringField;
    RelayProject_AdoTab: TADOTable;
    MineRelay_AdoTab: TADOTable;
    MineRelay_AdoTabSequence: TIntegerField;
    MineRelay_AdoTabProject_Id: TIntegerField;
    MineRelay_AdoTabRelay_Route: TIntegerField;
    MineRelay_AdoTabRelay_Id: TIntegerField;
    MineRelay_AdoTabFace: TIntegerField;
    MineRelay_AdoTabArea: TIntegerField;
    MineRelay_AdoTabWorkGroup: TIntegerField;
    MineRelay_AdoTabField: TStringField;
    MineRelay_AdoTabField2: TStringField;
    MineRelay_AdoTabField3: TStringField;
    Face_AdoTabCoal: TIntegerField;
    Face_AdoTabFinish_Length: TIntegerField;
    Face_AdoTabReserve: TFloatField;
    Face_AdoTabRemain_Reserve: TFloatField;
    Face_AdoTabField4: TStringField;
    MineRelay_AdoTabBegin_Date: TDateTimeField;
    MineRelay_AdoTabEnd_Date: TDateTimeField;
    MineInterval_AdoTab: TADOTable;
    MineInterval_AdoTabId: TIntegerField;
    MineInterval_AdoTabTechnic_Type: TIntegerField;
    MineInterval_AdoTabFixPrepare_Time: TIntegerField;
    MineInterval_AdoTabInterval_Time: TIntegerField;
    MineRelay_AdoTabField4: TStringField;
    MineInterval_AdoTabField: TStringField;
    Lane_AdoTabLane_Id: TIntegerField;
    Lane_AdoTabProperty: TStringField;
    Lane_AdoTabName: TStringField;
    Lane_AdoTabSection_Area: TFloatField;
    Lane_AdoTabSection_Type: TStringField;
    Lane_AdoTabSupport_Type: TStringField;
    Lane_AdoTabTechnic_Type: TStringField;
    Lane_AdoTabRock_Property: TStringField;
    Lane_AdoTabWorkQuantity: TFloatField;
    Lane_AdoTabDayProgress: TFloatField;
    MineInterval_AdoTabDrillFinish_Ahead: TIntegerField;
    DrillAssurance_AdoTab: TADOTable;
    DrillAssurance_AdoTabId: TIntegerField;
    DrillAssurance_AdoTabLaneType: TStringField;
    DrillAssurance_AdoTabCoeff: TFloatField;
    Lane_AdoTabTaskTime: TIntegerField;
    Lane_AdoTabState: TStringField;
    Lane_AdoTabDisposed: TIntegerField;
    Lane_AdoTabProject_Id: TIntegerField;
    Area_AdoTabState: TStringField;
    Face_AdoTabFace_Length: TIntegerField;
    Face_AdoTabPush_Length: TIntegerField;
    Lane_AdoTabLST: TDateTimeField;
    Lane_AdoTabLFT: TDateTimeField;
    DrillCommonTask_AdoTab: TADOTable;
    DrillRelay_AdoTab: TADOTable;
    Lane_AdoTabArea: TStringField;
    Lane_AdoTabFace: TStringField;
    DrillRelay_AdoTabSequence: TIntegerField;
    DrillRelay_AdoTabProject_Id: TIntegerField;
    DrillRelay_AdoTabRelay_Route: TIntegerField;
    DrillRelay_AdoTabRelay_Id: TIntegerField;
    DrillRelay_AdoTabFace_Lane: TIntegerField;
    DrillRelay_AdoTabWorkGroup: TIntegerField;
    DrillRelay_AdoTabBegin_Date: TDateTimeField;
    DrillRelay_AdoTabEnd_Date: TDateTimeField;
    DrillRelay_AdoTabArea: TIntegerField;
    DrillRelay_AdoTabTask_Type: TStringField;
    DrillRelay_AdoTabField: TStringField;
    DrillRelay_AdoTabField2: TStringField;
    DrillRelay_AdoTabField3: TStringField;
    DrillRelayInterv_AdoTab: TADOTable;
    DrillRelayInterv_AdoTabId: TIntegerField;
    DrillRelayInterv_AdoTabTechnicType: TStringField;
    DrillRelayInterv_AdoTabIntervT: TIntegerField;
    DrillCommonTask_AdoTabId: TIntegerField;
    DrillCommonTask_AdoTabName: TStringField;
    DrillCommonTask_AdoTabType: TStringField;
    PriorTask_AdoTab: TADOTable;
    PriorTask_AdoTabSequence: TIntegerField;
    PriorTask_AdoTabLane_Id: TIntegerField;
    PriorTask_AdoTabId: TIntegerField;
    PriorTask_AdoTabPriorLane_Name: TStringField;
    PriorTask_AdoTabPriorLane_Id: TIntegerField;
    PriorTask_AdoTabField: TStringField;
    PriorTask_AdoTabField2: TStringField;
    DrillWorkPriorTask_AdoTab: TADOTable;
    DrillWorkPriorTask_AdoTabSequence: TIntegerField;
    DrillWorkPriorTask_AdoTabDrillTask_Id: TIntegerField;
    DrillWorkPriorTask_AdoTabId: TIntegerField;
    DrillWorkPriorTask_AdoTabPriorTask_Id: TIntegerField;
    DrillWorkPriorTask_AdoTabPriorTask_Name: TStringField;
    DrillWorkPriorTask_AdoTabField: TStringField;
    DrillWorkPriorTask_AdoTabField2: TStringField;
    FirstFaceDrillPriorTask_AdoTab: TADOTable;
    FirstFaceDrillPriorTask_AdoTabSequence: TIntegerField;
    FirstFaceDrillPriorTask_AdoTabDrillTask_Id: TIntegerField;
    FirstFaceDrillPriorTask_AdoTabId: TIntegerField;
    FirstFaceDrillPriorTask_AdoTabPriorTask_Id: TIntegerField;
    FirstFaceDrillPriorTask_AdoTabPriorTask_Name: TStringField;
    FirstFaceDrillPriorTask_AdoTabField: TStringField;
    FirstFaceDrillPriorTask_AdoTabField2: TStringField;
    Face_AdoTabDay_Progress: TFloatField;
    Face_AdoTabConsistency: TFloatField;
    Worker_AdoTabBelongedArea: TStringField;
    MineRelay_AdoTabTaskTime: TIntegerField;
    MineStat_AdoTab: TADOTable;
    MineStat_AdoTabId: TIntegerField;
    MineStat_AdoTabWorkGroup_Id: TIntegerField;
    MineStat_AdoTabItem_Id: TIntegerField;
    MineStat_AdoTabBegin_Date: TDateTimeField;
    MineStat_AdoTabEnd_Date: TDateTimeField;
    MineStat_AdoTabItem_Name: TStringField;
    MineStat_AdoTabWorkGroupName: TStringField;
    MineStat_AdoTabFaceName: TStringField;
    DrillStat_AdoTab: TADOTable;
    DrillStat_AdoTabId: TIntegerField;
    DrillStat_AdoTabWorkGroup_Id: TIntegerField;
    DrillStat_AdoTabItem_Id: TIntegerField;
    DrillStat_AdoTabBegin_Date: TDateTimeField;
    DrillStat_AdoTabEnd_Date: TDateTimeField;
    DrillStat_AdoTabItem_Name: TStringField;
    DrillStat_AdoTabWorkGroup: TStringField;
    DrillStat_AdoTabDrillTask: TStringField;
    MineStat_AdoTabFinished_Sum: TIntegerField;
    DrillStat_AdoTabFinished_Sum: TIntegerField;
    MineStat_AdoTabFinished: TIntegerField;
    MineStat_AdoTabRemain: TIntegerField;
    DrillStat_AdoTabFinished: TIntegerField;
    DrillStat_AdoTabRemain: TIntegerField;
    MineStat_AdoTabRelay_Id: TIntegerField;
    DrillStat_AdoTabRelay_Id: TIntegerField;
    Face_AdoTabRepair_Time: TIntegerField;
    Face_AdoTabDay_Output: TIntegerField;
    Face_AdoTabCycle_Output: TIntegerField;
    Face_AdoTabTaskTime: TIntegerField;
    MineRelayTrace_AdoTab: TADOTable;
    DrillRelayTrace_AdoTab: TADOTable;
    MineRelayTrace_AdoTabSequence: TIntegerField;
    MineRelayTrace_AdoTabProject_Id: TIntegerField;
    MineRelayTrace_AdoTabRelay_Route: TIntegerField;
    MineRelayTrace_AdoTabRelay_Id: TIntegerField;
    MineRelayTrace_AdoTabFace_Lane: TIntegerField;
    MineRelayTrace_AdoTabArea: TIntegerField;
    MineRelayTrace_AdoTabWorkGroup: TIntegerField;
    MineRelayTrace_AdoTabBegin_Date: TDateTimeField;
    MineRelayTrace_AdoTabEnd_Date: TDateTimeField;
    MineRelayTrace_AdoTabTaskTime: TIntegerField;
    MineRelayTrace_AdoTabRemain_Length: TIntegerField;
    MineRelayTrace_AdoTabDay_Progress: TFloatField;
    MineRelayTrace_AdoTabDay_OutPut: TFloatField;
    DrillRelayTrace_AdoTabSequence: TIntegerField;
    DrillRelayTrace_AdoTabProject_Id: TIntegerField;
    DrillRelayTrace_AdoTabFace_Lane: TIntegerField;
    DrillRelayTrace_AdoTabWorkGroup: TIntegerField;
    DrillRelayTrace_AdoTabBegin_Date: TDateTimeField;
    DrillRelayTrace_AdoTabEnd_Date: TDateTimeField;
    DrillRelayTrace_AdoTabArea: TIntegerField;
    DrillRelayTrace_AdoTabTask_Type: TStringField;
    MineRelayTrace_AdoTabField: TStringField;
    MineRelayTrace_AdoTabField2: TStringField;
    DrillRelayTrace_AdoTabField: TStringField;
    DrillRelayTrace_AdoTabField2: TStringField;
    MineRelayTrace_AdoTabPercentComplete: TIntegerField;
    DrillRelayTrace_AdoTabPercentComplete: TIntegerField;
    DrillRelayTrace_AdoTabRelay_Route: TIntegerField;
    DrillRelayTrace_AdoTabRelay_Id: TIntegerField;
    DrillTask_DayProgress: TADOTable;
    PriorTask_AdoTabLane_Name: TStringField;
    procedure ConnectDataBase;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data_Frm: TData_Frm;

implementation

uses Main_Unt;

{$R *.dfm}

{ TDataModule_Frm }

procedure TData_Frm.ConnectDataBase;
var i:integer;
begin
MD_Connection.Connected:=false;
try
  MD_Connection.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;'
                                   +'Persist Security Info=False;Initial Catalog=MD';
  MD_Connection.Connected:=true;
  for i:=1 to MD_Connection.DataSetCount do
    begin
      if MD_Connection.DataSets[i-1].Tag=1 then
        begin
          //if i=20 then showmessage(MD_Connection.DataSets[i-1].name);
          //showmessage(MD_Connection.DataSets[i-1].name);
          MD_Connection.DataSets[i-1].Open;
        end;
    end;

  if (Data_Frm.MineRelayTrace_AdoTab.RecordCount>0)
      and(Data_Frm.DrillRelayTrace_AdoTab.RecordCount>0)then
  begin
    Main_Frm.N2.Enabled:=true;
    Main_Frm.N26.Enabled:=true;
    Main_Frm.N27.Enabled:=true;
    Main_Frm.N30.Enabled:=true;
    //Main_Frm.N32.Enabled:=true;
    //Main_Frm.N33.Enabled:=true;
    Main_Frm.Refresh;
  end;
except
  showmessage('数据库连接有错误!请确定已经正确安装SQL Server！');
  Application.Terminate;
end;

end;
end.