📄 unt_data.pas
字号:
unit Unt_data;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UNT_DATABASE, DB, ADODB;
type
TFrm_data = class(TFrm_dataBase)
ADOPassword: TADOTable;
ADOT_Shaft: TADOTable;
ADOT_Graph: TADOTable;
ADOT_line: TADOTable;
ADOT_Pline: TADOTable;
ADOT_Spline: TADOTable;
ADOT_Arc: TADOTable;
ADOT_Circle: TADOTable;
ADOT_Text: TADOTable;
ADOT_SGD: TADOTable;
ADOT_SGDSGD_Id: TSmallintField;
ADOT_SGDShaft_Id: TSmallintField;
ADOT_SGDSGD_name: TWideStringField;
ADOT_SGDMancount: TSmallintField;
ADOT_SGDManger: TWideStringField;
ADOT_SGDSalary: TBCDField;
ADOT_Level: TADOTable;
ADOT_LevelLevel_Id: TSmallintField;
ADOT_LevelShaft_Id: TSmallintField;
ADOT_LevelLevel_name: TWideStringField;
ADOT_LevelPro_Storage: TFloatField;
ADOT_LevelInd_Storage: TFloatField;
ADOT_LevelHeight: TFloatField;
ADOT_LevelSer_Year: TSmallintField;
ADOT_Layer: TADOTable;
ADOT_LineT: TADOTable;
ADOT_TextT: TADOTable;
ADOT_Stop: TADOTable;
ADOT_WorkSys: TADOTable;
ADOT_Cut: TADOTable;
ADOT_Trace: TADOTable;
ADOT_DrillEqu: TADOTable;
ADOT_DrillEquDrillE_Id: TSmallintField;
ADOT_DrillEquShaft_Id: TSmallintField;
ADOT_DrillEquDrillT_Id: TSmallintField;
ADOT_DrillEquDrill: TWideStringField;
ADOT_DrillEquLoad: TWideStringField;
ADOT_DrillEquCarry: TWideStringField;
ADOT_DrillEquzhulin: TFloatField;
ADOT_DrillEquField: TStringField;
ADOT_Drill: TADOTable;
ADOT_Load: TADOTable;
ADOT_Carry: TADOTable;
ADOT_Task: TADOTable;
ADOT_TaskTask_Id: TSmallintField;
ADOT_Taskshaft_Id: TSmallintField;
ADOT_TaskTask_Name: TWideStringField;
ADOT_Area: TADOTable;
ADOT_CWork: TADOTable;
ADOT_LaneT: TADOTable;
ADOT_Material: TADOTable;
ADOT_MaterialCostN_Id: TSmallintField;
ADOT_MaterialShaft_Id: TSmallintField;
ADOT_MaterialUnit_cost: TBCDField;
ADOT_MaterialUnit: TWideStringField;
ADOT_Coal: TADOTable;
ADOT_CoalCoal_Id: TSmallintField;
ADOT_CoalCoal_Name: TWideStringField;
ADOT_CoalCH4: TFloatField;
ADOT_frus: TADOTable;
ADOT_frusfru_Id: TSmallintField;
ADOT_frusshaft_Id: TSmallintField;
ADOT_frusfru_Name: TWideStringField;
ADOT_frusFruT_Id: TSmallintField;
ADOT_frusH: TFloatField;
ADOT_frusAng: TSmallintField;
ADOT_Cfrus: TADOTable;
ADOT_FrusT: TADOTable;
ADOT_MineT: TADOTable;
ADOT_DrillT: TADOTable;
ADOT_DayDis: TADOTable;
ADOT_DayDisMinDri_Id: TSmallintField;
ADOT_DayDisShaft_Id: TSmallintField;
ADOT_DayDisTask_Id: TSmallintField;
ADOT_DayDisResult: TFloatField;
ADOT_DayDisField: TStringField;
ADOT_ATaskN: TADOTable;
ADOT_MDPro: TADOTable;
ADOT_MDProPro_Id: TSmallintField;
ADOT_MDProShaft_Id: TSmallintField;
ADOT_MDProAccessR: TFloatField;
ADOT_Points: TADOTable;
ADOT_SMDPro: TADOTable;
ADOT_CoalDensity: TFloatField;
ADOT_CoalHard: TFloatField;
ADOT_Convery: TADOTable;
ADOT_MineEqu: TADOTable;
ADOT_MineEquMineE_Id: TSmallintField;
ADOT_MineEquShaft_Id: TSmallintField;
ADOT_MineEquMineT_Id: TSmallintField;
ADOT_MineEquCut: TWideStringField;
ADOT_MineEquConvery: TWideStringField;
ADOT_MineEquTrace: TWideStringField;
ADOT_MineEquzhulin: TFloatField;
ADOT_MineEquECou: TSmallintField;
ADOT_MineEquField: TStringField;
ADOT_DrillEquECou: TSmallintField;
Ds_Task: TDataSource;
Ds_Area: TDataSource;
Ds_MDPro: TDataSource;
ADOT_SMDProId: TAutoIncField;
ADOT_SMDProPro_Id: TSmallintField;
ADOT_SMDProArea_Id: TSmallintField;
ADOT_SMDProTask_Id: TSmallintField;
ADOT_SMDProNArea_Id: TSmallintField;
ADOT_SMDProNTask_Id: TSmallintField;
ADOT_SMDProIId: TIntegerField;
ADOT_MDProIsNum: TBooleanField;
ADOT_MDProIsPlan: TBooleanField;
ADOT_D: TADOTable;
Ds_D: TDataSource;
ADOT_WS: TADOTable;
Ds_WS: TDataSource;
ADOT_WSShaft_Id: TSmallintField;
ADOT_WSADMW_Id: TSmallintField;
ADOT_WSWTN: TWideStringField;
ADOT_WSAWL: TSmallintField;
ADOT_DayDisB_Date: TDateTimeField;
ADOT_DayDisE_Date: TDateTimeField;
ADOT_ProBDate: TADOTable;
ADOT_ProBDatePro_Id: TSmallintField;
ADOT_ProBDateArea_Id: TSmallintField;
ADOT_ProBDateB_Date: TDateTimeField;
ADOT_ProBDateIId: TIntegerField;
ADOT_ProBDateField: TStringField;
ADOT_DirSys: TADOTable;
ADOT_MDPlan: TADOTable;
ADOT_MDPlanArea_Id: TSmallintField;
ADOT_MDPlanTask_Id: TSmallintField;
ADOT_MDPlanWorkDay: TSmallintField;
ADOT_MDPlanB_Date: TDateTimeField;
ADOT_MDPlanE_Date: TDateTimeField;
ADOT_MDPlanProTId: TWideStringField;
ADOT_MDPlanSGD_Id: TIntegerField;
ADOT_MDPlanSalary: TBCDField;
ADOT_MDPlanMaterial: TBCDField;
ADOT_MDPlanElectricity: TBCDField;
ADOT_MDPlanEquipment: TBCDField;
ADOT_MDPlanFin_Dis: TFloatField;
ADOT_MDPlanField: TStringField;
ADOT_MDPlanField2: TStringField;
ADOT_DirSysAT_Id: TSmallintField;
ADOT_DirSysATStr: TWideStringField;
ADOT_DirSysNAT_Id: TSmallintField;
ADOT_DirSysNATStr: TWideStringField;
ADOT_DirSysAWL: TWideStringField;
ADOT_DirSysAdvance: TSmallintField;
ADOT_DirSysAd_Para: TFloatField;
ADOT_Apprise: TADOTable;
ADOT_Appriseweight: TFloatField;
ADOT_ProApprise: TADOTable;
ADOT_ProAppriseId: TAutoIncField;
ADOT_ProAppriseresult: TFloatField;
ADOT_ProApprisePro_Id: TSmallintField;
ADOT_MDPlanField3: TStringField;
ADOT_MDPlanIId: TSmallintField;
ADOT_MDPlanEqu_Id: TSmallintField;
ADOT_MDPlanQ: TFloatField;
ADOQ_All: TADOQuery;
ADOQ_Aid: TADOQuery;
ADOT_CoalShaft_Id: TSmallintField;
ADOT_DirPara: TADOTable;
ADOT_DirParaAd_ADPara: TFloatField;
ADOT_AppriseApprise_Name: TWideStringField;
ADOT_SGDSGDT_N: TWideStringField;
ADOT_MDProIsAcc: TBooleanField;
ADOT_ProAppriseField: TStringField;
ADOT_DirParaIsWDayMod: TBooleanField;
ADOT_DirParaIsDirPMod: TBooleanField;
ADOT_DirParaPro_Id: TSmallintField;
ADOT_DayDisArea_Id: TSmallintField;
ADOT_DayDisField2: TStringField;
ADOT_ProBDateSGD_Id: TSmallintField;
ADOT_DirSysT_Id: TIntegerField;
ADOT_DirSysNT_Id: TIntegerField;
ADOT_DirSysTStr: TWideStringField;
ADOT_DirSysNTStr: TWideStringField;
ADOT_DirSysId: TSmallintField;
ADOT_MDPlanDis: TFloatField;
ADOT_DirParaShaft_Id: TSmallintField;
ADOT_Users: TADOTable;
ADOT_Usersid: TAutoIncField;
ADOT_UsersUser_Name: TWideStringField;
ADOT_UsersPassW: TWideStringField;
ADOT_UsersDiscripe: TMemoField;
ADOT_Areaid: TAutoIncField;
ADOT_AreaArea_Id: TSmallintField;
ADOT_AreaShaft_Id: TSmallintField;
ADOT_AreaArea_Name: TWideStringField;
ADOT_AreaSXHill: TWideStringField;
ADOT_AreaLR: TWideStringField;
ADOT_AreaProCou: TSmallintField;
ADOT_TaskArea: TADOTable;
ADOT_TaskAreaTA_Id: TSmallintField;
ADOT_TaskAreaArea_Id: TSmallintField;
ADOT_TaskAreaTask_Id: TSmallintField;
ADOT_TaskAreaWorkDay: TSmallintField;
ADOT_TaskAreaDis: TFloatField;
ADOT_TaskAreaIsSim: TBooleanField;
ADOT_TaskAreaMaterial: TBCDField;
ADOT_TaskAreaEquipment: TBCDField;
ADOT_TaskAreaElectricity: TBCDField;
ADOT_TaskAreaQ: TFloatField;
ADOT_TaskAreaField: TStringField;
ADOT_Task1: TADOTable;
SmallintField1: TSmallintField;
SmallintField5: TSmallintField;
WideStringField1: TWideStringField;
ADOT_Task1id: TAutoIncField;
ADOT_TaskAreaField2: TStringField;
ADOT_TaskAreaid: TAutoIncField;
ADOT_TaskAreaWillSim: TBooleanField;
ADOT_frusid: TAutoIncField;
ADOT_frusRock: TFloatField;
ADOT_Taskid: TAutoIncField;
ADOT_TaskTaskT_Id: TSmallintField;
ADOT_TaskT: TADOTable;
ADOT_TaskField: TStringField;
ADOT_Task1TaskT_Id: TSmallintField;
ADOT_TaskLightP: TFloatField;
ADOT_Task1LightP: TFloatField;
ADOT_Materialid: TAutoIncField;
ADOT_MaterialCost_name: TWideStringField;
ADOT_Ellipse: TADOTable;
ADOT_ShaftShaft_Id: TSmallintField;
ADOT_ShaftShaft_name: TWideStringField;
ADOT_ShaftInd_Storage: TFloatField;
ADOT_ShaftPro_Storage: TFloatField;
ADOT_ShaftDiscripe: TMemoField;
ADOT_AreaInd_Storage: TFloatField;
ADOT_AreaPro_Storage: TFloatField;
ADOT_AppriseApprise_Id: TIntegerField;
ADOT_ProAppriseApprise_Id: TIntegerField;
ADOT_UsersUserT_Id: TIntegerField;
ADOT_UsersShaft_Id: TIntegerField;
ADOT_TaskS: TADOTable;
ADOT_TaskSid: TAutoIncField;
ADOT_TaskSTS_Id: TIntegerField;
ADOT_TaskSArea_Id: TIntegerField;
ADOT_TaskSTS_Name: TStringField;
ADOT_TaskSField: TStringField;
ADOT_MDProAWL: TIntegerField;
Ds_TaskS: TDataSource;
ADOT_TaskSShaft_Id: TIntegerField;
ADOD_MDProL: TADODataSet;
ADOD_MDProLid: TAutoIncField;
ADOD_MDProLAWL: TIntegerField;
ADOD_MDProLIId: TIntegerField;
ADOD_MDProLAT_Id: TIntegerField;
ADOD_MDProLNextAT_Id: TIntegerField;
ADOD_MDProLField: TStringField;
ADOD_MDProLField2: TStringField;
ADOD_MDProLADMW_Id: TIntegerField;
ADOD_AreaDL: TADODataSet;
AutoIncField1: TAutoIncField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
IntegerField3: TIntegerField;
IntegerField4: TIntegerField;
IntegerField5: TIntegerField;
StringField5: TStringField;
StringField6: TStringField;
ADOD_AreaWL: TADODataSet;
AutoIncField2: TAutoIncField;
IntegerField6: TIntegerField;
IntegerField7: TIntegerField;
IntegerField8: TIntegerField;
IntegerField9: TIntegerField;
IntegerField10: TIntegerField;
StringField7: TStringField;
StringField8: TStringField;
ADOT_ProBDateTS_Id: TIntegerField;
ADOT_ProBDateIs_Remove: TBooleanField;
ADOT_ProBDateField2: TStringField;
ADOT_LaneChara: TADOTable;
ADOT_WorkChara: TADOTable;
ADOT_WorkCharaid: TAutoIncField;
ADOT_WorkCharaWorkT_Id: TIntegerField;
ADOT_WorkCharaWOrL: TIntegerField;
ADOT_WorkCharaH: TBCDField;
ADOT_WorkCharaMineT_Id: TIntegerField;
ADOT_WorkCharaFY_Angle: TBCDField;
ADOT_WorkCharaTBDivide: TIntegerField;
ADOT_WorkCharaSysTache: TIntegerField;
ADOT_WorkCharaDayDis: TBCDField;
ADOT_LaneCharaid: TAutoIncField;
ADOT_LaneCharaLaneT_Id: TIntegerField;
ADOT_LaneCharaWOrL: TIntegerField;
ADOT_LaneCharaSect: TBCDField;
ADOT_LaneCharaAngle: TBCDField;
ADOT_LaneCharaDrillT_Id: TIntegerField;
ADOT_LaneCharaCarrDis: TBCDField;
ADOT_LaneCharaDayDis: TBCDField;
ADOT_TaskWLT_Id: TIntegerField;
ADOT_WorkCharaMFH: TBCDField;
ADOT_WorkCharaFDis: TBCDField;
ADOT_WorkCharaField: TStringField;
ADOT_WorkCharaUnit: TStringField;
ADOT_LaneCharaUnit: TStringField;
ADOT_LaneCharaField: TStringField;
ADOD_WLChara: TADODataSet;
ADOD_WLChMat: TADODataSet;
ADOD_WLChMatField: TStringField;
ADOT_LaneCharaField2: TStringField;
ADOT_LaneCharaSect_Id: TIntegerField;
ADOT_LaneCharaW: TBCDField;
ADOT_LaneCharaH: TBCDField;
ADOD_WLChCoal: TADODataSet;
ADOD_WLChCoalField: TStringField;
ADOD_WLCharaid: TIntegerField;
ADOD_WLCharaWLT_Id: TIntegerField;
ADOD_WLCharaWOrL: TIntegerField;
ADOD_WLCharaIId: TIntegerField;
ADOD_WLCharaWLFact: TStringField;
ADOD_WLCharaWLFactR: TStringField;
ADOD_WLChMatid: TAutoIncField;
ADOD_WLChMatWLT_Id: TIntegerField;
ADOD_WLChMatWOrL: TIntegerField;
ADOD_WLChMatIId: TIntegerField;
ADOD_WLChMatCostN_Id: TIntegerField;
ADOD_WLChMatCostT_N: TStringField;
ADOD_WLChMatCost: TBCDField;
ADOD_WLChCoalid: TAutoIncField;
ADOD_WLChCoalWLT_Id: TIntegerField;
ADOD_WLChCoalWOrL: TIntegerField;
ADOD_WLChCoalIId: TIntegerField;
ADOD_WLChCoalCoal_Id: TIntegerField;
ADOD_WLChCoalCoal_Pa: TBCDField;
ADOT_TaskEqu_Id: TIntegerField;
ADOT_Task1WLT_Id: TIntegerField;
ADOT_Task1Equ_Id: TIntegerField;
ADOT_LaneCharaRock: TBCDField;
ADOT_LaneCharaRockT: TStringField;
ADOT_LaneCharaTraT: TStringField;
ADOT_Coalid: TAutoIncField;
ADOT_CoalMineRate: TBCDField;
ADOT_TaskAreaTBPara: TBCDField;
ADOT_TaskAreaStPara: TBCDField;
ADOT_TaskAreaWtPara: TBCDField;
ADOT_TaskAreaCHPara: TBCDField;
ADOT_TaskAreaAccPara: TBCDField;
ADOT_TaskAreaSecPara: TBCDField;
ADOT_TaskAreaTraPara: TBCDField;
ADOT_TaskAreaCaDPara: TBCDField;
ADOT_TaskAreaLevel_Id: TIntegerField;
ADOT_TaskAreaStringField: TStringField;
ADOD_DMDPro: TADODataSet;
ADOD_DMDProIId: TIntegerField;
ADOD_DMDProArea_Id: TIntegerField;
ADOD_DMDProTask_Id: TIntegerField;
ADOD_DMDProWorkDay: TIntegerField;
ADOD_DMDProB_Date: TDateTimeField;
ADOD_DMDProE_Date: TDateTimeField;
ADOD_DMDProProTask: TStringField;
ADOD_DMDProSGD_Id: TIntegerField;
ADOD_DMDProSalary: TBCDField;
ADOD_DMDProField: TStringField;
ADOD_DMDProField2: TStringField;
ADOD_DMDProField3: TStringField;
ADOD_DMDProid: TAutoIncField;
ADOD_DMDProPro_Id: TIntegerField;
ADOT_DirSysIId: TIntegerField;
ADOT_DayDisid: TAutoIncField;
ADOT_DayDisMat: TBCDField;
ADOT_DayDisEqu: TBCDField;
ADOT_DayDisEle: TBCDField;
ADOT_DayDisSal: TBCDField;
ADOT_DayDisQ: TBCDField;
//--------------增加记录------------------
//Procedure AddCoal();
//Procedure AddSGD();
//Procedure AddLayer();
//Procedure AddTextT();
//Procedure AddLineT();
//Procedure AddPoint();
//Procedure AddLine();
//Procedure AddArc();
//Procedure AddCircle();
//Procedure AddPline();
//Procedure AddSpline();
//Procedure AddText();
//Procedure AddStop();
//Procedure AddGraphic();
//Procedure AddLevel();
//Procedure AddArea();
private
{ Private declarations }
public
//Id:integer;
{ Public declarations }
end;
var
Frm_data: TFrm_data;
implementation
{$R *.dfm}
{ TFrm_data }
{ TFrm_data }
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -