data_unt.pas

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

unit Data_Unt;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms,Dialogs;

type
  TData_Frm = class(TDataModule)
    MD_Connection: TADOConnection;
    Level_AdoTab: TADOTable;
    Coal_AdoTab: TADOTable;
    Area_AdoTab: TADOTable;
    Face_AdoTab: TADOTable;
    Lane_AdoTab: TADOTable;
    WorkSys_AdoTab: TADOTable;
    TaskLocalName_AdoTab: TADOTable;
    AreaCoal_AdoTab: TADOTable;
    LaneCoal_AdoTab: TADOTable;
    MineTech_AdoTab: TADOTable;
    DrillTech_AdoTab: TADOTable;
    SectionType_AdoTab: TADOTable;
    Level_AdoTabLevel_Id: TIntegerField;
    Level_AdoTabLevel_Name: TStringField;
    Level_AdoTabAltitude: TBCDField;
    Level_AdoTabMine_Storage: TBCDField;
    Level_AdoTabServe_Year: TIntegerField;
    Coal_AdoTabCoal_Id: TIntegerField;
    Coal_AdoTabCoal_Name: TStringField;
    Coal_AdoTabDensity: TBCDField;
    Coal_AdoTabHard: TBCDField;
    Coal_AdoTabCH4: TBCDField;
    Coal_AdoTabMineRate: TBCDField;
    Coal_AdoTabAverage_Thickness: TBCDField;
    Area_AdoTabArea_Id: TIntegerField;
    Area_AdoTabArea_Name: TStringField;
    Area_AdoTabArea_Type: TStringField;
    Area_AdoTabSingleOrDouble: TStringField;
    Area_AdoTabMine_Storage: TBCDField;
    Area_AdoTabSimultaneousFace: TIntegerField;
    Face_AdoTabFace_Id: TIntegerField;
    Face_AdoTabName: TStringField;
    Face_AdoTabFace_Type: TIntegerField;
    Face_AdoTabMine_Height: TFloatField;
    Face_AdoTabTechnic_Type: TIntegerField;
    Face_AdoTabObliquity: TFloatField;
    Face_AdoTabMiningArea: TIntegerField;
    Face_AdoTabMined: TIntegerField;
    WorkSys_AdoTabSys_Id: TIntegerField;
    WorkSys_AdoTabDayWork_Time: TIntegerField;
    WorkSys_AdoTabOneWork_Time: TIntegerField;
    WorkSys_AdoTabHandOver_Time: TIntegerField;
    AreaCoal_AdoTabArea_Id: TIntegerField;
    AreaCoal_AdoTabSequence: TIntegerField;
    AreaCoal_AdoTabCoal_Id: TIntegerField;
    AreaCoal_AdoTabCoal_Percent: TFloatField;
    LaneCoal_AdoTabId: TIntegerField;
    LaneCoal_AdoTabLane_Id: TIntegerField;
    LaneCoal_AdoTabCoal_Sequence: TIntegerField;
    LaneCoal_AdoTabCoal_Id: TIntegerField;
    LaneCoal_AdoTabContent: TFloatField;
    MineTech_AdoTabMineType_Id: TIntegerField;
    MineTech_AdoTabMine_TypeName: TStringField;
    SupportType_AdoTab: TADOTable;
    TaskType_AdoTab: TADOTable;
    Area_AdoTabBelongLevel: TIntegerField;
    Area_AdoTabField: TStringField;
    Face_AdoTabField: TStringField;
    RockProperty_AdoTab: TADOTable;
    AreaCoal_AdoTabField: TStringField;
    AreaCoal_AdoTabField2: TStringField;
    Face_AdoTabField2: TStringField;
    LaneCoal_AdoTabField: TStringField;
    LaneCoal_AdoTabField2: TStringField;
    AreaCoal_AdoTabId: TIntegerField;
    MineState_AdoTab: TADOTable;
    Face_AdoTabField3: TStringField;
    TaskLocalName_AdoTabSequence: TIntegerField;
    TaskLocalName_AdoTabId: TIntegerField;
    TaskLocalName_AdoTabLocalName: TStringField;
    TaskLocalName_AdoTabCommonName_Id: TIntegerField;
    TaskLocalName_AdoTabDescription: TStringField;
    CommonName_AdoTab: TADOTable;
    TaskLocalName_AdoTabField: TStringField;
    Worker_AdoTab: TADOTable;
    Worker_AdoTabWorkGroup_Id: TIntegerField;
    Worker_AdoTabWorkGroup_Type: TStringField;
    Worker_AdoTabWorkGroup_Name: TStringField;
    Worker_AdoTabWorkerAmount: TIntegerField;
    Worker_AdoTabManger: TStringField;
    Worker_AdoTabSalary: TBCDField;
    Worker_AdoTabEquip: TIntegerField;
    MineEquip_AdoTab: TADOTable;
    DrillEquip_AdoTab: TADOTable;
    MineEquip_AdoTabMineEquip_Id: TIntegerField;
    MineEquip_AdoTabMineType_Id: TIntegerField;
    MineEquip_AdoTabCutMachine: TIntegerField;
    MineEquip_AdoTabConveyMachine: TIntegerField;
    MineEquip_AdoTabBraket: TIntegerField;
    MineEquip_AdoTabEquip_Cou: TIntegerField;
    MineEquip_AdoTabRent: TBCDField;
    MineEquip_AdoTabField: TStringField;
    CutMachine_AdoTab: TADOTable;
    ConveyMachine_AdoTab: TADOTable;
    Braket_AdoTab: TADOTable;
    MineEquip_AdoTabField2: TStringField;
    MineEquip_AdoTabField3: TStringField;
    MineEquip_AdoTabField4: TStringField;
    DrillEquip_AdoTabDrillEquip_Id: TIntegerField;
    DrillEquip_AdoTabDrillType_Id: TIntegerField;
    DrillEquip_AdoTabDrillMachine: TIntegerField;
    DrillEquip_AdoTabReshipMachine: TIntegerField;
    DrillEquip_AdoTabCarryMachine: TIntegerField;
    DrillEquip_AdoTabEquip_Cou: TIntegerField;
    DrillEquip_AdoTabrent: TBCDField;
    DrillMachine_AdoTab: TADOTable;
    ReshipMachine_AdoTab: TADOTable;
    CarryMachine_AdoTab: TADOTable;
    DrillEquip_AdoTabField: TStringField;
    DrillEquip_AdoTabField2: TStringField;
    DrillEquip_AdoTabField3: TStringField;
    DrillEquip_AdoTabField4: TStringField;
    CutMachine_AdoTabCutMachine_Id: TIntegerField;
    CutMachine_AdoTabType: TStringField;
    CutMachine_AdoTabMax_MiningH: TBCDField;
    CutMachine_AdoTabMin_MiningH: TBCDField;
    CutMachine_AdoTabMin_CoalHard: TBCDField;
    CutMachine_AdoTabMax_CoalHard: TBCDField;
    CutMachine_AdoTabAdapt_Obliquity: TBCDField;
    CutMachine_AdoTabTruncation_Depth: TBCDField;
    CutMachine_AdoTabMachineBody_Length: TBCDField;
    CutMachine_AdoTabRoller_Dia: TStringField;
    CutMachine_AdoTabRoller_Amount: TIntegerField;
    CutMachine_AdoTabDrag_Method: TStringField;
    CutMachine_AdoTabDrag_Force: TBCDField;
    CutMachine_AdoTabRating_Velocity: TBCDField;
    CutMachine_AdoTabRoller_CenterDis: TBCDField;
    CutMachine_AdoTabMachine_Height: TBCDField;
    CutMachine_AdoTabDown_Amount: TStringField;
    CutMachine_AdoTabElectromotor_Type: TStringField;
    CutMachine_AdoTabPower: TBCDField;
    CutMachine_AdoTabPeak_ControlDis: TBCDField;
    CutMachine_AdoTabDesign_Lab: TStringField;
    CutMachine_AdoTabMaking_Corp: TStringField;
    CutMachine_AdoTabReference_Price: TBCDField;
    CutMachine_AdoTabWeight: TBCDField;
    DrillMachine_AdoTabId: TIntegerField;
    DrillMachine_AdoTabMachine_Type: TStringField;
    DrillMachine_AdoTabInciseHead_Depth: TBCDField;
    DrillMachine_AdoTabInciseHead_Width: TBCDField;
    DrillMachine_AdoTabIncise_Area: TBCDField;
    DrillMachine_AdoTabElectromotor_Type: TStringField;
    DrillMachine_AdoTabPower: TBCDField;
    DrillMachine_AdoTabRating_Velocity: TBCDField;
    DrillMachine_AdoTabDesign_Lab: TStringField;
    DrillMachine_AdoTabMakingCorp: TStringField;
    DrillMachine_AdoTabReference_Price: TBCDField;
    DrillMachine_AdoTabWeight: TBCDField;
    ReshipMachine_AdoTabReship_Id: TIntegerField;
    ReshipMachine_AdoTabReship_Type: TStringField;
    ReshipMachine_AdoTabReshipAbility: TBCDField;
    ReshipMachine_AdoTabElectromotor_Type: TStringField;
    ReshipMachine_AdoTabPower: TBCDField;
    ReshipMachine_AdoTabDesign_Lab: TStringField;
    ReshipMachine_AdoTabMaking_Corp: TStringField;
    ReshipMachine_AdoTabWeight: TBCDField;
    ReshipMachine_AdoTabReference_Price: TBCDField;
    Braket_AdoTabBraket_Id: TIntegerField;
    Braket_AdoTabBraket_Type: TStringField;
    Braket_AdoTabBraket_Method: TStringField;
    Braket_AdoTabMax_Height: TBCDField;
    Braket_AdoTabMin_Height: TBCDField;
    Braket_AdoTabCenter_Distance: TBCDField;
    Braket_AdoTabStartSupport_Force: TBCDField;
    Braket_AdoTabWork_Resistance: TBCDField;
    Braket_AdoTabSupport_Intensity: TBCDField;
    Braket_AdoTabMotherboard_PressureRate: TBCDField;
    Braket_AdoTabAdapt_Obliquity: TBCDField;
    Braket_AdoTabCycle_Time: TBCDField;
    Braket_AdoTabTransport_Dimension: TStringField;
    Braket_AdoTabPillar_Form: TStringField;
    Braket_AdoTabPillar_Dia: TBCDField;
    Braket_AdoTabJack_ProcessDistance: TBCDField;
    Braket_AdoTabDesign_Lab: TStringField;
    Braket_AdoTabMaking_Corp: TStringField;
    Braket_AdoTabReference_Price: TBCDField;
    Braket_AdoTabWeight: TBCDField;
    ConveyMachine_AdoTabConvey_Id: TIntegerField;
    ConveyMachine_AdoTabType: TStringField;
    ConveyMachine_AdoTabDesign_Length: TBCDField;
    ConveyMachine_AdoTabFinished_Length: TBCDField;
    ConveyMachine_AdoTabTransport_Ability: TBCDField;
    ConveyMachine_AdoTabChain_Velocity: TBCDField;
    ConveyMachine_AdoTabElectromotor_Type: TStringField;
    ConveyMachine_AdoTabPower: TBCDField;
    ConveyMachine_AdoTabLay_Method: TStringField;
    ConveyMachine_AdoTabChain_RuptureBurthen: TBCDField;
    ConveyMachine_AdoTabSpatulaBoard_Form: TStringField;
    ConveyMachine_AdoTabSpatulaBoard_Dis: TBCDField;
    ConveyMachine_AdoTabCenterSlot_Wideth: TBCDField;
    ConveyMachine_AdoTabCutMachine_AdaptMethod: TStringField;
    ConveyMachine_AdoTabMaking_Corp: TStringField;
    ConveyMachine_AdoTabWeight: TBCDField;
    CarryMachine_AdoTabTransMachine_Id: TIntegerField;
    CarryMachine_AdoTabType: TStringField;
    CarryMachine_AdoTabDesign_Length: TBCDField;
    CarryMachine_AdoTabFinished_Length: TBCDField;
    CarryMachine_AdoTabTransport_Ability: TBCDField;
    CarryMachine_AdoTabElectromotor_Type: TStringField;
    CarryMachine_AdoTabPower: TBCDField;
    CarryMachine_AdoTabDesign_Lab: TStringField;
    CarryMachine_AdoTabMaking_Corp: TStringField;
    CarryMachine_AdoTabWeight: TBCDField;
    CarryMachine_AdoTabReferenc_Price: TBCDField;
    FaceClass_AdoTab: TADOTable;
    LaneClass_AdoTab: TADOTable;
    FaceClass_AdoTabId: TIntegerField;
    FaceClass_AdoTabMine_Height: TFloatField;
    FaceClass_AdoTabFace_Length: TFloatField;
    FaceClass_AdoTabPush_Length: TFloatField;
    FaceClass_AdoTabTechnic_Type: TIntegerField;
    FaceClass_AdoTabObliquity: TFloatField;
    FaceClass_AdoTabPush_Velocity: TFloatField;
    FaceClass_AdoTabField: TStringField;
    FaceClass_AdoTabEquip: TStringField;
    FaceClass_AdoTabCH4: TStringField;
    FaceClass_AdoTabFaultage: TStringField;
    FaceClass_AdoTabStream: TStringField;
    LaneClass_AdoTabId: TIntegerField;
    LaneClass_AdoTabRock_Property: TIntegerField;
    LaneClass_AdoTabSection_Area: TFloatField;